Forums Scripts & Popups NICKCHANge CHECK FROM LIST

alias checknicks {
  var %x = 1
  while (%x <= $lines($mircdirbnicks.txt)) {
    var %i = 1
    while (%i <= $nick($chan,%i)) {
      if ($read(bnicks.txt,%x) iswm $nick($chan,%i)) {
        kick $chan $nick($chan,%i) Bad Nick. < $+ $read(bnicks.txt,%x) $+ >
        ban $chan $nick($chan,%i)
      }
      inc %i
    }
    inc %x
  }
}

on !*:NICK:{ checknicks }

ON  *!:nick: {
  var %newnick = 1 , %badwords = 1
  while ($comchan($newnick,%newnick) != $null )  {
    var %chan $v1
    if ($nick(%chan,$me,~&@%) || !$nick(%chan,$newnick,~&@%)) {
      while (%badwords <= $lines(badnicks.txt)) { 
        if ($regex($newnick,/( $+ $read(badnicks.txt,%badwords) $+ )/i)) {  
          mode %chan +b $+(*,$regml(1),*!*@*)
          kick %chan $newnick «--bad-nick--»  
        } 
        inc %badwords
      }
    }
    inc %newnick 
  }
}