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