Replace #chan1, #chan2, #chan3 etc..... with the bad channels
Code:
on @*:join:#:{
  $+(.timer,whois,#,$network,$nick) 1 1 whois $nick
}
raw 319:*: {
  var %b = #chan1 #chan2 #chan3 #chan4 #chan5 #chan6
  if ($istok(%b,$3,32)) {
    var %x = $comchan($2,0)
    while (%x) {
      if ($me isop $comchan($2,%x)) {
        ban -ku $v2 $2 2 unacceptable channel detected!
      }
      dec %x
    }
  }
}