#################### Ayarlar #####################
set radyo(ip) "xx"
set radyo(port) "xx"
set radyo(pass) "xx"
set radyo(chan) "#Radyo"
set radyo(adm) "#DJ"
set radyo(drm) "!durum"
set radyo(link) "!link"
set radyo(dinleyen) "!dinleyen"
set radyo(dj) "!dj"
set radyo(yardim) "!Help"
set radyo(kick) "!kick"
set radyo(djcmd) "!dj"
set radyo(weblink) ""
set radyo(wiamplink) ""
set radyo(calan) "!çalan"
set radyo(online)     "1"
################### Ayarlar bitti burdan sonrasina dokunma

bind time - "* * * * *" isonline 
bind time - "?0 * * * *" global:at
bind join - * dj:giris
bind pubm - * kanala:yaz
bind pub - !var var
bind pub - !yok yok
bind pub - !istek istek
bind pub - !dur dur
bind pub - !basla basla
bind pub - !global global:at

channel add $radyo(chan)
channel add $radyo(adm)


proc global:at {nick uhost hand chan arg} {
    global radyo temizle
        putquick "os global 0,1 Radyoyu webden dinlemek için  5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "os global 0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxx/listen.pls "
        putquick "os global 0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu kullanınız. Örnek: !. "
}

proc helpme {nick uhost hand chan arg} {
    global radyo
    putquick "PRIVMSG $radyo(chan) :0,1 Bilgi için 11$radyo(yardim) 0kanalına giriş yapabilirsiniz. "
}


##proc dj:giris {nick uhost hand chan} {
##global botnick radyo
  ##  if {$nick == $botnick} { putquick "MODE $chan +h $botnick";putquick "MODE $chan -f";return 0}
    ##if {[string match -nocase $radyo(adm) $chan]} {
      ##  if {$nick == $botnick} {return 0}
        ##elseif {$nick == "OleyFm"} {return 0}
        ##elseif {[onchan $nick "#xx"]} {return 0}
        ##elseif {[onchan $nick "#DJ"]} {return 0}
        ##else {
          ##  putquick "CHGHOST $nick BotSystem.A-NET"
            ##putquick "CHGIDENT $nick A-NET"
            ##return 0
        ##}
    ##}
##}

proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] } 
proc kanala:yaz {nick uhost hand chan arg} {
    global radyo botnick server temizle
    if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
        putquick "PRIVMSG $chan :Baglanamadi : $sockerror"
        return 0 
    } else {  
        puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" 
        puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" 
        puts $sock "Host: $radyo(ip)" 
        puts $sock "Connection: close" 
        puts $sock "" 
        flush $sock 
        while {[eof $sock] != 1} { 
        set bl [gets $sock] 
            if { [string first "standalone" $bl] != -1 } { 
                set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]] 
                set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]] 
                set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]] 
                set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]] 
                set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]] 
                set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]] 
                set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]] 
                set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] 
                set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] 
                set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]] 
                if {$sgenre != ""} {set sgenre " ($sgenre)"} 
                set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]] 
                set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]] 
                set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]] 
                if {$icq == 0} { set icq "N/A" } 
                set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]] 
                set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]] 
                set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]] 
                set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]] 
                if {[string match -nocase $radyo(chan) $chan]} { 
                    if {[string match -nocase $radyo(calan) $arg]} {
                        if {$streamstatus == 1} {
                        putquick "PRIVMSG $radyo(chan) :0,1 Şu an radyoda çalan parça : 5|11 [temizle $calan] 5| "
                        return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(drm) $arg]} {
                        if {$streamstatus == 1} {
                            putquick "PRIVMSG $radyo(chan) :-"
                            putquick "PRIVMSG $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça :5 | 11[temizle $calan] 5| "
                            putquick "PRIVMSG $radyo(chan) :11,1 MatikFm0'i şu anda 5|11 [expr $repl +12] 5| 0kişi dinliyor. En fazla 5|11 [expr $curhigh +2] 5| 0kişi dinlemiş. "
                            putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webden dinlemek için  5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxx/listen.pls "
                            putquick "PRIVMSG $radyo(chan) :0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız. Örnek: !istek Haluk Levent - Zifiri - Tüm dinleyenlere gelsin. "
                            putquick "PRIVMSG $radyo(chan) :-"
                            return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(link) $arg]} {
                        putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webten dinlemek için  5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxxxxx/listen.pls "
                        return 0
                    }
                    if {[string match -nocase $radyo(dj) $arg]} {
                        if {$streamstatus == 1} {
                            putquick "PRIVMSG $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| "
                            return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(dinleyen) $arg]} {
                        if {$streamstatus == 1} {
                            putquick "PRIVMSG $radyo(chan) :11,1 Radyomatik0'i şu anda 5|11 [expr $repl +15] 5| 0kişi dinliyor. En fazla 5|11 [expr $curhigh +15] 5| 0kişi dinlemiş. "
                            return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(yardim) $arg]} {
                        putquick "PRIVMSG $radyo(chan) :4$radyo(yardim) 1burdaki komutları listeler. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(drm) 1radyo durumunu yansıtır. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(link) 1radyo linkini yansıtır. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(dj) 1yayındaki kişiyi gösterir. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(calan) 1o anda radyoda çalan parçayı yansıtır. "
                        return 0
                    }
                }
            }
        } 
        close $sock 
    }
    if {[string match -nocase $radyo(adm) $chan]} {
        set komut [lindex $arg 1]
        if {[string match -nocase "*$radyo(djcmd)*" $arg]} {
            if {$komut==""} {
                putquick "PRIVMSG $radyo(adm) :5$chan kanalında kullanabileceğiniz komutlar. "
                putquick "PRIVMSG $radyo(adm) :4$radyo(djcmd) <sifre/bilgi/on/depo/kill> | 1Yayınla ilgili bilgi ve yaptırımları gösterir. "
                putquick "PRIVMSG $radyo(adm) :4!basla | 1İstek saatini başlatır. "
                putquick "PRIVMSG $radyo(adm) :4!var | 1İstek sahibine isteğinin işleme alındığı mesajı gönderir. "
                putquick "PRIVMSG $radyo(adm) :4!yok | 1İstek sahibine isteğinin arşivde bulunmadığı mesajı gönderir. "
                putquick "PRIVMSG $radyo(adm) :4!dur | 1İstek saatini bitirir. "
                return 0
            }
            if {$komut=="kill"} {
                if {$chan != $radyo(adm)} {return 0}
                putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. "
                if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
                    putlog "error: $sockerror"
                    putquick "PRIVMSG $radyo(adm) :1Yayında bulunan DJ'e kill atılamadı. "
                    return 0
                } else {
                    puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=kicksrc&pass=$radyo(pass) HTTP/1.0"
                    puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
                    puts $sock "Host: $radyo(ip)"
                    puts $sock "Connection: close"
                    puts $sock ""
                    flush $sock
                    close $sock
                    putquick "PRIVMSG $radyo(adm) :1Yayında bulunan DJ'e kill atılmıştır. "
                }
                return 0
            }
            if {$komut=="sifre"} {
                putquick "PRIVMSG $radyo(adm) :5Radyo bilgileri "
                putquick "PRIVMSG $radyo(adm) :1IP adresi     :4 $radyo(ip)"
                putquick "PRIVMSG $radyo(adm) :1Radyo Portu   :4 $radyo(port)"
                putquick "PRIVMSG $radyo(adm) :1Radyo Şifresi :4 $radyo(pass)"
                putquick "PRIVMSG $radyo(adm) :4Bilgileriniz kaydedildi. Bu bilgileri paylaşmak kesinlikle yasaktır. "
                return 0
            }
            if {$komut=="bilgi"} {
                putquick "PRIVMSG $nick 1Merhaba 4$nick"
                putquick "PRIVMSG $nick 1Yapmış olduğum hatalarla ilgili 4admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net 1adresine mail gönderebilirsiniz."
                putquick "PRIVMSG $nick 1Veya 4/Memoserv send x <mesajiniz> 1şeklinde yapımcıma not bırakabilirsiniz. Hoş sohbetler."
                putquick "PRIVMSG $nick 1Bu mesajı hazırlayan kişi 4cx 1size keyifli sohbetler diler."
                return 0
             }
            if {$komut=="on"} {
                putquick "PRIVMSG $radyo(adm) :1Talebiniz alındı iyi yayınlar 4$nick "
                putquick "os Global 0,1 Dj şu anda yayında. İsteklerinizi 11$radyo(chan) 0kanalında yapabilirsiniz. "
                putquick "os raw svsjoin $nick $radyo(chan)"
                utimer 2[list putquick "os raw:ChanServ mode $radyo(chan) +o $nick"]
                return 0
             }
            if {$komut=="depo"} {
                putquick "PRIVMSG $radyo(adm) :5Dj programları sıralanıyor."
                putquick "PRIVMSG $radyo(adm) :4ShoutCast ==> 1Henüz link eklenmedi."
                putquick "PRIVMSG $radyo(adm) :4Winamp ==> 1Henüz link eklenmedi."
                return 0
             }
        }
    }
}





