[script]
n0=on *:TEXT:!chanscan:#:{
n1=  if ($nick == JJ_Boss) || ($nick == `steven`) {
n2=    set %var 1
n3=    msg $chan 2Scanning4 $chan 2for users on forbidden channels...
n4=    while (%var < $calc($nick($chan,0) + 1) ) {
n5=      if $nick($chan,%var) != $me {
n6=
n7=        .whois $nick($chan,%var)
n8=
n9=
n10=      }
n11=      inc %var 1
n12=    } 
n13=  }
n14=}
n15=
n16=on *:JOIN:#pcelites:{ 
n17=  set %whois. $+ $nick $chan
n18=  .whois $nick
n19=}
n20=
n21=raw 319:*:{
n22=  var %getchan 1
n23=  while ( $numtok($3-,32) >= %getchan ) {
n24=    if ($len($read(badchans.txt, w, $remove($gettok($3-,%getchan,32),@,%,+) ))>3) && ($gettok($3-,%getchan,32) != %whois. [ $+ [ $2 ] ]) {
n25=      if (%whois. [ $+ [ $2 ] ] == $remove($gettok($3-,%getchan,32),@,%,+)) { inc %getchan }
n26=      if ( $2 IsOp %whois. [ $+ [ $2 ] ] ) || ( $2 IsHop %whois. [ $+ [ $2 ] ] ) { inc %getchan }
n27=      if ($left($gettok($3-,%getchan,32),1) == @) || ($left($gettok($3-,%getchan,32),1) == %) { mode %whois. [ $+ [ $2 ] ] +b $address($2,2) | kick %whois. [ $+ [ $2 ] ] $2 Get The Away from here nub. Perm Ban. }
n28=      else { mode %whois. [ $+ [ $2 ] ] -e $2 | ban -u300 %whois. [ $+ [ $2 ] ] $address($2,2) | kick %whois. [ $+ [ $2 ] ] $2 2You are on a forbidden channel:4 $remove($gettok($3-,%getchan,32),@,%,+) $+ 2, Please part it and come back. 5 Minute Ban. }
n29=    }
n30=    inc %getchan
n31=  }
n32=}






~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----------------new here ---
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[script]
n0=on $*:TEXT:/^[!@.]addch/Si:#:{
n1=  if ($nick == jj_boss) || ($nick == `steven`) {    
n2=    msg $chan 2Added4 $2 2to PCChans Banlist.
n3=    var %file = badchans.txt
n4=    if ( !$read(%file,nw,$2) ) write %file $2
n5=  }
n6=}
n7=on $*:TEXT:/^[!@.]delch/Si:#:{
n8=  if ($nick == JJ_Boss) || ($nick == `Steven`) {
n9=    msg $chan 2Deleted4 $2 2from PCChans Banlist.
n10=    var %file = badchans.txt
n11=    if ($read(%file,nw,$2)) write $+(-dl,$readn) %file
n12=  }
n13=}
n14=