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
}

alias tara {
  if $1 ischan {
    var %d = $lines(badnick.txt)
    while %d {
      if $fline($1,$read(badnick.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(badnick.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) Bad Nick! } | dec %q } }
      dec %d 
    } 
  }
}