Remote War from Ryandy Aditya

[script]
n0=#war on
n1=on !*:KICK:#:{
n2= if ($me == $knick) {
n3= unset %op
n4= if ($nick != ChanServ) {
n5= .auser warlist $wildsite
n6= set %warlist $addtok(%warlist,- $+ $nick,44)
n7= if ($rejoin == yes) { unset %rejoin | .timer 1 0 join # }
n8= else { set %rejoin ! | .timer 1 2 msg chanserv invite # }
n9= }
n10= else { .timer 1 15 msg chanserv invite # }
n11= }
n12= elseif ($me == $nick) && ($istok(%warlist,- $+ $knick,44) == $true) { set %warlist $remtok(%warlist,- $+ $knick,1,44) }
n13=}
n14=#war end
n15=on me:*:PART:#:{ unset %op }
n16=on me:*:JOIN:#:{ .timer 1 5 checkme # }
n17=on +warlist:JOIN:#:{
n18= set %warlist $addtok(%warlist,- $+ $nick,44)
n19= if ($me isop $chan) { kick # $nick $red }
n20= else {
n21= inc -u2 %deopmax
n22= if (%deopmax < 3) { msg chanserv op # $replace(%warlist,$chr(44),$chr(32)) }
n23= }
n24=}
n25=on *:OP:#:{
n26= if ($nick == ChanServ) && ($opnick == $me) && (!%op) {
n27= set %op !
n28= if (%fastkicklist) { raw -q kick # $remove(%fastkicklist,-) 15,4Fastkick | unset %fastkicklist }
n29= else {
n30= set -u0 %num $numtok(%warlist,44)
n31= while (%num) {
n32= if ($+(-,$gettok(%warlist,%num,44)) !ison $chan) { set %warlist $remtok(%warlist,- $+ $gettok(%warlist,%num,44),1,44) }
n33= dec %num
n34= }
n35= if (%warlist) { kick # $remove(%warlist,-) $adit }
n36= }
n37= if (%mode) { .timer 1 0 mode # - $+ %mode | unset %mode }
n38= }
n39=}
n40=on *:DEOP:#:{
n41= if ($nick != ChanServ) && ($opnick == $me) && (%op) {
n42= unset %op
n43= set %warlist $addtok(%warlist,- $+ $nick,44)
n44= .auser warlist $wildsite
n45= msg chanserv op # $+(-,$nick)
n46= .timer 1 0 msg chanserv op # $me
n47= }
n48=}
n49=on *:NOTICE:*has deopped*:#:{
n50= if ($nick == ChanServ) && ($4 == $me) && (%op) {
n51= unset %op
n52= if ($1 ison $chan) { set %warlist $addtok(%warlist,- $+ $1,44) }
n53= if (%warlist) { msg chanserv op # $replace(%warlist,$chr(44),$chr(32)) }
n54= .timerop 1 0 msg chanserv op # $me
n55= }
n56=}
n57=on *:INVITE:#:{
n58= if ($nick == ChanServ) {
n59= if (!%warlist) { join # }
n60= else .timer 1 7 attack #
n61= }
n62=}
n63=RAW 471:*:{ set %mode l | set %rejoin ! | .timer 1 2 msg chanserv invite $2 }
n64=RAW 473:*:{ set %mode i | set %rejoin ! | .timer 1 2 msg chanserv invite $2 }
n65=RAW 474:*:{ set %rejoin ! | .timer 1 0 msg chanserv unban $2 | .timer 1 5 msg chanserv invite $2 }
n66=RAW 475:*:{ set %mode k | set %rejoin ! | .timer 1 2 msg chanserv invite $2 }
n67=RAW 477:*:{ set %mode R | set %rejoin ! | .timer 1 2 msg chanserv invite $2 }
n68=RAW 353:*:{
n69= set -u0 %raw $remove($5-,+,@)
n70= set -u0 %num $numtok(%warlist,44)
n71= set %fastkicklist %warlist
n72= while (%num) {
n73= if ($istok(%raw,- $+ $gettok(%warlist,%num,44),32) == $false) { set %fastkicklist $remtok(%warlist,- $+ $gettok(%warlist,%num,44),1,44) }
n74= dec %num
n75= }
n76=}
n77=on *:START:{ .rlevel -r OP,warlist | unsetall }
n78=alias /rejoin { if (%rejoin) { return yes } }
n79=alias /checkme { if ($me ison $1) { set %rejoin ! } }
n80=alias /attack {
n81= msg chanserv op $1 $replace(%warlist,$chr(44),$chr(32))
n82= join $1
n83=}
n84=#banprotect off
n85=on *:ban:#:{
n86= if ($banmask iswm $address($me,5)) { mode # -ob+b $nick $banmask $wildsite | kick # $nick 4jangan ban gue }
n87=}
n88=#banprotect end
n89=#banlocker off
n90=on *:unban:#:{
n91= if ($level($banmask) == warlist) { mode # +b $banmask }
n92=}
n93=#banlocker end
n94=menu channel {
n95= WaR Settings
n96= .Clear user:{ .rlevel warlist | .unset %warlist | msg $chan 15,14 Users-List Clear  }
n97= .On:{ .enable #war | msg $chan 3,1[9|0B15e14stw15a0R9|3] }
n98= .Off:{ .disable #war | msg $chan 15,14 WaR Mode OFF }
n99= -
n100= Ban Protection
n101= .On:{ .enable #banprotect | echo -a 15,14 Ban Protection ON  }
n102= .Off:{ .disable #banprotect | echo -a 15,14 Ban Protection OFF  }
n103= -
n104= Ban Locker
n105= .On:{ .enable #banlocker | echo -a 15,14 Ban locked ON  }
n106= .Off:{ .disable #banlocker | echo -a 15,14 Ban locked OFF  }
n107= -
n108= Set kick msg:{ set %msg $$?="Enter:" }
n109=}
n110=menu nicklist {
n111= WaR list
n112= .Add:{ .guser warlist $$1 2 | echo -a $$1 has been added to warlist }
n113= .Del:{ .ruser warlist $$1 2 | echo -a $$1 has been removed from warlist }
n114=}
n115=menu query {
n116= WaR list
n117= .Add:{ .guser warlist $active 2 | echo -a $$1 has been added to warlist }
n118= .Del:{ .ruser warlist $active 2 | echo -a $$1 has been removed from warlist }
n119=}
n120=alias adit {
n121= return 3,1[9|0B15e14stw15a0R9|3]14 15,1(cbn-VERSION)
n122=}
n123=alias Red {
n124= return 4 $+ » 11,1[] $+ %msg $+ []
n125=}
n126=
n127=;-----------end of script-------------------;