Stuff

on *:JOIN:#pcelites,:{  
  set %whois. $chan 
  set %whois $nick
  .whois $nick 
} 

raw 319:*:{ 
  var %getchan 1 
  while ( $numtok($3-,32) >= %getchan ) { 
    if ($nick ishop #pcelites) || ($nick isop #pcelties) { 
halt }
{
    if ($len($read(badchans.txt, w, $remove($gettok($3-,%getchan,32),@,%,+) ))>3) && ($gettok($3-,%getchan,32) != %whois. [ $+ [ $2 ] ]) { 
      if (%whois. [ $+ [ $2 ] ] == $remove($gettok($3-,%getchan,32),@,%,+)) { inc %getchan } 
      if ( $2 IsOp %whois. [ $+ [ $2 ] ] ) || ( $2 IsHop %whois. [ $+ [ $2 ] ] ) { inc %getchan } 
      if ($left($gettok($3-,%getchan,32),1) == @) || ($left($gettok($3-,%getchan,32),1) == %) { mode %whois. [ $+ [ $2 ] ] -e $2 | ban -ku60 %whois. %whois 15,14You are on a banned channel. Please part it and come back!. 8,14 1 15Minute Ban. }



      else { ban -ku60 %whois. %whois 11,14You are on a banned channel. Please part it and come back!. 8,14 1 11Minute Ban. }


    } 
    inc %getchan 
  } 
  unset %whois.
  unset %whois
}