;%nn %cz %me %nick
;to load, type: /load -rs hd5a.mrc
;big letter fonts jgs
;chippy and Nicky
;pls do not change anything in the file without asking one of us. thanks :)
;P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P 
on 1:connect: unset %temp* %tmp* %t-* %HD_* 
;$HD.Smoosh(N,<l|r|c|s>,TEXT)
alias HD.Smoosh {
  if ($version >= 5.56) var %HD_1, %HD_2, %HD_3, %HD_4, %HD_5
  if ($3 == $null) return
  if ($2 isin lcrs) goto [ $2 ]
  return
  :c
  set %HD_1 $str($chr(160),$int($calc($calc($1 - $len($strip($replace($3-,$chr(32),$chr(160))))) / 2))) $+ $replace($3-,$chr(32),$chr(160)) $+ $str($chr(160),$calc($calc($1 - $len($strip($replace($3-,$chr(32),$chr(160))))) - $int($calc($calc($1 - $len($strip($replace($3-,$chr(32),$chr(160))))) / 2)))) ],$1)
  goto x
  :r
  set %HD_1 $str($chr(160),$calc($1 - $len($strip($replace($3-,$chr(32),$chr(160)))))) $+ $replace($3-,$chr(32),$chr(160))
  goto x
  :l
  set %HD_1 $replace($3-,$chr(32),$chr(160)) $+ $str($chr(160),$calc($1 - $len($strip($replace($3-,$chr(32),$chr(160))))))
  :x
  return $left(%HD_1,$1)
  :s
  set %HD_1 False 
  set %HD_2 0
  unset %HD_3
  set %HD_4 ,.;:?!
  :s2
  inc %HD_2
  if (%HD_2 > $len($3-)) goto se
  set %HD_5 $mid($3-,%HD_2,1)
  if (%HD_5 isin %HD_4) {
    set %HD_3 %HD_3 $+ %HD_5
    goto s2
  }  
  if (%HD_1 == True) {
    if ($asc(%HD_5) == 32) || ($asc(%HD_5) == 160) {
      goto s2
    }  
    else {
      set %HD_3 %HD_3 %HD_5
      set %HD_1 False
      goto s2
    }
  } 
  if (%HD_1 == False) {
    if ($asc(%HD_5) == 32) || ($asc(%HD_5) == 160) {
      set %HD_1 true
      goto s2
    }
    else {
      set %HD_3 %HD_3 $+ %HD_5
      goto s2
    }   
  }
  :se
  return %HD_3
}

; $HD.GetNick -=> ipv %nick
alias HD.GetNick {
  if ($me ison $active) {
    if ($snick($active,1) !== $null) return $snick($active,1)
    else return $nick($active,$r(1,$nick($active,0)))
  }
  if ($query($active) == $null) return $mid($active,2,30)
  else return $query($active) 
}
alias HD.GetChan {
  if ($me ison $active) return $active
  else return $me $+ & $+ $HD.GetNick
}
alias HD.clrs {
  unset %NeC_*
  if ($version >= 5.56) var %NeC_total1, %NeC_total2, %NeC_count1, %NeC_count2, %NeC_temp1, %NeC_temp2, %NeC_temp3, %NeC_temp99, %NeC_string, %NeC_colorz, %NeC_return, %NeC_c_count, %NeC_c_total 
  if ($2 == $null) return
  if ($1 !isnum) return
  set %NeC_total1 $1 | set %NeC_count1 0
  :LOOP1
  inc %NeC_count1
  if (%NeC_count1 > %NeC_total1) goto LOOP2
  set %NeC_temp99 $calc(%NeC_count1 + 1)
  set %NeC_temp2 $ [ $+ [ %NeC_temp99 ] ]
  if (%NeC_temp2 == $null) goto LOOP1 
  set %NeC_Colorz $instok(%NeC_Colorz,%NeC_temp2,%NeC_Count1,32)
  goto LOOP1 | :LOOP2
  if (NeC_Colorz == $null) return
  set %NeC_temp1 $calc(%NeC_total1 + 2) $+ -
  set %NeC_string $ [ $+ [ %NeC_temp1 ] ]
  set %NeC_count2 0 | set %NeC_total2 $len(%NeC_string)
  set %NeC_c_count 0 | set %NeC_c_total $gettok(%NeC_colorz,0,32)
  :LOOP3 | inc %NeC_count2 | inc %NeC_c_count
  if (%NeC_c_count > %NeC_c_total) { set %NeC_c_count 1 }
  if (%NeC_count2 > %NeC_total2) goto PLT
  set %NeC_temp3 $mid(%NeC_string,%NeC_count2,1)
  if (%NeC_temp3 == $chr(32)) || (%NeC_temp3 == $chr(160)) {
    %NeC_return = %NeC_return $+ $chr(160)
    dec %NeC_c_count
    goto LOOP3
  }
  else set %NeC_return %Nec_return $+ $chr(3) $+ $NeC_frmlen($gettok(%NeC_colorz,%NeC_c_count,32)) $+ %NeC_temp3
  goto LOOP3 | :PLT | return %NeC_return
}

