/ScriptServ

[Events]
n0=1:ON TEXT:*!master*:#:/master
n1=1:ON JOIN:#:/onjoin
n2=#Autogreet start
n3=1:ON TEXT:!*:#:/if (%autogreet == ON) { fstu }
n4=#Autogreet end
n5=1:ON NICK: {
n6=  seennick
n7=  if (($me isop $chan) && (%protnick == ON)) { nickprot } | %nickl = $level($address($nick,3))
n8=  elseif (%nickl == 600) { .auser 600 $newnick | .guser 600 $newnick 3 | .ruser $nick }
n9=  elseif (%nickl == 500) { .auser 500 $newnick | .guser 500 $newnick 3 | .ruser $nick }
n10=  elseif (%nickl == 400) { .auser 400 $newnick | .guser 400 $newnick 3 | .ruser $nick }
n11=  elseif (%nickl == 300) { .auser 300 $newnick | .guser 300 $newnick 3 | .ruser $nick }
n12=  elseif (%nickl == 200) { .auser 200 $newnick | .guser 200 $newnick 3 | .ruser $nick }
n13=  else { halt }
n14=}
n15=1:ON SERVEROP:#:/serverop
n16=1:ON KICK:#:/seenkick
n17=1:ON DEOP:# {
n18=  if ($nick == $opnick) { halt }
n19=  if (($me isop $chan) && ($nick != $me)) {
n20=    massdeopprot | %deopl = $level($address($opnick,3)) | %deoper = $level($address($nick,3))
n21=    if (%deopl !isnum 300-600) { halt }
n22=    if (%deoper >= %deopl) { halt }
n23=    elseif (%deopl isnum 500-600) { mode $chan -o+o $nick $opnick | no Don't deop my Master }
n24=    elseif (%deopl isnum 300-400) { mode $chan -o+o $nick $opnick | no ((-Protected User-)) }
n25=  }
n26=}
n27=1:ON PART:#:/dp | seenpart
n28=+600:ON PART:#:/if ($nick == $me) { recho 5 I have parted $chan! | begpart } | seenpart
n29=1:ON QUIT:/seenquit
n30=200:ON QUIT:/.ruser $nick | seenquit
n31=<+400:ON KICK:#:/kick400 | seenkick
n32=500:ON KICK:#:/kick500 | seenkick
n33=@500:ON BAN:#:/ban500
n34=1:ON TEXT:*:?:/tex | cm
n35=@200:ON TEXT:up:#:/up
n36=200:ON TEXT:!menu:#:/menu2
n37=500:ON TEXT:!menu:#:/menu5
n38=@200:ON TEXT:down:#:/if ($nick isop $chan) { raw mode $chan -o $nick | i3 }
n39=@500:ON TEXT:up:#:/raw mode $chan +o $nick
n40=@500:ON TEXT:!up*:#:/raw mode $chan +o $parm2
n41=@500:ON TEXT:!down*:#:/mode $chan -o $parm2
n42=500:ON TEXT:!shit*:#:/shit
n43=500:ON TEXT:!part:#:/part $chan
n44=500:ON TEXT:!version:#:/notice $chan 4,1 $read $mIRCdirrandver.txt %version | i3
n45=500:ON TEXT:*!vote*:#:/gvote
n46=+600:ON TEXT:*!die*:#:/die
n47==999:ON JOIN:#:/ban $chan $nick 2 | kick $chan $nick (-ÕzZ ShitList-) | seenjoin
n48==999:ON TEXT:*:#:/ban $chan $nick 2 | kick $chan $nick
n49==999:ON ACTION:*:#:/ban $chan $nick 2 | kick $chan $nick
n50==999:ON TEXT:*:*:/shitboss
n51=#ping start
n52=1:ON TEXT:ping*:#:/askping
n53=1:ON TEXT:*ping*me*:#:/askping
n54=1:ON TEXT:*me*ping:#:/askping
n55=#ping end
n56=@1:ON TEXT:*:#:/textflood
n57=@1:ON ACTION:*:#:/actionflood
n58=1:ON DEOP:#:/massdeopprot | rdeop
n59=1:ON NOTICE:*:*:/noticeprot | halt
n60=1:ON CTCPREPLY:PING*:/ping
n61=1:ON SNOTICE:*:/halt
n62=1:ON ERROR:*:/error
n63=1:ON CHAT:
ACTION *:/relay 6* $nick $parm2* | relaybots 6* $nick $parm2*
n64=1:ON CHAT:.*: {
n65=  %l = $read -s $+ $nick userchats.txt
n66=  if ($level(%l) == 600) { goto 600 } | elseif ($level(%l) == 500) { goto 500 } | elseif ($level(%l) == 400) { goto 400 } | elseif ($level(%l) == 300) { goto 300 } | elseif ($level(%l) == 200) { goto 200 } | else { goto none }
n67=  :600
n68=  if ($parm1 == .fsreset) { unset %ozzpop | unset %insult | unset %8ball | unset %lame | unset %dope | unset %countvp | unset %countwv | unset %countseen | do Fun Stuff Counter Reset!! | halt }
n69=  elseif ($parm1 == .menu) { goto 600dcc }
n70=  elseif ($parm1 == .shutdown) { relay PartyLine is in the process of shutting down!! | close -c | unset %rwnick | unset %wait | .write -c userchats.txt | .write -c hostchats.txt | unset %linkbots | halt }
n71=  elseif ($parm1 == .hours) {
n72=    if ($parm2 != $null) {
n73=      %hourschannel = $parm2 | if ($parm2 ischan) { play -c %hourschannel $mIRCdirTime.txt 50 | do Now playing hours to $parm2 }
n74=    }
n75=    else { do Correct Syntax: .hours <channel> }
n76=    halt
n77=  }
n78=  elseif ($parm1 == .rshit) { .rlevel =999 | do I am removing all users that are Shitlisted! | halt }
n79=  elseif ($parm1 == .link) {
n80=    if ($parm2 == $null) { do Correct Syntax: .link <bots nick> | halt } | %wait = %wait $parm2 | do I am trying to link with $parm2 | ctcp $parm2 link | halt
n81=  }
n82=  elseif ($parm1 == .unlink) {
n83=    if ($parm2 == $null) { do Correct Syntax: .unlink <bots nick> | halt }
n84=    if ($parm2 isin %linkbots) { %linkbots = $remove(%linkbots,$parm2) | close -c $parm2 | do 6*** I have unlinked from $parm2 $+  | relay *** $parm2 and $me have unlinked | halt }
n85=    else { do I am not linked to $parm2 } | halt
n86=  }
n87=  elseif ($parm1 == .motd) {
n88=    if ($parm2 == $null) { do Correct Syntax: .motd <message> }
n89=    else { .write -dsmotd messages.txt | .write messages.txt motd $parm2* | do New MOTD set } | halt
n90=  }
n91=  elseif ($parm1 == .agmsg) {
n92=    if ($parm2 == $null) { do Correct Syntax: .agmsg <message> }
n93=    else { .write -dsautogreet messages.txt | .write messages.txt autogreet $parm2* | do New AutoGreet Message set } | halt
n94=  }
n95=  elseif ($parm1 == .add500) {
n96=    if ($parm2 == $null) { do Correct Syntax: .add500 <nick> | halt } | .auser 500 $parm2 | .guser 500 $parm2 3 | do $parm2 has been added to level 500 | notice $parm2 You Have Been Added To Level 500 All commands are done through DCC so type /DCC CHAT $me | halt
n97=  }
n98=  elseif ($parm1 == .ruser) {
n99=    if ($parm2 == $null) { do Correct Syntax: .ruser <nick> | halt } | .ruser $parm2 | .ruser $parm2 3 | do $parm2 has been removed | halt
n100=  }
n101=  elseif ($parm1 == .nick) {
n102=    if ($parm2 == $null) { do Correct Syntax: .nick <nick> | halt } | nick $parm2 | halt
n103=  }
n104=  elseif ($parm1 == .idtime) {
n105=    if ($parm2 == $null) { do Correct Syntax: .idtime <seconds> | halt } | %itim = $parm2 | do Time between each anti-idle is now %itim seconds. This will take effect the next time I connect. | halt
n106=  }
n107=  elseif ($parm1 == .noop) { %noop = ON | do NOOP = ON | halt }
n108=  elseif ($parm1 == .rnoop) { %noop = OFF | do NOOP = OFF | halt }
n109=  elseif ($parm1 == .ignore) {
n110=    if ($parm2 == $null) { do Correct Syntax: .ignore <mask> | halt } | .ignore -a $parm2 | halt
n111=  }
n112=  elseif ($parm1 == .autogreet) { %AutoGreet = ON | .enable #autogreet | do AutoGreet = ON | halt }
n113=  elseif ($parm1 == .dautogreet) { %AutoGreet = OFF | .disable #autogreet | do AutoGreet = OFF | halt }
n114=  elseif ($parm1 == .resetc) { .remini join.ini channels | .remini join.ini date }
n115=  elseif ($parm1 == .resett) { %total = 0 | %tdate = $adate | do I have reset total join counter | halt }
n116=  elseif ($parm1 == .pollreset) { %best = 0 | %sucks = 0 | %ok = 0 | unset %voted* | unset %nickv* | set %totalvoted 0 | .remove voted.ini | do Voting Poll Reset | halt }
n117=  elseif ($parm1 == .login) { %login = ON | do Login = ON | halt }
n118=  elseif ($parm1 == .rlogin) { %login = OFF | do Login = OFF | halt }
n119=  elseif ($parm1 == .onping) { .enable #ping | do Ping Reply = ON | halt }
n120=  elseif ($parm1 == .offping) { .disable #ping | do Ping Reply = OFF | halt }
n121=  elseif ($parm1 == .vptopic) {
n122=    if ($parm2 == $null) { do Correct Syntax: .vptopic <topic> | halt } | %vptopic = $parm2* | do Voting Poll topic set to: %vptopic | halt
n123=  }
n124=  elseif ($parm1 == .protautogreet) { prota }
n125=  elseif ($parm1 == .begon) { do I will now ask for ops if I am not opped!! | %opsbeg = ON | halt }
n126=  elseif ($parm1 == .begoff) { do I will not ask for ops if I am not opped!! | .timer105 off | .timer106 off | .timer107 off | %opsbeg = OFF | halt }
n127=  elseif ($parm1 == .funig) { funigp }
n128=  elseif ($parm1 == .toggles) { toggles | halt }
n129=  elseif ($parm1 == .textpro) { %prottext = ON | do Text Flood Protection = %prottext | halt }
n130=  elseif ($parm1 == .rtextpro) { %prottext = OFF | do Text Flood Protection = %prottext | halt }
n131=  elseif ($parm1 == .actionpro) { %protaction = ON | do Action Flood Protection = %protaction | halt }
n132=  elseif ($parm1 == .ractionpro) { do Action Flood Protection = %protaction | %protaction = OFF | halt }
n133=  elseif ($parm1 == .mdpro) { do Mass Deop Protection = %protmd | %protmd = ON | halt }
n134=  elseif ($parm1 == .rmdpro) { do Mass Deop Protection = %protmd | %protmd = OFF | halt }
n135=  elseif ($parm1 == .cjpro) { do Clone/Join Flood Protection = %protcj | %protcj = ON | halt }
n136=  elseif ($parm1 == .rcjpro) { do Clone/Join Flood Protection = %protcj | %protcj = OFF | halt }
n137=  elseif ($parm1 == .agpro) { do AutoGreet Flood Protection = ON | %protag = ON | halt }
n138=  elseif ($parm1 == .ragpro) { do AutoGreet Flood Protection = OFF | %protag = OFF | halt }
n139=  elseif ($parm1 == .configtext) { %tnum = $parm2 | %ttime = $parm3 | do Text Flood Protection set for  $+ %tnum $+  public text lines in the period of  $+ %ttime $+  seconds. | halt }
n140=  elseif ($parm1 == .configaction) { %anum = $parm2 | %atime = $parm3 | do Action Flood Protection set for  $+ %anum $+  public action lines in the period of  $+ %atime $+  seconds. | halt }
n141=  elseif ($parm1 == .configmd) { %mnum = $parm2 | %mtime = $parm3 | do Mass Deop Protection set for  $+ %mnum $+  deops in the period of  $+ %mtime $+  seconds. | halt }
n142=  elseif ($parm1 == .configcj) { clp | dec %cljnum | halt }
n143=  elseif ($parm1 == .confignick) { %nknum = $parm2 | %nktime = $parm3 | do Text Flood Protection set for  $+ %nknum $+  nick changes in the period of  $+ %nktime $+  seconds. | halt }
n144=  elseif ($parm1 == .NCKPRO) { %protnick = ON | .enable #NICK | do [Nick Flood Prot]  = ON | halt }
n145=  elseif ($parm1 == .rNCKPRO) { %protnick = OFF | .disable #NICK | do [Nick Flood Prot]  = OFF | halt }
n146=  elseif ($parm1 == .hackpro) { %protsop = ON | .enable #groupHACK | do [ServerOp Protection]  = ON | halt }
n147=  elseif ($parm1 == .rhackpro) { %protsop = OFF | .disable #groupHACK | do [ServerOp Protection]  = OFF | halt }
n148=  elseif ($parm1 == .dcctpro) { do DCC Text Flood Protection = ON | %protdcc = ON | halt }
n149=  elseif ($parm1 == .rdcctpro) { do DCC Text Flood Protection = OFF | %protdcc = OFF | halt }
n150=  elseif ($parm1 == .configdcct) { %dnum = $parm2 | %dtime = $parm3 | do DCC Text Flood Protection set for  $+ %dnum $+  public text lines in the period of  $+ %dtime $+  seconds. | halt }
n151=  elseif ($parm1 == .floodprot) { floodprot | halt }
n152=  elseif ($parm1 == .seen) { %sseen = ON | do Seen = ON | halt }
n153=  elseif ($parm1 == .rseen) { %sseen = OFF | do Seen = OFF | halt }
n154=  elseif ($parm1 == .nonvoters) {
n155=    if ($parm2 == $null) { do Correct Syntax: .nonvoters <channel> | halt }
n156=    if ($parm2 !ischan) { do I have to be in $parm2 to find nonvoters | halt } | do Seaching for people, in $parm2 $+ , who have not voted | uset | unset %per* | .enable #snovoters | who $parm2 | halt
n157=  }
n158=  elseif ($parm1 == .choices) {
n159=    if ($parm2 == $null) { do Correct Syntax: .choices <choice> <choice> <choice> | halt } | %choice1 = $parm2 | %choice2 = $parm3 | %choice3 = $parm4 | do Voting Poll Categories are now %choice1 $+ , %choice2 $+ , and %choice3 | halt
n160=  }
n161=  elseif ($parm1 == .setpassword) { %password = $parm2 | do New Password set to4 %password  | halt }
n162=  elseif ($parm1 == .rinfodcc) { %rinfo = dcc | do Report Info is set for through DCC | halt }
n163=  elseif ($parm1 == .rinfodde) { %rinfo = dde | do Report info is set for through DDE | halt }
n164=  elseif ($parm1 == .disconnect) { quit | halt }
n165=  elseif ($parm1 == .server) {
n166=    if ($parm2 == $null) { do Correct Syntax: .server <server> <port> | halt } | server $parm2 $parm3 | halt
n167=  }
n168=  elseif ($parm1 == .die) { do C-YA!!!!!!! | relay Partyline is Shutting Down! | close -c | .rlevel -r 600 | unset %rwnick | unset %linkbots | unset %wait | .write -c userchats.txt | .write -c hostchats.txt | quit | exit | halt }
n169=  elseif ($parm1 == .su#game) { %max# = $parm2 | %guess = $parm3 | do Max Number: %max# Guesses: %guess | halt }
n170=  elseif ($parm1 == .reset#game) { %number = $rand(1,%max#) | unset part* | unset %trys* | %#game = OFF | ng }
n171=  elseif ($parm1 == .reset#sb) { unset %win* | do ScoreBoard Reset | halt }
n172=  :500
n173=  if ($parm1 == .botstats) { botstats | halt }
n174=  elseif ($parm1 == .menu) { goto 500dcc }
n175=  elseif ($parm1 == .msg) {
n176=    if ($parm3 == $null) { do Correct Syntax: .msg <nick> <message> | halt } | msg $parm2 $parm3* | dcccom | halt
n177=  }
n178=  elseif ($parm1 == .kickban) {
n179=    if (($parm3 != $null) && ($parm2 != $null) {
n180=      if ($parm2 !ischan) { do I am not on $parm2 | halt }
n181=      if ($me isop $parm2) { ban $parm2 $parm3 2 | kick $parm2 $parm3* (From $nick | dcccom }
n182=      else { do I do not have ops in $parm2}
n183=    }
n184=    else { do Correct Syntax: .kickban <channel> <nick> | halt } | halt
n185=  }
n186=  elseif ($parm1 == .banpl) { %b = $read -s $+ $parm2 userchats.txt | if (%b == $null) { do $parm2 is not on the Partyline. | halt } | .auser 6 $parm2 | .auser 6 $parm2 2 | close -c $parm2 | notice $parm2 YOU ARE BANNED FROM THE PARTYLINE! | relay 6*** $parm2 has Left ÕzZßÖT's PartyLine | do 6*** $parm2 was kicked and banned from ÕzZßÖT's PartyLine | relaybots 6*** $parm2 has Left ÕzZßÖT's PartyLine | unpl $parm2 | goto f }
n187=  elseif ($parm1 == .boot) { %b = $read -s $+ $parm2 userchats.txt | if (%b == $null) { do $parm2 is not on the Partyline. | halt } | close -c $parm2 | notice $parm2 you were kicked off of the partyline by $nick ( $+ $parm3* $+ ) | relay 6*** $parm2 has Left ÕzZßÖT's PartyLine | do 6*** $parm2 was kicked off ÕzZßÖT's PartyLine | relaybots 6*** $parm2 has Left ÕzZßÖT's PartyLine | unpl $parm2 | goto f }
n188=  elseif ($parm1 == .atopic) {
n189=    if ($parm2 == $null) { do Correct Syntax: .topic <channel> | halt }
n190=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n191=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | topic $parm2 2Vote on the Topic 8,1 %vptopic  2by typing 4 $+ %choice1 $+ , %choice2 $+ , or %choice3 | dcccom | halt
n192=  }
n193=  elseif ($parm1 == .stopic) {
n194=    if ($parm2 == $null) { do Correct Syntax: .stopic <channel> | halt }
n195=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n196=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | unset %per* | pervp | topic $parm2 8,1 %vptopic  $+ : 4Voted %choice1 $+ :5 %best 3( $+ %perbest $+ ) 4 Voted %choice2 $+ :5 %ok 3( $+ %perok $+ ) 4 Voted %choice3 $+ :5 %sucks 3( $+ %persucks $+ ) | dcccom | halt
n197=  }
n198=  elseif ($parm1 == .add200) {
n199=    if ($parm2 == $null) { do Correct Syntax: .add200 <nick> | halt } | .auser 200 $parm2 | .guser 200 $parm2 3 | recho 5 $parm2 has been added to level 200 | notice $parm2 You Have Been Added To Level 200  All commands are done through DCC so type /DCC CHAT $me | halt
n200=  }
n201=  elseif ($parm1 == .add300) {
n202=    if ($parm2 == $null) { do Correct Syntax: .add300 <nick> | halt } | .auser 300 $parm2 | .guser 300 $parm2 3 | recho 5 $parm2 has been added to level 300 | notice $parm2 You Have Been Added To Level 300  All commands are done through DCC so type /DCC CHAT $me | halt  
n203=  }
n204=  elseif ($parm1 == .add400) {
n205=    if ($parm2 == $null) { do Correct Syntax: .add400 <nick> | halt } | .auser 400 $parm2 | .guser 400 $parm2 3 | recho 5 $parm2 has been added to level 400 | notice $parm2 You Have Been Added To Level 400  All commands are done through DCC so type /DCC CHAT $me | halt
n206=  }
n207=  elseif ($parm1 == .ruser) {
n208=    if ($parm2 == $null) { do Correct Syntax: .ruser <nick> | halt }
n209=    if (($nick == $me) || ($dde mirc nickname "") { do Cannot remove master or me. }
n210=    else { .ruser $parm2 | .ruser $parm2 3 | do $parm2 has been removed } | halt
n211=  }
n212=  elseif ($parm1 == .massop) {
n213=    if (($parm2 == $null) || ($parm3 == $null)) { do Correct Syntax: .massop <channel> <nick> <nick> <nick> <nick> <nick> <nick> | halt }
n214=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n215=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | raw mode $parm2 +oooooo $parm3 $parm4 $parm5 $parm6 $parm7 $parm8 | dcccom | halt
n216=  }
n217=  elseif ($parm1 == .massdeop) {
n218=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .massdeop <channel> <nick> <nick> <nick> <nick> <nick> <nick> | halt }
n219=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n220=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | raw mode $parm2 -oooooo $parm3 $parm4 $parm5 $parm6 | dcccom | halt
n221=  }
n222=  elseif ($parm1 == .join) {
n223=    if ($parm2 ischan) { do I am already on $parm2 }
n224=    else { join $parm2 | dcccom } | halt
n225=  }
n226=  elseif ($parm1 == .part) {
n227=    if ($parm2 ischan) { part $parm2 | dcccom }
n228=    else { do I am not on $parm2 } | halt
n229=  }
n230=  elseif ($parm1 == .shit) {
n231=    if ($parm2 == $null) { do Correct Syntax: .shit <nick> <channel> | halt } | .auser =999 $parm2 | .guser =999 $parm2 2 | .guser =999 $parm2 3 | do Shitlist Updated!!!
n232=    if ($parm2 ison $parm3) { ban $parm3 $parm2 2 | .timer 1 3 kick $parm3 $parm2 ((-ÕzZ SHiT KiCk- from $nick $+ )) | dcccom } | halt
n233=  }
n234=  elseif ($parm1 == .clearmode) {
n235=    if ($parm2 == $null ) { do Correct Syntax: .clearmode <channel> | halt }
n236=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n237=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | mode $parm2 -impslk+tn | dcccom | halt
n238=  }
n239=  elseif ($parm1 == .lagstats) { lagstats | halt }
n240=  elseif ($parm1 == .funstuff) {
n241=    if ($parm2 == $null ) { do Correct Syntax: .funstuff <channel> | halt }
n242=    if ($parm2 !ischan) { do I am not on $parm2 | halt } | %fschan = $parm2 | funstuff | dcccom | halt
n243=  }
n244=  elseif ($parm1 == .fscounter) { fst | halt }
n245=  elseif ($parm1 == .vote) { 
n246=    if ($parm2 == $null ) { do Correct Syntax: .vote <channel> | halt }
n247=    if ($parm2 !ischan) { do I am not on $parm2 | halt } | unset %per* | uset | .enable #snovoters | set %rawvote yes | set %adchan $parm2 | who %adchan | dcccom | halt
n248=  }
n249=  elseif ($parm1 == .howmany) { do A total of %totalvoted people have voted on the topic 8,1 %vptopic  | halt }
n250=  elseif ($parm1 == .scan) {
n251=    if (%sscan == ON) {
n252=      if ($parm2 == $null) { do Correct Syntax: .scan <channel> | halt }
n253=      if ($parm2 !ischan) { do I have to be on $parm2 in order to scan it | halt } | .enable #rawscan | unset %SCN | do 4Scanning $parm2 $+ ....Please Wait | %SCN = $parm2 | %nnick = $nick | scan
n254=    }
n255=    else { d Sorry, Scan is BUSY!! } | dcccom | halt
n256=  }
n257=  :400
n258=  if ($parm1 == .unban) {
n259=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .unban <channel> <mask> }
n260=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n261=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | mode $parm2 -b $parm3 | dcccom | halt
n262=  }
n263=  elseif ($parm1 == .menu) { goto 400dcc }
n264=  elseif ($parm1 == .ban) {
n265=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .ban <channel> <nick> | halt }
n266=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n267=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
n268=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to ban myself? | halt } | ban $parm2 $parm3 3 | notice $parm3 You were banned by $nick ((-ÕzZ Ban-)) | dcccom | halt
n269=  }
n270=  elseif ($parm1 == .hostban) {
n271=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .hostban <channel> <nick> | halt }
n272=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n273=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
n274=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to ban myself? | halt } | ban $parm2 $parm3 2 | notice $parm3 You were banned by $nick ((-ÕzZ Ban-)) | dcccom | halt
n275=  }
n276=  elseif ($parm1 == .kick) {
n277=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .kick <channel> <nick> <msg> | halt }
n278=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n279=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
n280=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to kick myself? | halt }
n281=    if ($parm3 !ison $parm2) { do $parm3 is not on $parm2 | halt } | kick $parm2 $parm3* (From $nick | dcccom | halt
n282=  }
n283=  :300
n284=  if ($parm1 == .deop) {
n285=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .deop <channel> <nick> | halt }
n286=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n287=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
n288=    if ($parm3 !isop $parm2) { do $parm3 is not opped in $parm2 | halt }
n289=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to deop myself? | halt }
n290=    if ($nick !ison $parm2) { do $parm2 is not on $parm3 | halt } | .raw mode $parm2 -o $parm3 | notice $parm3 You were Deopped by $nick | dcccom | halt
n291=  }
n292=  elseif ($parm1 == .menu) { goto 300dcc }
n293=  elseif ($parm1 == .say) {
n294=    if (($parm3 == $null) || ($parm2 == $null)) { do Correct Syntax: .say <channel> <message> }
n295=    if ($parm2 !ischan) { do I am not on $parm2 | halt } | msg $parm2 $parm3* | dcccom | halt
n296=  }
n297=  elseif ($parm1 == .invite) {
n298=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .invite <nick> <channel> | halt }
n299=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n300=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
n301=    if ($nick ison $parm2) { do $parm2 is already in $parm3 | halt } | .invite $parm2 $parm3 | dcccom | halt
n302=  }
n303=  :200
n304=  if ($parm1 == .access) {
n305=    if ($parm2 == $null) { do Correct Syntax: .access <nick> | halt } 
n306=    else { .enable #access | set %waccess =$nick | set %getaccessnick $parm2 | whois $parm2 | set %acs OFF | .timer 1 10 set %acs ON | dcccom } | halt
n307=  }
n308=  elseif ($parm1 == .menu) { goto 200dcc }
n309=  elseif ($parm1 == .op) {
n310=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .op <channel> <nick> | halt }
n311=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n312=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
n313=    if ($parm3 !ison $parm2) { do $parm3 is not on $parm2 | halt }
n314=    if ($parm3 isop $parm2) { do $parm3 is already opped in $parm2 | halt }
n315=    if ($level(%l) >= 500) { raw mode $parm2 +o $parm3 | notice $parm3 You were Opped by $nick | halt } | if (%noop != ON) { raw mode $parm2 +o $parm3 | no $parm3 You were Opped by $nick } | else { no Sorry the channel is in NOOP mode } | dcccom | halt
n316=  }
n317=  elseif ($parm1 == .topic) {
n318=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .topic <channel> <topic> | halt }
n319=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
n320=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | topic $parm2 $parm3* | dcccom | halt
n321=  }
n322=  elseif ($parm1 == .help) { 
n323=    if ($parm2 == $null) { d 5For a list of Commands type 4.menu | d 5For help on those commands type 4.help <command> | halt }
n324=    if (($parm2 isin %600dcc) || ($parm2 isin %600dcc2) || ($parm2 isin %500dcc) || ($parm2 isin %400dcc) || ($parm2 isin %300dcc) || ($parm2 isin %200dcc)) { play -t $+ $parm2 =$nick dcc.txt 5 }
n325=    else { do There is no help information on $parm2 } | halt
n326=  }
n327=  else { do What? Try 4.help | halt }
n328=  halt
n329=  :none
n330=  if ($parm1 == .menu) { goto fsdcc } | else { do You do not have any access | halt }
n331=  halt
n332=  :600dcc
n333=  d 5Owner Commands
n334=  d 4 $+ %600dcc
n335=  d 4 $+ %600dcc2
n336=  :500dcc
n337=  d 5Level 500 Commands
n338=  d 4 $+ %500dcc
n339=  :400dcc
n340=  d 5Level 400 Commands
n341=  d 4 $+ %400dcc
n342=  :300dcc
n343=  d 5Level 300 Commands
n344=  d 4 $+ %300dcc
n345=  :200dcc
n346=  d 5Level 200 Commands
n347=  d 4 $+ %200dcc
n348=  :fsdcc
n349=  d 5Fun Commands
n350=  d 4 $+ %funcommands !who !who <Linked Bot>
n351=  d -
n352=  d 2For help on a command type 7.help <command>
n353=  d 2ex. 7.help .op or 7.help .deop
n354=  :f
n355=}
n356=1:ON CHAT:!*: {
n357=  dccprot
n358=  if ($parm1 == !Who) {
n359=    if ($parm2 == $me) { do Correct Syntax: !who | halt }
n360=    if ($parm2 == $null) {
n361=      msg =$nick 6*** The Following People are on $me $+ : | %w = 1
n362=      :start
n363=      if ($chat(%w) == $null) { msg =$nick 6*** End of !Who list. | halt }
n364=      if ($chat(%w) isin %linkbots) { msg =$nick %w $+ .7 $chat(%w) (bot) | goto next }
n365=      if ($chat(%w).status == active) { msg =$nick %w $+ .2 $chat(%w) } | else { msg =$nick %w $+ .2 $chat(%w) 4Waiting For Connection }
n366=      :next
n367=      inc %w
n368=      goto start
n369=    }
n370=    else { names }
n371=    halt
n372=  }
n373=  elseif ($parm1 == !names) { 
n374=    if ($nick isin %linkbots) {
n375=      msg =$nick !namesr $parm2 6*** The Following People are on $me $+ : | %w = 1
n376=      :start
n377=      if ($chat(%w) == $null) { msg =$nick !namesr $parm2 6*** End of !Who list. | halt }
n378=      if ($chat(%w) isin %linkbots) { msg =$nick !namesr $parm2 %w $+ .7 $chat(%w) (bot) | goto next }
n379=      if ($chat(%w).status == active) { msg =$nick !namesr $parm2 %w $+ .2 $chat(%w) } | else { msg =$nick !namesr $parm2 %w $+ .2 $chat(%w) 4Waiting For Connection }
n380=      :next
n381=      inc %w
n382=      goto start
n383=    }
n384=  }
n385=  elseif ($parm1 == !namesr) { if ($nick isin %linkbots) { msg = $+ $parm2 $parm3* } }
n386=  elseif ($parm1 == !#=) {
n387=    if (%#game != ON) { do Sorry there is no game playing right now.  To start a new game type !#game | halt }
n388=    if ($parm2 == $null) { do Correct Format: !#= <number> | halt }
n389=    if ($nick !isin %part) { inc %part1 | %part = %part $nick }
n390=    %difnum = %number - $parm2 | %difnum = $abs(%difnum)
n391=    inc %trys $+ $nick
n392=    if ([ %trys [ $+ [ $nick ] ] ] > %guess) { Halt }
n393=    if ($parm2 == %number) { relay 4Yahoo! $nick got the number in [ %trys [ $+ [ $nick ] ] ] try(s)! There were %part1 participant(s),5 %part $+ 4, in the game. The number was5 %number $+ 4.  Type2 !sb 4to see the ScoreBoard. | do 4You guessed the number,5 %number $+ 4, in [ %trys [ $+ [ $nick ] ] ] try(s)! There were %part1 participant(s),5 %part $+ 4, in the game.  Type2 !sb 4to see the ScoreBoard. | %#game = OFF | unset %part* | unset %trys* | inc %win $+ $nick }
n394=    else {
n395=      if (($parm2 < 1) || ($parm2 > %max#)) { do Numbers only between 1 and %max# count! | halt }
n396=      elseif (%difnum isnum 1-20) { do Very Very Close!!! (4Hot) }
n397=      elseif (%difnum isnum 21-100) { do Very Close (5Warm) }
n398=      elseif (%difnum isnum 101-175) { do sorta close (11Heated) }
n399=      elseif (%difnum isnum 176-250) { do Not too close (10Chilled) }
n400=      elseif (%difnum isnum 251-325) { do Far (12Cold) }
n401=      elseif (%difnum isnum 326-400) { do Very Far (2Freezing) }
n402=      elseif (%difnum > 400) { do extremley Far (2Frost BITE!!) }
n403=      if ($parm2 < %number) { do Higher }
n404=      elseif ($parm2 > %number) { do Lower }
n405=      %t5 = %guess - 1
n406=      if ([ %trys [ $+ [ $nick ] ] ] == %t5) { relay 7((-ÕzZßÖT-)) 3*** $nick $+ 's Last try! | do This is your last try. }
n407=      elseif ([ %trys [ $+ [ $nick ] ] ] == %guess) { relay 7((-ÕzZßÖT-)) 3*** $nick $+ 's guesses are up! | do Too bad, no more guesses | halt }
n408=      elseif ([ %trys [ $+ [ $nick ] ] ] != 0) { %left = %guess - [ %trys [ $+ [ $nick ] ] ] | do %left try(s) left! } | halt
n409=    }
n410=  }
n411=  elseif ($parm1 == !counter) {
n412=    if ($parm2 == $null) { do Total that joined any channel since 5 $+ %tdate $+  :4 %total }
n413=    else {
n414=      %t1 = $readini join.ini channels $parm2
n415=      if (%t1 == $null) { do I have no count for $parm2 }
n416=      else { do Total that Joined5  $+ $parm2 $+  2since5  $+ $readini join.ini date $parm2 $+ :4 $readini join.ini channels $parm2 }
n417=    }
n418=  }
n419=  elseif ($parm1 == !msg) {
n420=    if ($parm3 == $null) { do Correct Syntax: !msg <nick> <message> | halt }
n421=    elseif ($null == $read -s $+ $parm2 userchats.txt) { do $parm2 is not on the Partyline. | halt }
n422=    else { msg = $+ $parm2 < $+ $nick $+ > $parm3* Private msg | halt }
n423=  }
n424=  elseif ($parm1 == !insult) { do $read $mIRCdiryomama.txt | cfc | inc %insult }
n425=  elseif ($parm1 == !!insult) { do $read $mIRCdiryomama2.txt | cfc | inc %insult }
n426=  elseif ($parm1 == !Lame) {
n427=    if ($parm2 == $null) { do Correct Syntax: !lame <nick> }
n428=    else { d 2On a scale from 1 to 10 $parm2* $read $mIRCdirlame.txt } | cfc | inc %lame | dccprot
n429=  }
n430=  elseif ($parm1 == !Dope) {
n431=    if ($parm2 == $null) { do Correct Syntax: !dope <nick> }
n432=    else { d 2On a scale from 1 to 10 $parm2* $read $mIRCdirdope.txt } | cfc | inc %dope | dccprot
n433=  }
n434=  elseif ($parm1 == %choice3) { checkvoted | inc %sucks | %nickvworst = %nickvworst $nick | dccpoll }
n435=  elseif ($parm1 == %choice2) { checkvoted | inc %ok | %nickvalright = %nickvalright $nick | dccpoll }
n436=  elseif ($parm1 == %choice1) { checkvoted | inc %best | %nickvbest = %nickvbest $nick | dccpoll }
n437=  elseif ($parm1 == !seen) { seendcc }
n438=  elseif ($parm1 == !poll) { cfc | inc %countwv | dccpoll }
n439=  elseif ($parm1 == !whovoted) {
n440=    %h.1 = $read -s $+ $nick hostchats.txt | %h.2 = $read -s $+ $nick userchats.txt | %v.1 = $readini voted.ini nick $nick | %v.2 = $readini voted.ini site %h.1 | %v.3 = $readini voted.ini userhost %h.2
n441=    if ((%v.1 != $null) || (%v.2 != $null) || (%v.3 != $null)) { unset %per* | pervp | msg =$nick 7((-ÕzZ-)) 5Topic: 8,1 $+ %vptopic | msg = $+ $nick 7((-ÕzZ-))2 Voted %choice1 $+ 10( $+ %best - %perbest $+ )2 $+ :4 %nickvbest | msg = $+ $nick 7((-ÕzZ-))2 Voted %choice2 $+ 10( $+ %ok - %perok $+ )2 $+ :4 %nickvalright | msg = $+ $nick 7((-ÕzZ-))2 Voted %choice3 $+ 10( $+ %sucks - %persucks $+ )2 $+ :4 %nickvworst }
n442=    else { msg = $+ $nick 2You must vote on the topic first to see who voted for what. } | unset %per* | cfc | inc %countwv
n443=  }
n444=  elseif ($parm1 == !#game) {
n445=    if (%#game == ON) { do There is already a game going on. }
n446=    else { %number = $rand(1,%max#) | unset part* | unset %trys* | relay 2The Number Game has just begun!! 5You get4 %guess 5tries to guess the number between4 1 5and4 %max# $+ . 5Format is:4 !#= <number> | ready | %#game = ON }
n447=  }
n448=  elseif ($parm1 == !sb) { sb }
n449=  else { do Invalid Command }
n450=}
n451=1:ON CHATOPEN:/chatopen
n452=1:ON CHATCLOSE:/unpl $nick | if ($nick isin %linkbots) { relay 6*** $nick and $me have unlinked | %linkbots = $remove(%linkbots,$nick) | unpl $nick } | else { relay 6*** $nick has Left ÕzZßÖT's PartyLine | relaybots 6*** $nick has Left ÕzZßÖT's PartyLine | if ($nick == %rwnick) { unset %rwnick } } | mecho 4 Lost DCC Connection with $nick
n453=1:ON CHAT:*:/if ($nick isin %linkbots) { relay $parms }  | else { relay < $+ $nick $+ > $parms | relaybots < $+ $nick $+ > $parms | dccprot }