/ScriptServ

[Variables]
n0=%ver 7[ßras§] v7.0 2©1997 m00n t14ast15e the m14etal
n1=%logo 1.(3ß12§1).
n2=%title [ßras§]
n3=%notemax 5
n4=%notehigh 6
n5=%nmax.time 5
n6=%noteprot on
n7=%msgmax 5
n8=%msgprot on
n9=%dcc.max 3
n10=%accept yes
n11=%ctcpmax 2
n12=%txtmax 5
n13=%txtflood on
n14=%tmax.time 5
n15=%memax 5
n16=%meflood on
n17=%amax.time
n18=%nfloodmax 5
n19=%noteflood on
n20=%nickmax 3
n21=%nickprot on
n22=%mass.kick 3
n23=%mass.deop 3
n24=%massprot on
n25=%clonemax 2
n26=%cloneprot on
n27=%repeat on
n28=%caps on
n29=%command !chr0me
n30=%dload.max 4
n31=%dload.type *.jpg, *.gif, *.zip, *.exe
n32=%free.credits 500000
n33=%home.dir c:\
n34=%horse1 Raekw0n
n35=%horse2 Meth0d Man
n36=%horse3 Gh0stface
n37=%spath1 crossroads.mid
n38=%spath2 macarena.mid
n39=%spath4 rule_world.mid
n40=%spath5 headring.mid
n41=%spath6 pulp.mid
n42=%spath7 g_thang.mid
n43=%spath8 readyornot.mid
n44=%spath9 shiznit.mid
n45=%spath0 superman.mid
n46=%songs 10
n47=%juke.songs 10
n48=%song1 crossroads.mid
n49=%song2 macarena.mid
n50=%song3 readyornot.mid
n51=%song4 rule_world.mid
n52=%song5 headring.mid
n53=%song6 pulp.mid
n54=%song7 g_thang.mid
n55=%song8 xfiles.mid
n56=%song9 shiznit.mid
n57=%song10 superman.mid
n58=%sdesc1 Tha Crossroads -Bone Thugs-N-Harmony
n59=%sdesc2 Macarena -Los De Mars
n60=%sdesc3 Ready Or Not -Fugees
n61=%sdesc4 If I Ruled The World -Nas
n62=%sdesc5 Keep Their Heads Ringin -Dr. Dre
n63=%sdesc6 Theme From Pulp Fiction
n64=%sdesc7 Aint Nuthin But A G Thang -Dr. Dre feat. Snoop Doggy Dogg
n65=%sdesc8 Theme From X-Files
n66=%sdesc9 Shiznit -Snoop Doggy Dogg
n67=%sdesc10 Theme From Superman/Star Wars
n68=%kick.ops no

