[SIR-Busy]

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."
}

[YaRGuCi]

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

Alıntı:

putserv "PRIVMSG #Radyo

[CLubber]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 $kanal :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 $kanal :4Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}

[SIR-Busy]

Ç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 ) "
}

[CLubber]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 $kanal :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 $kanal :4Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}

Bunu denememişsin,

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 ) " 
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 ) "

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.