IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

Challenger53 · 08 Mart 2012, 20:03

Radyo tcl si 1 dakikada bir link atıyor bunu 5 dakikaya yada her şarkı degiştiginde link atmasını nasıl saglayabılırız

tcl altta sunulmuştur

Kod: Kodu kopyalamak için üzerine çift tıklayın!

##################### 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.
set radyo(wiamplink) "http://184.164.145.122:1841/listen.pls "
set radyo(calan) "!calan"
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 \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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  "
                            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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  \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  "
                            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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].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.
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.
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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]   "
            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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  \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  "
            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. "
}
 
putlog "##### Coder By Gevezeyim ######"