/ScriptServ

[Events]
n0=1:ON TEXT:*:?:%relm = [ $+ $nick $+ ( $+ $address $+ )]: $parms
n1=1:ON JOIN:#:if ($nick != $me) { halt } | %ircop = 0 | %joined = $chan | .enable #mcstats | set %dn [ $+ [ $chan ] ] 0 | who $chan
n2=;
n3=#friend start
n4=1!:ON KICK:#:if ($away) { write C:\maxout\danger.log $nick kicked $knick for $parms in $chan }
n5=99!:ON KICK:#:kick $chan $nick Don't Kick MY Friends ASSHOLE! | invite $knick $chan
n6=99!:ON JOIN:#:%mad = $maddress($address($nick,0)) | %ftest = %flag [ $+ [ $maddress(%mad) ] ] | if (a !isin [ %ftest ]) { goto info } | mode $chan +o $nick | :info | if $info($nick,$chan) != $null { msg $chan - $+ $nick $+ - $info($nick,$chan) }
n7=@1!:ON BAN:#: {
n8=  if ($banmask iswm $address($me,0) && ($me isop $chan)) { goto kick }
n9=  if ($level($maddress($banmask)) == 99) { goto fkick }
n10=  else { goto filkick | mecho going to filkick }
n11=  :kick
n12=  mode $chan +b-ob $address($nick,2) $nick $banmask | kick $chan $nick bAnnEd | halt
n13=  :fkick
n14=  mode $chan +b-ob $address($nick,2) $nick $banmask | kick $chan $nick DON'T Ban My Friends ASSHole!
n15=  :filkick
n16=  %fil = 0 | %aal = $ial($banmask,0)
n17=  :kickem
n18=  inc %fil
n19=  if (%fil > %aal) { halt }
n20=  kick $chan $ial($banmask,%fil).nick banned ( $+ %fil $+ / $+ %aal $+ ) kicked 
n21=  goto kickem
n22=}
n23=#friend end
n24=;
n25=#away disabled
n26=1:ON TEXT:*:?:inc %aia | write c:\maxout\files\away.txt 5 $+ %aia   $+ $rtime : 5,4 $+ $nick $+ !( $+ $address $+ ) - $parms
n27=#away end
n28=;
n29=#tmsg disabled
n30=1:ON TEXT:*:?:titlebar = $+ $rtime $+ = ( $+ $nick $+ ! $+ $address $+ ) $parms
n31=#tmsg end
n32=;
n33=#protection start
n34=;+1!:ON DEOP:#:inc %dn [ $+ [ $chan ] ] | set %deopnum [ $+ [ $nick ] ] %dn [ $+ [ $chan ] ] | if (%deopnum [ $+ [ $nick ] ] >= %dmm) { kick $chan $nick 3 deops in 5 seconds | unset %deopnum [ $+ [ $nick ] ] | set %dn [ $+ [ $chan ] ] 0 | halt } | .timer 1 %dms unset %deopnum [ $+ [ $nick ] ]
n35=+1!:ON TEXT:*:?:if (%pm [ $+ [ $nick ] ] != $null) { inc %pm [ $+ [ $nick ] ] } | else { %pm [ $+ [ $nick ] ] = 1 } | if (%pm [ $+ [ $nick ] ] > %pmm) { privmsg $nick Ignoring *!* $+ $address For 1 Minute - Msg Flood Detected | .unset %pm [ $+ [ $nick ] ] |  .ignore -pu 60 *!* $+ $address | set %pms [ $+ [ $nick ] ] 0 | mecho Msg Flood Detected From $nick ... Ignoring.. | halt } | .timer 1 %pms unset %pm [ $+ [ $nick ] ]
n36=+1!:ON NICK:if ($me isin $active) { msg $active $address }
n37=#protection end
n38=;
n39=1:ON SNOTICE:*Client connecting*:!
n40=1:ON SNOTICE:*Client exiting*:!
n41=1:ON SNOTICE:*Unauthorized connection*:!
n42=1:ON SNOTICE:*Connection to*activated*:!
n43=1:ON SNOTICE:*No res*from**:!
n44=1:ON SNOTICE:*is now an IRC operator*:!
n45=1:ON SNOTICE:*kill*:!
n46=1:ON SNOTICE:*Link with*established*:echo -a 4[NETJOIN]- $server Successfully Linked To $parm6 |  halt
n47=1:ON SNOTICE:*lost connect to*:echo -a 4[NETSPLIT]- $server Split From $parm5 | halt
n48=1:ON SNOTICE:*:%resm = - $+ $server $+ - $parms | halt
n49=;
n50=#nhp disabled
n51=1:ON SERVEROP:#:mode $chan -o $opnick
n52=#nhp end
n53=;
n54=#qmail start
n55=90:ON CHAT:*+OK*starting*:msg = $+ $me USER %user | .timer 1 2 msg = $+ $me PASS %passwd
n56=90:ON CHAT:+OK*has*message*: {
n57=  if ($parm4 == 0) { echo Mail You Have No Email | .disable #qmail | close -c $me | halt }
n58=  %nmail = $parm4 | %inc = 1
n59=  msg = $+ $me retr %inc
n60=  %fmail = c:\maxout\files\mail.mail
n61=  halt
n62=}
n63=90:ON CHAT:*Return-Path*:write c:\maxout\files\mail.mail Return Address: $parm2
n64=90:ON CHAT:*Received*:write c:\maxout\files\mail.mail Recieved From: $parm3
n65=90:ON CHAT:*To*:write c:\maxout\files\mail.mail Mailed To: $parm2
n66=90:ON CHAT:*Date*:write c:\maxout\files\mail.mail Dated On: $parm2*
n67=90:ON CHAT:*From*:write c:\maxout\files\mail.mail From: $parm2* | .auser 1000 $me | write c:\maxout\files\mail.mail BODY:
n68=1000:ON CHAT:*:if $parm1 == $chr(46) && $parm2 == $null { inc %inc | if (%inc > %nmail) { .ruser $me | .guser -r $me | close -c $me | %inc = 0 | :top | inc %inc | if %inc > $lines(c:\maxout\files\mail.mail ) { .disable #qmail | halt } | echo Mail $read -l $+ %inc %fmail | goto top } | msg = $+ $me retr %inc | halt } | write %fmail $parms
n69=#qmail end
n70=;
n71=#mail disabled
n72=1:ON DNS:set %server_ip $iaddress | if (%server_ip == $null) { mecho Incorrect POPD Server | halt } | raw -q PRIVMSG $me : $+ $chr(1) $+ DCC CHAT chat $longip(%server_ip) 110 $+ $chr(1) | .timer 1 6 msg = $+ $me USER %user | .timer 1 7 msg = $+ $me PASS %passwd | .disable #mail | halt
n73=#mail end
n74=;
n75=#revolve disabled
n76=1:ON JOIN:#:%revolve = $paddy($nick) | auser 60 %revolve | .timer60 ruser %revolve
n77=60:ON PART:#:timer60 off | mode $chan +b %revolve
n78=#revolve end
n79=;
n80=#shitlist start
n81=+2:ON JOIN:#:mode $chan +b-o $maddress($address($nick,0)) $nick | kick $chan $nick % [ $+ [ $maddress($address($nick,0)) ] [ $+ shit ] ] $adate - $rtime | if ($away) { write c:\maxout\files\away.txt BanKicked $maddress($address($nick,0)) From $chan - % [ $+ [ $maddress($address($nick,0)) [ $+ shit ] ] ] }
n82=+2:ON TEXT:*:#:mode $chan +b-o $maddress($address($nick,0)) $nick | kick $chan $nick % [ $+ [ $maddress($address($nick,0)) ] [ $+ shit ] ] $adate - $rtime | if ($away) { write c:\maxout\files\away.txt BanKicked $maddress($address($nick,0)) From $chan - % [ $+ [ $maddress($address($nick,0)) [ $+ shit ] ] ] }
n83=+2:ON ACTION:*:#:mode $chan +b-o $maddress($address($nick,0)) $nick | kick $chan $nick % [ $+ [ $maddress($address($nick,0)) ] [ $+ shit ] ] $adate - $rtime | if ($away) { write c:\maxout\files\away.txt BanKicked $maddress($address($nick,0)) From $chan - % [ $+ [ $maddress($address($nick,0)) [ $+ shit ] ] ] }
n84=+2:ON TOPIC:#:mode $chan +b-o $maddress($address($nick,0)) $nick | kick $chan $nick % [ $+ shit [ $+ [ $maddress($address($nick,0)) ] ] ] $adate - $rtime | if ($away) { write c:\maxout\files\away.txt BanKicked $maddress($address($nick,0)) From $chan - % [ $+ [ $maddress($address($nick,0)) [ $+ shit ] ] ] }
n85=1:ON UNBAN:#:if ($level($maddress($banmask)) != 2) { halt } | mode $chan +b $maddress($banmask)
n86=#shitlist end
n87=;
n88=#dnsrep start
n89=1:ON DNS:if ($iaddress == $null) { secho Could Not Resolve $naddress | halt } | secho Resolved.... $naddress To  $+ $iaddress | halt
n90=#dnsrep end
n91=;
n92=#onrep start
n93=+!1:ON CTCPREPLY:*:secho ^*^ CTCP  $+ $parm1 $+  Reply From  $+ $nick $+ : $parm2* | halt
n94=1:ON CTCPREPLY:*PING*:%ctime = $ctime | %rep = $parms | %ping_rep = %rep - %ctime | secho ^*^ CTCP PING Reply From  $+ $nick $+ : %ping_rep
n95=#onrep end
n96=;
n97=#fileshit start
n98=1:ON FILESENT:*:mecho FileSent:  $+ $filename $+  To $nick $+ ( $+ $address $+ ) | halt
n99=1:ON FILERCVD:*:mecho Download Complete Of  $+ $filename $+  From  $+ $nick | halt
n100=#fileshit end