/ScriptServ

[Aliases]
n0=x msg x@channels.undernet.org login # $$1
n1=w msg w@channels2.undernet.org login # $$1
n2=F4 run c:\windows\notepad.exe $mircdir $+ page.log
n3=F5 write -c $mircdir $+ page.log
n4=F6 {
n5=  wavplay $mircdir\wavs\haha.wav
n6=  massd
n7=  mode # +b *!*@*.com
n8=  mode # +b *!*@*.net
n9=  mode # +b *!*@*.ca
n10=  mode # +b *!*@*.au
n11=  mode # +b *!*@*
n12=  mode # +smtink 1337-74k30v3r
n13=  topic # .x(-YoU ArE NoW UnDeR MaRsHaLL LaW. ReSiStEnCe iS FuTiLe!-)x.
n14=  .disable #takeover
n15=  masskb
n16=}
n17=op mode # +ooo $$1 $2 $3
n18=deop mode # -ooo $$1 $2 $3
n19=voice mode # +vvv $$1 $2 $3
n20=devoice mode # -vvv $$1 $2 $3
n21=ping ctcp $$1 ping
n22=send dcc send $$1
n23=chat dcc chat $$1
n24=gone {
n25=  set %nick $me
n26=  set %time $atime
n27=  nick $$?="Enter away nick"
n28=  enable #pager
n29=  enable #awaymsg
n30=  ame is Away .x(- $+ $$?="Enter your away message:" $+ -)x. ctcp $me PAGE To Page Me
n31=  .timer123 0 500 ame is Away .x(- $+ $! $+ -)x. ctcp $me PAGE To Page Me
n32=  away %logo  $+ $! $+  Been Gone Since  $+ %time $+  %logo
n33=  set %away $!
n34=}
n35=back {
n36=  nick %nick
n37=  timer123 off
n38=  ame is Back From .x(- $+ %away $+ -)x.
n39=  unset %away
n40=  unset %nick
n41=  unset %time
n42=  away
n43=  disable #pager
n44=  disable #awaymsg
n45=  if (%awaymsg == $null) { echo 4 .x(-You Have 0 Messages.-)x. }
n46=  else { echo 4 .x(-You Have  $+ %awaymsg $+  Messages. To Read Them, Press F4. To Delete, Press F5.-)x. }
n47=  unset %awaymsg
n48=}
n49=credits {
n50=  echo 4 .x(-i Would Like To Thank The Following People:-)x.
n51=  echo 4 .x(-CTFire For Having a Great Page And alt.mirc. iT Gave Me Alot Of Command Help For This script.-)x.
n52=  echo 4 .x(-The_Rat For Helping Me Test My Flood Protection.-)x.
n53=  echo 4 .x(-[Bush] For Helping Me On ALL The RAW I Know Today.
n54=  echo 4 .x(-Hawkee For Being One Of The Nicest Guys On IRC. He Also Let Me Use The Swear Kick From Hawkee Pro-)x.
n55=  echo 4 .x(-The Users Without You Using iT, How Can You Be Reading This?-)x.
n56=  echo 4 .x(-And Most importantly, Khaled Mardam-Bey For Making This Awesome iRC Client. Couldn't Have Done iT Without You.-)x.
n57=}
n58=clone {
n59=  if status isin $active {
n60=    echo 4 ERROR: This Command Only Works in a Channel Window
n61=  halt }
n62=  echo 4 .x(-SCaNNiNg fOR CLoNEs oN  $+ # $+ -)x.
n63=  %user 1
n64=  :detect
n65=  if (%user > $nick(0,#)) {  goto detected }
n66=  set %nick $nick(%user,#)
n67=  set %addy $remove($address(%nick,3),*!*@)
n68=  set %clone # $+ %addy
n69=  if (% [ $+ [ %clone ] ] >= 2) {
n70=    inc %clone.total
n71=    echo 4 .x(-CLoNE DeTEcteD: $address($nick(%user,#),0)
n72=  }
n73=  inc %user
n74=  goto detect
n75=  :detected
n76=  if (%clone.total == $null) { echo 4 .x(-No CLoNEs DeTEcteD-)x. }
n77=  else { echo 4 .x(-GRanD tOTaL  $+ %clone.total $+  }
n78=  unset %clone.total
n79=  halt
n80=}
n81=ircop {
n82=  set %total 0
n83=  set %option 1
n84=  .enable #ircop
n85=  echo 4 $active .x(-LiSTinG iRCopS-)x.
n86=  who 0 o
n87=}
n88=chanstat {
n89=  set %chan #
n90=  set %clone 0
n91=  set %ircop 0
n92=  set %op 0
n93=  set %nonop 0
n94=  set %voice 0
n95=  set %here 0
n96=  set %total 0 
n97=  set %novoice 0
n98=  set %gone 0
n99=  .enable #chanstat
n100=  who #
n101=}
n102=make1 {
n103=  set %p1 on 
n104=  set %pack1 $$?="Enter Filename:" 
n105=  set %desc1 $$?="Enter Description:"
n106=  set %path1 $$?="Enter Path Of File(include File Name)):"  
n107=  set %size1 $lof(%path1)
n108=}
n109=make2 {
n110=  set %p2 on 
n111=  set %pack2 $$?="Enter Filename:" 
n112=  set %desc2 $$?="Enter Description:"
n113=  set %path2 $$?="Enter Path Of File(include File Name)):"  
n114=  set %size2 $lof(%path2)
n115=}
n116=make3 {
n117=  set %p3 on 
n118=  set %pack3 $$?="Enter Filename:" 
n119=  set %desc3 $$?="Enter Description:"
n120=  set %path3 $$?="Enter Path Of File(include File Name)):"  
n121=  set %size3 $lof(%path3)
n122=}
n123=make4 {
n124=  set %p4 on 
n125=  set %pack4 $$?="Enter Filename:" 
n126=  set %desc4 $$?="Enter Description:"
n127=  set %path4 $$?="Enter Path Of File(include File Name)):"  
n128=  set %size4 $lof(%path4)
n129=}
n130=live1 run $mircdir\mirc32.exe $mircdir\clones\engine1.ini
n131=live2 run $mircdir\mirc32.exe $mircdir\clones\engine2.ini
n132=live3 run $mircdir\mirc32.exe $mircdir\clones\engine3.ini
n133=live4 run $mircdir\mirc32.exe $mircdir\clones\engine4.ini
n134=live5 run $mircdir\mirc32.exe $mircdir\clones\engine5.ini
n135=die1 dde engine1 command "" /quit
n136=die2 dde engine2 command "" /quit
n137=die3 dde engine3 command "" /quit
n138=die4 dde engine4 command "" /quit
n139=die5 dde engine5 command "" /quit
n140=pflood dde engine1 command "" /pflood $$1 | dde engine2 command "" /pflood $$1 | dde engine3 command "" /pflood $$1 | dde engine4 command "" /pflood $$1 | dde engine5 command "" /pflood $$1
n141=vflood dde engine1 command "" /vflood $$1 | dde engine2 command "" /vflood $$1 | dde engine3 command "" /vflood $$1 | dde engine4 command "" /vflood $$1 | dde engine5 command "" /vflood $$1
n142=fflood dde engine1 command "" /fflood $$1 | dde engine2 command "" /fflood $$1 | dde engine3 command "" /fflood $$1 | dde engine4 command "" /fflood $$1 | dde engine5 command "" /fflood $$1
n143=cflood dde engine1 command "" /cflood $$1 | dde engine2 command "" /cflood $$1 | dde engine3 command "" /cflood $$1 | dde engine4 command "" /cflood $$1 | dde engine5 command "" /cflood $$1 | uflood dde engine1 command "" /uflood $$1 | dde engine2 command "" /uflood $$1 | dde engine3 command "" /uflood $$1 | dde engine4 command "" /uflood $$1 | dde engine5 command "" /uflood $$1
n144=tflood dde engine1 command "" /tflood $$1 | dde engine2 command "" /tflood $$1 | dde engine3 command "" /tflood $$1 | dde engine4 command "" /tflood $$1 | dde engine5 command "" /tflood $$1
n145=hflood dde engine1 command "" /hflood $$1 | dde engine2 command "" /hflood $$1 | dde engine3 command "" /hflood $$1 | dde engine4 command "" /hflood $$1 | dde engine5 command "" /hflood $$1
n146=rflood dde engine1 command "" /rflood $$1 | dde engine2 command "" /rflood $$1 | dde engine3 command "" /rflood $$1 | dde engine4 command "" /rflood $$1 | dde engine5 command "" /rflood $$1
n147=dchat dde engine1 command "" /dchat $$1 | dde engine2 command "" /dchat $$1 | dde engine3 command "" /dchat $$1 | dde engine4 command "" /dchat $$1 | dde engine5 command "" /dchat $$1
n148=dsend dde engine1 command "" /dsend $$1 | dde engine2 command "" /dsend $$1 | dde engine3 command "" /dsend $$1 | dde engine4 command "" /dsend $$1 | dde engine5 command "" /dsend $$1
n149=dresume dde engine1 command "" /dresume $$1 | dde engine2 command "" /dresume $$1 | dde engine3 command "" /dresume $$1 | dde engine4 command "" /dresume $$1 | dde engine5 command "" /dresume $$1
n150=daccept dde engine1 command "" /daccept $$1 | dde engine2 command "" /daccept $$1 | dde engine3 command "" /daccept $$1 | dde engine4 command "" /daccept $$1 | dde engine5 command "" /daccept $$1
n151=msgflood dde engine1 command "" /msgflood $$1 | dde engine2 command "" /msgflood $$1 | dde engine3 command "" /msgflood $$1 | dde engine4 command "" /msgflood $$1 | dde engine5 command "" /msgflood $$1
n152=nickflood dde engine1 command "" /nflood $$1 | dde engine2 command "" /nflood $$1 | dde engine3 command "" /nflood $$1 | dde engine4 command "" /nflood $$1 | dde engine5 command "" /nflood $$1
n153=replyf dde engine1 command "" /replyf $$1 | dde engine2 command "" /replyf $$1 | dde engine3 command "" /replyf $$1 | dde engine4 command "" /replyf $$1 | dde engine5 command "" /replyf $$1
n154=/nc dde engine1 command "" /nc | dde engine2 command "" /nc | dde engine3 command "" /nc  | dde engine4 command "" /nc | dde engine5 command "" /nc | echo 4 .x(-Clone Nick Change Complete.-)x.
n155=desync {
n156=  mode # +stimnk D35yNcH1N-71M3
n157=  topic # .x(-DiEsEL-DiEsEL-DiEsEL-DiEsEL-DiEsEL-DiEsEL-DiEsEL-DiEsEL-DiEsEL-DiEsEL--)x
n158=  mode # +bbb …j‰“o!e”nŠ¦@V‹‡–x~•{.t¡q‚‡}w ‘}e\JOB=LVj!~˜¯Â½¸ª@–‡{sx{.ztl]Q njnopxvx|!{€†Š†zkb@kjrqtp.t{€
n159=  mode # +bbb {†Ÿ¤£¹Á!¶¦¦¦¥@¤§¥‘‚rc.^TRTNUd ]pbh‚£!¥¥…ypr@zr|vyp.hrl{{ xtuqsqkY!E6e“›Çà@ßß½’”~jpv.tgaVYo„
n160=  mode # +bbb {†Ÿ¤£¹Á¶¦!¦¦¥@¤§.¥ ‘‚rc^TR!TNUdr~‚~@xy}.~ˆ’›¨¨® £¥¥…yp!rzr|vyphr@l{{‰„‘‹‰Œ.……~}x
n161=  mode # +bbb kYE6e“›!Çàßß½’”@~jpvtgaVYo.„—¹¿¹«Žt^OGQ ¶¦¦!¦¥¤§¥‘‚rc^@TRTNU.dr~‚~xy}~ {†Ÿ¤£¹Á¶¦!¦¦¥¤§¥‘@‚rc^TRTN.Udr~‚
n162=  mode # +bbb qsqkYE6!e“›Çàßß½’@”~jpvtgaVY.o„—¹¿¹«Ž ¦¦¥¤§¥‘!‚rc^TRTN@Udr~‚~x.y}~ˆ’›¨ OV\™ŸÅØË!å¾¼——”p@{QWJ6GSw‹¨.´Ãħ¡ƒ 
n163=  mode # +bbb …j‰“o!enŠ¦@V‹‡–x~•{.t¡q‚‡}w ‘}e\JB=LVj!~˜¯Â½¸ª@–‡{sx{.ztl]Q njnopvx|!{€†Š†zkb@kjrqtp.t{€
n164=  mode # +bbb {†¤£¹Á!¶¦¦¦¥@¤§¥‘‚rc.^TRTNUd ]pbh‚£!¥¥…ypr@zr|vp.hrl{{ xtuqsqkY!E6e“›Çà@ßß½’”~jpv.tgVYo„
n165=}
n166=resync {
n167=  mode # -simk D35yNcH1N-71M3
n168=  topic # .x×(-Welcome To # $+ !-)×x.
n169=  mode # -bbb …j‰“o!e”nŠ¦@V‹‡–x~•{.t¡q‚‡}w ‘}e\JOB=LVj!~˜¯Â½¸ª@–‡{sx{.ztl]Q njnopxvx|!{€†Š†zkb@kjrqtp.t{€
n170=  mode # -bbb {†Ÿ¤£¹Á!¶¦¦¦¥@¤§¥‘‚rc.^TRTNUd ]pbh‚£!¥¥…ypr@zr|vyp.hrl{{ xtuqsqkY!E6e“›Çà@ßß½’”~jpv.tgaVYo„
n171=  mode # -bbb {†Ÿ¤£¹Á¶¦!¦¦¥@¤§.¥ ‘‚rc^TR!TNUdr~‚~@xy}.~ˆ’›¨¨® £¥¥…yp!rzr|vyphr@l{{‰„‘‹‰Œ.……~}x
n172=  mode # -bbb kYE6e“›!Çàßß½’”@~jpvtgaVYo.„—¹¿¹«Žt^OGQ ¶¦¦!¦¥¤§¥‘‚rc^@TRTNU.dr~‚~xy}~ {†Ÿ¤£¹Á¶¦!¦¦¥¤§¥‘@‚rc^TRTN.Udr~‚
n173=  mode # -bbb qsqkYE6!e“›Çàßß½’@”~jpvtgaVY.o„—¹¿¹«Ž ¦¦¥¤§¥‘!‚rc^TRTN@Udr~‚~x.y}~ˆ’›¨ OV\™ŸÅØË!å¾¼——”p@{QWJ6GSw‹¨.´Ãħ¡ƒ 
n174=  mode # -bbb …j‰“o!enŠ¦@V‹‡–x~•{.t¡q‚‡}w ‘}e\JB=LVj!~˜¯Â½¸ª@–‡{sx{.ztl]Q njnopvx|!{€†Š†zkb@kjrqtp.t{€
n175=  mode # -bbb {†¤£¹Á!¶¦¦¦¥@¤§¥‘‚rc.^TRTNUd ]pbh‚£!¥¥…ypr@zr|vp.hrl{{ xtuqsqkY!E6e“›Çà@ßß½’”~jpv.tgVYo„
n176=}
n177=rk { 
n178=  :begin
n179=  set %kick.var $r(1,$nick(0,#)) 
n180=  if ($nick(%kick.var,#) == $me) { goto begin } 
n181=  kick # $nick(%kick.var,#) DiEsEL)-Random Kick-(DiEsEL
n182=}
n183=rok { 
n184=  :begin
n185=  set %kick.var $r(1,$opnick(0,#)) 
n186=  if ($opnick(%kick.var,#) == $me) { goto begin } 
n187=  kick # $opnick(%kick.var,#) DiEsEL)-Random Op Kick-(DiEsEL
n188=}
n189=rnok { 
n190=  :begin 
n191=  set %kick.var $r(1,$nopnick(0,#)) 
n192=  if ($nopnick(0,#) == 0) { halt } 
n193=  kick # $nopnick(%kick.var,#) DiEsEL)-Random Non Op Kick-(DiEsEL
n194=}
n195=fkc {
n196=  if status isin $active {
n197=    echo 4 ERROR: This Command Only Works in a Channel Window
n198=  halt }
n199=  set %nicks $nopnick(0,#)
n200=  :nextnick
n201=  if $$2 isin $address($nopnick(%nicks,#),1) {
n202=    kick # $nopnick(%nicks,#) *3 DiEsEL)-Filter Kick  $+ $$2 $+ -(DiEsEL
n203=  inc %kicked }
n204=  dec %nicks
n205=  if %nicks > 0 {
n206=  goto nextnick }
n207=  if %kicked == 0 {
n208=  echo 4 DiEsEL)-No Match Found For  $+ $$2 $+ -(DiEsEL }
n209=}
n210=fkac {
n211=  if status isin $active {
n212=    echo 4 ERROR: This Command Only Works in a Channel Window
n213=  halt }
n214=  set %ch $channel(0)
n215=  :Outloop
n216=  set %nicks $nopnick(0,$channel(%ch))
n217=  if $me !isop $channel(%ch) {
n218=    dec %ch
n219=  goto outloop }
n220=  :Inloop
n221=  if $$2 isin $address($nopnick(%nicks,$channel(%ch)),1) {
n222=    kick $channel(%ch) $nopnick(%nicks,$channel(%ch)) *3 DiEsEL)-Filter Kick Of  $+ $$2 $+ -(DiEsEL
n223=  inc %kicked }
n224=  if %nicks > 1 {
n225=    dec %nicks  
n226=  goto inloop }
n227=  dec %ch
n228=  if %ch > 0 {
n229=  goto outloop }
n230=  if %kicked == 0 {
n231=  echo 4 DiEsEL)-No Match Found For  $+ $$2 $+ -(DiEsEL }
n232=}
n233=fkb {
n234=  if status isin $active {
n235=    echo 4 ERROR: This Command Only Works in a Channel Window
n236=  halt }
n237=  set %nicks $nopnick(0,#)
n238=  set %Banned 0
n239=  :nextnick
n240=  if $$2 isin $address($nopnick(%nicks,#),1) {
n241=    if %Banned != 1 {
n242=      ban -u30 # $nopnick(%nicks,#) 2
n243=    set %Banned 1 }
n244=    kick # $nopnick(%nicks,#) *3 DiEsEL)-Filter Kick Of  $+ $$2 $+ -(DiEsEL
n245=  inc %kicked }
n246=  dec %nicks
n247=  if %nicks > 0 {
n248=  goto nextnick }
n249=  if %kicked == 0 {
n250=  echo 4 DiEsEL)-No Match Found For  $+ $$2 $+ -(DiEsEL }
n251=}
n252=fkba {
n253=  if status isin $active {
n254=    echo 4 ERROR: This Command Only Works in a Channel Window
n255=  halt }
n256=  set %ch $channel(0)
n257=  :Outloop
n258=  set %Banned 0
n259=  set %nicks $nopnick(0,$channel(%ch))
n260=  if $me !isop $channel(%ch) {
n261=    dec %ch
n262=  goto outloop }
n263=  :Inloop
n264=  if $$2 isin $address($nopnick(%nicks,$channel(%ch)),1) {
n265=    if %Banned != 1 {
n266=      ban $channel(%ch) $nopnick(%nicks,$channel(%ch)) 3
n267=    set %Banned 1 }
n268=    kick $channel(%ch) $nopnick(%nicks,$channel(%ch)) *3 DiEsEL)-Filter Kick Of  $+ $$2 $+ -(DiEsEL
n269=  inc %kicked }
n270=  if %nicks > 1 {
n271=    dec %nicks  
n272=  goto inloop }
n273=  dec %ch
n274=  if %ch > 0 goto outloop 
n275=  if %kicked == 0 {
n276=  echo 4 DiEsEL)-No Match Found For  $+ $$2 $+ -(DiEsEL }
n277=}
n278=masso {
n279=  if status isin $active {
n280=    echo 4 ERROR: This Command Only Works in a Channel Window
n281=  halt }
n282=  %i = 0 
n283=  %nicks = "" 
n284=  :nextnick
n285=  inc %i 
n286=  if ($nopnick(%i,#) == $null) { 
n287=    if ($len(%nicks) > 0) raw -q mode # +oooooo %nicks 
n288=  halt }
n289=  %nicks = %nicks $nopnick(%i,#) | if (6 // %i) { 
n290=    raw -q mode # +oooooo %nicks 
n291=  %nicks = "" }
n292=  goto nextnick 
n293=}
n294=massd {
n295=  if status isin $active {
n296=    echo 4 ERROR: This Command Only Works in a Channel Window
n297=  halt }
n298=  %i = 0 
n299=  %nicks = "" 
n300=  :nextnick
n301=  inc %i 
n302=  if ($opnick(%i,#) == $null) { 
n303=    if ($len(%nicks) > 0) raw -q mode # -oooooo %nicks 
n304=  halt }
n305=  if $opnick(%i,#) != $me { 
n306=  %nicks = %nicks $opnick(%i,#) }
n307=  if  (6 // %i) { 
n308=    raw -q mode # -oooooo %nicks 
n309=  %nicks = "" }
n310=  goto nextnick
n311=}
n312=massv {
n313=  if status isin $active {
n314=    echo 4 ERROR: This Command Only Works in a Channel Window
n315=  halt }
n316=  %i = 0 
n317=  %nicks = "" 
n318=  :nextnick
n319=  inc %i 
n320=  if ($nopnick(%i,#) == $null) { 
n321=    if ($len(%nicks) > 0) raw -q mode # +vvvvvv %nicks 
n322=  halt }
n323=  %nicks = %nicks $nopnick(%i,#) | if (6 // %i) { 
n324=    raw -q mode # +vvvvvv %nicks 
n325=    %nicks = "" 
n326=  }
n327=  goto nextnick 
n328=}
n329=massdv {
n330=  if status isin $active {
n331=    echo 4 ERROR: This Command Only Works in a Channel Window
n332=  halt }
n333=  %i = 0 
n334=  %nicks = "" 
n335=  :nextnick
n336=  inc %i 
n337=  if ($nopnick(%i,#) == $null) { 
n338=    if ($len(%nicks) > 0) raw -q mode # -vvvvvv %nicks 
n339=  halt }
n340=  %nicks = %nicks $nopnick(%i,#) 
n341=  if (6 // %i) { 
n342=    raw -q mode # -vvvvvv %nicks 
n343=    %nicks = "" 
n344=  } 
n345=  goto nextnick 
n346=}
n347=massi {
n348=  if status isin $active {
n349=    echo 4 ERROR: This Command Only Works in a Channel Window
n350=  halt }
n351=  $$?="Enter Channel" 
n352=  set %i $nick(0,#) 
n353=  :next | if $nick(%i,#) != $me invite $nick(%i,#) $!
n354=  dec %i 
n355=  if %i > 1 goto next 
n356=}
n357=Massk {
n358=  if status isin $active {
n359=    echo 4 ERROR: This Command Only Works in a Channel Window
n360=  halt }
n361=  set %kick.var 1
n362=  :next
n363=  if ($nick(%kick.var,#) == $null) { goto done }
n364=  if ($nick(%kick.var,#) == $me) { inc %kick.var 1 | goto next }
n365=  kick $$1 $nick(%kick.var,#) DiEsEL)-Mass Kick-(DiEsEL
n366=  inc %kick.var 1
n367=  goto next
n368=  :done
n369=}
n370=massnok {
n371=  if status isin $active {
n372=    echo 4 ERROR: This Command Only Works in a Channel Window
n373=  halt } 
n374=  set %nopkick.var 1 
n375=  :next
n376=  if ($nopnick(%nopkick.var,$$1) == $null) { goto done } 
n377=  kick # $nopnick(%nopkick.var,$$1) DiEsEL)-Mass Non Op Kick-(DiEsEL
n378=  inc %nopkick.var 1 
n379=  goto next 
n380=  :done
n381=}
n382=massok {
n383=  if status isin $active {
n384=    echo 4 ERROR: This Command Only Works in a Channel Window
n385=  halt }
n386=  %i = 0
n387=  :start
n388=  %i = %i + 1
n389=  if ($opnick(%i,#) = $me) { goto start }
n390=  if ($opnick(%i,#) = $null) { halt } 
n391=  kick # $opnick(%i,#) DiEsEL)-Mass Op Kick-(DiEsEL
n392=  goto start
n393=}
n394=massb {
n395=  if status isin $active {
n396=    echo 4 ERROR: This Command Only Works in a Channel Window
n397=  halt }
n398=  set %i 1
n399=  :start
n400=  set %nick $nick(%i,#)
n401=  if (%nick == $null) { halt }
n402=  if (%nick != $me) { ban # %nick 3 }
n403=  inc %i 1  
n404=  goto start  
n405=}
n406=masskb {
n407=  if status isin $active {
n408=    echo 4 ERROR: This Command Only Works in a Channel Window
n409=  halt }
n410=  set %i 1
n411=  :start
n412=  set %nick $nick(%i,#)
n413=  if (%nick == $null) { halt }
n414=  if (%nick != $me) { ban # %nick 3 | kick # %nick DiEsEL)-Mass Ban Kick-(DiEsEL }
n415=  inc %i 1  
n416=  goto start  
n417=}
n418=atime {
n419=  set %atime $gettok($time,1,58)
n420=  if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ pm }
n421=  else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ pm }
n422=  else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ am }
n423=  else { return %atime $+ : $+ $gettok($time,2,58) $+ am }
n424=}
n425=.x(-InvisaCode Bt NeonUnix-)x.
n426=code {
n427=  %ec = $replace(*1,0,)
n428=  %ec = $replace(%ec,o,)
n429=  %ec = $replace(%ec,.,)
n430=  %ec = $replace(%ec,',)
n431=  %ec = $replace(%ec,$chr(44),)
n432=  %ec = $replace(%ec,-,)
n433=  %ec = $replace(%ec,$chr(32),)
n434=  %ec = $replace(%ec,a,)
n435=  %ec = $replace(%ec,w,)
n436=  %ec = $replace(%ec,b,)
n437=  %ec = $replace(%ec,x,)
n438=  %ec = $replace(%ec,c,)
n439=  %ec = $replace(%ec,y,)
n440=  %ec = $replace(%ec,d,)
n441=  %ec = $replace(%ec,z,)
n442=  %ec = $replace(%ec,e,)
n443=  %ec = $replace(%ec,f,)
n444=  %ec = $replace(%ec,g,)
n445=  %ec = $replace(%ec,h,)
n446=  %ec = $replace(%ec,i,)
n447=  %ec = $replace(%ec,j,)
n448=  %ec = $replace(%ec,?,)
n449=  %ec = $replace(%ec,k,)
n450=  %ec = $replace(%ec,!,)
n451=  %ec = $replace(%ec,l,)
n452=  %ec = $replace(%ec,9,)
n453=  %ec = $replace(%ec,m,)
n454=  %ec = $replace(%ec,8,)
n455=  %ec = $replace(%ec,n,)
n456=  %ec = $replace(%ec,7,)
n457=  %ec = $replace(%ec,p,)
n458=  %ec = $replace(%ec,6,)
n459=  %ec = $replace(%ec,q,)
n460=  %ec = $replace(%ec,5,)
n461=  %ec = $replace(%ec,r,)
n462=  %ec = $replace(%ec,4,)
n463=  %ec = $replace(%ec,s,)
n464=  %ec = $replace(%ec,3,)
n465=  %ec = $replace(%ec,t,)
n466=  %ec = $replace(%ec,2,)
n467=  %ec = $replace(%ec,u,)
n468=  %ec = $replace(%ec,1,)
n469=  say InvisaCode by 9,1 NeonUnix  $+  $+ $replace(%ec,v,)
n470=}
n471=a  {
n472=  %text = $replace(*1,a,å) | %text = $replace(%text,b,ß) | %text = $replace(%text,c,ç) | %text = $replace(%text,d,Ð) | %text = $replace(%text,e,ê) | %text = $replace(%text,f,f) | %text = $replace(%text,g,g) | %text = $replace(%text,h,h)
n473=  %text = $replace(%text,i,î) | %text = $replace(%text,j,J) | %text = $replace(%text,k,k) | %text = $replace(%text,l,£) | %text = $replace(%text,m,m) | %text = $replace(%text,n,ñ) | %text = $replace(%text,o,ø) | %text = $replace(%text,p,þ)
n474=  %text = $replace(%text,q,¶) | %text = $replace(%text,r,®) | %text = $replace(%text,s,§) | %text = $replace(%text,t,t) | %text = $replace(%text,u,û) | %text = $replace(%text,v,v) | %text = $replace(%text,w,w) | %text = $replace(%text,x,×)
n475=  %text = $replace(%text,y,ÿ) | %text = $replace(%text,z,z) | %text = $replace(%text,>,») | %text = $replace(%text,<,«) | %text = $replace(%text,;,¤) | %text = $replace(%text,1,¹) | %text = $replace(%text,2,²) | %text = $replace(%text,3,³)
n476=  say %text
n477=  unset %text
n478=}
n479=bw {
n480=  unset %backtext
n481=  if ($1 == -d) { 
n482=    set %backtext § 
n483=    set %text $remove(*1,$left(3,*1))
n484=  }
n485=  else { %text = *1 }
n486=  %space = $chr(32)
n487=  %i = $len(%text) + 1
n488=  :next
n489=  dec %i 1
n490=  if %i == 0 { say %backtext | halt }
n491=  %thischar = $mid(%i,1,%text)
n492=  if %thischar == %space {
n493=    %thislet =  
n494=    if %backtext == $null { set %backtext %thislet | goto next }
n495=    else { set %backtext %backtext $+ %thislet | goto next }
n496=  }
n497=  if %backtext == $null { set %backtext %thischar | goto next }
n498=  else { set %backtext %backtext $+ %thischar | goto next }
n499=}
n500=r {
n501=  unset %rainbow
n502=  set %rainbow.msg $$?="Enter Your Rainbow Msg:"
n503=  if ($len(%rainbow.msg) >= 52) { echo 2 Your msg was to long. Max 52 characters. | halt }
n504=  else { set %length $len(%rainbow.msg) }
n505=  set %cycles 1
n506=  :next
n507=  if ($mid(%cycles,1,%rainbow.msg) == $null) { goto done }
n508=  if ($mid(%cycles,1,%rainbow.msg) == $chr(32)) { set %rainbow.str $chr(3) $+ $r(1,9) $+ $chr(160) $+ $chr(3) }
n509=  else { set %rainbow.str $chr(3) $+ $r(1,9) $+ $mid(%cycles,1,%rainbow.msg) $+ $chr(3) }
n510=  set %rainbow %rainbow %rainbow.str
n511=  inc %cycles 1
n512=  goto next
n513=  :done
n514=  %rainbow = $remove(%rainbow,$chr(32))
n515=  msg # %rainbow
n516=}