IRC ve mIRC Kullanıcılarının Buluşma Noktası
  zurna net

  IRC ve mIRC Kullanıcılarının Buluşma Noktası Genel IRCD (Sunucu, Servis, Botlar, Korumalar) Eggdrop, NeoStats, BNC TCL Scriptler

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:
##################################
##                              ##
##   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:
##################################
##                              ##
##   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
Şuan Çevrimiçi
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




diyarbakır escort bursa escort konya escort gaziantep escort bodrum escort