alias NeC_frmlen {
  if ($len($1) == 1) return 0 $+ $1
  else return $1
}  
alias HD.plat {
  return $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,a,â),c,ç),i,î),$chr(108),Ì),n,ñ),o,ó),$chr(112),Þ),u,û),y,ý),A,Â),B,ß),C,Ç),D,Ð),I,Î),L,£),N,Ñ),O,Ó),P,þ),U,Ú),Y,Ý)
}  
alias HD.MakeC {
  if ($version >= 5.56) var %c, %HD_count
  set %c $HD.GetNick
  set %HD_count 0
  :LOOP
  inc %HD_count
  if (%HD_count > 9) return
  if ($mid(%c,%HD_count,1) == $null) set %c [ $+ [ %HD_count ] ] $chr(160)
  else set %c [ $+ [ %HD_count ] ] $mid(%c,%HD_count,1)
  goto LOOP
} 
alias HD.ChanCheck {
  if ($me ison $active) return
  else { echo 4 -a You Can only use this in a channel!! | halt }
}
alias HD.SelCheck { 
  if ($snick($active,$1) !== $null) return
  echo 4 -a You have to select $1 Nicks!!
}
alias HD.SetNs {
  if ($version >= 5.56) var %HD_1, %HD_2
  set %HD_1 0
  :LOOP
  inc %HD_1
  if (%HD_1 > $1) return
  set %HD_2 $snick($active,%HD_1)  
  if (%HD_2 == $null) set %HD_2 $nick($active,$r(1,$nick($active,0)))
  set %nn [ $+ [ %HD_1 ] ] $HD.Smoosh(9,c, [ %HD_2 ] ) 
  goto LOOP
}
alias nic set %ran $rand(1,19) | echo 4 -a nic $+ %ran | nic $+ %ran $1- | unset %ran
alias nic1 .play -ctnic1 hd5a.txt 300
alias nic2 .play -ctnic2 hd5a.txt 300
alias nic3 .play -ctnic3 hd5a.txt 300
alias nic4 .play -ctnic4 hd5a.txt 300
alias nic5 .play -ctnic5 hd5a.txt 300
alias nic6 .play -ctnic6 hd5a.txt 300
alias nic7 .play -ctnic7 hd5a.txt 300
alias nic8 .play -ctnic8 hd5a.txt 300
alias nic9 .play -ctnic9 hd5a.txt 300
alias nic10 .play -ctnic10 hd5a.txt 300
alias nic11 .play -ctnic11 hd5a.txt 300
alias nic12 .play -ctnic12 hd5a.txt 300
alias nic13 .play -ctnic13 hd5a.txt 300
alias nic14 .play -ctnic14 hd5a.txt 300
alias nic15 .play -ctnic15 hd5a.txt 300
alias nic16 .play -ctnic16 hd5a.txt 300
alias nic17 .play -ctnic17 hd5a.txt 300
alias nic18 .play -ctnic18 hd5a.txt 300
alias nic19 .play -ctnic19 hd5a.txt 300

alias wienie set %ran $rand(1,25) | echo 4 -a wienie $+ %ran | wienie $+ %ran $1- | unset %ran
alias wienie1 .play -ctdog1 hd5a.txt 300
alias wienie2 .play -ctdog2 hd5a.txt 300
alias wienie3 .play -ctdog3 hd5a.txt 300
alias wienie4 .play -ctdog4 hd5a.txt 300
alias wienie5 .play -ctdog5 hd5a.txt 300
alias wienie6 .play -ctdog6 hd5a.txt 300
alias wienie7 .play -ctdog7 hd5a.txt 300
alias wienie8 .play -ctdog8 hd5a.txt 300
alias wienie9 .play -ctdog9 hd5a.txt 300
alias wienie10 .play -ctdog10 hd5a.txt 300
alias wienie11 .play -ctdog11 hd5a.txt 300
alias wienie12 .play -ctdog12 hd5a.txt 300
alias wienie13 .play -ctdog13 hd5a.txt 300
alias wienie14 .play -ctdog14 hd5a.txt 300
alias wienie15 .play -ctdog15 hd5a.txt 300
alias wienie16 .play -ctdog16 hd5a.txt 300
alias wienie17 .play -ctdog17 hd5a.txt 300
alias wienie18 .play -ctdog18 hd5a.txt 300
alias wienie19 .play -ctdog19 hd5a.txt 300
alias wienie20 .play -ctdog20 hd5a.txt 300
alias wienie21 .play -ctdog21 hd5a.txt 300
alias wienie22 .play -ctdog22 hd5a.txt 300
alias wienie23 .play -ctdog23 hd5a.txt 300
alias wienie24 .play -ctdog24 hd5a.txt 300
alias wienie25 .play -ctdog25 hd5a.txt 300

