on *:nick:{
var %i = $numtok($badnick,32) ,%n $newnick ,%c $comchan(%n,0)
while (%i) {
if ($+(*,$gettok($badnick,%i,32),*) iswm %n) { hinc -m badnick %n $calc($hget(badnick,$nick) +1) | break }
dec %i
}
var %h = $hget(badnick,%n) ,%cmd $iif(%h == 1,kick,ban -k)
while (%c && %h) {
if ($me isop $comchan($newnick,%c)) && ($newnick !isop $v2) %cmd $v2 %n $iif(%h == 2,2) Badnick !
dec %c
}
}
i made some change, hope it's works
Note : your method to check if the nick is "bad" or not is not the best...
