HaCKeRz Kr0nlcKLeZ 1/HaCKeRz Kr0nlcKLeZ.iso/scriptz/shaggy.exe/aliases.ini

INI File | 1997-03-24 | 28.9 KB | 626 lines

ounter $+  [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
n535=    }
n536=    else {
n537=      msg #  $+ $chr(35) $+ %counter $+  [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
n538=      msg # ^: [ %xcomm ]
n539=    }
n540=    inc %counter
n541=    goto begin
n542=  }
n543=  unset %counter %total %packet %xcomm
n544=}
n545=/xsum {
n546=  %slots = %maxslots - $send(0)
n547=  set %total $readini $mircdir $+ xdcc.ini main total
n548=  msg # [BⁿGGδD] ** %total pack(s) * %slots of %maxslots slots open * Record: [ %cpsrecord ] $+ cps * Min: [ %minspeed ] $+ cps **
n549=  msg # [BⁿGGδD] Type '/ctcp $me XDCC LIST' for a summary of all packs
n550=  unset %total
n551=}
n552=/minspeed {
n553=  set %one 0
n554=  :start
n555=  inc %one
n556=  if ( $send(%one).cps == $null ) { goto end }
n557=  if ( % [ $+ [ $nick [ $+ [ xdcc ] ] ] ] == checked ) { goto start }
n558=  if ( $send(%one).status == waiting ) {
n559=    .notice $send(%one) [BⁿGGδD] You have DCCs Pending... Type '/ctcp $me XDCC GET'
n560=    %file = $send(%one).file
n561=    %files = $findfile(%directory,%file,1) | close -s $send(%one) | halt
n562=  }
n563=  if ( $send(%one).cps < %minspeed ) {
n564=    .notice $send(%one) [BⁿGGδD] MinSpeed: [ $send(%one).cps ] $+ cps < [ %minspeed ] $+ cps - Closing Link
n565=    echo 12 -a [BⁿGGδD] DCC Send Check 4< FAILED 4> $send(%one) 4< [ $send(%one).cps ] $+ cps < [ %minspeed ] $+ cps 4> Closing Link
n566=    close -s $send(%one)
n567=  }
n568=  if ( $send(%one).cps > %minspeed ) {
n569=    .notice $send(%one) [BⁿGGδD] MinSpeed: [ $send(%one).cps ] $+ cps > [ %minspeed ] $+ cps - Please Drive Thru
n570=    echo 12 -a [BⁿGGδD] DCC Send Check 4< PASSED 4> $send(%one) [ $send(%one).cps ] $+ cps > [ %minspeed ] $+ cps
n571=    set % [ $+ [ $send(%one) [ $+ [ xdcc ] ] ] ] checked | .timer 1 200 unset % [ $+ [ $send(%one) [ $+ [ xdcc ] ] ] ]
n572=  }
n573=  goto start
n574=  :end
n575=}

