Code:
On @*:Join:#: {
  var %x = $comchan($nick,0)
  while (%x) {
    kick $comchan($nick,%x) $nick
    ;maybe a ban here
    dec %x
  }
}