TemizLe TCL ( Zaman Limitli ) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Raw · 29 Ağustos 2010, 04:04

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"
###

GhostLy · 29 Ağustos 2010, 18:04

Raw Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

basit tcl yazmak yasak diyen olmadı alim yardımcı olman güzel insanlara sana kimsede basit tcl yazmak yasak falan diyemez senin basit dediklerini bilmeyenler var , SaW ve ben demiştik ki kendini biraz daha zorla başara bilirsin ali
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Gelismis kanal temizle TCL. (temizle.tcl)	¿	TCL Scriptler	14	28 Ocak 2017 23:52
limitli adsl kullanıcıları için müthiş program	Burak	Bilgisayar Donanımı	2	07 Ekim 2006 07:42

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.