Öncelikle botun ircop olarak accessi olduğunu @ konumunda durmadığını belirteyim. Aşağıdaki kodda bot sadece ban atıyor kicklemiyor ve haliyle kick sebebide yazmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Bunu nasıl ekliyebilirim ? kick # $nick küfretmek yasaktır gibi.
2. sorum botun attığı banı 900 sn sonra açmasını istiyorum ban -u900 olayını nasıl uygulamalıyım ?
putkick filan yazıyor ama yukarıda belirttiğim gibi sadece banlıyor kicklemiyor .Yani kısaca yapmaya çalıştığım bot ircop konumunda iken sadece banlayıp kickleyecek ve 900 saniye sonra banı açacak.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
# Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"
# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"
## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"
set opass "operpass"
# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..
set kufurler {
"kufur"
"kufur1"
"kufur2*"
"kufur3*"
"kufur4"
"duzerim"
"-"
"-*"
}
# Bu kadar..!
bind pubm - * kufurban
# DOKUNMAYIN..!
# Dokunmak delikanliyi bozar ;P
bind evnt - init-server botoper_yap
proc botoper_yap {type} {
global onick opass
if {$botoper == 1} {
putquick "OPER $onick $opass"
}
}
proc kufurban {nick uhost hand chan rest} {
global kufurler botoper bansebebi
foreach w $kufurler {
if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} {
if {$botoper == 1} {
putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next
putquick "KILL $nick :$bansebebi" -next
return 1
} else {
putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next
putkick $chan $nick $bansebebi
return 1
}
}
}
}
putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."