Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias badekle {
if $1 {
if $read(bad.txt,w,$1) {
echo -at $1 zaten listede.
return
}
write bad.txt $1
echo -at $1 listeye eklendi.
}
}
alias bsil {
if $1 {
if !$read(bad.txt,w,$1) {
echo -st $1 listede yok.
return
}
write $+(-dl,$readn) bad.txt
echo -st $1 bad listesinden silindi.
}
}
alias blist {
var %s = 1,%ss = $lines(bad.txt)
while %s <= %ss {
echo -a Badnick: $read(bad.txt,%s)
inc %s
}
}
alias -l bn {
var %s = 1
while ($read(badnick.txt,%s)) {
if $+(*,$v1,*) iswm $2 {
hinc -m bn nk 1
ban -k $1 $2 2 sebeb.
break
}
inc %s
}
}
alias tara {
$iif($hget(bn),hfree bn)
echo -ae Badnick taraması başlatıldı.
var %1 = 1
while ($nick($active,%1)) {
bn $active $v1
inc %1
}
echo -ae $active Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$chr(41)) badnick atıldı.
}
;KOD
on @*:text:!tara:#:{
var %s = 1,%ss = $lines(bad.txt)
while %s <= %ss {
if $+(*,$read(bad.txt,%s),*) iswm $1- {
os raw svsnick Nick Misafir $+ $rand(0,9999) :0
}
inc %s
}
}
on *:join:#:if $nick == $me { .tara $chan }