on *:JOIN:#pest-hq,:{  
  set %whois. $chan 
  set %whois $nick
  .whois $nick 
} 

raw 319:*:{ 
  var %getchan 1 
  if ($nick ishop #pest-hq) || ($nick isvoice #pest-hq) || ($nick isop #pest-hq) || ($nick == $me) { halt }  
  while ( $numtok($3-,32) >= %getchan ) { 
    if ($len($read(bannedchans.txt, w, $remove($gettok($3-,%getchan,32),@,%,+) ))>3) && ($gettok($3-,%getchan,32) != %whois. [ $+ [ $2 ] ]) { 
      if (%whois. [ $+ [ $2 ] ] == $remove($gettok($3-,%getchan,32),@,%,+)) { inc %getchan } 


      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
}