Merhaba arkadaşlar
Forumdan
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu tcl yazmak istedim. Forumda basit tcl yazmak yasak ama arkadaşın işini görürse bu yasağı bir kere daha çiğnemiş olalım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
##################################
## ##
## Temizle TCL coded by Raw ##
## ##
## senali [ @ ] live.com ##
## ##
##################################
## Temizle Komutunu Giriniz
set tmz(komut) "!temizle"
## Zaman Limiti Giriniz ( 1 = 1 saniye , 30 = 30 saniye )
set tmz(zmn) "30"
## Yönetim Kanalı Giriniz ( Bu kanalda ise tüm kanallarda ve peşpeşe kullanabilir )
set tmz(yonetim) "#opers"
## Op Kanalı Giriniz ( Bu kanalda ise tüm kanallarda ve zaman limiti ile kullanabilir )
set tmz(op) "#ops"
bind pub - $tmz(komut) temizle
proc temizle {nick uhost hand chan text} {
global tmz
if {[isop $nick $chan] || [onchan $nick $tmz(op)] || [onchan $nick $tmz(yonetim)]} {
if {![info exists ::kmtsyc([set temizleyen [md5 [string tolower $uhost]]])]} {
if {![onchan $nick $tmz(yonetim)]} { set ::kmtsyc($temizleyen) 0 }
utimer $tmz(zmn) [list unset ::kmtsyc($temizleyen)]
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 Bayrakları\002 BAYRAK\002 yapan üstündeki kandır \003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 Eğer toprak uğrunda ölen varsa\002 VATANDIR \002\003"
putquick "PRIVMSG $chan \00304|\003"
putquick "PRIVMSG $chan \00300,04 C* \003\00300,01 Ne MutLu\002 TÜRKÜM\002 Diyene \003\00300,04 C* \003"
return 0
}
if {[incr ::kmtsyc($temizleyen)] == 1} { putquick "notice $nick :Bu komut aşırı sıklıkla kullanılamaz." }
}
}
###
putlog "Temizle TCL yuklendi - coded by Raw"
###