alias hdbye set %ran $rand(1,11) | echo 4 -a hdbye $+ %ran | hdbye $+ %ran $1- | unset %ran
alias hdbye1 .play -ctbye1 hd5a.txt 300
alias hdbye2 .play -ctbye2 hd5a.txt 300
alias hdbye3 .play -ctbye3 hd5a.txt 300
alias hdbye4 .play -ctbye4 hd5a.txt 300
alias hdbye5 .play -ctbye5 hd5a.txt 300
alias hdbye6 .play -ctbye6 hd5a.txt 300
alias hdbye7 .play -ctbye7 hd5a.txt 300
alias hdbye8 .play -ctbye8 hd5a.txt 300
alias hdbye9 .play -ctbye9 hd5a.txt 300
alias hdbye10 .play -ctbye10 hd5a.txt 300
alias hdbye11 .play -ctbye11 hd5a.txt 300

alias hdhello set %ran $rand(1,9) | echo 4 -a hdhello $+ %ran | hdhello $+ %ran $1- | unset %ran
alias hdhello1 .play -ctwhello1 hd5a.txt 300
alias hdhello2 .play -ctwhello2 hd5a.txt 300
alias hdhello3 .play -ctwhello3 hd5a.txt 300
alias hdhello4 .play -ctwhello4 hd5a.txt 300
alias hdhello5 .play -ctwhello5 hd5a.txt 300
alias hdhello6 .play -ctwhello6 hd5a.txt 300
alias hdhello7 .play -ctwhello7 hd5a.txt 300
alias hdhello8 .play -ctwhello8 hd5a.txt 300
alias hdhello9 .play -ctwhello9 hd5a.txt 300

