Pasted

; Put this script in a new page (Remotes, ALT+R)
; and put the nicklist in a new file.
; put it in the same folder as mirc.exe name it badnicks.txt
on !*:JOIN:#:{
  var %x = 1
  while (%x <= $lines($mircdirbadnicks.txt)) {
    if ($read(badnicks.txt,%x) iswm $nick) { .msg x ban $chan $nick SpamBot }
    inc %x
  }
}
 
alias checknicks {
  var %x = 1
  while (%x <= $lines($mircdirbadnicks.txt)) {
    var %i = 1
    while (%i <= $nick($chan,%i)) {
      if ($read(badnicks.txt,%x) iswm $nick($chan,%i)) { .msg x ban $chan $nick($chan,%i) SpamBot }
      inc %i
    }
    inc %x
  }
}
 
on !*:NICK:{ checknicks }