IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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 :)
PHP- Kodu:
   ##################################
##                              ##
##   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"
###