on @*:JOIN:#:{
  var %e = $lines(badnick.txt)
  while %e {
    if $read(badnick.txt,%e) iswm $nick {
      mode # +b $ifmatch
      kick # $nick Bad Nick!.
    }
    else {
      dec %e
    }
  }
}