rendered paste body;%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!!
}