;HEHEHE
menu nicklist,query, {
  FUN!!
  .names
  ..nic1: .play -ctnic1 hd5a.txt 200
  ..nic2: .play -ctnic2 hd5a.txt 200
  ..nic3: .play -ctnic3 hd5a.txt 200
  ..nic4: .play -ctnic4 hd5a.txt 200
  ..nic5: .play -ctnic5 hd5a.txt 200
  ..nic6: .play -ctnic6 hd5a.txt 200
  ..nic7: .play -ctnic7 hd5a.txt 200
  ..nic8: .play -ctnic8 hd5a.txt 200
  ..nic9: .play -ctnic9 hd5a.txt 200
  ..nic10: .play -ctnic10 hd5a.txt 200
  ..nic11: .play -ctnic11 hd5a.txt 200
  ..nic12: .play -ctnic12 hd5a.txt 200
  ..nic13: .play -ctnic13 hd5a.txt 200
  ..nic14: .play -ctnic14 hd5a.txt 200
  ..nic15: .play -ctnic15 hd5a.txt 200
  ..nic16: .play -ctnic16 hd5a.txt 200
  ..nic17: .play -ctnic17 hd5a.txt 200
  ..nic18: .play -ctnic18 hd5a.txt 200
  ..nic19: .play -ctnic19 hd5a.txt 200
  .
  .wienie fun
  ..1
  ...Hello all: .play -cthello1 hd5a.txt 200
  ...dance!!: .play -ctdance1 hd5a.txt 200
  ...dance!!: .play -ctdance2 hd5a.txt 200
  ...Boogie: .play -ctboogie hd5a.txt 200
  ...Shake it: .play -ctshake hd5a.txt 200
  ...bath: .play -ctbath hd5a.txt 200
  ...friends: .play -ctfriends hd5a.txt 200
  ...friends: .play -ctfriends2 hd5a.txt 200
  ...drunk: .play -ctdrunk hd5a.txt 200
  ...goofball: .play -ctgoofball hd5a.txt 200
  ...silly: .play -ctsilly hd5a.txt 200
  ...nut: .play -cthdnut hd5a.txt 200
  ...I'm cute: .play -ctimcute hd5a.txt 200
  ...keep smilin: .play -ctsmilin hd5a.txt 200
  ...dripdrip: .play -ctdripdrip hd5a.txt 200
  ..2
  ...u and me: .play -ctuandme hd5a.txt 200
  ...kissin (hilite 2 names): HD.ChanCheck | .play -ctkissin hd5a.txt 200
  ...ride: .play -ctride hd5a.txt 200
  ...fast: .play -ctfast hd5a.txt 200
  ...I'm coming!: .play -ctimcoming hd5a.txt 200
  ...slow?: .play -ctslowX hd5a.txt 200
  ...stripping?: .play -ctwienerbra hd5a.txt 200
  ...sex!!: .play -ctsexxx hd5a.txt 200
  ...KISSS: .play -ctkisss hd5a.txt 200
  ...HUG: .play -cthuggg hd5a.txt 200
  ...luv ya: .play -ctluvya hd5a.txt 200
  ...love you: .play -ctloveyou hd5a.txt 200
  ...wake up: .play -ctwakeup hd5a.txt 200
  ...domino: .play -ctdomino hd5a.txt 200
  ...skater: .play -ctskating hd5a.txt 200
  ..3
  ...gimme that!!: .play -ctgimme hd5a.txt 200
  ...SHIT!: .play -ctshit1 hd5a.txt 200
  ...SHIT!: .play -ctshit2 hd5a.txt 200
  ...hammer: .play -ctwhammer hd5a.txt 200
  ...shuddup!: .play -ctarggg hd5a.txt 200
  ...sorry!!: .play -ctwsorry hd5a.txt 200
  ...BRB: .play -ctbrb4 hd5a.txt 200
  ...BRB food: .play -ctbrb2 hd5a.txt 200
  ...BRB beer: .play -ctbrb5 hd5a.txt 200
  ...BRB schmoke: .play -ctbrb3 hd5a.txt 200
  ...Bye all: .play -ctbyeall2 hd5a.txt 200
  .
  .wienie hello's
  ..hello1: .play -ctwhello1 hd5a.txt 200
  ..hello2: .play -ctwhello2 hd5a.txt 200
  ..hello3: .play -ctwhello3 hd5a.txt 200
  ..hello4: .play -ctwhello4 hd5a.txt 200
  ..hello5: .play -ctwhello5 hd5a.txt 200
  ..hello6: .play -ctwhello6 hd5a.txt 200
  ..hello7: .play -ctwhello7 hd5a.txt 200
  ..hello8: .play -ctwhello8 hd5a.txt 200
  ..hello9: .play -ctwhello9 hd5a.txt 200
  .
  .wienie goodbyes
  ..bye1: .play -ctbye1 hd5a.txt 200
  ..bye2: .play -ctbye2 hd5a.txt 200
  ..bye3: .play -ctbye3 hd5a.txt 200
  ..bye4: .play -ctbye4 hd5a.txt 200
  ..bye5: .play -ctbye5 hd5a.txt 200
  ..bye6: .play -ctbye6 hd5a.txt 200
  ..bye7: .play -ctbye7 hd5a.txt 200
  ..bye8: .play -ctbye8 hd5a.txt 200
  ..bye9: .play -ctbye9 hd5a.txt 200
  ..bye10: .play -ctbye11 hd5a.txt 200
  ..bye snif..: .play -ctbye10 hd5a.txt 200
  ..nite nn: .play -ctnightnn hd5a.txt 200
  .
  .silly wieners
  ..1
  ...N1: .play -ctdog1 hd5a.txt 200
  ...N2: .play -ctdog2 hd5a.txt 200
  ...N3: .play -ctdog3 hd5a.txt 200
  ...N4: .play -ctdog4 hd5a.txt 200
  ...N5: .play -ctdog5 hd5a.txt 200
  ...N6: .play -ctdog6 hd5a.txt 200
  ...N7: .play -ctdog7 hd5a.txt 200
  ...N8: .play -ctdog8 hd5a.txt 200
  ...N9: .play -ctdog9 hd5a.txt 200
  ...N10: .play -ctdog10 hd5a.txt 200
  ...N11: .play -ctdog11 hd5a.txt 200
  ...N12: .play -ctdog12 hd5a.txt 200
  ..2
  ...N13: .play -ctdog13 hd5a.txt 200
  ...N14: .play -ctdog14 hd5a.txt 200
  ...N15: .play -ctdog15 hd5a.txt 200
  ...N16: .play -ctdog16 hd5a.txt 200
  ...N17: .play -ctdog17 hd5a.txt 200
  ...N18: .play -ctdog18 hd5a.txt 200
  ...N19: .play -ctdog19 hd5a.txt 200
  ...N20: .play -ctdog20 hd5a.txt 200
  ...N21: .play -ctdog21 hd5a.txt 200
  ...N22: .play -ctdog22 hd5a.txt 200
  ...N23: .play -ctdog23 hd5a.txt 200
  ...N24: .play -ctdog24 hd5a.txt 200
  ...N25: .play -ctdog25 hd5a.txt 200
  ..
  .
  .channel
  ..channel: .play -ctchan1 hd5a.txt 200
  ..carz: .play -ctchan2 hd5a.txt 200
  ..dude: .play -ctdude hd5a.txt 200
  ..dudette: .play -ctdudette hd5a.txt 200
  ..mp3tunes: .play -ctmp3tunes hd5a.txt 200
  ..mp3friends: .play -ctmp3friends hd5a.txt 200
  .
  ;OK, enough!! BYE!!
}