proc yes {n u h c a} {
   set kanal [lindex $a 0]
   putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Isteginiz Arsivimizde Mevcut. Kisa Süre Içinde Isteginiz yayinlanacaktir."
}

proc no {n u h c a} {
  set kanal [lindex $a 0]
  putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,Isteginiz Arsivimizde Bulunmamaktadir. Baska Bir Istekte Bulunabilirsiniz."
}


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 :Kullanimi !istek on/off seklindedir."; return 0 }
    if {[string match -nocase "on" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo Istekleri Kabul Edilecek."; return 0 }
    if {[string match -nocase "off" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo Istekleri Reddedilecek."; return 0 }
    }
    if {[string match -nocase "#Radyo" $chan]} {
    if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} { 
    putquick "PRIVMSG #Radyo :12Isteginiz DJ'lerimize Iletilmistir 4 $nick."
    putquick "PRIVMSG #DJ 12Radyo Istegi:4 $text 12Istekte Bulunan Kullanici: 4 $nick"
    }
    if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { 
    putquick "PRIVMSG #Radyo 12Üzgünüz 4 $nick 12Suanda Istek Alimi Yoktur, Lütfen Daha Sonra Deneyiniz..."
    }
  }
}
putlog "Radyo Panel TCL v1.0 CLubber"

proc istek {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a ]
	putserv "PRIVMSG #DJ 1Istek Isteyen Nick 4$gnick1 - Istegi:4 $kanal"
    putserv "PRIVMSG #Radyo :4Isteginiz DJ'lerimize iletilmistir2 $gnick 5( $kanal )"
}

proc istek {n u h c a} {
  set kanal [lindex $a 0]
putserv "PRIVMSG #DJ 1Istek Isteyen Nick 4$gnick1 - Istegi:4 $kanal"
putserv "PRIVMSG #DJ :\0034Istek Isteyen Nick \002$n\0034 Istegi:\001 $kanal"
  putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. Isteginizi Kontrol Ediyorum."
}

bind pub - !istek istekProc
proc istekProc {nick uhost hand chan arg} {
  global istek
  # eger !istek yazip yanina birsey yazmadiysa komutun
  # nasil kullanilacagini gösterelim.
  if {$arg == ""} {
    putquick "privmsg $chan :\002HATA\022 isteginizi belirtmeyi unuttunuz."
    putquick "privmsg $chan :\002Dogru kullanim:\002 !istek sarkiciadi - sarkisi - kime istediginiz."
    return
  }
  # burada olusturdugumuz degisken mevcut mu bakiyoruz.
  # eger mevcutsa komutu durduruyoruz.
  if {[info exists istek([md5 $uhost])]} { 
    putquick "privmsg $chan :4$nick 12, 15 Dakika Içerisinde 4Sadece 1 kez 12Istekte bulunabilirsiniz!...."
    return 
  }
  # simdi ise komutlari uygulatalim
  putquick "privmsg #dj :2Istek Isteyen Nick 4\002$nick\002, 2Istenilen Sarki: 4\002$arg\002 2isteginde bulundu." 
  putquick "privmsg $chan :\002$nick\002 isteginiz djlerimize iletilmistir."
  # simdi de bu kisinin hostunu degiskene atayalim.
  set istek([md5 $uhost]) 1
  # bu degiskeni 15 dk sonra yokedelim
  timer 15[list unset istek([md5 $uhost])]

}