| Badnick.tcl
arkadaşlar aşağıdaki küfür tcl dosyasını badnick dosyasına cevirirmisiniz lütfen.
piyasadaki badnick tcl ler kafamı karıstırdı birsey anlamadım ama bu küfür.tcl i yapan arkadas güzel yapmıs bunun badnick versiyonunu istiyorum yardımlarınız şimdiden tşkler.
# Kick yada oper ise kill mesaji
set bansebebi "Sunucuda Kufur Ettiginiz icin Atildiniz Lütfen Bir Daha Yapmayiniz.!"
# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "1"
## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "Kraker"
set opass "sikerimanani"
# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..
set kufurler {
"am"
"got"
"sik"
"göt"
"düzerim"
"duzerim"
"sık"
"sokar"
"yalarım"
"yalarim"
"orozpu"
"******"
"pic"
"***"
"yarrag"
"hasiktir"
"siker"
"amci"
"amcı"
"ibne"
"******"
"*****"
"amc1k"
"siktir"
"********"
"P1C"
"P1Ç"
"AMINA"
"ipne"
"********"
}
# Bu kadar..!
bind pubm - * kufurban
# DOKUNMAYIN..!
# Dokunmak delikanliyi bozar ;P
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..."
|