###################################################################
proc isonline { nick uhost hand chan arg } { 
global radyo
    if {$radyo(online) == 1} { 
        set announce "1" 
        set urltopic "1" 
        set tellsongs "1" 
        set tellusers "1" 
        set tellbitrate "1" 
        set advertise "1"
        set isonlinefile "isonline" 
        set oldisonline "isonline: 0" 
        set oldcurlist "4,1 : 15,1 0" 
        set oldcurhigh "curhigh: 0" 
        set oldsong "cursong: 0" 
        set oldbitrate "bitrate: 0" 
        if {[file exists $isonlinefile]} { 
            putlog "shoutcast: checking if stream is online" 
            set temp [open "isonline" r] 
            while {[eof $temp] != 1} { 
                set zeile [gets $temp] 
                if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile } 
                if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile } 
                if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile } 
                if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile } 
                if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile } 
            } 
            close $temp 
        } 
        if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
            putlog "error: $sockerror" 
            return 0
        } else { 
        puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" 
        puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" 
        puts $sock "Host: $radyo(ip)" 
        puts $sock "Connection: close" 
        puts $sock "" 
        flush $sock 
        while {[eof $sock] != 1} { 
            set bl [gets $sock] 
            if { [string first "standalone" $bl] != -1 } { 
                set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]" 
                set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]" 
                set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]" 
                set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</TLISTENERS>" 0 $bl]] 
                set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]" 
                set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
                set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]" 
                set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]] 
                set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]" 
                set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] 
                set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] 
                }
            } 
            close $sock 
        } 
        set temp [open "isonline" w+] 
        puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrate" 
        close $temp 
        if {$announce == 1 } { 
            if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} { 
                putquick "topic $radyo(chan) :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                putquick "PRIVMSG $radyo(adm) :4ÖNEMLİ UYARI : 1Şu anda yayında kimse yok. Dj arkadaşlardan yayının boş bulundurulmamasını rica ediyorum. Dj bilgileri için 4$radyo(adm) 1kanalında 4$radyo(djcmd) sifre 1yazınız. Teşekkürler. "  
            } 
            if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } { 
                if {$sgenre != ""} { set sgenre " ($sgenre)" } 
                putquick "topic $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. İstek yapmak için 11$radyo(chan) 0kanalına ;11 !istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız.0 Örnek: !istek Haluk Levent - Zifiri - Tüm dinleyenlere gelsin. "
            }
        } 
        if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 
            putquick "PRIVMSG $radyo(chan) :-"
            putquick "PRIVMSG $radyo(chan) :11,1 5|11 [temizle $stitle] 5| 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| "
            putquick "PRIVMSG $radyo(chan) :11,1 Radyomatik0'i şu anda 5|11 [expr $repl +15] | 0kişi dinliyor. En fazla 5|11 [expr $curhigh +15] 5| 0kişi dinlemiş. "
            putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webten dinlemek için  5||1. 11 Ñåêñ, äåâóøêè îíëàéí, ñåêñ ÷àò îíëàéí, ïîğíî âèäåî ÷àò, ığîòè÷åñêèé âèäåî ÷àò, ÷àò ñåêñ, ñåêñ ñ äåâóøêàìè, ñìîòğåòü âèäåî äåâóøêè "
            putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxxx/listen.pls "
            putquick "PRIVMSG $radyo(chan) :0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız.. "
            putquick "PRIVMSG $radyo(chan) :-"
        } 
    }
}
bind pub - !Reklam Reklam 
proc Reklam {nick uhost handle chan text} { 
  global botnick
  if {[string match -nocase "#DJ" $chan]} {
    set kanal [lindex $text 0] 
    set person [lindex $text 1] 

	 putquick "os global 1Şuan yayınımızda DJ 4$nick 1bulunmaktadır. Yayınımızı 4http://xxx1/listen.pls 1linkine tıklayarak winamptan, 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
giriş yaparak web üzerinden dinleyebilirsiniz. Keyifli dakikalar. 4xxx"

  }
}

