##################### Ayarlar #####################
set radyo(ip) "184.164.145.122"
set radyo(port) "1841"
set radyo(pass) "geveze11"
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) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set radyo(wiamplink) "http://184.164.145.122:1841/listen.pls "
set radyo(calan) "!calan"
set radyo(online)     "1"
set linktime "15"
################### Ayarlar bitti burdan sonrasina dokunma 
bind time - "* * * * *" isonline 
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)
if {![string match "*linkmesaj*" [timers]]} { 
  timer $linktime linkmesaj 
} 
proc linkmesaj {} { 
  global botnick linktime
  putquick "os global \0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor.. \0034,4  "
  putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"  \0034,4  "
  putquick "os global \0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.  \0034,4  "
  timer $linktime linkmesaj 
}
 
proc global:at {nick uhost hand chan arg} {
  global radyo temizle
  putquick "os global \0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor.. \0034,4  "
  putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"  \0034,4  "
  putquick "os global \0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.  \0034,4  "
}
proc helpme {nick uhost hand chan arg} {
  global radyo
  putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1bilgi için \0034,1 | \0037 $radyo(yardim)"
}
 
proc dj:giris {nick uhost hand chan} {
  global botnick radyo
  if {$nick == $botnick} { putquick "MODE $chan +h $botnick";putquick "MODE $chan -f";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) 4,4    Calan parcamiz:  4,1|0 ' [temizle $calan] '  "
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(drm) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :-"
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu 0,7 Geveze FM 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' $repl ' kisi dinliyor. \0034,1 | \0030,1 En yuksek ' $curhigh ' -\00315 kişi dinlemiş  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :-"
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(link) $arg]} {
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
              return 0
            }
            if {[string match -nocase $radyo(dj) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) :4,4    [temizle $stitle] su anda online!   Calan parcamiz:  4,1|0 ' [temizle $calan] '  "
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(dinleyen) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' $repl ' kisi dinliyor.  4,1|0 En yuksek ' $curhigh ' -15 kişi dinlemiş  "
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(yardim) $arg]} {
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(yardim)  \0034,1 | \0037 burdaki komutlari listeler      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(drm)  \0034,1 | \0037 radyo durumunu yansıtır      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(link)  \0034,1 | \0037 radyo linkini yansıtır      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(dj)  \0034,1 | \0037 yayındaki dji gösterir      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(calan)  \0034,1 | \0037 o 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) :\2$chan\2 kanalinda kullana bileceginiz komutlar."
          putquick "PRIVMSG $radyo(adm) :\2$radyo(djcmd) <sifre/bilgi/on/depo/kill>\2"
          putquick "PRIVMSG $radyo(adm) :\2!basla\2 | istek saatini başlatir"
          putquick "PRIVMSG $radyo(adm) :\2!var\2 istek sahibine isteginin işleme alındıgını vurgular"
          putquick "PRIVMSG $radyo(adm) :\2!yok\2 | istek sahibine isteginin olmadigini vurgular"
          putquick "PRIVMSG $radyo(adm) :\2!dur\2 | istek saatini bitirir"
          putquick "PRIVMSG $radyo(adm) :\2!global\2 | bütün sunucuya global atar"
          return 0
        }
        if {$komut=="kill"} {
          if {$chan != $radyo(adm)} {return 0}
          putquick "PRIVMSG $radyo(adm) :0,12 Bas ustune. "
          if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
          putlog "error: $sockerror"
          putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Yayinda ki DJ'e kill atılamadi"
          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) :\0034,4  \0030,1Yayinda ki DJ'e kill atilmistir."
        }
        return 0
      }
      if {$komut=="sifre"} {
        putquick "PRIVMSG $radyo(adm) :\2Radyo bilgileri\2"
        putquick "PRIVMSG $radyo(adm) :IP adresi \0034 $radyo(ip)\2"
        putquick "PRIVMSG $radyo(adm) :Portu \0034 $radyo(port)\2"
        putquick "PRIVMSG $radyo(adm) :Radyo Şifresi \0034 $radyo(pass)\2"
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."
        return 0
      }
      if {$komut=="bilgi"} {
        putquick "PRIVMSG $nick \0034,4  \0030,1merhaba $nick"
        putquick "PRIVMSG $nick \0034,4  \0030,1yapmiş oldugum hatalarla ilgili \35emre[MENTION=101802]rize[/MENTION].com \0030,1adresine mail göndere bilir"
        putquick "PRIVMSG $nick \0034,4  \0030,1yada MemoServ Send Challenger <mesajiniz> şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"
        putquick "PRIVMSG $nick \0034,4  \0030,1Coder Set By Challenger"
        return 0
      }
      if {$komut=="on"} {
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Talebiniz alindi Hayırli Yayinlar\2 $nick!."
        putquick "os Global \0034,4  \0030,1 Dj \002$nick Şuanda online istekleriniz $radyo(chan) kanalinda 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) :\0034,4  \0030,1Dj programlari Siralaniyor\2"
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Sam2==>  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Winamp==>  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">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 "</CURRENTLISTENERS>" 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) :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
  putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1ÖNEMLİ UYARI :Şuanda Radyoda Dj Yoktur.. Dj Arkadaşlardan yayının boş bulundurulmamasi için rica ediyorum Dj bilgileri için $radyo(adm) kanalinda \002 $radyo(djcmd) sifre\002 yaziniz teşekkürler.."  
} 
if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } { 
if {$sgenre != ""} { set sgenre " ($sgenre)" } 
putquick "topic $radyo(chan) :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
}
} 
if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.   \0034,4  "
putquick "PRIVMSG $radyo(chan) :-"
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu 0,7 Geveze FM [url]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' [lindex $repl 1] ' kisi dinliyor. \0034,1 | \0030,1 En yuksek ' [lindex $curhigh 1] ' -\00315 kişi dinlemiş  \0034,4  "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 [url]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
putquick "PRIVMSG $radyo(chan) :-"
} 
}
}
###################################################################
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 "†" icerik
regsub -all "&#xFF;" $icerik "" icerik
regsub -all "a" $icerik "á" icerik
regsub -all "b" $icerik "ß" icerik
regsub -all "i" $icerik "í" icerik
regsub -all "o" $icerik "ó" icerik
regsub -all "l" $icerik "L" icerik
regsub -all "I" $icerik "Î" icerik
regsub -all "e" $icerik "é" icerik
regsub -all "t" $icerik "†" icerik
regsub -all "y" $icerik "¥" icerik
regsub -all "c" $icerik "¢" icerik
regsub -all "o" $icerik "Ó" icerik
regsub -all "n" $icerik "ñ" icerik
return $icerik
}
#################################
 
