| Cevap: hatamı var?
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 $read(kick.txt)
}
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) $read(kick.txt) } | dec %q } }
dec %d
}
}
}
bu kodu bitane txt dosyasına at mIRC'ıN klasorune at
bad.txt die oluştur içine at , /load -rs bad.txt
sonra bitane badnick.txt die oluştur nickleri içine kaydet mIRC'IN Klasorune at /load -rs badnick.txt böyle yüklemeyi dene.
|