Forums Scripts & Popups Banned nickwords script needs subtle improvement

var %i = 1, %c
while ($comchan($newnick,%i)) { 
%c = $v1
if (!$nick(%c,$newnick,oh)) && ($me isop %c) && ($read(G:\pathway\bannednickwords.txt,nw,$+(*,$newnick,*))) {
ban -ku30 %c $newnick 2 $newnick Not Allowed!
}
inc %i 
}