slm kod yardımı bendeki koda otomatik badnick tarama yapabilirmiyiz ek olarak bide girien nicki girmiş olduhu kanallarda atması icin
@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:NICK: {
var %i 1
while %i <= $comchan($newnick,0) {
if $comchan($newnick,%i) == #MUAFKANAL1 { halt }
if $comchan($newnick,%i) == #MUAFKANAL2 { halt }
else if $me isop $comchan($newnick,%i) || $me ishop $comchan($newnick,%i) {
mode $comchan($newnick,%i) +b $newnick | .timer 1 1 kick $comchan($newnick,%i) $newnick Kotu Nick veya Ident algilandi, Lutfen "/nick yeninick" komutu ile nickinizi degistirip yeniden geliniz.
}
inc %i
}
}
ON @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:#: {
if $chan == #MUAFKANAL1 { halt }
if $chan == #MUAFKANAL2 { halt }
else if $me isop $chan || $me ishop $chan {
{ msg # !nick $nick
}
}
alias badekle {
if $1 == $null { echo -a 8,1 ===> Hatali kullanim. "/badekle nick" seklinde deneyiniz. | halt }
.write bad.txt bad: $+ $1 $+ !*@*.*
.load -ru bad.txt
echo -a 9,1 ===> $1 Badnick listesine eklendi.
}
alias badsil {
if $1 == $null { echo -a 8,1 ===> Hatali kullanim. "/badsil nick" seklinde deneyiniz. | halt }
if $read(bad.txt,w,* $+ $1 $+ *) {
.write -dl $+ $readn bad.txt
.load -ru bad.txt
echo -a 15,1 ===> $1 Badnick listesinden silindi.
}
else { echo -a 8,1 ===> $1 Badnick listesinde bulunamadi }
}
alias badlist {
echo -a 11,1 -- Bad nick listesi --
var %i 1
while %i <= $lines(bad.txt) {
echo -a ===> %i - $+ $gettok($gettok($read(bad.txt,%i),1,33),2,58)
inc %i
}
}