TCL - Radyo Help
 

Merhaba Arkadaşlar istek karşılama bölümünde bir yardıma ihtiyacım var uğraştım baya ama çözemedim Alta paylaştığım TCL'de User #radyo kanalinda isteğini istedi zaman djler dj kanalinda !var yada !yok diyerek kanala mesajla bilgilendiriyorlar bu mesajlari kanala değilde istek isteyen kullacının özeline gitmesini istiyorum yardimci olursaniz sevinirim.


bind pub - !var var
bind pub - !yok yok
proc var {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "PRIVMSG #Radyo :4İ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 #Radyo :4Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}

Cevap: TCL - Radyo Help
 

#radyo yazan yerleri $nick olarak degisirsen özeline mesaj gider

Cevap: TCL - Radyo Help
 

Cevap: TCL - Radyo Help
 

Çalışmadı arkadaşlar verdiğinizi uyguladim olmadi ben şöyle birşey yaptım kanala yoluyor yine ama kanalda nickinede hitap ediyor ama ben direk özeline gitsin istek yapanının istiyorum denedim olmadi verdiklerinizi.


bind pub - !var vardir

proc vardir {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #Radyo 14 İsteğiniz Listemde Mevcuttur, Çalmak Üzere Sıraya Alınmıştır : 12 $gnick "
putserv "PRIVMSG #istek 14 Cevabın Sıraya Alındı Olarak Yollandi : 12 $gnick 2( $kanal ) "
}

bind pub - !yok yoktur

proc yoktur {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #Radyo 14 İsteğiniz Listemde Yoktur Lütfen Başka İstekte Bulunun : 12 $gnick "
putserv "PRIVMSG #istek 14 Cevabın Listemde Yok Olarak Yollandi Dj 12 $gnick 2( $kanal ) "
}

Cevap: TCL - Radyo Help
 

Bunu denememişsin,

Böyle bi kod gösteriyorsun. Burda belirtilmiş olan #Radyo ve #Istek Kanalları var. O Yüzden Göndermiyor. Benim Verdiğim TCL'yi dene.