IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver


Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


TCL Scriptler

TCL Scriptler, kullanımları, işleyiş ve modifikasyonları



2Beğeni(ler)
  • 1 Post By Raw
  • 1 Post By GhostLy

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Ağustos 2010, 04:04   #1
Çevrimdışı
Raw
Raw - ait Kullanıcı Resmi (Avatar)
TemizLe TCL ( Zaman Limitli )


-- Sponsor Baglantı --


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 20 mesajınız olması gerekir.


PHP- Kodu:   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(komuttemizle

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

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 20 mesajınız olması gerekir.


PHP- Kodu:   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(komuttemizle

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

__________________
AnıL
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 29 Ağustos 2010, 18:04   #2
Çevrimdışı
Cevap: TemizLe TCL ( Zaman Limitli )




Raw Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 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 20 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 20 mesajınız olması gerekir.

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  Alıntı ile Cevapla

Cevapla

Etiketler
limitli, tcl, temizle, zaman

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


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