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

}

bind pubm - * kanalda:yap

proc kanalda:yap {nick uhost hand chan arg} {

global server botnick

 if {[string match -nocase "#DJ" $chan]} {

  if {[string match -nocase "!link" $arg]} { putquick "PRIVMSG $*[join [split [lrange [split [lindex [split $server :] 0] .] 1 end] " "] .] :\002 Radyomuzu Winamptan dinlemek için \0034http://ircforumlari.com:port/listen.pls\003 adresine tıklayiniz..";return 0}

 }

} 

set radyo(chan) "#MynetFM"
set radyo(adm) "#DJ"

bind pub - !var var
bind pub - !yok yok


proc var {nick uhost hand chan text} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $chan]} {
    set kisi [lindex $text 0]
    if {$kisi == ""} {
        putquick "PRIVMSG $chan :5 Nick belirtmediniz. "
        putquick "PRIVMSG $chan :5 Kullanimi: 1,12.!var <NICK> 5seklindedir. "
        return
    }
        if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "; putquick "PRIVMSG $kisi :1,12 $kisi 5isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
    }
}

proc yok {n u h c a} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $c]} {
    set kisi [lindex $a 0]
    if {$kisi == ""} {
        putquick "PRIVMSG $c :5 Nick belirtmediniz. "
        putquick "PRIVMSG $c :5 Kullanimi: 1,12.!yok <NICK> 5seklindedir. "
        return
    }
    if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "; putquick "PRIVMSG $kisi :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
    }
} 

putserv "PRIVMSG #Radyo :İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."

putserv "PRIVMSG $kanal :$kanal, İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."