[Commands]
n0=1:echo:.ignore -tu30 $wildsite | echo 12 -a echo flood from $nick ( $+ $address $+ )
n1=#normalprot start
n2=1:dcc {
n3=  if ($parm2 == chat) && ($parm5 == 19) { close -c $nick | .ignore -u60 $wildsite | echo 12 -a port $parm5 dcc chat bomb from $nick ( $+ $address $+ ) | halt }
n4=  if ($parm2 == send) && ($parm5 == 19) { close -g $nick | .ignore -u60 $wildsite | echo 12 -a fake dcc send from $nick ( $+ $address $+ ) | echo 12 -a file: $parm3 | echo 12 -a Size: $parm6  | halt }
n5=  else if (%accept == off) { .ignore -u15 $wildsite | .notice $nick sorry, but i'm not accepting dcc's right now | halt }
n6=  else {
n7=    if (%dcc >= %dcc.max) { .ignore -pu30 *!*@* | echo 12 -a dcc $parm2 $+  flood detected from $nick ( $+ $address $+ ) | echo 12 -a ignoring all dcc's for 30 seconds to prevent further flooding | halt }
n8=    else { inc %dcc | .timer 1 10 /set %dcc 0 }
n9=  }
n10=}
n11=1:ping {
n12=  inc %ctcp
n13=  .timer 1 10 /set %ctcp 0
n14=  if %ctcp == 5 { 
n15=    .ignore -tu30 *!*@*
n16=    echo 12 -a ctcp protection triggered. $+ $nick ( $+ $address $+ ) was last to ctcp you
n17=    echo 12 -a ctcp type:  $+ $parm1 $+ 
n18=    echo 12 -a ignoring all ctcp's for 30 seconds to prevent further flooding
n19=    set %ctcp 0
n20=    halt
n21=  }
n22=  inc % $+ $site $+ ctcp
n23=  .timer 1 5 unset % $+ $site $+ ctcp
n24=  if % [ $+ [ $site [ $+ [ ctcp ] ] ] ] == %ctcpmax {
n25=    .ignore -tu30 $wildsite
n26=    echo 12 -a  $+ $parm1 $+  flood detected from $nick ( $+ $address $+ )
n27=    unset % $+ $site $+ ctcp
n28=  }
n29=}
n30=1:version {
n31=  .raw -q NOTICE $nick : $+ $chr(01) $+ VERSION with %ver
n32=  inc %ctcp
n33=  .timer 1 10 /set %ctcp 0
n34=  if %ctcp == 5 { 
n35=    .ignore -tu30 *!*@*
n36=    echo 12 -a ctcp protection triggered. $+ $nick ( $+ $address $+ ) was last to ctcp you
n37=    echo 12 -a ctcp type:  $+ $parm1 $+ 
n38=    echo 12 -a ignoring all ctcp's for 30 seconds to prevent further flooding
n39=    set %ctcp 0
n40=    halt
n41=  }
n42=  inc % $+ $site $+ ctcp
n43=  .timer 1 5 unset % $+ $site $+ ctcp
n44=  if % [ $+ [ $site [ $+ [ ctcp ] ] ] ] == %ctcpmax {
n45=    .ignore -tu30 $wildsite
n46=    echo 12 -a  $+ $parm1 $+  flood detected from $nick ( $+ $address $+ )
n47=    unset % $+ $site $+ ctcp
n48=  }
n49=}
n50=1:finger {
n51=  inc %ctcp
n52=  .timer 1 10 /set %ctcp 0
n53=  if %ctcp == 5 { 
n54=    .ignore -tu30 *!*@*
n55=    echo 12 -a ctcp protection triggered. $+ $nick ( $+ $address $+ ) was last to ctcp you
n56=    echo 12 -a ctcp type:  $+ $parm1 $+ 
n57=    echo 12 -a ignoring all ctcp's for 30 seconds to prevent further flooding
n58=    set %ctcp 0
n59=    halt
n60=  }
n61=  inc % $+ $site $+ ctcp
n62=  .timer 1 5 unset % $+ $site $+ ctcp
n63=  if % [ $+ [ $site [ $+ [ ctcp ] ] ] ] == %ctcpmax {
n64=    .ignore -tu30 $wildsite
n65=    echo 12 -a  $+ $parm1 $+  flood detected from $nick ( $+ $address $+ )
n66=    unset % $+ $site $+ ctcp
n67=  }
n68=}
n69=1:time {
n70=  inc %ctcp
n71=  .timer 1 10 /set %ctcp 0
n72=  if %ctcp == 5 { 
n73=    .ignore -tu30 *!*@*
n74=    echo 12 -a ctcp protection triggered. $+ $nick ( $+ $address $+ ) was last to ctcp you
n75=    echo 12 -a ctcp type:  $+ $parm1 $+ 
n76=    echo 12 -a ignoring all ctcp's for 30 seconds to prevent further flooding
n77=    set %ctcp 0
n78=    halt
n79=  }
n80=  inc % $+ $site $+ ctcp
n81=  .timer 1 5 unset % $+ $site $+ ctcp
n82=  if % [ $+ [ $site [ $+ [ ctcp ] ] ] ] == %ctcpmax {
n83=    .ignore -tu30 $wildsite
n84=    echo 12 -a  $+ $parm1 $+  flood detected from $nick ( $+ $address $+ )
n85=    unset % $+ $site $+ ctcp
n86=  }
n87=}
n88=1:userinfo {
n89=  inc %ctcp
n90=  .timer 1 10 /set %ctcp 0
n91=  if %ctcp == 5 { 
n92=    .ignore -tu30 *!*@*
n93=    echo 12 -a ctcp protection triggered. $+ $nick ( $+ $address $+ ) was last to ctcp you
n94=    echo 12 -a ctcp type:  $+ $parm1 $+ 
n95=    echo 12 -a ignoring all ctcp's for 30 seconds to prevent further flooding
n96=    set %ctcp 0
n97=    halt
n98=  }
n99=  inc % $+ $site $+ ctcp
n100=  .timer 1 5 unset % $+ $site $+ ctcp
n101=  if % [ $+ [ $site [ $+ [ ctcp ] ] ] ] == %ctcpmax {
n102=    .ignore -tu30 $wildsite
n103=    echo 12 -a  $+ $parm1 $+  flood detected from $nick ( $+ $address $+ )
n104=    unset % $+ $site $+ ctcp
n105=  }
n106=}
n107=1:clientinfo {
n108=  inc %ctcp
n109=  .timer 1 10 /set %ctcp 0
n110=  if %ctcp == 5 { 
n111=    .ignore -tu30 *!*@*
n112=    echo 12 -a ctcp protection triggered. $+ $nick ( $+ $address $+ ) was last to ctcp you
n113=    echo 12 -a ctcp type:  $+ $parm1 $+ 
n114=    echo 12 -a ignoring all ctcp's for 30 seconds to prevent further flooding
n115=    set %ctcp 0
n116=    halt
n117=  }
n118=  inc % $+ $site $+ ctcp
n119=  .timer 1 5 unset % $+ $site $+ ctcp
n120=  if % [ $+ [ $site [ $+ [ ctcp ] ] ] ] == %ctcpmax {
n121=    .ignore -tu30 $wildsite
n122=    echo 12 -a  $+ $parm1 $+  flood detected from $nick ( $+ $address $+ )
n123=    unset % $+ $site $+ ctcp
n124=  }
n125=}
n126=#normalprot end
n127=#xdcc disabled
n128=1:xdcc {
n129=  if ($parm2 == help) {
n130=    :help
n131=    .ignore -tu5 $wildsite
n132=    echo 12 -s xdcc help requested by $nick ( $+ $address $+ )
n133=    .notice $nick %logo %title xdcc help %logo 
n134=    .notice $nick %logo syntax: /ctcp $me <option> %logo
n135=    .notice $nick %logo [xdcc list] lists xdcc files %logo
n136=    .notice $nick %logo [xdcc send <pack Number>] recieve pack number specified %logo
n137=    halt
n138=  }
n139=  if ($parm2 == list) { 
n140=    .ignore -tu5 $wildsite
n141=    echo 12 -s xdcc list requested by $nick ( $+ $address $+ )
n142=    .notice $nick %logo listing xdcc files %logo
n143=    if (%xdcc.packs == $null) { .notice $nick %logo no filled slots in xdcc! %logo }
n144=    else {
n145=      set %xdcc.list 0
n146=      :start
n147=      inc %xdcc.list
n148=      .timer 1 2/.notice $nick [packet %xdcc.list $+ ] % [ $+ [ desc [ $+ [ %xdcc.list ] ] ] ] $+ ( $+ % [ $+ [ size [ $+ [ %xdn ] ] ] ] $+ )
n149=      if (%xdcc.list == %xdcc.packs) { unset %xdcc.list | halt }
n150=      else { goto start }
n151=    }
n152=  }
n153=  if ($parm2 == send) {
n154=    if ($parm2 > %juke.songs) { .notice $nick %logo no such file! %logo | halt }
n155=    else { dcc send $nick %pack $+ $parm2 | .notice $nick %logo now sending % [ %desc [ $+ [ $parm2 ] ] ] ] | echo 12 -s now sending $nick ( $+ $address $+ ) % [ %desc [ $+ [ $parm2 ] ] ] ] | .ignore -tu5 $wildsite | halt }
n156=  }
n157=  else { goto help }
n158=}
n159=#xdcc end
n160=#pager start
n161=1:page {
n162=  .ignore -tu10 $wildsite
n163=  .notice $nick i have just been paged. if i dont answer in two minutes, it's probably because im %away $+ , so leave an msg
n164=  echo 4 $nick is paging you!
n165=  wavplay $mircdirpage.wav
n166=  inc %away.msg
n167=  write page.log [ $+ $atime $+ ]< $+ $nick $+ > $+ $parms
n168=}
n169=#pager end
n170=#vote disabled
n171=1:yes:.guser voted $nick 3 | .notice $nick %logo thanks for voting [yes] %logo | inc %yes | .ignore -tu5 $wildsite
n172=1:no:.guser voted $nick 3 | .notice $nick %logo thanks for voting [no] %logo | inc %no | .ignore -tu5 $wildsite
n173=voted:*:.ignore -tu10 $wildsite | .notice $nick %logo now, now, no cheating... %logo
n174=#vote end
n175=#abc disabled
n176=1:a:.guser voted $nick 3 | .notice $nick %logo thanks for voting for [a] %logo | inc %a | .ignore -tu5 $wildsite
n177=1:b:.guser voted $nick 3 | .notice $nick %logo thanks for voting [b] %logo | inc %b | .ignore -tu5 $wildsite
n178=1:c:.guser voted $nick 3 | .notice $nick %logo thanks for voting [c] %logo | inc %c | .ignore -tu5 $wildsite
n179=voted:*:.ignore -tu10 $wildsite | .notice $nick %logo now, now, no cheating... %logo
n180=#abc end

[Events]
n0=@200:on join:#: mode $chan +o $nick
n1=@175:on join:#:mode $chan +o $nick 
n2=@150:on join:#:mode $chan +v $nick
n3=@125:on join:#:ban $chan $nick 3 | kick $chan $nick ¯\ %logo 12AutoKick 14BYtChLiStED1 %logo /¯
n4=1:on join:#:if ($nick == $me) { who $chan }
n5=1:on text:*x(4dp)x*:de $parms
n6=1:on text:*ping me*:*:ping $nick | .notice $nick [ AutoPING ] | .ignore -cu5 $wildsite
n7=1:on ctcpreply:*:if ($parm1 != ping) && ($parm1 != version) && ($parm1 != finger) && ($parm1 != userinfo) && ($parm1 != clientinfo) && ($parm1 != time) { .ignore -u10 $wildsite | echo 12 -a unknown ctcp reply from $nick ( $+ $address $+ ) | echo 12 -a type: $parms }
n8=1:on ctcpreply:*ping*:%ping = $ctime - $parm2 | echo 12 -a ping reply from $nick was %ping seconds | notice $nick %logo your ping reply was %ping seconds %logo
n9=@1:on ban:#: {
n10=  if ($banmask iswm $address($me,1)) || ($banmask iswm $address($me,2)) || ($banmask iswm $address($me,3)) || ($banmask iswm $address($me,4)) {
n11=    if (%ban.on.me == on) { halt }
n12=    set %ban.on.me on
n13=    mode $chan -ob+b $nick $banmask *!*@ $+ $site
n14=    kick $chan $nick ¯\ %logo 12AutoKick 14personal protection1 %logo /¯
n15=    .timer 1 15 /unset %ban.on.me
n16=  } 
n17=}
n18=@1:on join:#: {
n19=  if (%cloneprot == on) {
n20=    %clonescount = 0 | %nickcounter = 1 | %clonesfound | %skipnicks = ...
n21=    :loop1start
n22=    :nick
n23=    %workingnick = $nick(%nickcounter,#) | if (%workingnick == $null) { goto loop1end } | if (%workingnick isin %clonesfound) { inc %nickcounter | goto nick } | %workingaddress = $address(%workingnick,3)
n24=    if (%workingaddress == $null) { %skipnicks = %workingnick $+ , %skipnicks | inc %nickcounter | goto nick } | inc %nickcounter | %nicksubcounter = %nickcounter | %clonessubcount = 0 | %clonessubfound = ...
n25=    :loop2start
n26=    %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
n27=    :loop2end
n28=    if (%clonessubcount > %clonemax) { ban $chan $remove(%clonessubfound,,...) 4 | kick $chan $remove(%clonessubfound,,...) ¯\ %logo 12AutoKick 14clones detected1 %logo /¯ | kick $chan %workingnick ¯\ %logo 12AutoKick 14clones detected1 %logo /¯ } | goto loop1start
n29=    :loop1end
n30=    unset %skipnicks | unset %cuurentnick | unset %clonessubfound | unset %clonessubcount | unset %clonesfound | unset %clone.num | unset %workingnick | unset %workingaddress | unset %currentnick | unset %nicksubcounter
n31=  }
n32=}
n33=1:on invite:*: {
n34=  if (% [ $+ [ $nick [ $+ [ .invites ] ] ] ] >= 2) { ignore -iu30 $wildsite | echo 12 -a invite flood from $nick ( $+ $address $+ ) | unset % [ $+ [ $nick [ $+ [ .invites ] ] ] ] | halt }
n35=  else {
n36=    inc % [ $+ [ $nick [ $+ [ .invites ] ] ] ]
n37=    .timer 1 10 /unset % [ $+ [ $nick [ $+ [ .invites ] ] ] ]
n38=  }
n39=}
n40=1:on text:*:?: {
n41=  if (%msgprot == on) {
n42=    inc % $+ $site $+ msgflood
n43=    .timer 1 5 /unset % $+ $site $+ msgflood
n44=    if % [ $+ [ $site [ $+ [ msgflood ] ] ] ] == %msgmax { 
n45=      .ignore -pu25
n46=      echo 12 -a msg flood from $nick ( $+ $address $+ )
n47=      .msg $nick (¯\ %logo 4AutoIGNORE 12msg flood1 %logo /¯)
n48=      unset % $+ $site $+ msgflood
n49=    }
n50=  }
n51=  if (%away.log == on) {
n52=    inc %away.msg
n53=    write page.log [ $+ $atime $+ ]< $+ $nick $+ > $+ $parms
n54=    .msg $nick (¯\ i am currently  $+ %away $+  right now. your message has been logged /¯)
n55=    .ignore -pu10 $nick
n56=  }
n57=}
n58=@1:on text:*:#:{
n59=  if (%kick.ops == no) && ($nick isop $chan) { goto end }
n60=  if (%txtflood == on) {
n61=    inc % $+ $site $+ txtflood
n62=    .timer 1 %tmax.time unset % $+ $site $+ txtflood
n63=    if % [ $+ [ $site [ $+ [ txtflood ] ] ] ] == %txtmax {
n64=      kick $chan $nick ¯\ %logo 4AutoKick 2 $+ %txtmax $+  consecutive lines in  $+ %tmax.time $+  seconds %logo /¯
n65=      unset % $+ $site $+ txtflood
n66=    }
n67=  }
n68=  if (%color == on) {
n69=    if ( isin $parms) { kick $chan $nick ¯\ %logo 4AutoKick 12colors1 %logo /¯ }
n70=    if ( isin $parms) { kick $chan $nick ¯\ %logo 4AutoKick 12bold1 %logo /¯ }
n71=    if ( isin $parms) { kick $chan $nick ¯\ %logo 4AutoKick 12underline1 %logo /¯ }
n72=  }
n73=  if (%swear == on) {
n74=    if (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick ¯\ %logo 12AutoKick 14swearing1 %logo /¯ | halt }
n75=  }
n76=  if (%repeat == on) {
n77=    if % [ $+ [ $nick [ $+ [ .text ] ] ] ] == $parms { kick $chan $nick ¯\ %logo 4AutoKick 12repeating1 %logo /¯ | unset % [ $+ [ $nick [ $+ [ .text ] ] ] ] }
n78=    else { 
n79=      set % [ $+ [ $nick [ $+ [ .text ] ] ] ] $parms
n80=      .timer 1 5 /unset % [ $+ [ $nick [ $+ [ .text ] ] ] ]
n81=    }
n82=  }
n83=  if (%caps == on) {
n84=    set %text $len($parms)
n85=    set %x 1
n86=    if (%text < 8) { goto end } 
n87=    if ($nick == %cap) { goto first }
n88=    else { goto start }
n89=    :start
n90=    if %x > %text { goto kick } 
n91=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto start } 
n92=    else { goto end } 
n93=    :kick
n94=    set %cap $nick
n95=    kick $chan $nick ¯\ %logo 4AutoKick 12caps1 %logo /¯
n96=    halt
n97=    :first
n98=    if %x > %text { goto second } 
n99=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto first }
n100=    else { goto end }
n101=    halt
n102=    :second
n103=    kick $chan $nick ¯\ %logo 4AutoKickBan 12caps1 %logo /¯
n104=    ban -u60 $chan $nick 3
n105=    unset %cap
n106=    halt
n107=    :end
n108=  }
n109=}
n110=;
n111=@1:on action:*:#:{
n112=  if (%kick.ops == no) && ($nick isop $chan) { goto end }
n113=  if (%meflood == on) {
n114=    inc % $+ $site $+ meflood
n115=    .timer 1 %amax.time unset % $+ $site $+ meflood
n116=    if % [ $+ [ $site [ $+ [ meflood ] ] ] ] == %memax {
n117=      kick $chan $nick ¯\ %logo 4AutoKick 2 $+ %memax $+  consecutive actions in  $+ %amax.time $+  seconds %logo /¯
n118=      unset % $+ $site $+ meflood
n119=    }
n120=  }
n121=  if (%color == on) {
n122=    if ( isin $parms) { kick $chan $nick ¯\ %logo 4AutoKick 12colors1 %logo /¯ }
n123=    if ( isin $parms) { kick $chan $nick ¯\ %logo 4AutoKick 12bold1 %logo /¯ }
n124=    if ( isin $parms) { kick $chan $nick ¯\ %logo 4AutoKick 12underline1 %logo /¯ }
n125=  }
n126=  if (%swear == on) {
n127=    if (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick ¯\ %logo 12AutoKick 14swearing1 %logo /¯ | halt }
n128=  }
n129=  if (%repeat == on) {
n130=    if % [ $+ [ $nick [ $+ [ .text ] ] ] ] == $parms { kick $chan $nick ¯\ %logo 4AutoKick 12repeating1 %logo /¯ | unset % [ $+ [ $nick [ $+ [ .text ] ] ] ] }
n131=    else { 
n132=      set % [ $+ [ $nick [ $+ [ .text ] ] ] ] $parms
n133=      .timer 1 5 /unset % [ $+ [ $nick [ $+ [ .text ] ] ] ]
n134=    }
n135=  }
n136=  if (%caps == on) {
n137=    set %text $len($parms)
n138=    set %x 1
n139=    if (%text < 8) { goto end } 
n140=    if ($nick == %cap) { goto first }
n141=    else { goto start }
n142=    :start
n143=    if %x > %text { goto kick } 
n144=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto start } 
n145=    else { goto end } 
n146=    :kick
n147=    set %cap $nick
n148=    kick $chan $nick ¯\ %logo 4AutoKick 12caps1 %logo /¯
n149=    halt
n150=    :first
n151=    if %x > %text { goto second } 
n152=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto first }
n153=    else { goto end }
n154=    halt
n155=    :second
n156=    kick $chan $nick ¯\ %logo 4AutoKickBan 12caps1 %logo /¯
n157=    ban -u60 $chan $nick 3
n158=    unset %cap
n159=    halt
n160=    :end
n161=  }
n162=}
n163=1:on notice:*: {
n164=  if %noteprot == on {
n165=    inc % $+ $site $+ note
n166=    .timer 1 5 unset % $+ $site $+ note
n167=    if % [ $+ [ $site [ $+ [ note ] ] ] ] == %notemax {
n168=      .ignore -nu20 $wildsite
n169=      echo 12 -a notice flood from $nick ( $+ $address $+ )
n170=      unset % $+ $site $+ note
n171=    }
n172=  }
n173=  if (%noteflood == on) && ($me isop $chan) {
n174=    if (%kick.ops == no) && ($nick isop $chan) { halt }
n175=    inc % $+ $site $+ notice
n176=    .timer 1 %nmax.time unset % $+ $site $+ notice
n177=    if % [ $+ [ $site [ $+ [ notice ] ] ] ] == %nfloodmax {
n178=      kick $chan $nick ¯\ %logo 4AutoKick 2 $+ %nfloodmax $+  consecutive notices in  $+ %nmax.time $+  seconds %logo /¯
n179=      unset % $+ $site $+ notice
n180=      halt
n181=    }
n182=  }
n183=}
n184=@1!:on deop:#: {
n185=  if $level($address($opnick,3)) == 200 { mode $chan +o-o $opnick $nick | kick $chan $opnick ¯\ %logo AutoKICK: deop of a protected user /¯ }
n186=  else if (%massprot == ON) {
n187=    inc % $+ $site $+ deop
n188=    .timer 1 5 unset % $+ $site $+ deop
n189=    if % [ $+ [ $site [ $+ [ deop ] ] ] ] == %mass.deop {
n190=      kick $chan $nick ¯\ %logo 4AutoKick 2 $+ %mass.deop $+  consecutive deops in 5 seconds %logo /¯
n191=      unset % $+ $site $+ deop
n192=      halt
n193=      :end
n194=    }
n195=  }
n196=}
n197=@1!:on kick:#: {
n198=  if $level($address($knick,3)) == 200 { .invite $knick $chan | kick $chan $nick ¯\ %logo AutoKICK: kick of a protected user /¯ | halt }
n199=  else if (%massprot == ON) {
n200=    inc % $+ $site $+ kick
n201=    .timer 1 5 unset % $+ $site $+ kick
n202=    if % [ $+ [ $site [ $+ [ kick ] ] ] ] == %mass.kick {
n203=      kick $chan $nick ¯\ %logo 4AutoKick 2 $+ %mass.kick $+  consecutive kicks in 5 seconds %logo /¯
n204=      unset % $+ $site $+ kick
n205=      halt
n206=      :end
n207=    }
n208=  }
n209=}
n210=@1:on nick:{
n211=  if (%kick.ops == no) && ($nick isop $chan) { goto end }
n212=  if (%nickprot == ON) {
n213=    inc % $+ $site $+ nick
n214=    .timer 1 5 unset % $+ $site $+ nick
n215=    if % [ $+ [ $site [ $+ [ nick ] ] ] ] == %nickmax {
n216=      kick $chan $newnick ¯\ %logo 4AutoKick 2 $+ %nickmax $+  consecutive nicks in 5 seconds %logo /¯
n217=      unset % $+ $site $+ nick
n218=      halt
n219=      :end
n220=    }
n221=  }
n222=}
n223=#rdban disabled
n224=1:on join:#:.guser joined $nick 3 | .timer 1 60 /ruser $nick 3
n225=joined:on part:#:ban $chan $nick 3 | msg $chan (¯\ %logo 12AutoBan 14revolving door1 %logo /¯)
n226=joined:on text:*:#:.ruser $nick 3
n227=#rdban end
n228=#sendmail disabled
n229=1:on chatopen: {
n230=  msg =$me helo $ip
n231=  msg =$me mail from: %mail.from
n232=  msg =$me rcpt to: %mail.to
n233=  msg =$me data
n234=  msg =$me subject: %subject
n235=  msg =$me %mail.msg
n236=  close -c $me
n237=  unset %mail.from | unset %mail.to | unset %subject | unset %mail.msg | .disable #sendmail
n238=}
n239=#sendmail end
n240=#partyline disabled
n241=1:on text:*%pl.command:*:close -m $nick | dcc chat $nick 
n242=1:on chatopen:{
n243=  set %i 0 
n244=  :start  
n245=  inc %i 
n246=  if ($chat(%i) != $null) { msg =$chat(%i) *** $nick ( $+ $address $+ ) has joined the partyline | goto start }
n247=  msg =$nick welcome to the %title partyline!
n248=  msg =$nick you have the following commands
n249=  msg =$nick .list lists all users currently in the partyline
n250=  msg =$nick .me <message> does an action
n251=  msg =$nick .msg <nick> <message> sends a private message to the nick specified
n252=  msg =$nick .kick <nick> kicks specified nick from the party line
n253=  msg =$nick have fun!
n254=}
n255=1:on chat:*:{
n256=  if ($left($parm1,1) != !) { 
n257=    set %i 0 
n258=    :start  
n259=    inc %i
n260=    if ($chat(%i) != $null) { msg =$chat(%i) < $+ $nick $+ > $parms }
n261=  }
n262=  else {
n263=    if ($parm1 == .list) {
n264=      set %i 0 
n265=      :start  
n266=      inc %i 
n267=      if ($chat(%i) != $null) { msg =$nick $chat(%i) | goto start }
n268=    }
n269=    if ($parm1 == .me) {
n270=      set %i 0 
n271=      :start  
n272=      inc %i
n273=      if ($chat(%i) != $null) { msg =$chat(%i) 6 *  $nick $parms }
n274=    }
n275=    if ($parm1 == .kick) {
n276=      if ($parm1 == $me) { halt }
n277=      else {
n278=        close -c $parm2
n279=        notice $parm2 you have been kicked by $nick ( $+ $parm3* $+ )
n280=        set %i 0 
n281=        :start  
n282=        inc %i
n283=        if ($chat(%i) != $null) { msg =$chat(%i) *** $parm2 has been kicked by $nick }
n284=      }
n285=    }
n286=    if ($parm1 == .msg) { msg =$parm2 ***private msg from $nick $+ - $parm3* | halt }
n287=  }
n288=}
n289=1:on chatclose:{
n290=  set %i 0 
n291=  :start  
n292=  inc %i
n293=  if ($chat(%i) != $null) { msg =$chat(%i) *** $nick ( $+ $address $+ ) has left the partyline | goto start }
n294=}
n295=#partyline end
n296=#fserve disabled
n297=banned:on text:*%command*:#:.ignore -u5 $wildsite | .notice $nick sorry, but you are banned from my file server
n298=shit:on text:*%command*:#:.ignore -u5 $wildsite | .notice $nick sorry, but you are banned from my file server
n299=1:on text:*%command*:#:fserve $nick %dload.max %home.dir
n300=1:on servopen: {
n301=  msg =$nick welcome to the %title file server
n302=  msg =$nick for a list of commands, type help
n303=  if (% [ $+ [ $nick [ $+ [ .credits ] ] ] ] == $null) { set % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  %free.credits | msg =$nick You Have Been Given  $+ %free.credits $+  Free Credits As A First Time User }
n304=  msg =$nick  (¯\ %title file server /¯)
n305=  halt
n306=}
n307=1:on filercvd:%dload.type:%acc.credit = $lof($filename)  * %dload.max | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  %acc.credit | msg =$nick  $+ %acc.credit $+  credits have been added to your account. | msg =$nick thanks for uploading | msg =$nick (¯\ %title file server /¯) | halt
n308=1:on serv:*: {
n309=  if ($parm1 == stats) { msg =$nick you have  $+ % [ $+ [ $nick [ $+ [ .credits ] ] ] ]  $+  credits | msg =$nick  (¯\ %title file server /¯) | halt }
n310=  if ($parm1 == dir) { msg =$nick (¯\ %title file server /¯) }
n311=  if ($parm1 == cd) { msg =$nick (¯\ %title file server /¯) }
n312=  if ($parm1 == cd..) { msg =$nick (¯\ %title file server /¯) }
n313=  if ($parm1 == exit { .notice $nick thanks for stopping by my file server. | .notice $nick (¯\ %title file server /¯) }
n314=  if ($parm1 == help) { 
n315=    msg =$nick type dir to list all files in the current directory
n316=    msg =$nick type cd <directory> to change to the specified directory
n317=    msg =$nick type get <file Name> to get the specified file
n318=    msg =$nick type stats to see how many credits you have left
n319=    msg =$nick type slots to try your luck at free credits. 25000 credits per play
n320=    msg =$nick type race to try your luck at the horse race. 25000 credits per play.
n321=    msg =$nick type exit to exit my file server
n322=    halt
n323=  }
n324=  if ($parm1 == get) { 
n325=    %file.bytes = $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) 
n326=    if %file.size == $null { goto null }
n327=    if %file.size > % [ $+ [ $nick [ $+ [ .credits ] ] ] ]   {  
n328=      msg =$nick sorry, but you dont have enough credits to download $parm2 $+ . Please upload for access
n329=      halt 
n330=    } 
n331=    else { 
n332=      msg =$nick now sending  $+ $parm2 $+ 
n333=      dcc send $nick $cd $+ \ $+ $parm2 
n334=      goto end
n335=    } 
n336=    :null
n337=    msg =$nick $parms : no such file
n338=    msg =$nick type help for a list of commands
n339=    msg =$nick ( $+ $cd $+ )
n340=    halt
n341=    :end
n342=  }
n343=  if ($parm1 == slots) {
n344=    if % [ $+ [ $nick [ $+ [ .credits ] ] ] ] < 25000 msg =$nick sorry, but you need atleast 25000 credits to play slots. | msg =$nick Upload for more credits | msg =$nick  (¯\ %title file server /¯) | halt
n345=    else {
n346=      dec % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 25000
n347=      %s1 = $rand(bell,jack,apple,berry)
n348=      %s2 = $rand(bell,jack,apple,berry)
n349=      %s3 = $rand(bell,jack,apple,berry)
n350=      msg =$nick    _______________ 
n351=      msg =$nick   |-ßRas§-casino-|\
n352=      msg =$nick |¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|\
n353=      msg =$nick |=====||=====||=====| |
n354=      msg =$nick | $+ %s1 || $+ %s2 || $+ %s3 | |
n355=      msg =$nick |=====||=====||=====| |
n356=      msg =$nick |___________________| |
n357=      msg =$nick  \___________________\|
n358=      if (%si == apple) && (%s2 == apple) && (%s3 == apple) { msg =$nick you Got 3 apple!! | msg =$nick you have won 100000 credits! | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 100000 | msg =$nick you now have  $+ % [ $+ [ $nick [ $+ [ .credits ] ] ] ] $+  credits | unset %s1 | unset %s2 | unset %s3 }
n359=      if (%si == bell) && (%s2 == bell) && (%s3 == bell) { msg =$nick you Got 3 bells!! | msg =$nick you have won 200000 credits! | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 200000 | msg =$nick you now have  $+ % [ $+ [ $nick [ $+ [ .credits ] ] ] ] $+  credits | unset %s1 | unset %s2 | unset %s3 }
n360=      if (%si == berry) && (%s2 == berry) && (%s3 == berry) { msg =$nick you Got 3 berries!! | msg =$nick you have won 500000 credits! | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 500000 | msg =$nick you now have  $+ % [ $+ [ $nick [ $+ [ .credits ] ] ] ] $+  credits | unset %s1 | unset %s2 | unset %s3 }
n361=      if (%si == jack) && (%s2 == jack) && (%s3 == jack) { msg =$nick DiNG DiNG! | msg =$nick congratualtions! you got the jackpot!! | msg =$nick you have won 1000000 credits! | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 1000000 | msg =$nick you now have  $+ % [ $+ [ $nick [ $+ [ .credits ] ] ] ] $+  credits | unset %s1 | unset %s2 | unset %s3 }
n362=      else { msg =$nick sorry, but you Got %s1 %2 and %s3 $+ . you need a match of 3 to win. | msg =$nick try again! | unset %s1 | unset %s2 | unset %s3 }
n363=      halt
n364=    }
n365=  }
n366=  if ($parm1 == race) {
n367=    if (% [ $+ [ $nick [ $+ [ .credits ] ] ] ] < 25000) {  msg =$nick sorry, but you need atleast 2500 credits to play slots. | msg =$nick Upload for more credits | msg =$nick  (¯\ %title file server /¯) | halt }
n368=    else {
n369=      dec % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 25000
n370=      msg =$nick ____________________
n371=      msg =$nick |-ßRas§- horse race-|\
n372=      msg =$nick  \¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\|
n373=      msg =$nick    ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
n374=      msg =$nick todays horses are as follows:
n375=      msg =$nick horse #1: %horse1
n376=      msg =$nick horse #2: %horse2
n377=      msg =$nick horse #3: %horse3
n378=      msg =$nick please select your horse by typing horse 1, horse 2 or horse 3
n379=      halt
n380=    }
n381=  }
n382=  if ($parm1 == horse) {
n383=    %winner == $rand(1,3)
n384=    if (%winner == $parm2) { msg =$nick congratulations, you chose the winning horse: %horse $+ %winner $+ . | msg =$nick you have won 200 credits. | inc % [ $+ [ $nick [ $+ [ .credits ] ] ] ] 200000 | msg =$nick you now have  $+ % [ $+ [ $nick [ $+ [ .credits ] ] ] ] $+  credits. | unset %winner }
n385=    else { msg =$nick sorry, but %horse $+ %winner won, and you chose %horse $+ $parm2 $+ . try again! }
n386=    halt
n387=  }
n388=}
n389=#fserve end
n390=#fsgreet disabled
n391=1:ON JOIN:#:.notice $nick hello, to access my %title file server, please type %command $+ . uploads are welcome
n392=#fsgreet end
n393=#nethack disabled
n394=1:ON SERVEROP:#:mode $chan -o $opnick
n395=1:ON SERVERMODE:mode $chan:+nt-milkp
n396=#nethack end
n397=#linklooker start
n398=1:on quit:{
n399=  if (undernet isin $parms) || (dal.net isin $parms) && (collision !isin $parms) && (kill !isin $parms) { 
n400=    if (%split1 == $parm1) && (%split2 == $parm2) { halt }
n401=    else { %split1 = $parm1 | %split2 = $parm2 | echo 12 -a netsplit detected at  $+ %split1 $+  splitting from  $+ %split2 $+ - | halt }
n402=  }
n403=}
n404=#linklooker end

