Bad Idents Protection v1.0 for Konrado

; ---- Settings ----

alias -l bad_idents_file { return $mircdir $+ badidents.txt }
alias -l bad_idents_ban_time { return 120 } ; 120 = seconds

; ---- Settings ----

ON !@*:JOIN:#: { check_bad_ident $nick $chan $ial($nick).user }

ON !*:NICK: {
  var %t = $comchan($newnick,0)

  if (!%t) { return }

  var %i = 1
  while (%i <= %t) {
    var %c = $comchan($newnick,%i)

    if (%c) && ($me isop %c) { check_bad_ident $newnick %c $ial($newnick).user }

    inc %i
  }
}

alias -l check_bad_ident {
  var %l = $lines($bad_idents_file)

  if (!$1) || (!$2) || (!$3) || (!%l) { return }

  var %i = 1
  while (%i <= %l) {
    var %n = $read($bad_idents_file,n,%i)

    if (%n == $3) || (%n iswm $3) {
      inc %knum

      ban $+(-ku,$bad_idents_ban_time) $2 $1 2 4[Banned] (reason: BAD IDENT ( $+ %n $+ ) are NOT permitted on this channel -- Please change your ident and rejoin! Thank you -13- [Kick id: $chr(35) $+ %knum $+ ] (Expires in: $duration($bad_idents_ban_time) $+ )
    }

    inc %i
  }
}