###################################################################
proc temizle {icerik} {
    regsub -all "&#x27;" $icerik "'" icerik
    regsub -all "&#x26;" $icerik "feat." icerik
    regsub -all "&#xE7;" $icerik "ç" icerik
    regsub -all "&#xF0;" $icerik "ğ" icerik
    regsub -all "&#xFD;" $icerik "ı" icerik
    regsub -all "&#xDD;" $icerik "İ" icerik
    regsub -all "&#xF6;" $icerik "ö" icerik
    regsub -all "&#xFE;" $icerik "ş" icerik
    regsub -all "&#xC7;" $icerik "Ç" icerik
    regsub -all "&#xD0;" $icerik "Ğ" icerik
    regsub -all "&#xD6;" $icerik "Ö" icerik
    regsub -all "&#xDE;" $icerik "Ş" icerik
    regsub -all "&#xFC;" $icerik "ü" icerik
    regsub -all "&#xDC;" $icerik "Ü" icerik
    regsub -all "&#xBF;" $icerik "¿" icerik
    regsub -all "&#x3C;" $icerik "<" icerik
    regsub -all "&#x86;" $icerik "t" icerik
    regsub -all "&#xFF;" $icerik "" icerik
    regsub -all "a" $icerik "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "l" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

#################################


setudef flag istkcmd

proc dur {n u h c a} {
global botnick radyo dj_chan dur
    if {[string match -nocase $radyo(adm) $c]} {
        channel set $radyo(adm) -istkcmd
        putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. "
        putquick "PRIVMSG $radyo(chan) :0,1 Lütfen şu anda istekte bulunmayın. İstekler bir süre çalınmayacaktır. "
    }
}

proc basla {n u h c a} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $c]} {
        channel set $radyo(adm) +istkcmd
        putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. "
        putquick "PRIVMSG $radyo(chan) :0,1 İstek zamanı basladı, istekte bulunmak için; 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız. "
    }
}


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 $radyo(adm) :1Nick belirtmediniz. "
        putquick "PRIVMSG $radyo(adm) :1Kullanımı : 4!var <NICK> 1şeklinde olmalıdır. "
        return
    }
        if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :1İstek onaylandı ve kişiye mesaj gönderiliyor. " ; putquick "PRIVMSG $radyo(chan) :11,1 $kisi 0isteğiniz kabul edildi. Kısa süre içerisinde isteğiniz yayınlanacak. Keyifli dinlemeler. "; return 0 }
        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :4#Radyomatik 1kanalında böyle bir rumuz bulunmamaktadır. "; 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 :1Nick belirtmediniz. "
        putquick "PRIVMSG $c :1Kullanımı: 4!yok <NICK> 1şeklinde olmalıdır. "
        return
    }
    if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :1İstek reddedildi ve kişiye mesaj gönderiliyor. " ; putquick "PRIVMSG $radyo(chan) :0,1 Üzgünüm 11$kisi 0isteğiniz arşivimizde bulunmamaktadır. Başka bir istekte bulunabilirsiniz. Keyifli dinlemeler. "; return 0 }
    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :4#Radyomatik 1kanalında böyle bir rumuz bulunmamaktadır. "; return 0 }
    }
}

proc istek {nick uhost handle chan arg} {
global botnick radyo dj_chan
    if {[lsearch -exact [channel info $radyo(adm)] +istkcmd] != -1} {
    if {$arg == ""} { putquick "PRIVMSG $radyo(chan) :11,1 $nick 0isteğinizi belirtmediniz. Lütfen 11!istek <sanatçı - şarkı - mesajınız> 0şeklinde belirtiniz. "; return 0 }
    if {![info exists ::istekcount([set wnick [md5 [string tolower $uhost]]])]} {
    set ::istekcount($wnick) 0
    utimer 60[list unset ::istekcount($wnick)]
        putquick "PRIVMSG $radyo(chan) :11,1 $nick 0isteğiniz iletilmiştir. Lütfen bekleyiniz, isteğiniz kontrol ediliyor. ";
        putquick "PRIVMSG $radyo(adm) :1İstek isteyen ;4 $nick 1isteği ;4 $arg ";
        return 0
    }
    if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(chan) :11,1 $nick 0bu kadar sık istekte bulunamazsınız, biraz bekledikten sonra tekrar deneyin. " }
    return 0
    }
    putquick "PRIVMSG $radyo(chan) :11,1 $nick 0istekler şu anda yayınlanmayacaktır. Lütfen daha sonra tekrar deneyiniz. "
}