on *:join:#:
var %bdn $lines(badnick.txt)
while (%bdn  0)
if $read(badnick.txt,%bdn) iswm $nick
if $me isop #
mode # +b $nick
kick # $nick Badnick
} | else
cs op # $me
timer 1 2 mode # +b $nick
timer 1 2 kick # $nick Badnick
}
dec %bdn
}
}
}