Kanal da Nick Değişenleri (Kötü Nick) Kanaldan Atma

[invertor]

on *:NICK:{
if $badnick($newnick) {
var %e = 1, %u = $v1
while $comchan($newnick,%e) {
if $me isop $v1 {
mode $v2 +b %u
kick $v2 $newnick Bad Nick!
}
inc %e
}
}
}
alias badnick {
var %e = 1
while $read(badnick.txt,%e) {
if $v1 iswm $1 {
return $v1
}
inc %e
}
return $false
}
alias tara {
if $1 ischan {
var %d = $lines(badnick.txt)
while %d {
if $fline($1,$read(badnick.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(badnick.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) Bad Nick! } | dec %q } }
dec %d
}
}
}