on *:NICK: {
  var %/ = 1
  while ($ulist(*,Nick,%/)) {
    if ($remove($ulist(*,Nick,%/),*,@,!) isin $newnick)) {
      var %i = 1
      while ($comchan($newnick,%i)) {
        mode $comchan($newnick,%i) +b $newnick
        kick $comchan($newnick,%i) $newnick Badnick
        inc %i 1
      }
    }
    inc %/ 1
  }
}