🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
################################################################## ## Kufur.tcl v2.0 - Bu .tcl IRCturk Network Team Tarafindan ## ## hazirlanmistir. Eger herhangi bir problemle karsilasirsaniz ## ## yada bir oneriniz varsa Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. style="color: #0000BB">set bansebebi "Kufur Ettiginiz icin Banlandiniz..! - Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. style="color: #FF8000"># 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 { "salak" "mal" "kufur" }
# 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 "]} { 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 } } } } #