[Aliases]
n0=/f5 { ignore -tu45 %ignored | echo 12 $active -=* %ignored is now being ctcp ignored. | timer 1 45 echo 12 $active -=* %ignored is now unignored }
n1=/join1 /play seen.txt
n2=/part /play exit.txt
n3=/kick1 /play kick.txt
n4=/op /mode # +ooo $$1 $2 $3
n5=/dop /mode # -ooo $$1 $2 $3
n6=/j /join #$$1
n7=/p /part #
n8=/n /names #$$1
n9=/w /whois $$1
n10=/k /kick # $$1
n11=/q /query $$1
n12=/hop /part # | /join #$$1
n13=/send /dcc send $1 $2
n14=/chat /dcc chat $1
n15=/ping /ctcp $$1 ping
n16=/b /ban # $nick
n17=/c {
n18=  if ($1 == /me) { %cmd = me | %txt = *2 }
n19=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n20=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n21=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n22=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n23=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n24=  else { %cmd = say | %txt = *1 }
n25=  %i = 1 | %ctxt = $chr(3)
n26=  :nxtc
n27=  %rnd = $rand(1,15)
n28=  if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc }
n29=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) }
n30=  elseif ( $mid( %i, 1,%txt ) >= $chr(48) && $mid( %i, 1, %txt ) <= $chr(57) ) {
n31=    if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
n32=    else { %ctxt = %ctxt $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
n33=  }
n34=  else { %ctxt = %ctxt $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
n35=  if ( %i < $len( %txt ) ) { inc %i | goto nxtc }
n36=  else { %cmd %ctxt }
n37=  unset %cmd %txt %i %ctxt %rnd
n38=}
n39=/wc {
n40=  if ($1 == /me) { %cmd = me | %txt = *2 }
n41=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n42=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n43=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n44=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n45=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n46=  else { %cmd = say | %txt = *1 }
n47=  %i = 1 | %ctxt = $chr(3)
n48=  :nxtc
n49=  %rnd = $rand(1,15)
n50=  if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc }
n51=  if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd }
n52=  else { %ctxt = %ctxt $+ %rnd }
n53=  :nxtchr
n54=  if ( $mid( %i, 1, %txt ) != $chr(32) ) {
n55=    %ctxt = %ctxt $+ $mid( %i, 1, %txt )
n56=    if ( %i < $len( %txt ) ) { inc %i | goto nxtchr }
n57=    else { %cmd %ctxt }
n58=  }
n59=  else {
n60=    if ( %i < $len( %txt ) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) | inc %i | goto nxtc }
n61=    else { %cmd %ctxt }
n62=  }
n63=  unset %cmd %txt %i %ctxt %rnd
n64=}
n65=/rc {
n66=  if ($1 == /me) { %cmd = me | %txt = *2 }
n67=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n68=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n69=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n70=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n71=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n72=  else { %cmd = say | %txt = *1 }
n73=  %i = 1 | %ctxt = $chr(3)
n74=  :nxtfc
n75=  %frnd = $rand(1,16)
n76=  if ( %frnd == 1 || %frnd == 2 || %frnd == 3 || %frnd == 5 || %frnd == 6 || %frnd == 7 || %frnd == 10 || %frnd == 14 ) { goto nxtfc }
n77=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %frnd $+ ,01 $+ $chr(32) $+ $chr(3) }
n78=  else {
n79=    if ( %i == 1 ) { %ctxt = %ctxt $+ 1,01 $+ $chr(32) $+ $chr(3) $+ $+ %frnd $+ ,01 $+ $mid( %i, 1, %txt ) }
n80=    else { %ctxt = %ctxt $+ %frnd $+ ,01 $+ $mid( %i, 1, %txt ) }
n81=  }
n82=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }
n83=  else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
n84=  unset %cmd %txt %i %ctxt %frnd
n85=}
n86=/bc {
n87=  if ($1 == /me) { %cmd = me | %txt = *2 }
n88=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n89=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n90=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n91=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n92=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n93=  else { %cmd = say | %txt = *1 }
n94=  %bc = $rand(1,15)
n95=  if (%bc < 10 ) { %tbc = 0 $+ %bc | %bc = %tbc | unset %tbc }
n96=  if ( %bc == 01 ) { %fstr = 0408091112131516 }
n97=  elseif ( %bc == 02 ) { %fstr = 030408091112131516 }
n98=  elseif ( %bc == 03 ) { %fstr = 010204050608091112131516 }
n99=  elseif ( %bc == 04 ) { %fstr = 010203050608091011121516 }
n100=  elseif ( %bc == 05 ) { %fstr = 030408091112131516 }
n101=  elseif ( %bc == 06 ) { %fstr = 01030408091012131516 }
n102=  elseif ( %bc == 07 ) { %fstr = 01020506080912131516 }
n103=  elseif ( %bc == 08 ) { %fstr = 0102030405060710121314 }
n104=  elseif ( %bc == 09 ) { %fstr = 0102030405060710121314 }
n105=  elseif ( %bc == 10 ) { %fstr = 0102040506080911131516 }
n106=  elseif ( %bc == 11 ) { %fstr = 0102030405060710121314 }
n107=  elseif ( %bc == 12 ) { %fstr = 010405060809111316 }
n108=  elseif ( %bc == 13 ) { %fstr = 010203040506080910111216 }
n109=  elseif ( %bc == 14 ) { %fstr = 01020405060809111316 }
n110=  else { %fstr = 010203040506070809101112131416 }
n111=  %i = 1 | %ctxt = $chr(3) | %nclrs = $len(%fstr) | %nclrs = %nclrs / 2
n112=  :nxtfc
n113=  %fcn = $rand(1,%nclrs) | %fcp = %fcn * 2 | dec %fcp | %fc = $mid(%fcp,2,%fstr)
n114=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) }
n115=  else {
n116=    if ( %i == 1 ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) $+ $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n117=    else { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n118=  }
n119=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }
n120=  else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
n121=  unset %cmd %txt %i %ctxt %bc %fstr %nclrs %fcn %fcp %fc
n122=}
n123=/bcr {
n124=  if ($1 == /me) { %cmd = me | %txt = *2 }
n125=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n126=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n127=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n128=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n129=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n130=  else { %cmd = say | %txt = *1 }
n131=  %i = 1 | %ctxt = $chr(3)
n132=  :nxtfc
n133=  %bc = $rand(1,15)
n134=  if (%bc < 10 ) { %tbc = 0 $+ %bc | %bc = %tbc | unset %tbc }
n135=  if ( %bc == 01 ) { %fstr = 0408091112131516 }
n136=  elseif ( %bc == 02 ) { %fstr = 030408091112131516 }
n137=  elseif ( %bc == 03 ) { %fstr = 010204050608091112131516 }
n138=  elseif ( %bc == 04 ) { %fstr = 010203050608091011121516 }
n139=  elseif ( %bc == 05 ) { %fstr = 030408091112131516 }
n140=  elseif ( %bc == 06 ) { %fstr = 01030408091012131516 }
n141=  elseif ( %bc == 07 ) { %fstr = 01020506080912131516 }
n142=  elseif ( %bc == 08 ) { %fstr = 0102030405060710121314 }
n143=  elseif ( %bc == 09 ) { %fstr = 0102030405060710121314 }
n144=  elseif ( %bc == 10 ) { %fstr = 0102040506080911131516 }
n145=  elseif ( %bc == 11 ) { %fstr = 0102030405060710121314 }
n146=  elseif ( %bc == 12 ) { %fstr = 010405060809111316 }
n147=  elseif ( %bc == 13 ) { %fstr = 010203040506080910111216 }
n148=  elseif ( %bc == 14 ) { %fstr = 01020405060809111316 }
n149=  else { %fstr = 010203040506070809101112131416 }
n150=  %nclrs = $len(%fstr) | %nclrs = %nclrs / 2
n151=  %fcn = $rand(1,%nclrs) | %fcp = %fcn * 2 | dec %fcp | %fc = $mid(%fcp,2,%fstr)
n152=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) }
n153=  else {
n154=    if ( %i == 1 ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) $+ $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n155=    else { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n156=  }
n157=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }
n158=  else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
n159=  unset %cmd %txt %i %ctxt %bc %fstr %nclrs %fcn %fcp %fc
n160=}
n161=/xc {
n162=  if ($1 == /me) { %cmd = me | %txt = *2 }
n163=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n164=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n165=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n166=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n167=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n168=  else { %cmd = say | %txt = *1 }
n169=  %i = 1 | %bc = 03 | %ctxt = $chr(3)
n170=  :nxtc
n171=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ 16, $+ %bc $+ $chr(32) $+ $chr(3) }
n172=  else { %ctxt = %ctxt $+ 16, $+ %bc $+ $mid( %i, 1, %txt ) }
n173=  if ( %bc = 03 ) { %bc = 04 }
n174=  else { %bc = 03 }
n175=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtc }
n176=  else { %cmd %ctxt }
n177=  unset %cmd %i %bc %txt %ctxt
n178=}
n179=abcvote {
n180=  .enable #abcpoll
n181=  set %a 0
n182=  set %b 0
n183=  set %c 0
n184=  set %abcquestion $?="Enter Question"
n185=  set %avalue $?="Enter First Option"
n186=  set %bvalue $?="Enter Second Option"
n187=  set %cvalue $?="Enter Third Option"
n188=  msg # 9,1Voting Polls Have Opened!
n189=  msg # 9,1The Poll Topic For Now Is:8,1 %abcquestion
n190=  msg # 9,1Voting Canidates Are:
n191=  msg # 4,1[A] %avalue [B] %bvalue [C] %cvalue
n192=  msg # 9,1Type 4!Vote <A, B -Or- C>9 To Vote
n193=  .timer 1 60 msg # 13,1Only --->60<--- Sec. Left To Vote !Vote <A, B -Or- C>
n194=  .timer 1 120 abclose
n195=}
n196=abclose {
n197=  disable #abcpoll
n198=  set %a %a * 1
n199=  set %b %b * 1
n200=  set %c %c * 1
n201=  set %totalabc %totalabc * 1
n202=  msg # 4,1The Polls Are Now Closed...
n203=  msg # 13,1Drumroll Please...
n204=  msg # 8,1 %totalabc Of The Users In # Voted On: %abcquestion $+ !!!
n205=  msg # 8,1[A]  %avalue Got %a [B] %bvalue Got %b [C] %cvalue Got %c
n206=  if ((%a > %b) && (%a > %c)) goto awin
n207=  if ((%a > %b) && (%a = %c)) goto aandc
n208=  if ((%a > %c) && (%a = %b)) goto aandb
n209=  if ((%a < %b) && (%c < %b)) goto bwin
n210=  if ((%a < %b) && (%c = %b)) goto bandc
n211=  if ((%a < %c) && (%c > %b)) goto cwin
n212=  if ((%a = %b) && (%a = %c)) goto equal
n213=  :awin
n214=  msg # 9,1The Majority Voted For [A] %avalue $+ !!!!
n215=  goto end
n216=  :bwin
n217=  msg # 9,1The Majority Voted For [B] %bvalue $+ !!!!
n218=  goto end
n219=  :cwin
n220=  msg # 9,1The Majority Voted For [C] %cvalue $+ !!!!
n221=  goto end
n222=  :equal
n223=  msg # 9,1It's A Tie!!! D<>>>>>>>>>>
n224=  goto end
n225=  :aandb
n226=  msg # 9,1[A] %avalue & [B] %bvalue Were Tied!!
n227=  goto end
n228=  :aandc
n229=  msg # 9,1[A] %avalue & [C] %cvalue Were Tied!!
n230=  goto end
n231=  :bandc
n232=  msg # 9,1[B] %bvalue & [C] %cvalue Were Tied!!
n233=  :end
n234=  unset %a | unset %b | unset %c | unset %avalue | unset %bvalue | unset %cvalue | unset %abcquestion | unset %totalabc | unset %notagain
n235=}
n236=e { %num = 1 | unset %msg  | %msg =  | %color = p
n237=  :start
n238=  if %color == p { %num2 = 4 | %num3 = 2 | %color = y | goto add }
n239=  if %color == y  { %num2 = 2 | %num3 = 4 | %color = p | goto add }
n240=  :add
n241=  if $mid(%num,1, *1) != $null {
n242=    %msg = %msg $+   $+ %num3 $+ , $+  %num2 $+  $mid(%num, 1,*1) $+  
n243=    inc %num
n244=  goto start  }
n245=  say %msg
n246=}
n247=cc { %num = 1 | unset %msg  | %msg =  | %color = p
n248=  :start
n249=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
n250=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
n251=  :add
n252=  if $mid(%num,1, *1) != $null {
n253=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n254=    inc %num
n255=  goto start  }
n256=  say %msg
n257=}
n258=VAL {
n259=  %c = *1
n260=  set %c $replace(%c,a,4a)
n261=  set %c $replace(%c,b,13B)
n262=  set %c $replace(%c,c,5C)
n263=  set %c $replace(%c,d,4D)
n264=  set %c $replace(%c,e,4e)
n265=  set %c $replace(%c,f,13F)
n266=  set %c $replace(%c,g,4G)
n267=  set %c $replace(%c,h,5H)
n268=  set %c $replace(%c,i,4i)
n269=  set %c $replace(%c,j,5J)
n270=  set %c $replace(%c,k,4K)
n271=  set %c $replace(%c,l,4L)
n272=  set %c $replace(%c,m,4M)
n273=  set %c $replace(%c,n,13N)
n274=  set %c $replace(%c,o,4o)
n275=  set %c $replace(%c,p,13P)
n276=  set %c $replace(%c,q,13Q)
n277=  set %c $replace(%c,r,13R)
n278=  set %c $replace(%c,s,5S)
n279=  set %c $replace(%c,t,4T)
n280=  set %c $replace(%c,u,4u)
n281=  set %c $replace(%c,v,4V)
n282=  set %c $replace(%c,w,13W)
n283=  set %c $replace(%c,x,5X)
n284=  set %c $replace(%c,y,5Y)
n285=  set %c $replace(%c,z,4z)
n286=  set %c $replace(%c,?,13┐13?)
n287=  say %c
n288=  unset %c
n289=}
n290=end_hangman msg %hangmanchan 13,1h┴±gám├± The game is now over!  $me has ended it - phrase was  $+ %realword $+  | msg %hangmanchan It took %wrongnum wrong tries and %rightnum right ones. | disable #game | halt
n291=hangman {
n292=  if ($1 !isnum) { echo ***9,1 Usage: /hangman <num wrong guesses> <phrase> | halt } | if ($1 !isnum) { echo *** Number of guesses must be a number... | halt } | %hmwrong = $1
n293=  if ($1 == $null) { echo 4 ***9,1 Please specify a phrase, usage is '/hangman <phrase>' | halt }
n294=  enable #game | 9,1 set %rightnum 0 | set %correctlets  | set %realword *2 | set %dashword "" | set %wrong  | set %lettersright "" | set %wrongnum 0 | %i = 0 | %hangmanchan = # | :next | inc %i
n295=  if (%i > $len(*2)) { goto done }
n296=  %thisasc = $asc($mid(%i,1,*2))
n297=  if (%thisasc == 32) { set %dashword %dashword $+ á | goto next }
n298=  else { set %dashword %dashword $+ - | goto next }
n299=  :done | say 9,1h┴±gám├± New Game Started h┴±gám├± | say Try To Guess: %dashword | say Everybody together gets %hmwrong guess(es).  Type !guess <letter> to guess, !solve <phrase> to solve it. | halt
n300=}
n301=HIS {
n302=  %c = *1
n303=  set %c $replace(%c,a,6a)
n304=  set %c $replace(%c,b,13B)
n305=  set %c $replace(%c,c,6C)
n306=  set %c $replace(%c,d,13D)
n307=  set %c $replace(%c,e,13e)
n308=  set %c $replace(%c,f,13F)
n309=  set %c $replace(%c,g,6G)
n310=  set %c $replace(%c,h,6H)
n311=  set %c $replace(%c,i,6i)
n312=  set %c $replace(%c,j,13J)
n313=  set %c $replace(%c,k,6K)
n314=  set %c $replace(%c,l,13L)
n315=  set %c $replace(%c,m,6M)
n316=  set %c $replace(%c,n,13N)
n317=  set %c $replace(%c,o,6o)
n318=  set %c $replace(%c,p,13P)
n319=  set %c $replace(%c,q,13Q)
n320=  set %c $replace(%c,r,13R)
n321=  set %c $replace(%c,s,6S)
n322=  set %c $replace(%c,t,6T)
n323=  set %c $replace(%c,u,6u)
n324=  set %c $replace(%c,v,13V)
n325=  set %c $replace(%c,w,13W)
n326=  set %c $replace(%c,x,6X)
n327=  set %c $replace(%c,y,6Y)
n328=  set %c $replace(%c,z,6z)
n329=  set %c $replace(%c,?,13┐13?)
n330=  set %c $replace(%c,z,6z)
n331=  set %c $replace(%c,.,6╖)
n332=  say %c
n333=  unset %c
n334=}
n335=╖
n336=/leet /say 9,1 $+ $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,w,W),e,Ω),o,÷),a,σ),b,▀),c,⌐),d,╨),f,f),g,G),h,H),i,ε),j,J),k,K),l,L),m,M),n,±),o,≡),p,■),q,Q),r,«),s,º),t,T),u,√),v,V),x,X),z,Z),!,í),?,┐),0,░),y,Ñ),1,╣),2,▓),3,│) $+ 
n337=}
n338=/rtime {
n339=set %realtime $time
n340=set %hour $token(1,58,%realtime)
n341=set %type AM
n342=if (%hour = 0) /set %hour 12
n343=if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
n344=if (%hour = 12) /set %type PM
n345=set %min $token(2,58,%realtime)
n346=set %realtime %hour $+ : $+ %min %type
n347=if (%online = on) /set %online %realtime
n348=unset %hour | /unset %min | /unset %type | /return %realtime
n349=}
n350=altcaps {
n351=%text = "" | %rand = $rand(1,2) | %i = 0 | :next | inc %i
n352=if (%i > $len(*1)) { say %text | halt } | if ($asc($mid(%i,1,*1)) == 32) { %text = %text $+ á | goto next }
n353=if (%rand == 1) {
n354=  if (%i == 1) { %text = $upper($mid(%i,1,*1)) | set %thing 1 | goto next } | else {
n355=  if (%thing == 1) { %text = %text $+ $lower($mid(%i,1,*1)) | set %thing 2 | goto next } | if (%thing == 2) { %text = %text $+ $upper($mid(%i,1,*1)) | set %thing 1 | goto next } }
n356=}
n357=elseif (%rand == 2) {
n358=  if (%i == 1) { %text = $lower($mid(%i,1,*1)) | set %thing 1 | goto next } | else {
n359=  if (%thing == 1) { %text = %text $+ $upper($mid(%i,1,*1)) | set %thing 2 | goto next } | if (%thing == 2) { %text = %text $+ $lower($mid(%i,1,*1)) | set %thing 1 | goto next } }
n360=}
n361=}
n362=pl {
n363=%p = 0
n364=:pl
n365=inc %p
n366=if (%p > $chat(0)) { unset %p | halt }
n367=msg = $+ $chat(%p) < $+ $me $+ > *1
n368=goto pl
n369=}
n370=plme {
n371=%p = 0
n372=:pl
n373=inc %p
n374=if (%p > $chat(0)) { unset %p | halt }
n375=msg = $+ $chat(%p) * $me *1
n376=goto pl
n377=}
n378=plwho {
n379=echo 6 $active nick!user@host
n380=echo 6 $active ==============
n381=%w = 0
n382=:w
n383=inc %w
n384=if (%w > $chat(0)) { unset %w | halt }
n385=echo 6 $active $readini $mircdirwho.ini who $chat(%w)
n386=goto w
n387=}
n388=/low {
n389=set %final *1
n390=%final = $upper(%final)
n391=%final = $replace(%final,A,4a)
n392=%final = $replace(%final,E,4e)
n393=%final = $replace(%final,I,4i)
n394=%final = $replace(%final,O,4o)
n395=%final = $replace(%final,U,4u)
n396=say %final
n397=}
n398=/atime /say  14,14-15,15-13,13-13,1 $rtime 9,1-13,1 OhiO 9,1-13,1 $day 9,1-13,1 $adate 13,13-15,15-14,14-
n399=}
n400=/time /say  14,14--15,15--13,13--13,1 $rtime 9,9-13,1 OhiO 9,9-13,1 $day 9,9-13,1 $adate 13,13--15,15--14,14--
n401=}
n402=Brian /titlebar * $rtime ░ño\ShAggY/oñ░ StAts are  $nopnick(0,#) non-ops  there are $opnick(0,#) ops in $chan
n403=}
n404=LALA {timer4 0 1 /Brian
n405=}
n406=/autoaway {
n407=if $idle > %autoawaydelay {
n408=if $away == $true {
n409=if %autoawaystart == $null set %autoawaystart $rtime | else { set %autoawaytime $rtime - %autoawaystart | echo 2 -s $me has been away %autoawaytime secs | unset %autoawaytime | goto end | nick ShAggY }
n410=}
n411=if $away == $false {
n412=if %autoawaynick != 0 { set %autoawaytempnick $me | n %autoawaynick |  ame has been Away For 5 mins, Now Enabling Auto Away %logo %logo %logo %logo %logo  | nick ShaG-AwaY }
n413=away %autoawaymsg | .enable #away | set %autoawaystart $rtime | echo 2 -s $me has been marked away.
n414=}
n415=}
n416=else {
n417=if $away == $false { echo 2 -s $me has been idle $idle secs. | goto end }
n418=if $away == $true {
n419=if %autoawaytempnick != $null { n %autoawaytempnick | unset %autoawaytempnick | nick ShAggY | set %autoaway on}
n420=away | .disable #away | unset %autoawaystart | echo 2 -s $me has been marked here. | nick ShAggY | set %autoaway on
n421=}
n422=}
n423=:end
n424=}
n425=Shag {
n426=say 14,14--15,15--13,13--1,1 $rtime 9,9-1,1 OhiO 9,9-1,1 $day 9,9-1,1 $adate 13,13--15,15--14,14--
n427=say 14,14--15,15--13,13--13,1 $rtime 9,9-13,1 OhiO 9,9-13,1 $day 9,9-13,1 $adate 13,13--15,15--14,14--
n428=say 14,14--15,15--13,13--1,1 $rtime 9,9-1,1 OhiO 9,9-1,1 $day 9,9-1,1 $adate 13,13--15,15--14,14--
n429=}
n430=colorchart {
n431=say The colors are: 0,1White[0] 1Black[1] 2Dk.Blue[2] 3Green[3] 4Red[4] 5Brown[5] 6Purple[6] 7Orange[7] 8Yellow[8] 9Lt.Green[9] 10Teal[10] 11Cyan[11] 12Royal[12] 13Lt.Purple[13] 14Dk.Grey[14] 15Lt.Grey[15]
n432=}
n433=flag {
n434=say 0,12* * * * * * * * * *4,4oooooooooooooooooooooooooooo
n435=say 0,12* * * * * * * * * *
n436=say 0,12* * * * * * * * * *4,4oooooooooooooooooooooooooooo
n437=say 0,12* * * * * * * * * *
n438=say 4,4ooooooooooooooooooooooooooooooooooooooooooooooo
n439=say 
n440=say 4,4ooooooooooooooooooooooooooooooooooooooooooooooo
n441=say 
n442=say 4,4ooooooooooooooooooooooooooooooooooooooooooooooo
n443=}
n444=F12 /c :)
n445=/colors  {
n446=echo  4 ( ( (12 = = =9 - - -2 Color Chart9 - - -12 = = =4 ) ) )
n447=echo                                        1black = 1
n448=echo                                     2dark blue = 2
n449=echo                                    3dark green = 3
n450=echo                                         4red = 4
n451=echo                                       5dark red = 5
n452=echo                                    6dark purple = 6
n453=echo                                        7orange = 7
n454=echo                                         8yellow = 8
n455=echo                                          9green = 9
n456=echo                                    10blue-green = 10
n457=echo                                      11turquoise = 11
n458=echo                                          12blue = 12
n459=echo                                        13purple = 13
n460=echo                                           14gray = 14
n461=echo                                         15light gray = 15
n462=echo  4 ( ( (12 = = =9 - - -2 Color Chart9 - - -12 = = =4 ) ) )
n463=}
n464=/b1 /say 2,2  *1 $+ ! | /say 0,2  *1  1,1!  | /say 2,2  *1  1,1! | /say 0,0 1,1 *1 $+ !
n465=/b2 /say 3,3  *1 $+ ! | /say 8,3  *1  1,1!  | /say 3,3  *1  1,1! | /say 0,0 1,1 *1 $+ !
n466=/b3 /say 4,4  *1 $+ ! | /say 0,4  *1  1,1!  | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
n467=/b4 /say 8,8  *1 $+ ! | /say 3,8  *1  1,1!  | /say 8,8  *1  1,1! | /say 0,0 1,1 *1 $+ !
n468=/b5 /say 9,9  *1 $+ ! | /say 12,9  *1  1,1!  | /say 9,9  *1  1,1! | /say 0,0 1,1 *1 $+ !
n469=/b6 /say 11,11  *1 $+ ! | /say 2,11  *1  1,1!  | /say 11,11  *1  1,1! | /say 0,0 1,1 *1 $+ !
n470=/b7 /say 12,12  *1 $+ ! | /say 0,12  *1  1,1!  | /say 12,12  *1  1,1! | /say 0,0 1,1 *1 $+ !
n471=/b8 /say 13,13  *1 $+ ! | /say 1,13  *1  1,1!  | /say 13,13  *1  1,1! | /say 0,0 1,1 *1 $+ !
n472=}
n473=/f11 {
n474=.ignore -rinpt *!*@*
n475=.timer851 1 50 .ignore -rinpt *!*@*
n476=.disable #floodultracommand
n477=.disable #floodultraevent
n478=echo 2 -a ü▀ΩtπFú≥≤╨ü Ultra Protection is now 4OFF.
n479=if ((%onick != $me ) && (%onick != $null)) { nick %onick | echo 2 -a ü▀ΩtπFú≥≤╨ü Restore Nickname to ü $+ %onick $+ ü }
n480=unset %onick
n481=}
n482=/f12 {
n483=if %onick == $null {
n484=.ignore -inpt *!*@*
n485=.timer851 1 50 .ignore -inpt *!*@*
n486=.enable #floodultracommand
n487=.enable #floodultraevent
n488=set %onick $me
n489=echo 2 -a ü▀ΩtπFú≥≤╨ü Ultra Protection is now 3ON.
n490=}
n491=else {
n492=nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
n493=.ignore -inpt *!*@*
n494=echo 2 -a ü▀ΩtπFú≥≤╨ü Random Nickname.
n495=}
n496=}
n497=/ircop set %total 0 | .enable #ircop | who 0 o | echo 7 -a scanning for ircops on the network.
n498=}
n499=clone {
n500=%clonescount = 0 | %nickcounter = 1 | %clonesfound | %skipnicks = ... | echo 12 -a scanning for clones on  $+ # $+ 
n501=:loop1start
n502=:nick
n503=%workingnick = $nick(%nickcounter,#) | if (%workingnick == $null) { goto loop1end } | if (%workingnick isin %clonesfound) { inc %nickcounter | goto nick } | %workingaddress = $address(%workingnick,3)
n504=if (%workingaddress == $null) { %skipnicks = %workingnick $+ , %skipnicks | inc %nickcounter | goto nick } | inc %nickcounter | %nicksubcounter = %nickcounter | %clonessubcount = 0 | %clonessubfound = ...
n505=:loop2start
n506=%currentnick = $nick(%nicksubcounter,$active) | if (%currentnick == $null) { goto loop2end } | if (%workingnick != %currentnick) && (%workingaddress == $address(%currentnick,3)) { inc %clonessubcount | inc %clonescount | %clonessubfound = %currentnick $+ , %clonessubfound | %clonesfound = %currentnick $+ , %clonesfound } | inc %nicksubcounter | goto loop2start
n507=:loop2end
n508=if (%clonessubcount > 0) { echo 12 -a  [clone %clonescount $+ ] $remove(%clonessubfound,,...) and %workingnick ( $+ %workingaddress $+ ) } | goto loop1start
n509=:loop1end
n510=echo 12 -a grand total  $+ %clonescount $+  | if ($len(%skipnicks) > 3) { echo 12 -a address not found of $remove(%skipnicks,,...) } | echo  12 -a end of list
n511=unset %skipnicks | unset %cuurentnick | unset %clonessubfound | unset %clonessubcount | unset %clonesfound | unset %clone.num | unset %workingnick | unset %workingaddress | unset %currentnick | unset %nicksubcounter
n512=}
n513=/ShAg1 {
n514=set %rk *1
n515=%rk = $replace(%rk,a,12a)
n516=%rk = $replace(%rk,b,12b)
n517=%rk = $replace(%rk,c,12c)
n518=%rk = $replace(%rk,d,12d)
n519=%rk = $replace(%rk,e,12e)
n520=%rk = $replace(%rk,f,12f)
n521=%rk = $replace(%rk,g,12g)
n522=%rk = $replace(%rk,h,12h)
n523=%rk = $replace(%rk,i,12i)
n524=%rk = $replace(%rk,j,12j)
n525=%rk = $replace(%rk,k,12k)
n526=%rk = $replace(%rk,l,12l)
n527=%rk = $replace(%rk,m,12m)
n528=%rk = $replace(%rk,n,12n)
n529=%rk = $replace(%rk,o,12o)
n530=%rk = $replace(%rk,p,12p)
n531=%rk = $replace(%rk,q,12q)
n532=%rk = $replace(%rk,r,12r)
n533=%rk = $replace(%rk,s,12s)
n534=%rk = $replace(%rk,t,12t)
n535=%rk = $replace(%rk,u,12u)
n536=%rk = $replace(%rk,v,12v)
n537=%rk = $replace(%rk,w,12w)
n538=%rk = $replace(%rk,x,12x)
n539=%rk = $replace(%rk,y,12y)
n540=%rk = $replace(%rk,z,12z)
n541=say %rk
n542=unset %rk
n543=}
n544=/ShAg2 {
n545=unset %ctext*
n546=set %loop 0
n547=set %ctext *1
n548=:1
n549=inc %loop 1
n550=if ($mid(%loop,1,%ctext) == $chr(32)) { %ctext2 = %ctext2 $+ $chr(160) | goto 1 }
n551=%ctext1 =  $+ $rand(1,13) $+ $mid(%loop,1,%ctext)
n552=if (%ctext2 == $null) { %ctext2 = %ctext1 }
n553=else { %ctext2 = %ctext2 $+ %ctext1 }
n554=;echo -s .. %ctext4
n555=if (%loop => $len(%ctext)) { say %ctext2 | unset %ctext* | unset %loop | halt }
n556=goto 1
n557=}
n558=ShAg4 { %num = 1 | unset %msg  | %msg =  | %color = p
n559=:start
n560=if %color == p { %num2 = 9 | %num3 = 13 | %color = y | goto add }
n561=if %color == y  { %num2 = 13 | %num3 = 9 | %color = p | goto add }
n562=:add
n563=if $mid(%num,1, *1) != $null {
n564=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n565=inc %num
n566=goto start  }
n567=say %msg
n568=}
n569=/ShAg3 { %num = 1 | unset %msg  | %msg =  | %color = p
n570=:start
n571=if %color == p { %num2 = 9 | %num3 = 11 | %color = y | goto add }
n572=if %color == y  { %num2 = 8 | %num3 = 13 | %color = w | goto add }
n573=if %color == w  { %num2 = 7 | %num3 = 12 | %color = p | goto add }
n574=:add
n575=if $mid(%num,1, *1) != $null {
n576=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n577=inc %num
n578=goto start  }
n579=say %msg
n580=}