alias badnick { var %_ = 1 | while $read(badnick.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
on *:join:#:if $badnick($nick) { mode # +b $v1 | kick # $nick kötü nick: $v1 }
on *:nick:{ if $badnick($newnick) { var %_ = 1, %d = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %d | kick $v2 $newnick kötü nick: %d } | inc %_ } } }