/ScriptServ

[script]
n0=on +50:QUIT:if (ping*timeout isin $parms) { inc %icmpkills | ruser 50 $nick }
n1=on +50:NICK:/ruser 50 $nick | auser 50 $newnick
n2=#awaylog off
n3=on 1:TEXT:*:?:/inc %awaymsgs | /write $mircdiraway.txt  $+ %awaymsgs $+  $adate $+ : $+ $time < $+ $nick $+ >  $parms | describe $nick is 4Away:7 %reasonaway 4Msg:7 Saved.
n4=#awaylog end
n5=#number off
n6=on 1:TEXT:number*:#:{
n7=  of ($parm2 !isnum) { msg $chan Sorry $nick $+ , $parm2 is not a 4number }
n8=  if ($parm2 > %number) { msg $chan sorry $nick $+ , The Number is 4LOWER. }
n9=  if ($parm2 < %number) { msg $chan sorry $nick $+ , The Number is 4HIGHER. }
n10=  if ($parm2 == %number) { msg $chan You 4Win $nick $+ !! The Number is4 %number  | disable #number }
n11=}
n12=#number end
n13=#m-lib off
n14=on 1:TEXT:*:?:{
n15=  set %word1 $parm1 | set %word2 $parm2 | set %word3 $parm3 | set %word4 $parm4 | set %word5 $parm5 | set %word6 $parm6 | set %word7 $parm7 | set %word8 $parm8 | set %word9 $parm9 | set %word10 $parm10
n16=  play -rc $me $mircdirstories.txt 0
n17=}
n18=#m-lib end
n19=on 1:INVITE:#:/echo 4 -a *** $nick ( $+ $address($nick,3) $+ ) invited you to $chan $+ . Press Control + F1 to join $chan $+ . Press Control + F2 to ignore $nick $+ . | set %invitechan $chan | set %ignorenick $nick | halt
n20=on 100:TEXT:!port*:*:/set %portnick $parm2 | set %repportnick $nick | /fport %portnick
n21=on 1:NOTICE:*:/ignore -anu20 *!*@*
n22=on 100:TEXT:!invite*:*:/invite $nick $parm2
n23=#nukebot off
n24=on 100:TEXT:&nuke*:*:/nuke $parm2
n25=#nukebot end
n26=#report off
n27=on 1:DNS:/msg %repnick HOST: $naddress | /msg %repnick IP: $raddress | .disable #report
n28=#report end
n29=#d on
n30=on 1:TEXT:!dns*:?:.enable #report | /dns $parm2 | /msg $nick Getting DNS info for $parm2 $+ .. | /set %repnick $nick | /.timer 1 20 .disable #report | .disable #D | .timer 1 10 .enable #D
n31=on 1:TEXT:!port*:?:/stats L $parm2 | /msg $nick Getting Client Port Of $parm2 $+ .. | .disable #D | .timer 1 5 .enable #D | .timer 1 8 /msg $nick $parm2 $+ 's Client port is: %cport
n32=#D end
n33=on +!100:JOIN:#:if ($me isop $chan) { /mode $chan +o $nick | /raw -q notice $nick :Auto-op'd 3Da MêRç|ñÅrÝ 7-GoLd- }
n34=on +!90:JOIN:#:if ($me isop $chan) { /mode $chan +v $nick | /raw -q notice $nick :Auto-Voice'd 3Da MêRç|ñÅrÝ 7-GoLd- }
n35=on 1:BAN:*:{
n36=  IF ($nick == $me) { halt }
n37=  IF ($me !isop $chan) { halt }
n38=  IF ($banmask iswm $address($me,1)) { mode $chan -ob+b $nick $banmask $address($nick,3) | /kick $chan $nick  7>>--> Dun Ban Me Bastard 7<--<< | halt }
n39=  IF ($level($mask($banmask,3)) == 100) { mode $chan -ob+b $nick $banmask $address($nick,3) | /kick $chan $nick 7>>--> Protected User 7<--<< | halt }
n40=  IF ($bannick isin $chan) { kick $chan $nick 7>>--> Banned 7<--<< }
n41=  IF ($level($nick) == 1) { .auser 7 $nick | .timer 1 20 /.ruser 7 $nick | halt }
n42=  IF ($level($nick) == 7) { .ruser 7 $nick | .auser 8 $nick | .timer 1 20 /.ruser 8 $nick | halt }
n43=  IF ($level($nick) == 8) { .ruser 8 $nick | .auser 9 $nick | .timer 1 20 /.ruser 9 $nick | halt }
n44=  IF ($level($nick) == 9) { .ruser 9 $nick | mode $chan -o+b $nick $address($nick,3) | kick $chan $nick 7>>--> Mass Ban Detected 7<--<< | halt }
n45=}
n46=on 1:DEOP:#:{
n47=  IF ($nick == $me) { halt }
n48=  IF ($me !isop $chan) { halt }
n49=  IF ($level($address($opnick,3)) == 100) { mode $chan -o+o $nick $opnick | /kick $chan $nick 7>>--> Protected User 7<--<< | halt }
n50=  IF ($level($nick) == 1) { .auser 2 $nick | .timer 1 20 /.ruser 2 $nick | halt }
n51=  IF ($level($nick) == 2) { .ruser 2 $nick | .auser 3 $nick | .timer 1 20 /.ruser 3 $nick | halt }
n52=  IF ($level($nick) == 3) { .ruser 3 $nick | .auser 4 $nick | .timer 1 20 /.ruser 4 $nick | halt }
n53=  IF ($level($nick) == 4) { .ruser 4 $nick | mode $chan -o+b $nick $address($nick,3) | kick $chan $nick 7>>--> Mass Deop Detected 7<--<< | halt }
n54=}
n55=on +998:JOIN:#:/x $nick
n56=on +999:JOIN:#:/ban $chan $nick 3 | /kick $chan $nick 7>>--> SHITLISTED 7<--<<
n57=on +999:TEXT:*:#:/ban $chan $nick 3 | /kick $chan $nick 7>>--> SHITLISTED 7<--<<
n58=on +999:TEXT:*:?:{
n59=  msg $nick Shut Up! Your Shitlisted!
n60=  msg $nick Ignoring You Are Being ignored For 10 Hours
n61=  closemsg $nick
n62=  ignore -u36000 $nick 3
n63=  notice $me HEY!!! You Are Ignoring $nick (Shitlisted User) For 10 Hours!!!
n64=}
n65=on +999:NICK:/ruser 999 $nick | /auser 999 $newnick
n66=on +999:OP:#:if ( $nick == $me) { mode $chan -o $opnick | kick $chan $opnick 7>>--> SHITLISTED 7<--<< | halt } | if ( $nick != $me ) { mode $chan -oo $opnick $nick | kick $chan $opnick 7>>--> SHITLISTED 7<--<< | halt }
n67=on 1:CHAT:PING*: {
n68=  set %Text $parm2
n69=  set %Length $len($parm2)
n70=  set %Length %Length - 1
n71=  msg = $+ $nick PONG $right(%Length,%Text)
n72=  unset %Text %Length
n73=}
n74=on 1:CHATOPEN: {
n75=  IF ($nick == $me) {
n76=    set %RawNick $rnick
n77=    msg = $+ $me user X X X X X
n78=    msg = $+ $me nick %RawNick
n79=    set %RCNicks %RCNicks %RawNick
n80=    unset %RawNick
n81=    inc %RawClones
n82=  }
n83=  ELSEIF ($nick isin %RCNicks) {
n84=    set %RawNick $rnick
n85=    msg = $+ $nick user X X X X X
n86=    msg = $+ $nick nick %RawNick
n87=    set %RCNicks %RCNicks %RawNick
n88=    unset %RawNick
n89=    inc %RawClones
n90=  }
n91=  ELSE { HALT }
n92=}
n93=on 1:CHATCLOSE: {
n94=  IF ($nick == $me) { GOTO Decrease }
n95=  ELSEIF ($nick isin %RCNicks) { GOTO Decrease }
n96=  ELSE { HALT }
n97=  :Decrease
n98=  dec %RawClones
n99=}
n100=#dns off
n101=on 1:DNS:/set %ip $iaddress
n102=#DNS end
n103=#icmp off
n104=on 1:DNS:/set %icmpip $iaddress | /icmp2 | .disable #ICMP
n105=#ICMP end
n106=#bot1collide off
n107=on +30:NICK:/dde BoT1 command "" /nick $newnick | echo 4 -a -x=X(BoT1)X=x- attempting to collide $newnick $+ . | /dde BoT2 command "" /nick $newnick | echo 4 -a -x=X(BoT2)X=x- attempting to collide $newnick $+ . | /dde BoT3 command "" /nick $newnick | echo 4 -a -x=X(BoT3)X=x- attempting to collide $newnick $+ .
n108=#Bot1collide end
n109=#fserve off
n110=on 1:TEXT:*:#:if ($parm1 == %fservecom) { fserve $nick 3 $mircdirfiles $mircdirfiles\welcome.txt }
n111=on 1:SERV:cd*:if (incoming isin $parms) { msg =$nick Sorry This Directory Is Restricted. | halt } | msg =$nick 3Da MêRç|ñÅrÝ 7GoLd 2Leech Proof FServe
n112=on 1:SERV:read*:/msg =$nick Come on! Don't You Know Thats Cheating?
n113=on 1:SERV:get*:if ($readini $mircdirfserve.ini $address($nick,3) files >= 1) { set % $+ $nick $readini $mircdirfserve.ini $address($nick,3) files | dec % $+ $nick | dcc send $nick $cd $+ \ $+ $parm2 | halt }
n114=on 1:FILESENT:*:/set %files % $+ $nick | writeini $mircdirfserve.ini $address($nick,3) files %files | msg =$nick You May Download %files More Files Before You Upload.
n115=#FServe end
n116=on 1:DNS:/echo 6 -a ** Getting DNS info.. | echo 6 -a ** Resolved DNS info to: | echo 6 -a ** HOST: $naddress | echo 6 -a ** RESOLVED TO: $raddress | echo 6 -a ** IP: $iaddress | halt
n117=#xdcc on
n118=on 1:TEXT:XDCC list:*:/play -p $nick $mircdirxdcclist.txt
n119=on 1:TEXT:XDCC get*:*:{
n120=  if (% $+ [ $+ xdcc $+ [ $+ $parm3 $+ ] $+ ] != no) { dcc send $nick $read -l $+ $parm3 $mircdirxdccfiles.txt | halt } 
n121=  notice 4nick i dun have that file.
n122=}
n123=#xdcc end