on *:NICK: {
if ($hget(badnick,$newnick)) {
var %n = $comchan($newnick,0)
while (%n) { if ($me isop $comchan($newnick,%n)) {
ban -k $comchan($newnick,%n) $newnick 2 please change nick (forbidden nick)
}
dec %n
}
}
}
on *:START:if (!$hget(badnick)) hmake badnick 100
on *:PART:hsave -o badnick badnick.hsh
on *:DISCONNECT:hsave -o badnick badnick.hsh