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
}
}
}
/Tara #Kanal Dediğinde Kanaldaki ßadNickleri Atar.
Öncelikle mIRC Klasörüne Badnick.txt şeklinde bir dosya hazırlamalasın ve nickleri alt alta yazmalısın. eğer kanalda bir user nick değişitirip bad nick yaparsa gene atılır.
Bad nickleri badnick.txt dosyasına alt alta sırala daha sonra ;
mirc klosörünün içine at mircini açtıkdan sonra txt dosyasını kaydetmen için /load -rs badnick.txt şeklinde yüklemen gerekir.
Yada Remotelerine bir txt dosyası açıp oraya Ekleme yapabilirsin.
kod cesuryurek e aittir
