on *:nick: {
  if $ulist(*,badnick,$newnick) {
    var %i 1
    while (%i <= $comchan($newnick,0)) {
      mode $comchan($newnick,%i) +b $address($newnick,2) | kick $comchan($newnick,%i) $newnick badnick
      inc %i
    }
  }
}