Tekil Mesaj gösterimi
Alt 15 Aralık 2015, 08:57   #15
Çevrimdışı
rascoLn Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: istek tcl soru ?




birde bu şekil dene bakalım..

#Dj kanalında !istek on yazarsan istekleri açar , !istek off yazarsan kapatır.

Her ikisindede dj ve radyo kanalına mesaj gonderir..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !istek istek bind pub - !var var bind pub - !yok yok set onoff "0" proc istek {n u h c a} { global gnick gchan set gchan $c set gnick $n set kanal [lindex $a ] if { [string match -nocase "#dj" $gchan] & $a eq "on" | $a eq "off" } { if {$a eq "on"} { set ::onoff 1; putquick "privmsg $gchan :İstekler kullanıma açıldı."; putquick "privmsg #radyo :İstek alımları kullanıcılarımıza açılmıştır."; return } else { set ::onoff 0; putquick "privmsg $gchan :İstekler kullanıma kapatıldı."; putquick "privmsg #radyo :İstek alımları şuan itibarı ile kapatıldı."; return } } if { ![string match -nocase "#radyo" $gchan] } { putquick "notice $gnick :istekler sadece #radyo kanalından yapılmaktadır."; return 0 } if { $a ne "on" & $a ne "off" } { if { $::onoff eq 1 } { putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] 2 İstekte Bulunan Kullanıcı: 4 $gnick $gchan 2 Kanalında İsteği: $kanal" putserv "privmsg $gchan :2 İsteğiniz DJ'lerimize İletilmiştir 4 $gnick." } else { putquick "privmsg $gchan :İstek alımı yapılmamaktadır.." } } } proc var {n u h c a} { set kanal [lindex $a 0] if {![string match -nocase "#DJ" $c]} {return 0} putserv "privmsg $kanal : 2 İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır." } proc yok {n u h c a} { set kanal [lindex $a 0] if {![string match -nocase "#DJ" $c]} {return 0} putserv "privmsg $kanal : 2 Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz." }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan