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 "aç" $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 :İsteğiniz DJ'lerimize İletilmiştir $nick."
    putquick "PRIVMSG #DJ Radyo İsteği: $text İstekte Bulunan Kullanıcı: $nick"
    }
    if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { 
    putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."
    }
  }
}
putlog "Radyo Panel TCL v1.0 CLubber"