|
| Alıntı: |
bind pub - !istek istekoff
proc istekoff {nick uhost hand chan text} {
setudef flag radyocmd
if {[string match -nocase "#DJ" $chan]} {
set komut [lindex $text 0]
if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek aç/kapat şeklindedir."; return 0 }
if {[string match -nocase "ac" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek."; return 0 }
if {[string match -nocase "kapat" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0 }
}
if {[string match -nocase "#Radyo" $chan]} {
if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} {
putquick "PRIVMSG #Radyo :2İsteğiniz DJ'lerimize İletilmiştir 4$nick ,2teşekkürler."
putquick "PRIVMSG #DJ 6G E L E N İ S T E K"
putquick "PRIVMSG #DJ 4----------------------------------------------------"
putquick "PRIVMSG #DJ 2İstek:1 $text "
putquick "PRIVMSG #DJ 4----------------------------------------------------"
putquick "PRIVMSG #DJ 2İstekte Bulunan Kullanıcı: 1 $nick"
putquick "PRIVMSG #DJ 4----------------------------------------------------"
}
if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} {
putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."
}
}
}
|
Istek tcl bu şekilde fakat belirttiğiniz kodu ekleyince hiç bir şekilde istek almıyor @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]