on *:NICK:{
  if $badnick($newnick) {
    var %e = 1, %u = $v1
    while $comchan($newnick,%e) {
      if $me isop $v1 {
        mode $v2 +b %u
        kick $v2 $newnick Bad Nick!
      }
      inc %e
    }
  }
}
alias badnick {
  var %e = 1
  while $read(badnick.txt,%e) {
    if $v1 iswm $1 {
      return $v1
    }
    inc %e
  }
  return $false
}