on *:JOIN:#: { 
  .whois $nick $nick
  set % $+ $+(badchanscan,.,$nick) $chan
}
 
raw 319:*: { 
  var %x = $numtok($3-,32)
  while (%x) { 
    if (*#andrew* iswm $gettok($3-,%x,32)) { 
      kick $eval(% $+ $+(badchanscan,.,$2),2) $2 Bad channel found: $remove($v2,+,@)
    }
    dec %x
  }
}