on *:NICK: {
if $nick(#channel,$newnick,a,o) {
var %bcnk = 1
while $gettok($badnick,%bcnk,32) {
if $+(*,$gettok($badnick,%bcnk,32),*) iswm $newnick {
hinc -m badnick $newnick
var %badnick = $gettok($badnick,%bcnk,32)
if ($hget(badnick,$newnick) == 1) command 1
if ($hget(badnick,$newnick) == 2) command 12
}
}
dec %bcnk
}
}