Cevap: istek tcl soru ?
isteginiz dj iletilmisir demiyor istegi dj yaziyor. ama o oda dj iletilmistir demiyor..
bind pub - !istek istek
proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick İsteği: $kanal"
putserv "PRIVMSG $kanal :İsteğiniz DJ'lerimize İletilmiştir $gnick."
}
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:48 -->-> Daha önceki mesaj 23:47 -- soyle diyim kodu calisiyor istek diyorsun istegi dj odasina gonderiyor ama istedigi istedigi oda isteginiz dj iletilmistir demiyor..
bind pub - !istek istek
proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick İsteği: $kanal"
putserv "PRIVMSG $chan :İsteğiniz DJ'lerimize İletilmiştir $gnick."
}
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 :İ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 :Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
} |