[Raw]
n0=#chanstat disabled
n1=352:*:if ($parm4 isin %address) { inc %clone } | else { %address = %address $parm4 } | if (* isin $parm7) { inc %ircop | set %pig $parm2 } | if (@ isin $parm7) { inc %op } | else { inc %nonop } | if (+ isin $parm7) { inc %voice } | else { inc %novoice } | if (G isin $parm7) { inc %gone } | if (H isin $parm7) { inc %here } | inc %total | halt
n2=315:* {
n3=  echo 12 -a chanstats For  $+ %chan $+  | echo 12 -a [ $+ %op $+ ][are oped][ $+ $cent(%op,%total) $+ ]-¥-[ $+ %nonop $+ ][aren't oped][ $+ $cent(%nonop,%total) $+ ] | echo 12 -a [ $+ %voice $+ ][are voiced][ $+ $cent(%voice,%total) $+ ]-¥-[ $+ %nonvoice $+ ][aren't voiced][ $+ $cent(%nonvoice,%total) $+ ]
n4=  echo 12 -a [ $+ %gone $+ ][are away][ $+ $cent(%here,%total) $+ ]-¥-[ $+ %here $+ ][aren't away][ $+ $cent(%here,%total) $+ ] | echo 12 -a [ $+ %clone $+ ][are clones][ $+ $cent(%clone,%total) $+ ]-¥-[ $+ %ircop $+ ][are ircops][ $+ $cent(%ircop,%total) $+ ] | echo 12 -a grand total  $+ %total $+  | echo 12 -a end of list!
n5=  unset %clone | unset %ircop | unset %op | unset %nonop | unset %voice | unset %novoice | unset %gone | unset %here | unset %address | unset %total | unset %chan | .disable #chanstat | halt
n6=}
n7=#chanstat end
n8=#ircop disabled
n9=352:*:echo 12 -a $parm6 * $+ $parm5 | inc %total | halt
n10=315:*:echo 12 -a grand total  $+ %total $+  | echo 12 -a end of list | unset %total | unset %window | .disable #ircop | halt
n11=#ircop end
n12=1:*:halt
n13=2:*:halt
n14=3:*:halt
n15=4:*:halt
n16=251:*:halt
n17=252:*:halt
n18=253:*:halt
n19=254:*:halt
n20=255:*:halt 
n21=301:*:echo 12 -a $parm2 is away: $parm3* | halt
n22=311:*:echo 12 -a whois for: $parm2 | echo 12 -a address: $parm3 $+ @ $+ $parm4 | echo 12 -a name: $parm6* | halt
n23=312:*:echo 12 -a server: $parm3* | halt
n24=313:*:echo 12 -a $parm2 is an irc operator | halt
n25=317:*:echo 12 -a idle time: $parm3 Second(s) | halt
n26=318:*:echo 12 -a end of whois | halt
n27=319:*:echo 12 -a channels: $parm3* | halt
n28=371:*:halt
n29=372:*:halt
n30=373:*:halt
n31=374:*:halt
n32=375:*:halt 
n33=376:*:halt
n34=401:*:echo 12 -a $parm2 no such nick/channel | halt
n35=471:*:echo 12 -a cannot join channel(it's full) | halt
n36=473:*:echo 12 -a cannot join channel(invite only) | halt
n37=474:*:echo 12 -a cannot join channel(you're banned) | halt
n38=475:*:echo 12 -a cannot join channel(requires the correct key) | halt