Konu: tcl yardım
Tekil Mesaj gösterimi
Alt 20 Aralık 2009, 09:47   #8
Çevrimdışı
toXic Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: tcl yardım




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind mode - * modes bind raw - NOTICE modess proc modess {from keyword arg} { if { [lindex $arg 8] == "+q" || [lindex $arg 8] == "+oq" || [lindex $arg 8] == "+qo"} { unbind mode - * modes putserv "privmsg [lindex $arg 7] [lindex $arg 9] Su Anda FOUNDER ( Kanal Sahibi) Konumuna Gecti. " utimer 1[list bind mode - * modes] } else if { [lindex $arg 8] == "+a" || [lindex $arg 8] == "+oa" || [lindex $arg 8] == "+ao"} { unbind mode - * modes putserv "privmsg [lindex $arg 7] [lindex $arg 9] Su Anda PROTECT ( Kanal Super Operatoru) Konumuna Gecti. " utimer 1[list bind mode - * modes] } } proc modes {eden b c kanal mode etken} { else if {$mode == "+o"} { putserv "privmsg $kanal $etken Su Anda AOP ( Kanal Operatoru) Konumuna Gecti. " } else if {$mode == "+h"} { putserv "privmsg $kanal $etken Su Anda HALFOP ( Kanal Yardimci Operatoru) Konumuna Gecti. " } }

Su Sekil deneyin

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan