Something

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

raw 319:*:{ 
  var %getchan 1 
  if (%whois !isreg #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
}