Badnicks Kicker for Wizard v1.0

alias check_badnick {
  var %f = badnicks.txt
  var %t = $lines(%f)
  if (!%t) { return }

  var %i = 1
  while (%i <= %t) {
    var %r = $read(%f,n,%i)
    if (%r iswm $1) { return 1 }
    inc %i
  }

  return 0
}


ON !*:JOIN:#: {
  if ($check_badnick($nick)) {
    msg # 3 $nick 12 Your nick is inappropriate. Please change it in 30 sec by typing 4/nick newnick
    timer 1 30 ban # -ku600 $nick
  }
}

ON !*:NICK: {
  if ($check_badnick($newnick)) {
    var %t = $comchan($newnick,0)
    var %i = 1
    while (%i <= %t) {
      var %chan = $comchan($newnick,%i)
      msg %chan 3 $newnick 12 Your nick is inappropriate. Please change it in 30 sec by typing 4/nick newnick
      timer 1 30 ban %chan -ku600 $newnick
      inc %i
    }
  }
}