/ScriptServ

[Variables]
n0=%fs.dir C:\mirc\porn
n1=%fs.max.dl 4
n2=%fs.type *.jpg, *.gif
n3=%fs.nametype pics
n4=%fs.trigger !bestpics
n5=%fs.nick blah
n6=%fs.count.type bytes
n7=%fs.add 0
n8=%coin 0
n9=%coin.side 1
n10=%rand 12,12
n11=%times 0
n12=%invite.chan #deopme
n13=%total 22
n14=%nedrub.downloads 10
n15=%commands help dir cd get trade stats coin heads tails cd..
n16=%addy *!*imike@*.sk.sympatico.ca
n17=%chan #mircscripts
n18=%address NeonUnix!neonunix@apollo-0.hermesnet.net
n19=%give.credits 50000
n20=%pics.credits 141000
n21=%blog.credits 3042984
n22=%blog.downloads 1826345
n23=%Fillmein.credits 50000
n24=%Fillmein.downloads 9798
n25=%file.bytes 37292
n26=%PeGe.credits 72752
n27=%i 5.5 / 2.25
n28=%1 500
n29=%Big-BOB.credits 70380
n30=%rand2 8
n31=%rander 12
n32=%pos 6
n33=%ec 
n34=%}Khaki{.capletters 4
n35=%fk.popup.reason test
n36=% [ $+ [ $$1 [ $+ [ %pre ] ] ] ]
n37=%ver 1.3
n38=%cloneme 3
n39=%clone1 echo #mircscripts 12,1 Clone: *!*@low-ma1-49.ix.netcom.com ~Billyboy, GB~ Hit F5 to Filter Kick This Address
n40=%var blah 
n41=%cloneies /echo #mircscripts 12,1 /echo #mircscripts 12,1 *!*@low-ma1-49.ix.netcom.com ~Billyboy, GB~ 
n42=%Plug.capletters 4
n43=%Miller.capletters 4
n44=%ssnow.capletters 4
n45=%awaymsg is away 10 dinner at 14 22:23:01 pager is 12 on To Page me Type 13 /msg Neon-AWAY 
n46=%me Neon-AWAY
n47=%lener 2
n48=%percent 2
n49=%perc1 0
n50=%perc2 0
n51=%stuff 52
n52=%clonestuff 1
n53=%clones 22
n54=%clonenum 0
n55=%nohops 0
n56=%hops 0
n57=%nohop 8
n58=%hop 31
n59=%fk.reason Banned
n60=%people 3
n61=%dc oh
n62=%person 199
n63=%top |\  | |¯¯|          |     | |¯_¯¯         |¯¯          |\  | |¯¯|   ¯|¯ 
n64=%bot |  \| |__|          |¯¯| |____         __|          |  \| |__|     |    
n65=%dark[tz].info dark[tz] dark[tz] blah blah?
n66=%xdcc.delay 250
n67=%xdcc.msgctcp ctcp
n68=%packets 0
n69=%packetsfilename .filename c:\boot.ini
n70=%packets.gets 0
n71=%packets.description some ini file
n72=%.filename c:\boot.ini c:\drums\pcdrum26.zip
n73=%0 0
n74=%some ini file PC Drum midi drum set for dos
n75=%which 3
n76=%filename1 c:\pascal\turbo\tp6.arj
n77=%gets1 0
n78=%description1 terbo pascal 6
n79=%gete 0
n80=%descriptione my config.sys file
n81=%size1 1176415
n82=%sizee 101
n83=%xdcc.dl 0
n84=%filename2 c:\download\ball1.jpg
n85=%size2 33806
n86=%gets2 0
n87=%description2 Dragon Ball Z picture
n88=%filename3 c:\config.sys
n89=%size3 101
n90=%gets3 0
n91=%description3 my config.sys file
n92=%string b u idget ITS NOT!
n93=%sizeetype b
n94=%gets^ 1
n95=%getsYourself 1
n96=%pre 3
n97=%final 0,14 u  i0,11d0,7get 0,14 I7T10,15S  NO4,7T12,12!
n98=%away.reason dinner
n99=%away.time 22:23:01
n100=%away.date 16/12/95
n101=%pager.state off
n102=%me.nick Neon-AWAY
n103=%2 400
n104=%l 5.5 - 5.5 / 2.25
n105=%1i 9
n106=%2i 3
n107=%i1 10
n108=%i2 3
n109=%f 1

[Commands]
n0=#xdccctcp start
n1=1:XDCC:{
n2=  if $parm2 == send {
n3=    if $gettok($parm3,1,35) !isnum 1-%packets { raw -q notice $nick : $+ $chr(1) $+ XDCC $gettok($parm3,1,35) is not a valid packet | goto end }
n4=    inc %gets [ $+ [ $gettok($parm3,1,35) ] ]
n5=    dcc send $nick %filename [ $+ [ $gettok($parm3,1,35) ] ]
n6=    notice $nick i am sending you %filename [ $+ [ $gettok($parm3,1,35) ] ]  which is %size [ $+ [ $gettok($parm3,1,35) ] ]  bytes
n7=  }
n8=  if $parm2 == list {
n9=    /xdcclist $nick
n10=  }
n11=  :end
n12=  /ignore -tapu15 $nick 3
n13=}
n14=#xdccctcp end

[Events]
n0=#xdccmsg disabled
n1=1:on text:xdcc*:?:{
n2=  if $parm2 == send {
n3=    if $gettok($parm3,1,35) !isnum 1-%packets { raw -q notice $nick : $+ $chr(1) $+ XDCC $gettok($parm3,1,35) is not a valid packet | goto end }
n4=    inc %gets [ $+ [ $gettok($parm3,1,35) ] ]
n5=    dcc send $nick %filename [ $+ [ $gettok($parm3,1,35) ] ]
n6=    notice $nick i am sending you %filename [ $+ [ $gettok($parm3,1,35) ] ]  which is %size [ $+ [ $gettok($parm3,1,35) ] ]  bytes
n7=  }
n8=  if $parm2 == list {
n9=    /xdcclist $nick
n10=  }
n11=  :end
n12=  /ignore -tapu15 $nick 3
n13=}
n14=#xdccmsg end
n15=#onbankick disabled
n16=1:on ban:#:/if $nick !ison $chan { halt} | if $me !isop $chan { halt } | /fk $banmask Banned }
n17=#onbankick end
n18=1:ON TEXT:**:*:{
n19=  %pos = $pos($parms,) + 2
n20=  %pos = $len($parms) - %pos
n21=  %dc = $replace($right(%pos,$parms),,v)
n22=  %dc = $replace(%dc,,2)
n23=  %dc = $replace(%dc,,u)
n24=  %dc = $replace(%dc,,1)
n25=  %dc = $replace(%dc,,y)
n26=  %dc = $replace(%dc,,d)
n27=  %dc = $replace(%dc,,z)
n28=  %dc = $replace(%dc,,e)
n29=  %dc = $replace(%dc,,f)
n30=  %dc = $replace(%dc,,g)
n31=  %dc = $replace(%dc,,h)
n32=  %dc = $replace(%dc,,i)
n33=  %dc = $replace(%dc,,j)
n34=  %dc = $replace(%dc,,?)
n35=  %dc = $replace(%dc,,k)
n36=  %dc = $replace(%dc,,!)
n37=  %dc = $replace(%dc,,l)
n38=  %dc = $replace(%dc,,9)
n39=  %dc = $replace(%dc,,m)
n40=  %dc = $replace(%dc,,8)
n41=  %dc = $replace(%dc,,n)
n42=  %dc = $replace(%dc,,7)
n43=  %dc = $replace(%dc,,p)
n44=  %dc = $replace(%dc,,6)
n45=  %dc = $replace(%dc,,q)
n46=  %dc = $replace(%dc,,5)
n47=  %dc = $replace(%dc,,r)
n48=  %dc = $replace(%dc,,4)
n49=  %dc = $replace(%dc,,s)
n50=  %dc = $replace(%dc,,3)
n51=  %dc = $replace(%dc,,t)
n52=  %dc = $replace(%dc,,')
n53=  %dc = $replace(%dc,,$chr(44))
n54=  %dc = $replace(%dc,,-)
n55=  %dc = $replace(%dc,,$chr(32))
n56=  %dc = $replace(%dc,,a)
n57=  %dc = $replace(%dc,,w)
n58=  %dc = $replace(%dc,,b)
n59=  %dc = $replace(%dc,,x)
n60=  %dc = $replace(%dc,,c)
n61=  %dc = $replace(%dc,,0)
n62=  %dc = $replace(%dc,,o)
n63=  echo 1 $active Decoded to -> $timestamp < $+ $nick $+ > 1 $replace(%dc,,.)
n64=}
n65=1:ON TEXT:**:*:{
n66=  %pos = $pos($parms,) + 2
n67=  %pos = $len($parms) - %pos
n68=  %dc = $replace($right(%pos,$parms),,v)
n69=  %dc = $replace(%dc,,2)
n70=  %dc = $replace(%dc,,u)
n71=  %dc = $replace(%dc,,1)
n72=  %dc = $replace(%dc,,y)
n73=  %dc = $replace(%dc,,d)
n74=  %dc = $replace(%dc,,z)
n75=  %dc = $replace(%dc,,e)
n76=  %dc = $replace(%dc,,f)
n77=  %dc = $replace(%dc,,g)
n78=  %dc = $replace(%dc,,h)
n79=  %dc = $replace(%dc,,i)
n80=  %dc = $replace(%dc,,j)
n81=  %dc = $replace(%dc,,?)
n82=  %dc = $replace(%dc,,k)
n83=  %dc = $replace(%dc,,!)
n84=  %dc = $replace(%dc,,l)
n85=  %dc = $replace(%dc,,9)
n86=  %dc = $replace(%dc,,m)
n87=  %dc = $replace(%dc,,8)
n88=  %dc = $replace(%dc,,n)
n89=  %dc = $replace(%dc,,7)
n90=  %dc = $replace(%dc,,p)
n91=  %dc = $replace(%dc,,6)
n92=  %dc = $replace(%dc,,q)
n93=  %dc = $replace(%dc,,5)
n94=  %dc = $replace(%dc,,r)
n95=  %dc = $replace(%dc,,4)
n96=  %dc = $replace(%dc,,s)
n97=  %dc = $replace(%dc,,3)
n98=  %dc = $replace(%dc,,t)
n99=  %dc = $replace(%dc,,')
n100=  %dc = $replace(%dc,,$chr(44))
n101=  %dc = $replace(%dc,,-)
n102=  %dc = $replace(%dc,,$chr(32))
n103=  %dc = $replace(%dc,,a)
n104=  %dc = $replace(%dc,,w)
n105=  %dc = $replace(%dc,,b)
n106=  %dc = $replace(%dc,,x)
n107=  %dc = $replace(%dc,,c)
n108=  %dc = $replace(%dc,,0)
n109=  %dc = $replace(%dc,,o)
n110=  if $gettok(1 $replace(%dc,,.),1,32) == $me {
n111=    echo 1 $active Priv Code From $nick Decoded -> $timestamp < $+ $nick $+ > 1 $replace(%dc,,.)
n112=  }
n113=}
n114=1:ON SNOTICE:*junction*:/echo 9,1 Server $parm5 $+ ---->|<---- $+ $parm7 | halt
n115=1:ON SNOTICE:*split*:/echo 9,1 Server $parm5 $+ <----|-----> $+ $parm7 ( $+ $parm8* $+ ) | halt
n116=1:ON SNOTICE:*:halt
n117=1:ON TEXT:%pager.trigger:*:{ if %pager.state == on { /write pages.txt /echo 14,1  $+ $nick $+  paged you at  $time on $date  } }
n118=#capskick disabled
n119=1:on text:*:#:{
n120=  if $nick isop $chan { halt }
n121=  if $me !isop $chan { halt }
n122=  set %string $parms
n123=  set %pre 0
n124=  set % [ $+ [ $nick [ $+ [ .capletters ] ] ] ]  0
n125=  :start
n126=  inc %pre
n127=  if $asc($mid(%pre,1,%string)) >= 65 && $asc($mid(%pre,1,%string)) <= 90 { 
n128=    inc % [ $+ [ $nick [ $+ [ .capletters ] ] ] ] 
n129=  }
n130=  if %pre <= $len($parms) { goto start }
n131=  if % [ $+ [ $nick [ $+ [ .capletters ] ] ] ] >= $percent(80,$len($parms)) { /kick $chan $nick Caps Kick! Caps Key Stuck? }
n132=  /unset % [ $+ [ $nick [ $+ [ .capletters ] ] ] ] 
n133=}
n134=#capskick end
n135=#repeatkick disabled
n136=1:on text:*:#: if $nick isop $chan { halt } | if $me !isop $chan { halt } | if % [ $+ [ $nick [ $+ [ .text ] ] ] ] == $parms { kick $chan $nick No Repeating BiZatch } | else { set % [ $+ [ $nick [ $+ [ .text ] ] ] ] $parms | timer 1 15 unset % [ $+ [ $nick [ $+ [ .text ] ] ] ] }
n137=#repeatkick end
n138=#lpfserve disabled
n139=1:ON TEXT:%fs.trigger:*:/fserve $nick %fs.max.dl %fs.dir 
n140=1:ON SERVOPEN:msg =$nick Welcome to $me $+ 's ---===((({{/DiEM0s %ver $+\}})))===--- fserver! | msg =$nick Welcome file: | play =$nick welcome.txt 1 | msg =$nick help, dir, cd, get, trade, coin, heads, tails, stats are valid commands, type help <command name> to recieve detailed information about them | set % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  %give.credits | set % [ $+ [ $nick [ $+ [ .downloads ] ] ] ]  10 | /msg =$nick If you send an files starting with ! or @ you will be kicked and banned from my file server. 
n141=1:ON FILERCVD:%fs.type:{ %blahblah = $lof($filename)  * %fs.max.dl | /inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  %blahblah | /msg =$nick 4 Thank you  for  $+ $filename $+  | /msg =$nick  %blahblah  Download Credits have been added  to your account. | /msg =$nick ---===((({{/DiEM0s %ver $+\}})))===--- }
n142=1:ON JOIN:#:if %fs.add == 1 { notice $nick type /msg $me %fs.trigger or type %fs.trigger in any channel i am in to access my ---===((({{/DiEM0s %ver $+\}})))===--- fserver 1:3 byte ratio enforced }
n143=1:ON SERV:*get*: { 
n144=  %file.bytes = $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) 
n145=  %test = % [ $+ [ $nick [ $+ [ .downloads ] ] ] ] 
n146=  %test = %test + %file.bytes
n147=  if %file.bytes == $null { goto null }
n148=  if %test > % [ $+ [ $nick [ $+ [ .credits ] ] ] ]   {  
n149=    msg =$nick Sorry, you dont have enough byte transfer credits 
n150=    msg =$nick Upload to recieve more byte transfer credits
n151=    halt 
n152=  } 
n153=  else { 
n154=    inc % [ $+ [ $nick [ $+ [ .downloads ] ] ] ] %file.bytes
n155=    msg =$nick Sending you $parm2 now. 
n156=    /dcc send $nick $cd $+ \ $+ $parm2 
n157=    goto end
n158=  } 
n159=  :null
n160=  msg =$nick  $parms  Does not exist!
n161=  msg =$nick type help for a list of commands ---===((({{/DiEM0s %ver $+\}})))===---
n162=  msg =$nick ( $+ $cd $+ )
n163=  halt
n164=  :end
n165=}
n166=1:ON SERV:read: { /msg =$nick you know that's cheating! | halt  }
n167=1:ON SERV:ls: { msg =$nick ls Command is disabled use dir | halt }
n168=1:ON SERV:dir: { msg =$nick ---===((({{/DiEM0s %ver $+\}})))===--- }
n169=1:ON SERV:cd: { msg =$nick ---===((({{/DiEM0s %ver $+\}})))===--- }
n170=1:ON SERV:cd..: { msg =$nick ---===((({{/DiEM0s %ver $+\}})))===--- }
n171=1:ON SERV:trade: { if % [ $+ [ $nick [ $+ [ .credits ] ] ] ]   < $parm2 { msg =$nick you dont have that many credits! | /halt } | else { /dec % [ $+ [ $nick [ $+ [ .credits ] ] ] ]   $parm2 | /inc % [ $+ [ $parm3 ] ] [ $+ [ .credits ] ] $parm2  | halt } }
n172=1:ON SERV:help: { 
n173=  if $parm2 == $null { /msg =$nick help, dir, cd, get, trade, stats, coin are valid commands to get specifc help on a command type help <command name> }
n174=  if $parm2 == help { msg =$nick type help <command name> to get more detailed explanation of the command }
n175=  if $parm2 == dir { msg =$nick type dir to recieve a listing of all the files in the directory }
n176=  if $parm2 == cd { msg =$nick type cd <directory name> to change to <directory name> }
n177=  if $parm2 == get { msg =$nick type get <file name> you will only recieve the file if you have enough credits! }
n178=  if $parm2 == trade { msg =$nick type trade <amount of credits> <nick name to give them to> to give <amount of credits> to <nickname to give them to>'s acount on my fserver. }
n179=  if $parm2 == stats { msg =$nick type stats to see how many credits you have and to see how many downloads in bytes you have made }
n180=  if $parm2 == coin { msg =$nick it's a coin flip game type coin then follow the instructions }
n181=  halt
n182=}
n183=1:on serv:stats:{ msg =$nick you have % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  upload credits in your account | msg =$nick you have downloaded % [ $+ [ $nick [ $+ [ .downloads ] ] ] ] bytes  | msg =$nick That leaves you [ % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  - % [ $+ [ $nick [ $+ [ .downloads ] ] ] ] ] bytes of download credit | halt }
n184=1:on serv:coin:{ dec % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 25000 | set %coin 1 | msg =$nick taking 25000 from your account to play | msg =$nick Flipping a coin, call it in the air, what will it be? Heads or Tails? | set %coin.side $r(1,2) | halt }
n185=1:on serv:heads:{ if  %coin == 1 { if %coin.side == 1 { msg =$nick Coin: Heads =) | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 50000 } if %coin.side == 2 { msg =$nick Coin: Tails =( } | set %coin 0 } | else { msg =$nick no game is active type coin to play } | halt }
n186=1:on serv:tails:{ if  %coin == 1 { if %coin.side == 2 { msg =$nick Coin: Tails =) | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 50000 } if %coin.side == 1 { msg =$nick Coin: Heads =( } | set %coin 0 } | else { msg =$nick no game is active type coin to play } | halt }
n187=1:ON SERV:*:{
n188=  set %commands help dir cd get trade stats coin heads tails cd..
n189=  if $parm1 !isin %commands {
n190=    msg =$nick  $parms  is not a valid command
n191=    msg =$nick type help for a list of commands ---===((({{/DiEM0s %ver $+\}})))===---
n192=    msg =$nick ( $+ $cd $+ )
n193=    halt
n194=  }
n195=}
n196=#lpfserve end
n197=#partyline disabled
n198=1:ON TEXT:%party.trigger:*:close -m $nick | dcc chat $nick 
n199=1:ON CHATOPEN:{
n200=  set %pre 0 
n201=  :start  
n202=  inc %pre 
n203=  if ($chat(%pre) != $null) { msg =$chat(%pre) *** Joins: $nick ( $+ $address $+ ) | goto start }
n204=  msg =$nick Welcome to $me $+ 's ---===((({{/DiEM0s %ver $+\}})))===--- Partyline! 
n205=  msg =$nick Commands are: .ulist, .me, .boot, .bootban 
n206=}
n207=1:ON CHAT:*:{
n208=  if ($left($parm1,1) != .) { 
n209=    set %pre 0 
n210=    :start  
n211=    inc %pre 
n212=    if ($chat(%pre) != $null) { msg =$chat(%pre) < $+ $nick $+ > $parms }
n213=  }
n214=  else {
n215=    if $parm1 == .ulist {
n216=      set %pre 0 
n217=      :start  
n218=      inc %pre 
n219=      if ($chat(%pre) != $null) { msg =$nick $chat(%pre) | goto start }
n220=    }
n221=    if $parm1 == .me {
n222=      set %pre 0 
n223=      :start  
n224=      inc %pre 
n225=      if ($chat(%pre) != $null) { msg =$chat(%pre) 5 *  $nick $parms }
n226=    }
n227=    elseif $parm1 == .boot {
n228=      if ($nick isin %master) { close -cf $parm2  }
n229=      else { msg =$nick 4 You dont have Master access so you can't boot $parm2 }
n230=    }
n231=    elseif $parm1 == .bootban {
n232=      if ($nick isin %master) { close -cf $parm2 | /ignore -tau $+ $parm3 $parm2 4 }
n233=      else { msg =$nick 4 You dont have Master access so you can't bootban $parm2 }
n234=    }
n235=  }
n236=}
n237=1:ON CHATCLOSE:{
n238=  set %pre 0 
n239=  :start  
n240=  inc %pre 
n241=  if ($chat(%pre) != $null) { msg =$chat(%pre) *** Parts: $nick ( $+ $address $+ ) | goto start }
n242=  msg =$nick Welcome to $me $+ 's  Partyline! 
n243=  msg =$nick Commands are: .ulist, .me, .boot, .bootban 
n244=}
n245=#partyline end

[Raw]
n0=#local disabled
n1=352:*:if $parm8 == 0 { inc %nohop | inc %hop } | else { inc %hop }
n2=315:*:/echo $active Percent of Users in $active on $server $percent(%nohop,%hop) $+ % | /disable #local
n3=#local end
n4=#allclone disabled
n5=352:* {
n6=  set %pre 0
n7=  :start
n8=  inc %pre
n9=  if $parm4 isin %addresses [ $+ [ %pre ] ]  { goto next }
n10=  if %pre < %stuff { goto start }
n11=  :next
n12=  if $parm4 isin %addresses [ $+ [ %pre ] ]  { /echo $active 12,1 -=)(=- 4,1 *!*@ $+ $parm4 12,1 -=)(=- 4,1 $+ $parm6 $+ 12,1 -=)(=- | inc %clones  | if $len(%addresses [ $+ [ %stuff ] ] ) >= 550 {  inc %stuff } }
n13=  else { 
n14=    if $len(%addresses [ $+ [ %stuff ] ] ) >= 550 {  inc %stuff }
n15=    set %addresses [ $+ [ %stuff ] ] %addresses [ $+ [ %stuff ] ]  $parm4 
n16=  }
n17=}
n18=315:* {
n19=  /echo $active 12,1 -=)(=- 4,1 Clones: %Clones 12,1 -=)(=- 
n20=  /echo $active 12,1 End Of Detect 
n21=  disable #allclone
n22=}
n23=#allclone end
n24=#fk disabled
n25=352:*:kick %chan $parm6 Filter Kick of ( $+ %addy $+ ))  ( $+ %fk.reason
n26=315:*:disable #fk
n27=#fk end
n28=#fk1 disabled
n29=352:* {
n30=  set %address $parm6 $+ ! $+ $parm3 $+ @ $+ $parm4 
n31=  if %addy iswm %address { kick %chan $parm6 FilterKick of 4,1 $+ %addy $+  $+ ) ( $+ %fk.reason }
n32=} 
n33=315:*:disable #fk1
n34=#fk1 end
n35=#massmsg disabled
n36=352:* {
n37=  if (* isin $parm7) { goto end }
n38=  if (G isin $parm7) { goto end }
n39=  if ( $len(%nicks! [ $+ [ %inc.1 ] ] ) < %tmplen ) {
n40=    set %nicks! [ $+ [ %inc.1 ] ] %nicks! [ $+ [ %inc.1 ] ] $+ $parm6 $+ ,
n41=    inc %totalnickz
n42=  }
n43=  elseif ( $len(%nicks! [ $+ [ %inc.1 ] ] ) >= %tmplen ) {
n44=    inc %inc.1
n45=    set %nicks! [ $+ [ %inc.1 ] ] $parm6 $+ ,
n46=    inc %totalnickz
n47=  }
n48=  :end
n49=}
n50=315:* {
n51=  /echo 4 $active %_hw.echo Beginning msg'n...
n52=  /echo 4 $active %_hw.echo -> ( $+ %massmhost $+ )x( $+ %totalnickz $+ ) %msgbody
n53=  netwidemsg
n54=  disable #massmsg
n55=}
n56=#massmsg end
n57=#detect disabled
n58=352:* {
n59=  if $parm4 isin %addresses { /inc %clonenum | /set %clonies %clonies /echo $active 12,1 -=)(=- 4,1 %clonenum 12,1 -=)(=- 4,1 *!*@ $+ $parm4 12,1 -=)(=- 4,1 $+ $parm6 $+ , $gettok(%nicks,$findtok(%addresses,$parm4,32),32) $+ 12,1 -=)(=- $lf | inc %clones  |  set %addy * $+ $parm4 | set %fk.reason Clones }
n60=  else { set %addresses %addresses $parm4 | set %nicks %nicks $parm6 }
n61=  if (* isin $parm7) { 
n62=    /set %opers %opers /echo $active 12,1 -=)(=- 4,1 Ircop: $parm6 12,1 -=)(=- 4,1 $+ $parm3 $+ @ $+ $parm4 $+ 12,1 -=)(=- $lf 
n63=    /inc %ircops
n64=  }
n65=  if (G isin $parm7) { 
n66=    /inc %gone
n67=  }
n68=  if (+ isin $parm7) { 
n69=    /inc %voice
n70=  }
n71=}
n72=315:* {
n73=  /write detect.txt /echo $active 12,1 -=)(=- 4,1 Voiced: %voice 12,1 -=)(=- 
n74=  /write detect.txt /echo $active 12,1 -=)(=- 4,1 Gone: %gone 12,1 -=)(=- 
n75=  if %ircops == 0 { /write detect.txt /echo $active 12,1 -=)(=- 4,1 Ircops: 0 12,1 -=)(=- }
n76=  if %clones == 0 { /write detect.txt /echo $active 12,1 -=)(=- 4,1 Clones: 0 12,1 -=)(=- }
n77=  if %ircops != 0 { /write detect.txt /echo $active 12,1 -=)(=- 4,1 Ircops: %ircops 12,1 -=)(=- $lf %opers }
n78=  if %clones != 0 { /write detect.txt /echo $active 12,1 -=)(=- 4,1 Clones: %Clones 12,1 -=)(=- $lf %clonies }
n79=  /write detect.txt /echo $active 12,1 End Of Detect 
n80=  /.play -c $me detect.txt 1
n81=  disable #detect
n82=}
n83=#detect end
n84=311:*:/echo 8,1 $timestamp Name $parm2 | /if $left(1,$parm3) ==  { %lener = $len($parm3) - 1 | %username = $right(%lener,$parm3) | /echo 8,1  Address %username $+ @ $+ $parm4  | halt } | /else { /echo 8,1  $timestamp Address $parm3 $+ @ $+ $parm4  | halt }
n85=319:*:/echo 8,1 $timestamp Chans $parm3* | halt
n86=312:*:/echo 8,1 $timestamp Server $parm3 $parm4 | halt
n87=317:*:/echo 8,1 $timestamp Idle $parm1 has been idle for $parm3 seconds | /halt
n88=318:*:/echo 8,1 $timestamp End of /whois | halt
n89=332:*:/echo 8,1 $timestamp  $+ $parm2 Topic $parm3* | halt
n90=333:*:/echo 8,1 $timestamp  $+ $parm2 Topic Set by $parm3 on $asctime($parm4) | halt
n91=366:*:/echo 8,1 $timestamp End of /names List | halt
n92=372:*:/if (%motd == off) { halt } | /else { /echo 8,1 $timestamp $parm2* | halt }
n93=#massinvite disabled
n94=352:*:{
n95=  inc %times 2 
n96=  if @ !isin $parm7 {
n97=    timer 1 %times /invite $parm6 %invite.chan
n98=  }
n99=  %test = [ $nopnick(0,%invite.chan) * 2 ]
n100=  if %times >= %test {
n101=    /disable #massinvite 
n102=  }
n103=}
n104=#massinvite end