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

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
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
TemizLe TCL ( Zaman Limitli )




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


__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Ağustos 2010, 18:04   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: TemizLe TCL ( Zaman Limitli )




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.

 
Alıntı ile Cevapla

Cevapla

Etiketler
limitli, tcl, temizle, zaman


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
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 Kapalı
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