rendered paste body[aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1 $2-
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/q /query $$1
n7=/send /dcc send $1 $2
n8=/chat /dcc chat $1
n9=/ping /ctcp $$1 ping
n10=/s /server $$1-
n11=/k {
n12= inc %kbcount 1
n13= /kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n14=}
n15=/kb {
n16= inc %kbcount 1
n17= /ban -k $chan $1 2 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n18=}
n19=/tb {
n20= inc %kbcount 1
n21= /ban -ku $+ $calc($2 * 60) $chan $1 2 5TempBan for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n22=}
n23=/mute {
n24= inc %kbcount 1
n25= if ($nick !ison $chan) {
n26= /mode $chan +b-eIohv ~q: $+ $address($1,2) $1 $1 $1
n27= /msg $chan 5[2 $1 5] has been muted for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n28= /timer 1 $calc($2 * 60) //mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
n29= }
n30=}
n31=/gag {
n32= if ($1 !ison $chan) {
n33= inc %kbcount 1
n34= /mode $chan +b-ohv ~q: $+ $address($1,2) $1 $1 $1
n35= }
n36=}
n37=/ungag {
n38= if ($1 !ison $chan) {
n39= inc %kbcount 1
n40= /mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
n41= }
n42=}
n43=/away {
n44= if (%away == off) {
n45= set %away on
n46= set %pm off
n47= set %reason $1-
n48= set %awaytime $ctime
n49= /amsg 2I am now away. 5Reason:2 $1-
n50= }
n51=}
n52=
n53=/returnaway {
n54= if (%away == on) {
n55= set %away off
n56= set %pm on
n57= /amsg 2I am now back 5From:2 %reason 5Time gone:2 $duration($calc($ctime - $($+(%,awaytime),2)))
n58= }
n59=}
[users]
[variables]
n0=%kbcount 14323
n1=%pcwrepeat on
n2=%cwwrepeat off
n3=%pm on
[script]
n0=alias /kirby {
n1= msg $chan 0,0--------------1,1----------0,0------------
n2= msg $chan 0,0----------1,1----6,6--13,13------6,6--1,1----0,0--------
n3= msg $chan 0,0--------1,1--6,6--13,13--------------6,6--1,1--0,0------
n4= msg $chan 0,0------1,1--6,6--13,13------------------1,1--0,0------
n5= msg $chan 0,0------1,1--13,13--------------------6,6--1,1--0,0----
n6= msg $chan 0,0----1,1--13,13--------------1,1--13,13--1,1--13,13--6,6--1,1--0,0----
n7= msg $chan 0,0--1,1--6,6--13,13--------------1,1--13,13--1,1--13,13------1,1--0,0--
n8= msg $chan 0,0--1,1--13,13----------------1,1--13,13--1,1--13,13------1,1--0,0--
n9= msg $chan 0,0--1,1--13,13----------4,4----13,13--------4,4----13,13--1,1--0,0--
n10= msg $chan 0,0--1,1--6,6--13,13----6,6--13,13----------------6,6--13,13--1,1--0,0--
n11= msg $chan 0,0----1,1--6,6--13,13--1,1--13,13----------1,1--13,13----1,1--6,6--1,1--0,0--
n12= msg $chan 0,0------1,1----6,6--13,13--------------6,6--1,1----0,0----
n13= msg $chan 0,0--------1,1----6,6----13,13--------6,6--1,1----0,0------
n14= msg $chan 0,0------1,1--4,4----1,1--------------4,4----1,1--0,0----
n15= msg $chan 0,0----1,1--4,4----------1,1--0,0----1,1--4,4--------1,1--0,0-
n16=}
n17=
n18=alias /leet { msg $chan $replace($1-,a,Å,b,ß,c,©,d,Ð,e,3,f,ƒ,i,¡,l,|,m,/\/\,n,Ñ,o,ø,p,þ,r,®,s,§,t,†,u,û,v,\/,x,×,y,¥,-,¬,?,¿,`,¤,w\/\/,) }
n19=
n20=alias big {
n21= set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A
n22= var %bl.cmd say, %bl.col1, %bl.col2
n23= if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- }
n24= if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 }
n25= elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- }
n26= else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- }
n27= var %bl.idx1 1, %bl.idx2 1, %bl.idx3 1
n28= ;set the block field
n29= while (%bl.idx1 <= $0) {
n30= set %bl.idx2 1
n31= while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
n32= blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
n33= inc %bl.idx2
n34= }
n35= if (%bl.idx1 < $0) blockappend $blockletter
n36= inc %bl.idx1
n37= }
n38= ;colorize the block field
n39= blockcolor %bl.col1 %bl.col2
n40= ;output the block field
n41= set %bl.idx3 1
n42= while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }
n43=}
n44=
n45=alias -l blockletter {
n46= if ($1 === A) return ABA BAB BBB BAB BAB
n47= elseif ($1 === B) return BBA BAB BBA BAB BBA
n48= elseif ($1 === C) return ABB BAA BAA BAA ABB
n49= elseif ($1 === D) return BBA BAB BAB BAB BBA
n50= elseif ($1 === E) return BBB BAA BBA BAA BBB
n51= elseif ($1 === F) return BBB BAA BBA BAA BAA
n52= elseif ($1 === G) return ABB BAA BAB BAB ABB
n53= elseif ($1 === H) return BAB BAB BBB BAB BAB
n54= elseif ($1 === I) return BBB ABA ABA ABA BBB
n55= elseif ($1 === J) return BBB ABA ABA ABA BBA
n56= elseif ($1 === K) return BAB BAB BBA BAB BAB
n57= elseif ($1 === L) return BAA BAA BAA BAA BBB
n58= elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB
n59= elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB
n60= elseif ($1 === O) return BBB BAB BAB BAB BBB
n61= elseif ($1 === P) return BBB BAB BBB BAA BAA
n62= elseif ($1 === Q) return BBB BAB BAB BBB AAB
n63= elseif ($1 === R) return BBB BAB BBB BBA BAB
n64= elseif ($1 === S) return ABB BAA ABA AAB BBA
n65= elseif ($1 === T) return BBB ABA ABA ABA ABA
n66= elseif ($1 === U) return BAB BAB BAB BAB BBB
n67= elseif ($1 === V) return BAB BAB BAB BAB ABA
n68= elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA
n69= elseif ($1 === X) return BAB BAB ABA BAB BAB
n70= elseif ($1 === Y) return BAB BAB BAB ABA ABA
n71= elseif ($1 === Z) return BBB AAB ABA BAA BBB
n72= elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB
n73= elseif ($1 === b) return BAA BAA BBB BAB BBB
n74= elseif ($1 === c) return AAA AAA BBB BAA BBB
n75= elseif ($1 === d) return AAB AAB BBB BAB BBB
n76= elseif ($1 === e) return AAA ABB BAB BBA ABB
n77= elseif ($1 === f) return ABB ABA BBB ABA ABA
n78= elseif ($1 === g) return AAA BBB BAB ABB BBA
n79= elseif ($1 === h) return BAA BAA BBB BAB BAB
n80= elseif ($1 === i) return A B A B B
n81= elseif ($1 === j) return AB AA AB AB BB
n82= elseif ($1 === k) return BAA BAA BAB BBA BAB
n83= elseif ($1 === l) return BA BA BA BA BB
n84= elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB
n85= elseif ($1 === n) return AAA AAA BBA BAB BAB
n86= elseif ($1 === o) return AAA AAA BBB BAB BBB
n87= elseif ($1 === p) return AAA BBB BAB BBB BAA
n88= elseif ($1 === q) return AAA BBB BAB BBB AAB
n89= elseif ($1 === r) return AAA AAA BAB BBA BAA
n90= elseif ($1 === s) return AA AB BA AB BB
n91= elseif ($1 === t) return ABA ABA BBB ABA ABA
n92= elseif ($1 === u) return AAA AAA BAB BAB BBB
n93= elseif ($1 === v) return AAA AAA BAB BAB ABA
n94= elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA
n95= elseif ($1 === x) return AAA AAA BAB ABA BAB
n96= elseif ($1 === y) return AAA BAB BAB ABA BAA
n97= elseif ($1 === z) return AAA BBB AAB ABA BBB
n98= elseif ($1 == 0) return ABA BAB BAB BAB ABA
n99= elseif ($1 == 1) return ABA BBA ABA ABA BBB
n100= elseif ($1 == 2) return BBA AAB ABA BAA BBB
n101= elseif ($1 == 3) return BBA AAB ABA AAB BBA
n102= elseif ($1 == 4) return BAB BAB BBB AAB AAB
n103= elseif ($1 == 5) return BBB BAA BBA AAB BBA
n104= elseif ($1 == 6) return ABB BAA BBB BAB BBB
n105= elseif ($1 == 7) return BBB AAB AAB ABA ABA
n106= elseif ($1 == 8) return BBB BAB BBB BAB BBB
n107= elseif ($1 == 9) return BBB BAB BBB AAB BBA
n108= elseif ($1 == .) return A A A A B
n109= elseif ($1 == !) return B B B A B
n110= elseif ($1 == ?) return BBB AAB ABA AAA ABA
n111= elseif ($1 == -) return AAA AAA BBB AAA AAA
n112= elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
n113= elseif ($1 == ^) return ABA BAB AAA AAA AAA
n114= elseif ($1 == +) return AAA ABA BBB ABA AAA
n115= elseif ($1 == =) return AAA BBB AAA BBB AAA
n116= elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
n117= elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB
n118= elseif ($1 == ]) return BB AB AB AB BB
n119= elseif ($1 == [) return BB BA BA BA BB
n120= elseif ($1 == :) return A B A B A
n121= elseif ($1 == $chr(59)) return AA AB AA AB BA
n122= elseif ($1 == ) return BAA ABA AAB ABA BAA
n124= elseif ($1 == $chr(40)) return AB BA BA BA AB
n125= elseif ($1 == $chr(41)) return BA AB AB AB BA
n126= elseif ($1 == ") return BAB BAB AAA AAA AAA
n127= elseif ($1 == ') return B B A A A
n128= elseif ($1 == `) return BA AB AA AA AA
n129= elseif ($1 == ,) return AA AA AA AB BA
n130= elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
n131= elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
n132= elseif ($1 == $chr(124)) return B B B B B
n133= elseif ($1 == *) return BAB ABA BAB AAA AAA
n134= else return A A A A A
n135=}
n136=
n137=alias -l blockappend {
n138= set %bl.buffer1 $+(%bl.buffer1,$$1,A)
n139= set %bl.buffer2 $+(%bl.buffer2,$$2,A)
n140= set %bl.buffer3 $+(%bl.buffer3,$$3,A)
n141= set %bl.buffer4 $+(%bl.buffer4,$$4,A)
n142= set %bl.buffer5 $+(%bl.buffer5,$$5,A)
n143=}
n144=
n145=alias -l blockcolor {
n146= var %bl.buff 1, %bl.string 5
n147= while (%bl.buff <= 5) {
n148= while (%bl.string>= 1) {
n149= set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))
n150= set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))
n151= dec %bl.string
n152= }
n153= set %bl.string 5
n154= inc %bl.buff
n155= }
n156=}
n157=
n158=alias -l blockrand return $iif($rand(0,1) == 0,)
n159=
n160=alias eI {
n161= /mode $chan +eIeI $address($me,2) $address($me,2) $me $me
n162=}
n163=
n164=alias -eI {
n165= /mode $chan -eI $address($me,2) $address($me,2) $me $me
n166=}
n167=
n168=alias mass {
n169= if ( $regex($1,/^[\+-]?[ohv]$/) ) && ( $me isop # ) {
n170= var %a, %c = $+($left($1,1),$str($right($1,1),$modespl))
n171= var %d = $iif( $left($1,1) === -, $right($1,1), $iif($right($1,1) == v,a,$+(a,$chr(44),o)) ), %b = $nick(#,0,%d)
n172= while %b {
n173= if ( $nick(#,%b,%d) != $me) {
n174= %a = %a $v1
n175= if ($modespl == $numtok(%a,32)) {
n176= mode # %c %a
n177= %a = ""
n178= }
n179= }
n180= dec %b
n181= }
n182= if (%a) mode # %c %a
n183= }
n184=}
n185=
n186=alias amsg { var %x 1 | while ($chan(%x)) { if (!$istok(#mirc #cookiedough #swiftswitch #irchelp #idle #idlers #rsrealm #leetchan,$v1,32)) { msg $chan(%x) 5[GlobalMSG]2 $1- } | inc %x } }
n187=
n188=alias takeover {
n189= mode $chan +smntiRcQVNTlkfj 1 §£Kjå§Ð£Ð§fj£KêW®Kjüïðñ [1t#b]:999 1:999
n190= topic $chan Owned
n191= mass -o
n192= mass -h
n193= mass -v
n194=}
n195=
n196=alias untakeover {
n197= mode $chan -smntirRcQVNTlkfj 1 §£Kjå§Ð£Ð§fj£KêW®Kjüïðñ [1t#b]:999 1:999
n198= /cs akick $chan clear
n199=}
n200=
n201=alias own {
n202= inc %kbcount 1
n203= mode $chan -QohveIeI+b $1 $1 $1 $1 $1 $address($1,2) $address($1,2) $address($1,2)
n204= kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n205=}
n206=
n207=alias pwn {
n208= inc %kbcount 1
n209= mode $chan -ohvQeIeI+b $1 $1 $1 $1 $1 $address($1,2) $address($1,2) $address($1,2)
n210= kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n211= cs access $chan del $1
n212=}
n213=
n214=on *:text:paul:#:{
n215= if (%away == on) {
n216= /notice $nick I am currently away. Reason: %reason Time Gone: $duration($calc($ctime - $($+(%,awaytime),2)))
n217= }
n218=}
n219=
n220=on *:join:#leetchan:{
n221= if ($nick == Paul) {
n222= /timerleet 0 120 /msg #leetchan !leet
n223= }
n224=}
n225=
n226=on *:join:#rsrealm:{
n227= if ($nick == Paul) {
n228= /timerrsrealm 0 120 /msg #rsrealm !leet
n229= }
n230=}
n231=
n232=on *:join:#cookiedough:{
n233= if ($nick == Paul) {
n234= /timercookiedough 0 120 /msg #cookiedough !leet
n235= }
n236=}
n237=
n238=
n239=on *:join:#idlers:{
n240= if ($nick == Paul) {
n241= /msg idlers login Idnarg psg11
n242= }
n243=}
n244=
n245=
n246=on *:join:#idle:{
n247= if ($nick == Paul) {
n248= /msg idlebot login Ruthio psg11
n249= }
n250=}
n251=
n252=on *:TEXT:.count*:#:{
n253= if ($chan == #rshelp) { halt } {
n254= notice $nick 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ]
n255= }
n256=}
n257=
n258=on *:TEXT:@count*:#:{
n259= if ($chan == #idlers) { halt }
n260= if ($chan == #idle) { halt }
n261= if ($chan == #rshelp) { halt } {
n262= msg $chan 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ]
n263= }
n264=}
n265=
n266=on *:TEXT:!count:#:{
n267= if ($chan == #rshelp) { halt } {
n268= notice $nick 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ]
n269= }
n270=}
n271=
n272=on *:TEXT:!calc*:#:{
n273= if ($chan == #swiftswitch) { halt }
n274= if ($chan == #irchelp) { halt }
n275= if ($chan == #rshelp) { halt }
n276= if ($chan == #questhelp) { halt }
n277= if ($chan == #jamminbnc) { halt } {
n278= notice $nick 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,c,00,pi,$pi)),bd)) }
n279=}
n280=
n281=on *:TEXT:.calc*:#:{
n282= if ($chan == #swiftswitch) { halt }
n283= if ($chan == #irchelp) { halt }
n284= if ($chan == #rshelp) { halt }
n285= if ($chan == #questhelp) { halt }
n286= if ($chan == #jamminbnc) { halt } {
n287= notice $nick 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,b,000000000,c,00,pi,$pi)),bd)) }
n288=}
n289=
n290=on *:TEXT:@calc*:#:{
n291= if ($chan == #swiftswitch) { halt }
n292= if ($chan == #irchelp) { halt }
n293= if ($chan == #rshelp) { halt }
n294= if ($chan == #idle) { halt }
n295= if ($chan == #idlers) { halt }
n296= if ($chan == #questhelp) { halt }
n297= if ($chan == #jamminbnc) { halt } {
n298= msg $chan 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,c,00,pi,$pi)),bd)) }
n299=}
n300=
n301=on *:text:!pcwon *:#pc: {
n302= if ($nick !isreg $chan) {
n303= set %pcwrepeat on
n304= /timerpcw 0 $2 /.ctcp Hobbit sayworld
n305= }
n306=}
n307=
n308=on *:text:!slowdown *:#pc: {
n309= if ($nick !isreg $chan) {
n310= /timerpcw 0 $2 /.ctcp Hobbit sayworld
n311= }
n312=}
n313=
n314=on *:text:!pcwon:#pc: {
n315= if ($nick !isreg $chan) {
n316= set %pcwrepeat on
n317= }
n318=}
n319=
n320=on *:text:!pcwrepeatoff:#pc: {
n321= if (%pcwrepeat == off) { halt }
n322= if ($nick !isreg $chan) {
n323= set %pcwrepeat off
n324= /timerpcw off
n325= }
n326=}
n327=
n328=on *:text:!pcwoff:#pc: {
n329= if ($nick !isreg $chan) {
n330= /timerpcw off
n331= set %pcwrepeat off
n332= }
n333=}
n334=
n335=on *:text:!pcwrepeaton *:#pc: {
n336= if (%pcwrepeat == off) { halt }
n337= if ($nick !isreg $chan) {
n338= set %pcwrepeat on
n339= /timerpcw 0 $2 /.ctcp Hobbit sayworld
n340= }
n341=}
n342=
n343=on *:text:!timersuggeston:#pc: {
n344= if ($nick !isreg $chan) {
n345= /timersuggest 0 60 /msg #pc 2If the current Pest Control Worlds are 5BAD2, please 5suggest new ones2 by typing 5!suggest level world 2. This will 5message the staff channel2 and 5record you suggestion2. After 5five suggestions2, the world will 5automatically be changed2.
n346= }
n347=}
n348=
n349=on *:text:!timersuggestoff:#pc: {
n350= if ($nick !isreg $chan) {
n351= /timersuggest off
n352= }
n353=}
n354=
n355=on *:text:!cwon *:#castlewars: {
n356= if ($nick !isreg $chan) {
n357= set %cwwrepeat on
n358= /timercw 0 $2 /.ctcp Hobbit saycworld
n359= }
n360=}
n361=
n362=on *:text:!cwrepeatoff:#castlewars: {
n363= if (%cwwrepeat == off) { halt }
n364= if ($nick !isreg $chan) {
n365= set %cwwrepeat off
n366= .timercw off
n367= }
n368=}
n369=
n370=on *:text:!cwoff:#castlewars: {
n371= if ($nick !isreg $chan) {
n372= .timercw off
n373= set %cwwrepeat off
n374= }
n375=}
n376=
n377=on *:text:!cwrepeaton *:#castlewars: {
n378= if (%cwwrepeat == off) { halt }
n379= if ($nick !isreg $chan) {
n380= set %cwwrepeat on
n381= /.timercw 0 $2 /.ctcp Hobbit saycworld
n382= }
n383=}
n384=
n385=on *:text:.commands*:#:{
n386=
n387= if ($chan == #IRChelp) { halt }
n388=
n389= if ($nick !isreg $chan) {
n390=
n391= msg $nick The following is a list of my commands:
n392=
n393= msg $nick To mute a channel = .mute
n394=
n395= msg $nick To unmute a channel = .unmute
n396=
n397= msg $nick To temp-gag someone = .tg/.m nick time(minutes) reason
n398=
n399= msg $nick to gag someone = .g nick
n400=
n401= msg $nick To ungag someone = .ug nick
n402=
n403= msg $nick To kick someone = .k nick reason
n404=
n405= msg $nick To kick someone for = .nhw nick
n406=
n407= msg $nick To kick someone for = .nrq nick
n408=
n409= msg $nick To kick-ban someone = .kb nick reason
n410=
n411= msg $nick To kick-ban someone for = .jr nick
n412=
n413= msg $nick To temp-ban someone = .tb nick time(minutes) reason
n414=
n415= msg $nick To temp-ban someone for = .nc nick reason
n416=
n417= msg $nick To temp-ban someone for = .comp nick
n418=
n419= msg $nick To temp-ban someone for = .sp nick
n420=
n421= msg $nick To temp-ban someone for = .zb nick
n422=
n423= msg $nick To temp-ban someone for = .ol nick
n424=
n425= msg $nick I ban people automatically for the following reasons: Advertising (Use of #, 30 minutes), and use of Public Commands (Use of @, 10 minutes)
n426=
n427= msg $nick To use the calculator = .calc number(+,-,/,*)number
n428=
n429= msg $nick To publicaly use the calculator = @calc number(+,-,/,*)number
n430=
n431= msg $nick To see how many users are in a channel = .count #channel
n432=
n433= msg $nick To publicaly see how many users are in a channel = @count #channel
n434=
n435= msg $nick To see how many users are in the channel = !count
n436= }
n437=}
n438=
n439=on *:text:.tb *:#: { if ($nick !isreg $chan) /tb $2 $3- }
n440=
n441=on *:TEXT:.g*:#:{
n442= if ($2 !isreg $chan) { halt }
n443= if ($nick !isreg $chan) {
n444= mode $chan +b-ohv ~q: $+ $address($2,2) $2 $2 $2
n445= }
n446=}
n447=
n448=on *:TEXT:.ug*:#:{ if ($nick !isreg $chan) { mode $chan -b ~q: $+ $address($2,2) } }
n449=
n450=on *:TEXT:.mute*:#:{ if ($nick !isreg $chan) { mode $chan +m } }
n451=
n452=on *:TEXT:.unmute*:#:{ if ($nick !isreg $chan) { mode $chan -m } }
n453=
n454=on *:text:.tg *:#:{
n455= if ($2 !isreg $chan) { halt }
n456= if ($nick !isreg $chan) && ($1 !ison $chan) {
n457= /mute $2 $3-
n458= }
n459=}
n460=
n461=on *:text:.kb *:#: {
n462= if ($2 !isreg $chan) { halt }
n463= if ($nick !isreg $chan) {
n464= /kb $2 $3-
n465= }
n466=}
n467=
n468=on *:text:.k*:#: {
n469= if ($2 !isreg $chan) { halt }
n470= if ($nick !isreg $chan) {
n471= /k $2 $3-
n472= }
n473=}
n474=
n475=on *:text:.m *:#: {
n476= if ($2 !isreg $chan) { halt }
n477= if ($nick !isreg $chan) {
n478= /mute $2 $3-
n479= }
n480=}
n481=
n482=on *:TEXT:.ol *:#: {
n483= if ($2 !isreg $chan) { halt }
n484= if ($nick !isreg $chan) {
n485= inc %kbcount
n486= ban -ku600 $chan $2 2 5Don't use offensive language. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n487= }
n488=}
n489=
n490=on *:TEXT:.nc*:#: {
n491= if ($2 !isreg $chan) { halt }
n492= if ($nick !isreg $chan) {
n493= inc %kbcount
n494= ban -ku180 $chan $2 2 5Change your nickname, please. Use /nick newnickhere . 3 minute ban. 4Reason:12 $3- $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n495= }
n496=}
n497=
n498=on *:TEXT:.comp*:#: {
n499= if ($2 !isreg $chan) { halt }
n500= if ($nick !isreg $chan) {
n501= inc %kbcount
n502= ban -ku180 $chan $2 2 5Don't complain about the worlds, suggest a new one using !suggest level world . 3 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n503= }
n504=}
n505=
n506=on *:TEXT:.sp*:#: {
n507= if ($2 !isreg $chan) { halt }
n508= if ($nick !isreg $chan) {
n509= inc %kbcount
n510= ban -ku600 $chan $2 2 5Stop spamming. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n511= }
n512=}
n513=
n514=on *:text:.jr*:#: {
n515= if ($2 !isreg $chan) { halt }
n516= if ($nick !isreg $chan) {
n517= inc %kbcount
n518= /ban -k $chan $2 2 5Don't break JaGex rules.12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n519= }
n520=}
n521=
n522=on *:text:.nrq*:#:{
n523= if ($2 !isreg $chan) { halt }
n524= if ($nick !isreg $chan) {
n525= inc %kbcount 1
n526= /kick # $2 5This is a no requirement channel, if you don't like it then leave.12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n527= }
n528=}
n529=
n530=on *:text:.nhw*:#:{
n531= if ($2 !isreg $chan) { halt }
n532= if ($nick !isreg $chan) {
n533= inc %kbcount 1
n534= /kick # $2 5Don't hide worlds. 12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
n535= }
n536=}
n537=
n538=on *:TEXT:*#*:#pc:{
n539= if ($nick !isreg $chan) { halt }
n540= elseif (*#* iswm $remove($1-,#pc,#help,#general,#rsmarket,#irchelp,#mirc,#rshelp,#swiftswitch)) {
n541= inc %kbcount 1
n542= /ban -ku1800 # $nick 2 5Don't advertise in here or use #. 30 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n543= }
n544=}
n545=
n546=on *:TEXT:.zb *:#:{
n547= if ($2 !isreg $chan) { halt }
n548= if ($nick !isreg $chan) {
n549= inc %kbcount 1
n550= /ban -ku600 # $2 2 5Don't spam about Zezima, go to #zezima for that. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n551= }
n552=}
n553=
n554=on *:text:@*:#pc:{
n555= if ($nick !isreg $chan) { halt }
n556= inc %kbcount
n557= /ban -ku600 # $nick 2 5Don't use public commands in here (Use of @). 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
n558=}
n559=
n560=alias pm {
n561= set %pm $1 | echo 2Private-Messagess have been turned 5[ $1 ]2 $+ !
n562=}
n563=
n564=on *:TEXT:*:?:{
n565= if ($nick == -sBNC) { halt }
n566= if (%pm == OFF) {
n567= .msg $nick 2I am not accepting Private-Messages at the moment. If your message is urgent, you can send me a memo by typing 5/ms send $me message 2.
n568= close -m $nick
n569= }
n570=}
n571=
n572=menu * {
n573= -
n574= Blacklist · V.01:BList
n575=}
n576=Alias BList {
n577= dialog -md BList BList
n578=}
n579=dialog BList {
n580= title "Advanced Blacklist Dialog™ · V.01"
n581= size -1 -1 160 200
n582= option dbu
n583= Tab "Home", 01, 000 -002 160 202
n584= Tab "Users", 02
n585= Menu "&File" 03
n586= Menu "&Clear Blacklisted Users" 04
n587= Button "Edit User", 05, 62 177 36 12, Tab 2
n588= Button "Ok", 06, 000 188 036 012, Ok
n589= Button "Cancel", 07, 124 188 036 012, Cancel
n590= Text "James' Blacklist dialog · On Request of [P5]", 08, 027 030 105 012, Tab 1
n591= Box "Header", 09, 023 024 109 016, Tab 1
n592= Edit "Person To Blacklist", 10, 028 050 100 012, Center, Tab 1, AutoHS
n593= Edit "Reason for Blacklist", 11, 028 063 100 012, Center, Tab 1, AutoHS
n594= Edit "#Channel for Blacklist", 12, 028 076 100 012, Center, Tab 1, AutoHS
n595= Box "Blacklist Info", 13, 023 041 109 051, Tab 1
n596= Check "Channel Blacklist", 14, 030 100 050 012, Tab 1
n597= Check "Regular Blacklist", 15, 080 100 050 012, Tab 1
n598= Box "Blacklist Type", 16, 023 094 109 020, Tab 1
n599= Box "Blacklist Commands", 17, 023 120 109 023, Tab 1
n600= button "Enable", 18, 44 128 36 12, Tab 1
n601= button "Disable", 19, 80 128 36 12, Tab 1
n602= Text "Advanced Blacklist Dialog™ · By Jdawg140 · V.01", 20, 000 175 160 012, Center, Tab 1
n603= Text "", 21, 000 155 160 012, Center, Tab 1
n604= List 22, 020 040 120 120, VSbar, HSbar, Tab 2
n605= Box "Blacklisted Users", 23, 017 032 127 127, Tab 2
n606= Button "Rem Blacklist", 24, 62 165 36 12, Tab 2
n607= Tab "Global Banning", 25
n608= Edit "Person To Global Ban", 26, 028 050 100 012, Center, Tab 25, AutoHS, Limit 30
n609= Edit "Reason for Global Ban", 27, 028 063 100 012, Center, Tab 25, AutoHS
n610= Box "Global Ban Info", 28, 023 041 109 038, Tab 25
n611= Button "Global Ban!", 29, 076 090 36 012, Center, Tab 25
n612= Button "Global UnBan", 30, 040 090 36 012, Center, Tab 25
n613= Box "Inishiate Ban", 31, 023 082 109 025, Tab 25
n614=}
n615=on *:dialog:BList:menu:*: {
n616= if ($did == 54) dialog -x $dname
n617= elseif ($did == 50) did -a $dname 21 Use the buttons on the dialog
n618= elseif ($did == 51) {
n619= if ($did($dname,22).seltext) {
n620= remini BList.ini $network $gettok($ifmatch,1,46)
n621= write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
n622= r_BList
n623= }
n624= else did -a $dname 21 No selected User
n625= }
n626= elseif ($did == 52) {
n627= if ($did($dname,22).seltext) {
n628= remini BList.ini $network $gettok($ifmatch,1,46)
n629= write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
n630= set %Blacklist2.5 $gettok($ifmatch,2-,46)
n631= r_BList
n632= dialog -x $dname
n633= BList
n634= }
n635= else did -a $dname 21 No selected User
n636= }
n637= elseif ($did == 55) {
n638= .remove BList. $+ $network
n639= remini BList.ini $network
n640= did -a $dname 21 All blacklisted users removed
n641= did -r $dname 22
n642= }
n643=}
n644=ON *:DIALOG:BList:Close:*:{ unset %Blacklist.* }
n645=ON *:DIALOG:BList:sclick:*:{
n646= if ($did == 29) {
n647= var %i = 0
n648= while (%i < $comchan($me,0)) {
n649= inc %i
n650= if ($comchan($me,%i) != #Idle) {
n651= if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
n652= mode $comchan($me,%i) +b $iif($address($did($dname,26),2),$ifmatch,$did($dname,26))
n653=
n654= }
n655= if ($me !ishop $comchan($me,%i) && $me !isop $comchan($me,%i)) {
n656=
n657= }
n658= }
n659= }
n660= }
n661= elseif ($did == 30) {
n662= var %i = 0
n663= while (%i < $comchan($me,0)) {
n664= inc %i
n665= if ($comchan($me,%i) != #Idle) {
n666= if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
n667= mode $comchan($me,%i) -bb $address($did($dname,26),2) $did($dname,26))
n668=
n669= }
n670= if ($me !ishop $comchan($me,%i) && $me !isop $comchan($me,%i)) {
n671=
n672= }
n673= }
n674= }
n675= }
n676= elseif ($did == 18) {
n677= if (%Blacklist.18 == Enabled) {
n678= write BList. $+ $network $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $&
n679= $calc($ini(BList.ini,$network,0) + 1) $chr(124) $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
n680= $chr(124) $did($dname,11)
n681= writeini BList.ini $network $calc($ini(BList.ini,$network,0) + 1) $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
n682= $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $did($dname,11)
n683= did -az $dname 22 $ini(BList.ini,$network,0) $+ . $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
n684= $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $did($dname,11)
n685= B_Check
n686= }
n687= else {
n688= set %Blacklist.18 Enabled
n689= did -a $dname 18 Add Blacklist
n690= did -e $dname 19
n691= did -n $dname 10
n692= did -n $dname 11
n693= }
n694= }
n695= elseif ($did == 5) {
n696= if ($did($dname,22).seltext) {
n697= remini BList.ini $network $gettok($ifmatch,1,46)
n698= write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
n699= set %Blacklist2.5 $gettok($ifmatch,2-,46)
n700= r_BList
n701= dialog -x $dname
n702= BList
n703= }
n704= }
n705= elseif ($did == 22) {
n706= did -e $dname 24
n707= did -e $dname 05
n708= }
n709= elseif ($did == 24) {
n710= if ($did($dname,22).seltext) {
n711= remini BList.ini $network $gettok($ifmatch,1,46)
n712= write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
n713= r_BList
n714= }
n715= }
n716= elseif ($did == 14) {
n717= if ($did($dname,15).state) {
n718= did -u $dname 15
n719= did -e $dname 12
n720= did -e $dname 15
n721= }
n722= elseif (!$did($dname,15).state) {
n723= did -c $dname 15
n724= did -b $dname 15
n725= did -b $dname 12
n726= }
n727= }
n728= elseif ($did == 15) {
n729= if (!$did($dname,14).state) did -c $dname 15
n730= if ($did($dname,14).state) {
n731= did -u $dname 14
n732= did -b $dname 15
n733= did -b $dname 12
n734= }
n735= }
n736= elseif ($did == 19) {
n737= did -m $dname 10
n738= did -m $dname 11
n739= did -b $dname 19
n740= did -b $dname 12
n741= unset %Blacklist.*
n742= did -a $dname 18 Enable
n743= did -b $dname 19
n744= did -c $dname 15
n745= did -b $dname 15
n746= did -u $dname 14
n747= }
n748=}
n749=ON *:DIALOG:BList:init:0:{
n750= did -m $dname 10
n751= did -m $dname 11
n752= did -b $dname 12
n753= did -c $dname 15
n754= did -b $dname 19
n755= did -b $dname 15
n756= did -b $dname 20
n757= did -b $dname 24
n758= did -b $dname 05
n759= did -a $dname 03 50 Add User
n760= did -a $dname 03 51 Rem User
n761= did -a $dname 03 52 Edit User
n762= did -a $dname 03 53 $str($chr(160),6) $+ - $+ $str($chr(160),2)
n763= did -a $dname 03 54 Close
n764= did -a $dname 04 55 Clear!
n765= var %i = 0
n766= while (%i < $ini(BList.ini,$network,0)) {
n767= inc %i
n768= did -az $dname 22 %i $+ . $readini(BList.ini,$network,%i)
n769= }
n770= if (%Blacklist2.5) {
n771= echo -at %Blacklist2.5
n772= if (*~c:* iswm %Blacklist2.5) {
n773= did -a $dname 21 Edit BlackList: Use A Comma (,) to seperate channels
n774= did -r $dname 10
n775= did -r $dname 11
n776= did -r $dname 12
n777= did -c $dname 14
n778= did -u $dname 15
n779= did -e $dname 12
n780= did -a $dname 12 $remove($gettok(%Blacklist2.5,1,32),~c:)
n781= did -a $dname 10 $gettok(%Blacklist2.5,2,32)
n782= did -a $dname 11 $gettok(%Blacklist2.5,4-,32)
n783= set %Blacklist.18 Enabled
n784= did -a $dname 18 Add Blacklist
n785= did -e $dname 19
n786= did -n $dname 10
n787= did -n $dname 11
n788= unset %Blacklist2.5
n789= }
n790= if (*~r:* iswm %Blacklist2.5) {
n791= did -a $dname 21 Edit BlackList: Use A Comma (,) to seperate channels
n792= did -r $dname 10
n793= did -r $dname 11
n794= did -a $dname 11 $gettok(%Blacklist2.5,4-,32)
n795= did -a $dname 10 $gettok(%Blacklist2.5,2,32)
n796= set %Blacklist.18 Enabled
n797= did -a $dname 18 Add Blacklist
n798= did -e $dname 19
n799= did -n $dname 10
n800= did -n $dname 11
n801= unset %Blacklist2.5
n802= }
n803= }
n804=}
n805=alias -l r_BList {
n806= did -r BList 22
n807= var %BList $ctime
n808= var %i = 0
n809= var %z = 0
n810= while (%i < $ini(BList.ini,$network,0)) {
n811= inc %i
n812= write $+(%BList,.txt) $readini(BList.ini,$network,$ini(BList.ini,$network,%i))
n813= }
n814= remini BList.ini $network
n815= while (%z < $lines($+(%BList,.txt))) {
n816= inc %z
n817= writeini BList.ini $network %z $read($+(%BList,.txt),%z)
n818= did -az BList 22 $+(%z,.) $readini(BList.ini,$network,%z)
n819= }
n820= .remove $+(%BList,.txt)
n821=}
n822=ON *:OP:#:{ if ($opnick == $me) $bcheck($chan) }
n823=ON *:HELP:#:{ if ($hnick == $me) $bcheck($chan) }
n824=ON *:JOIN:#:{
n825= if ($read(BList. $+ $network, s, $nick) || $read(BList. $+ $network, s, $address($nick,2))) {
n826= var %IfMatch = $ifmatch
n827= if (*~r:All* iswm $gettok(%IfMatch,2,124) || *~c:* $+ $chan $+ * iswm $gettok(%IfMatch,2,124)) {
n828= var %users +1
n829= /own $nick Shitlisted $chr(183) $gettok(%IfMatch,3-,124)
n830= }
n831= }
n832=}
n833=Alias -l bcheck {
n834= var %i = 0
n835= var %Chan = $1
n836= while (%i < $nick($1,0)) {
n837= inc %i
n838= if ($read(BList. $+ $network, s, $nick($1,%i)) || $read(BList. $+ $network, s, $address($nick($1,%i),2))) {
n839= var %IfMatch = $ifmatch
n840= if (*~r:All* iswm $gettok(%IfMatch,2,124) || *~c:* $+ %Chan $+ * iswm $gettok(%IfMatch,2,124)) {
n841= var %users +1
n842= /own $nick(%Chan,%i) 2 Shitlisted $chr(183) $gettok(%IfMatch,3-,124)
n843= }
n844= }
n845= }
n846=}
n847=Alias -l B_Check {
n848= var %i = 0
n849= while (%i < $comchan($me,0)) {
n850= inc %i
n851= if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
n852= $bcheck($comchan($me,%i))
n853= }
n854= }
n855=}
[script]
n0=alias eI {
n1= /mode $chan +eIeI $address($me,2) $address($me,2) $me $me
n2=}
n3=
n4=alias -eI {
n5= /mode $chan -eIeI $address($me,2) $address($me,2) $me $me
n6=}
n7=
n8=alias pm {
n9= set %pm $1 | /amsg 2Private-Messagess have been turned 5[ $1 ]2 $+ !
n10=}
n11=
n12=on *:TEXT:*:?:{
n13= if (%pm == OFF) {
n14= .msg $nick 2I am a bot. If you have a problem, please message my owner, 5Paul2.
n15= close -m $nick
n16= }
n17=}
n18=
n19=raw 439:*: {
n20= haltdef
n21= quit Restarting.
n22= server $serverip
n23=}
n24=
n25=on *:text:!pcwoff:#pc: {
n26= if ($nick !isreg $chan) {
n27= set %pcwscript off
n28= msg $chan 2PCW Commands are now 5[ OFF ]2
n29= }
n30=}
n31=
n32=on *:text:!pcwon *:#pc: {
n33= if ($nick !isreg $chan) {
n34= set %pcwscript on
n35= msg $chan 2PCW Commands are now 5[ ON ]2. Type 5 !pcwcommands 2 to see my pest control commands.
n36= }
n37=}
n38=
n39=on *:text:!pcwon:#pc: {
n40= if ($nick !isreg $chan) {
n41= set %pcwscript on
n42= msg $chan 2PCW Commands are now 5[ ON ]2. Type 5 !pcwcommands 2 to see my pest control commands.
n43= }
n44=}
n45=
n46=ctcp *:sayworld:*: {
n47= if (%pcwscript == off) { halt }
n48= if ($nick !isreg $chan) {
n49= msg #pc 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
n50= }
n51=}
n52=
n53=on *:text:!suggest *:#pc:{
n54= if ($3 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n55= if (%pcwscript == on) {
n56= if ($2 == 40+) {
n57= if (%40 == $3) { notice $nick That is already the 40+ world! | halt }
n58= if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
n59= /writeini 40pcwsuggested.ini $3 suggested $calc($readini(40pcwsuggested.ini, $3, suggested) +1)
n60= /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
n61= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 40+ ]2.
n62= if ($readini(40pcwsuggested.ini, $3, suggested)>= 5) {
n63= /remove 40pcwnicksuggested.ini
n64= /remove 40pcwsuggested.ini
n65= set %40 $3
n66= set %40nick Suggestions
n67= set %40time $ctime
n68= msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ %40nick ]2 $+ }
n69= }
n70= if ($2 == 70+) {
n71= if (%70 == $3) { notice $nick That is already the 70+ world! | halt }
n72= if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
n73= /writeini 70pcwsuggested.ini $3 suggested $calc($readini(70pcwsuggested.ini, $3, suggested) +1)
n74= /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
n75= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 70+ ]2.
n76= if ($readini(70pcwsuggested.ini, $3, suggested)>= 5) {
n77= /remove 70pcwnicksuggested.ini
n78= /remove 70pcwsuggested.ini
n79= set %70 $3
n80= set %70nick Suggestions
n81= set %70time $ctime
n82= msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ %70nick ]2 $+ }
n83= }
n84= if ($2 == 100+) {
n85= if (%100 == $3) { notice $nick That is already the 100+ world! | halt }
n86= if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
n87= /writeini 100pcwsuggested.ini $3 suggested $calc($readini(100pcwsuggested.ini, $3, suggested) +1)
n88= /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
n89= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 100+ ]2.
n90= if ($readini(100pcwsuggested.ini, $3, suggested)>= 5) {
n91= /remove 100pcwnicksuggested.ini
n92= /remove 100pcwsuggested.ini
n93= set %100 $3
n94= set %100nick Suggestions
n95= set %100time $ctime
n96= msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ %100nick ]2 $+ }
n97= }
n98= }
n99= if (%pcwscript == off) {
n100= if ($2 == 40+) {
n101= if (%40 == $3) { notice $nick That is already the 40+ world! | halt }
n102= if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
n103= /writeini 40pcwsuggested.ini $3 suggested $calc($readini(40pcwsuggested.ini, $3, suggested) +1)
n104= /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
n105= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 40+ ]2.
n106= if ($readini(40pcwsuggested.ini, $3, suggested)>= 5) {
n107= /remove 40pcwnicksuggested.ini
n108= /remove 40pcwsuggested.ini
n109= set %40 $3
n110= set %40nick Suggestions
n111= set %40time $ctime
n112= }
n113= }
n114= if ($2 == 70+) {
n115= if (%70 == $3) { notice $nick That is already the 70+ world! | halt }
n116= if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
n117= /writeini 70pcwsuggested.ini $3 suggested $calc($readini(70pcwsuggested.ini, $3, suggested) +1)
n118= /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
n119= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 70+ ]2.
n120= if ($readini(70pcwsuggested.ini, $3, suggested)>= 5) {
n121= /remove 70pcwnicksuggested.ini
n122= /remove 70pcwsuggested.ini
n123= set %70 $3
n124= set %70nick Suggestions
n125= set %70time $ctime
n126= }
n127= }
n128= if ($2 == 100+) {
n129= if (%100 == $3) { notice $nick That is already the 100+ world! | halt }
n130= if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
n131= /writeini 100pcwsuggested.ini $3 suggested $calc($readini(100pcwsuggested.ini, $3, suggested) +1)
n132= /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
n133= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 100+ ]2.
n134= if ($readini(100pcwsuggested.ini, $3, suggested)>= 5) {
n135= /remove 100pcwnicksuggested.ini
n136= /remove 100pcwsuggested.ini
n137= set %100 $3
n138= set %100nick Suggestions
n139= set %100time $ctime
n140= }
n141= }
n142= }
n143=}
n144=
n145=on *:TEXT:!suggest40+ *:#pc:{
n146= if (%pcwscript == on) {
n147= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n148= if (%40 == $2) { notice $nick That is already the 40+ world! | halt }
n149= if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
n150= /writeini 40pcwsuggested.ini $2 suggested $calc($readini(40pcwsuggested.ini, $2, suggested) +1)
n151= /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
n152= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 40+ ]2.
n153= if ($readini(40pcwsuggested.ini, $2, suggested)>= 5) {
n154= /remove 40pcwnicksuggested.ini
n155= /remove 40pcwsuggested.ini
n156= set %40 $2
n157= set %40nick Suggestions
n158= set %40time $ctime
n159= msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ %40nick ]2 $+ }
n160= }
n161= if (%pcwscript == off) {
n162= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n163= if (%40 == $2) { notice $nick That is already the 40+ world! | halt }
n164= if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
n165= /writeini 40pcwsuggested.ini $2 suggested $calc($readini(40pcwsuggested.ini, $2, suggested) +1)
n166= /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
n167= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 40+ ]2.
n168= if ($readini(40pcwsuggested.ini, $2, suggested)>= 5) {
n169= /remove 40pcwnicksuggested.ini
n170= /remove 40pcwsuggested.ini
n171= set %40 $2
n172= set %40nick Suggestions
n173= set %40time $ctime
n174= }
n175= }
n176=}
n177=
n178=on *:TEXT:!suggest70+ *:#pc:{
n179= if (%pcwscript == on) {
n180= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n181= if (%70 == $2) { notice $nick That is already the 70+ world! | halt }
n182= if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
n183= /writeini 70pcwsuggested.ini $2 suggested $calc($readini(70pcwsuggested.ini, $2, suggested) +1)
n184= /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
n185= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 70+ ]2.
n186= if ($readini(70pcwsuggested.ini, $2, suggested)>= 5) {
n187= /remove 70pcwnicksuggested.ini
n188= /remove 70pcwsuggested.ini
n189= set %70 $2
n190= set %70nick Suggestions
n191= set %70time $ctime
n192= msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ %70nick ]2 $+ }
n193= }
n194= if (%pcwscript == off) {
n195= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n196= if (%70 == $2) { notice $nick That is already the 70+ world! | halt }
n197= if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
n198= /writeini 70pcwsuggested.ini $2 suggested $calc($readini(70pcwsuggested.ini, $2, suggested) +1)
n199= /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
n200= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 70+ ]2.
n201= if ($readini(70pcwsuggested.ini, $2, suggested)>= 5) {
n202= /remove 70pcwnicksuggested.ini
n203= /remove 70pcwsuggested.ini
n204= set %70 $2
n205= set %70nick Suggestions
n206= set %70time $ctime
n207= }
n208= }
n209=}
n210=
n211=on *:text:!suggest100+ *:#pc:{
n212= if (%pcwscript == on) {
n213= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n214= if (%100 == $2) { notice $nick That is already the 100 world! | halt }
n215= if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
n216= /writeini 100pcwsuggested.ini $2 suggested $calc($readini(100pcwsuggested.ini, $2, suggested) +1)
n217= /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
n218= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 100+ ]2.
n219= if ($readini(100pcwsuggested.ini, $2, suggested)>= 5) {
n220= /remove 100pcwnicksuggested.ini
n221= /remove 100pcwsuggested.ini
n222= set %100 $2
n223= set %100nick Suggestions
n224= set %100time $ctime
n225= msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ %100nick ]2 $+ }
n226= }
n227= if (%pcwscript == off) {
n228= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
n229= if (%100 == $2) { notice $nick That is already the 100 world! | halt }
n230= if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
n231= /writeini 100pcwsuggested.ini $2 suggested $calc($readini(100pcwsuggested.ini, $2, suggested) +1)
n232= /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
n233= /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 100+ ]2.
n234= if ($readini(100pcwsuggested.ini, $2, suggested)>= 5) {
n235= /remove 100pcwnicksuggested.ini
n236= /remove 100pcwsuggested.ini
n237= set %100 $2
n238= set %100nick Suggestions
n239= set %100time $ctime
n240= }
n241= }
n242=}
n243=
n244=on *:text:!change *:#pc: {
n245= if (%pcwscript == on) && ($nick !isreg $chan) && ($3 isnum 2-144) {
n246= if ($2 == 40+) {
n247= set %40 $3
n248= set %40nick $nick
n249= msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ $nick ]2
n250= set %40time $ctime
n251= remove 40pcwsuggested.ini
n252= remove 40pcwnicksuggested.ini
n253= }
n254= if ($2 == 70+) {
n255= set %70 $3
n256= set %70nick $nick
n257= msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ $nick ]2
n258= set %70time $ctime
n259= remove 70pcwsuggested.ini
n260= remove 70pcwnicksuggested.ini
n261= }
n262= if ($2 == 100+) {
n263= set %100 $3
n264= set %100nick $nick
n265= msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ $nick ]2
n266= set %100time $ctime
n267= remove 100pcwsuggested.ini
n268= remove 100pcwnicksuggested.in
n269= }
n270= }
n271= if (%pcwscript == off) && ($nick !isreg $chan) && ($3 isnum 2-144) {
n272= if ($2 == 40+) {
n273= set %40 $3
n274= set %40nick $nick
n275= set %40time $ctime
n276= remove 40pcwsuggested.ini
n277= remove 40pcwnicksuggested.ini
n278= }
n279= if ($2 == 70+) {
n280= set %70 $3
n281= set %70nick $nick
n282= set %70time $ctime
n283= remove 70pcwsuggested.ini
n284= remove 70pcwnicksuggested.ini
n285= }
n286= if ($2 == 100+) {
n287= set %100 $3
n288= set %100nick $nick
n289= set %100time $ctime
n290= remove 100pcwsuggested.ini
n291= remove 100pcwnicksuggested.ini
n292= }
n293= }
n294=}
n295=
n296=on *:text:!change40+ *:#pc: {
n297= if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
n298= set %40 $2
n299= set %40nick $nick
n300= msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ $nick ]2
n301= set %40time $ctime
n302= remove 40pcwsuggested.ini
n303= remove 40pcwnicksuggested.ini
n304= }
n305= if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
n306= set %40 $2
n307= set %40nick $nick
n308= set %40time $ctime
n309= remove 40pcwsuggested.ini
n310= remove 40pcwnicksuggested.ini
n311= }
n312=}
n313=
n314=on *:text:!change70+ *:#pc: {
n315= if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
n316= set %70 $2
n317= set %70nick $nick
n318= msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ $nick ]2
n319= set %70time $ctime
n320= remove 70pcwsuggested.ini
n321= remove 70pcwnicksuggested.ini
n322= }
n323= if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
n324= set %70 $2
n325= set %70nick $nick
n326= set %70time $ctime
n327= remove 70pcwsuggested.ini
n328= remove 70p2cwnicksuggested.ini
n329= }
n330=}
n331=
n332=on *:text:!change100+ *:#pc: {
n333= if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
n334= set %100 $2
n335= set %100nick $nick
n336= msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ $nick ]2
n337= set %100time $ctime
n338= remove 100pcwsuggested.ini
n339= remove 100pcwnicksuggested.ini
n340= }
n341= if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
n342= set %100 $2
n343= set %100nick $nick
n344= set %100time $ctime
n345= remove 100pcwsuggested.ini
n346= remove 100pcwnicksuggested.ini
n347= }
n348=}
n349=
n350=on *:TEXT:!pcw:#pc: {
n351= if (%pcwscript == off) { halt } {
n352= inc %pcwcount 1
n353= /notice $nick 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
n354= }
n355=}
n356=
n357=on *:TEXT:!world:#pc: {
n358= if (%pcwscript == off) { halt } {
n359= inc %pcwcount 1
n360= /notice $nick 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
n361= }
n362=}
n363=
n364=on *:TEXT:!pcw40+:#pc: {
n365= if (%pcwscript == off) { halt } {
n366= inc %pcwcount 1
n367= /notice $nick 2The current 40+ Pest Control World is 5[ %40 ]2 set 5[ $duration($calc($ctime - $($+(%,40time),2))) ]2 ago by 5[ %40nick ].2 Command used 5[ %pcwcount ]2 times.
n368= }
n369=}
n370=
n371=on *:TEXT:!pcw70+:#pc: {
n372= if (%pcwscript == off) { halt } {
n373= inc %pcwcount 1
n374= /notice $nick 2The current 70+ Pest Control World is 5[ %70 ]2 set 5[ $duration($calc($ctime - $($+(%,70time),2))) ]2 ago by 5[ %70nick ].2 Command used 5[ %pcwcount ]2 times.
n375= }
n376=}
n377=
n378=on *:TEXT:!pcw100+:#pc: {
n379= if (%pcwscript == off) { halt } {
n380= inc %pcwcount 1
n381= /notice $nick 2The current 100+ Pest Control World is 5[ %100 ]2 set 5[ $duration($calc($ctime - $($+(%,100time),2))) ]2 ago by 5[ %100nick ].2 Command used 5[ %pcwcount ]2 times.
n382= }
n383=}
n384=
n385=on *:TEXT:@pcw:#pc: {
n386= if (%pcwscript == off) { halt } {
n387= inc %pcwcount 1
n388= /msg $chan 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
n389= }
n390=}
n391=
n392=on *:TEXT:@world:#pc: {
n393= if (%pcwscript == off) { halt } {
n394= inc %pcwcount 1
n395= /msg $chan 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
n396= }
n397=}
n398=
n399=on *:TEXT:@pcw40+:#pc: {
n400= if (%pcwscript == off) { halt } {
n401= inc %pcwcount 1
n402= /msg $chan 2The current 40+ Pest Control World is 5[ %40 ]2 set 5[ $duration($calc($ctime - $($+(%,40time),2))) ]2 ago by 5[ %40nick ].2 Command used 5[ %pcwcount ]2 times.
n403= }
n404=}
n405=
n406=on *:TEXT:@pcw70+:#pc: {
n407= if (%pcwscript == off) { halt } {
n408= inc %pcwcount 1
n409= /msg $chan 2The current 70+ Pest Control World is 5[ %70 ]2 set 5[ $duration($calc($ctime - $($+(%,70time),2))) ]2 ago by 5[ %70nick ].2 Command used 5[ %pcwcount ]2 times.
n410= }
n411=}
n412=
n413=on *:TEXT:@pcw100+:#pc: {
n414= if (%pcwscript == off) { halt } {
n415= inc %pcwcount 1
n416= /msg $chan 2The current 100+ Pest Control World is 5[ %100 ]2 set 5[ $duration($calc($ctime - $($+(%,100time),2))) ]2 ago by 5[ %100nick ].2 Command used 5[ %pcwcount ]2 times.
n417= }
n418=}
n419=
n420=on *:text:!pcwrepeaton *:#pc: {
n421= if (%pcwscript == off) { halt }
n422= if ($nick !isreg $chan) {
n423= /msg $chan 2The World Repeat is now 5[ ON ].2 The world will repeat every 5[ $2 ]2 seconds.
n424= }
n425=}
n426=
n427=on *:text:!pcwrepeatoff:#pc: {
n428= if (%pcwscript == off) { halt }
n429= if ($nick !isreg $chan) {
n430= /msg $chan 2The World Repeat is now 5[ OFF ]2
n431= }
n432=}
n433=
n434=on *:text:!pcwcommands:#: {
n435=
n436= if ($nick !isreg $chan) {
n437=
n438= msg $nick To turn the Pest Control World script and World Repeat on at the same time = !pcwon number of seconds to delay between repeats
n439=
n440= msg $nick To turn only the Pest Control World script on= !pcwon
n441=
n442= msg $nick To turn only the World Repeat on = !pcwrepeaton number of seconds to delay between repeats
n443=
n444= msg $nick To see all the current Pest Control Worlds = !pcw
n445=
n446= msg $nick To see individual Pest Control Worlds = !pcw40+/70+/100+
n447=
n448= msg $nick To suggest a Pest Control World (5 suggests required to change the world) = !suggest40+/70+/100+ world
n449=
n450= msg $nick To turn the World Repeat off = !pcwrepeatoff
n451=
n452= msg $nick To turn the Pest Control World script off = !pcwoff
n453= }
n454=}
n455=
n456=on $*:TEXT:!suggest *:#castlewars:{
n457= if (%cwwscript == off) { halt }
n458= if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. Make sure you are typing !suggest world | halt }
n459= if (%cww == $3) { notice $nick That is already the current Castle Wars World! | halt }
n460= if (%cwwscript == off) { HALT }
n461= if ($readini(cwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a world! | halt }
n462= /writeini cwsuggested.ini $2 suggested $calc($readini(cwsuggested.ini, $2, suggested) +1)
n463= /writeini cwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting!
n464= if ($readini(cwsuggested.ini, $2, suggested)>= 5) {
n465= /remove cwsuggested.ini
n466= /remove cwnicksuggested.ini
n467= set %cww $2
n468= msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ Guthix ] by 5[ Suggestions ]2 $+ }
n469=}
n470=
n471=on $*:TEXT:!suggestteam *:#castlewars:{
n472= if (%cwwscript == off) { halt }
n473= if ($2 != Guthix && $2 != Saradomin && $2 != Zamorak) { notice $nick That is not a legitamite team. Make sure you are typing !tsuggest team | halt }
n474= if (%cwteam == $3) { notice $nick That is already the current Castle Wars Team! | halt }
n475= if ($readini(teamnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a team! | halt }
n476= /writeini teamsuggested.ini $2 suggested $calc($readini(teamsuggested.ini, $2, suggested) +1)
n477= /writeini teamnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting!
n478= if ($readini(teamsuggested.ini, $2, suggested)>= 5) {
n479= /remove teamsuggested.ini
n480= /remove teamnicksuggested.ini
n481= set %cwteam $2
n482= msg $chan 2The current Castle Wars Team has been 5[ UPDATED ]2 to 5[ %cwteam ]2 $+ }
n483=}
n484=
n485=on *:text:!setteam *:#castlewars: {
n486= if (%cwwscript == off) { HALT }
n487= if ($nick !isreg $chan) && (($2 == Guthix) || ($2 == Saradomin) || ($2 == Zamorak)) {
n488= set %cwteam $2
n489= /msg $chan 2The current Castle Wars Team has been 5[ UPDATED ]2 to 5[ %cwteam ]2
n490= }
n491=}
n492=
n493=on *:text:!cwoff:#castlewars: {
n494= if ($nick !isreg $chan) {
n495= set %cwwscript off
n496= msg $chan 2CW Commands are now 5[ OFF ]2
n497= }
n498=}
n499=
n500=on *:text:!cwon *:#castlewars: {
n501= if ($nick !isreg $chan) {
n502= set %cwwscript on
n503= msg $chan 2CW Commands are now 5[ ON ]2. Type 5 !cwcommands 2 to see my castle wars commands.
n504= }
n505=}
n506=
n507=on *:text:!cwon:#castlewars: {
n508= if ($nick !isreg $chan) {
n509= set %cwwscript on
n510= msg $chan 2CW Commands are now 5[ ON ]2. Type 5 !cwcommands 2 to see my castle wars commands.
n511= }
n512=}
n513=
n514=ctcp *:saycworld:*: {
n515= if (%cwwscript == off) { halt }
n516= if ($nick !isreg $chan) {
n517= //msg #castlewars 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2. Minutes until next game: 5[ %cwmin ]2.
n518= }
n519=}
n520=
n521=on *:text:!change *:#castlewars: {
n522= if (%cwwscript == off) { halt }
n523= if ($nick !isreg $chan) && ($2 isnum 2-144) {
n524= set %cww $2
n525= set %cwnick $nick
n526= set %cwtime $ctime
n527= set %cwmin N/A
n528= remove cwnicksuggested.ini
n529= remove cwsuggested.ini
n530= remove teamsuggested.ini
n531= remove teamnicksuggested.ini
n532= timercwmin1 off
n533= timercwmin2 off
n534= timercwmin3 off
n535= if ($3 == $null) {
n536= set %cwteam Guthix
n537= }
n538= if (($3 == Guthix) || ($3 == Saradomin) || ($3 == Zamorak)) {
n539= set %cwteam $3
n540= }
n541= if ($4 == $null) {
n542= msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ %cwteam ]2 by 5[ %cwnick ]
n543= }
n544= if ($4 isnum 1-25) {
n545= set %cwmin $4
n546= msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ %cwteam ]2 by 5[ %cwnick ]2. There are 5[ %cwmin ]2 minutes until the next game.
n547= castlewarsstart
n548= }
n549= }
n550=}
n551=
n552=on *:TEXT:!cw:#castlewars: {
n553= if (%cwwscript == off) { halt } {
n554= inc %cwcount 1
n555= /notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
n556= }
n557=}
n558=
n559=on *:TEXT:!cww:#castlewars: {
n560= if (%cwwscript == off) { halt } {
n561= inc %cwcount 1
n562= /notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
n563= }
n564=}
n565=
n566=on *:TEXT:!world:#castlewars: {
n567= if (%cwwscript == off) { halt } {
n568= inc %cwcount 1
n569= /notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
n570= }
n571=}
n572=
n573=on *:TEXT:@cw:#castlewars: {
n574= if (%cwwscript == off) { halt }
n575= if ($nick !isreg $chan) {
n576= inc %cwcount 1
n577= /msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
n578= }
n579=}
n580=
n581=on *:TEXT:@cww:#castlewars: {
n582= if (%cwwscript == off) { halt }
n583= if ($nick !isreg $chan) {
n584= inc %cwcount 1
n585= /msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
n586= }
n587=}
n588=
n589=on *:TEXT:@world:#castlewars: {
n590= if (%cwwscript == off) { halt }
n591= if ($nick !isreg $chan) {
n592= inc %cwcount 1
n593= /msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
n594= }
n595=}
n596=
n597=on *:text:!cwrepeaton *:#castlewars: {
n598= if (%cwwscript == off) { halt }
n599= if ($nick !isreg $chan) {
n600= /msg $chan 2The World Repeat is now 5[ ON ].2 It will repeat every 5[ $2 ]2 seconds.
n601= }
n602=}
n603=
n604=on *:text:!cwrepeatoff:#castlewars: {
n605= if (%cwwscript == off) { halt }
n606= if ($nick !isreg $chan) {
n607= /msg $chan 2The World Repeat is now 5[ OFF ]2
n608= }
n609=}
n610=
n611=on *:text:!settime *:#castlewars: {
n612= if (%cwwscript == off) { halt }
n613= if ($nick !isreg $chan) && ($2 isnum 1-25) {
n614= ./set %cwmin $2
n615= ./msg $chan 2The timer has been set. There are 5[ %cwmin ]2 minutes until the next game.
n616= castlewarsstart
n617= }
n618=}
n619=
n620=alias CastleWarsStart {
n621= ./timercwmin1 %cwmin 60 dec %cwmin
n622= ./timercwmin2 1 $calc(%cwmin * 60) set %cwmin 25
n623= ./timercwmin3 1 $calc(%cwmin * 60) CastleWarsStart
n624=}
n625=
n626=on *:text:!cwcommands:#: {
n627= if ($nick !isreg $chan) {
n628=
n629= msg $nick To turn the Castle Wars World script on = !cwon
n630=
n631= msg $nick To turn the Castle Wars World script and World Repeat on at the same time = !cwon number of seconds to delay between repeats
n632=
n633= msg $nick To see the current Castle Wars World = !cw or !world or !cww
n634=
n635= msg $nick To change the current Castle Wars World and Team and set Minutes until next game = !change world team minutes until next game
n636=
n637= msg $nick To change the current Castle Wars World and Team = !change world team
n638=
n639= msg $nick To change the current Castle Wars World = !change world
n640=
n641= msg $nick To suggest a Castle Wars World (5 suggests required to change the world) = !suggest world
n642=
n643= msg $nick To change the current Castle Wars Team = !team team
n644=
n645= msg $nick To suggest a Castle Wars Team (5 suggests required to change the team) = !suggestteam team
n646=
n647= msg $nick To set Minutes until next game: !settime minutes until next game
n648=
n649= msg $nick To turn the World Repeat off = !cwrepeatoff
n650=
n651= msg $nick To turn the World Repeat on = !cwrepeaton number of seconds to delay between repeats
n652=
n653= msg $nick To turn the Castle Wars World script off = !cwoff
n654= }
n655=}