setudef flag istkcmd
proc dur {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
channel set $radyo(adm) -istkcmd
putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Lutfen istekte bulunmayin, istekler calinmayacaktir. "
}
}
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) :\0034,4  \0030,1 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Istek zamani basladi, istekte bulunmak icin ;!istek Sanatci ismi - Parca ismi - Mesajiniz. "
}
}
 
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 :\0034,4  \0030,1 Nick belirtmediniz. "
  putquick "PRIVMSG $chan :\0034,4  \0030,1 Kullanimi: .!var <NICK> seklindedir. "
  return
}
if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "; putquick "PRIVMSG $radyo(chan) : $kisi isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 $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 :\0034,4  \0030,1 Nick belirtmediniz. "
  putquick "PRIVMSG $c :\0034,4  \0030,1 Kullanimi: .!yok <NICK> seklindedir. "
  return
}
if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "; putquick "PRIVMSG $radyo(adm) : Uzgunum $kisi isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
}
}
proc istek {nick uhost handle chan arg} {
global botnick radyo
if {[lsearch -exact [channel info $radyo(adm)] +istkcmd] != -1} {
if {$arg == ""} { putquick "PRIVMSG $radyo(chan) : \0034,4  \0030,1  $nick isteginizi belirtmeyi unuttunuz. "; 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) :\0034,4  \0030,1 $nick isteginiz online Dj'imize iletilmistir. Lutfen bekleyiniz, isteginiz kontrol ediliyor. ";
  putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 İstek isteyen; $nick isteği; $arg ";
  return 0
}
if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1$nick bu kadar cok istekte bulunamazsiniz, biraz bekledikten sonra tekrar deneyin. " }
return 0
}
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1$nick istekler yayinlanmayacaktir. Lutfen daha sonra tekrar deneyiniz. "
}