Konu: tcl yardım
Tekil Mesaj gösterimi
Alt 19 Aralık 2009, 19:08   #6
Çevrimdışı
BuCaLI
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: tcl yardım




+q ve +a için şöyle bir çözüm olabilir. Ancak bazen kararsız çalışabilir bu şekilde yinede pek sorunlu olacağını sanmam..

Bi deneyin sorun olursa bu konu altından devam edelim..

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] } elseif { [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} { if {$mode == "+o"} { putserv "privmsg $kanal $etken Su Anda AOP ( Kanal Operatoru) Konumuna Gecti. " } if {$mode == "+h"} { putserv "privmsg $kanal $etken Su Anda HALFOP ( Kanal Yardimci Operatoru) Konumuna Gecti. " } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver