IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Özel Tasarim Radyo TCL'si (https://www.ircforumlari.net/tcl-scriptler/485056-ozel-tasarim-radyo-tclsi.html)

Özel Tasarim Radyo TCL'si

PHP- Kodu:

   ##################### Ayarlar #####################
set radyo(ip) "88.88.88.88"
set radyo(port) "8888"
set radyo(pass) "Sifre"
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 ;d

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 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">$radyo(ip):$radyo(port)"
        putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"
        putquick "os global \0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin."
}

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}
    if {[string match -nocase $radyo(adm) $chan]} {
        if {$nick == $botnick} {return 0}
        elseif {$nick == "MerLyn"} {return 0}
        elseif {[onchan $nick "#MyOpers"]} {return 0}
        elseif {[onchan $nick "#MyOps"]} {return 0}
        else {
            putquick "CHGHOST $nick global.mynet.radyo.yayincisi"
            putquick "CHGIDENT $nick MynetFM"
            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) :-"
                            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! 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">$radyo(ip):$radyo(port)  \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) :\0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin.  \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 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">$radyo(ip):$radyo(port)  \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"
                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) :\0036Yayinda 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) :\0036Yayinda 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) :\0034bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."
                return 0
            }
            if {$komut=="bilgi"} {
                putquick "PRIVMSG $nick merhaba $nick"
                putquick "PRIVMSG $nick yapmiş oldugum hatalarla ilgili \2\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
\2\3 adresine mail göndere bilir"
                putquick "PRIVMSG $nick yada \2\35/MemoServ Send qeweSe <mesajiniz>\2\3 şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"
                putquick "PRIVMSG $nick Coder Set By \35qeweSe"
                return 0
             }
            if {$komut=="on"} {
                putquick "PRIVMSG $radyo(adm) :\2Talebiniz alindi Hayırli Yayinlar\2 $nick!."
                putquick "os Global Dj \002$nick\002 Ş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) :\2Dj programlari Siralaniyor\2"
                putquick "PRIVMSG $radyo(adm) :ShoutCast==> \2 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(adm) :Winamp==> \2 
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ÖNEMLİ UYARI :\003Ş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 [temizle $stitle] su anda online!  \0034,1 | \0037 Istekleriniz icin $radyo(chan) kanalına; !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin.  \0034,4"
            }
        } 
        if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 
            putquick "PRIVMSG $radyo(chan) :-"
            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! 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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$radyo(ip):$radyo(port)  \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) :\0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin.  \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 dj_chan dur
    if {[string match -nocase $radyo(adm) $c]} {
        channel set $radyo(adm) -istkcmd
        putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "
        putquick "PRIVMSG $radyo(chan) :5 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) :5 Bas ustune. "
        putquick "PRIVMSG $radyo(chan) :5 Istek zamani basladi, istekte bulunmak icin;4!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 :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 $radyo(chan) :1,12 $kisi 5isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm 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 $radyo(adm) :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; 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) : \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) :5 $nick 5isteginiz online 5Dj'5imize iletilmistir. Lutfen bekleyiniz, isteginiz kontrol ediliyor. ";
        putquick "PRIVMSG $radyo(adm) :5 İstek isteyen;4 $nick 5isteği;4 $arg ";
        return 0
    }
    if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(adm) :5$nick 5bu kadar cok istekte bulunamazsiniz, biraz bekledikten sonra tekrar deneyin. " }
    return 0
    }
    putquick "PRIVMSG $radyo(chan) :5$nick 5istekler yayinlanmayacaktir. Lutfen daha sonra tekrar deneyiniz. "
}

Cevap: Özel Tasarim Radyo TCL'si

Güzel bir paylaşım, bunu mIRC script için sockete cevirebilir miyiz acaba?

Cevap: Özel Tasarim Radyo TCL'si

rar dosyası olarak atsanız seviririz arkadaslar

Cevap: Özel Tasarim Radyo TCL'si

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adam kodu vermiş. Rarlayıp atarsa senin yapacağın bişey kalmıyor direk al at. Biraz elin çalışsın bence. Kodu vermiş copy/paste etmek bu kadar zor olmasa gerek. Bu kadarda hazırcı olmasak diyorum.

Cevap: Özel Tasarim Radyo TCL'si

%Radyo> Baglanamadi : couldn't open socket: too many open files
boyle bir hata alıyoruz Sunucudan çıkartıp tekrar Aldıgımızda Çalışmaya Devam ediyor.

Cevap: Özel Tasarim Radyo TCL'si

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam Bir ilgileniver be

Cevap: Özel Tasarim Radyo TCL'si

Kimliksiz, radyonun aktif olduguna emin misiniz ? ve/veya ip ve port kismini dogru yazdigindan emin ol.

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041520244)

Kimliksiz, radyonun aktif olduguna emin misiniz ? ve/veya ip ve port kismini dogru yazdigindan emin ol.

Radyo çalışıyor çalışmasında bir sıkıntı yok ama Belirli bir süre geçtikten Sonra bu hatayı veriyor
telnetten çıkartıp geri aldıktan sonra Hiç bir sıkıntı yok devam ediyor.

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

KimLikSiz Nickli Üyeden Alıntı (Mesaj 1041520894)

Radyo çalışıyor çalışmasında bir sıkıntı yok ama Belirli bir süre geçtikten Sonra bu hatayı veriyor
telnetten çıkartıp geri aldıktan sonra Hiç bir sıkıntı yok devam ediyor.

Kodlarda gozume carpan bi eksiklik yok hatta fazlasi var :)
Makina ile alakali bi sorun gibi yada botun conf dosyasinda http.tcl include edildi mi ?

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041521249)

Kodlarda gozume carpan bi eksiklik yok hatta fazlasi var :)
Makina ile alakali bi sorun gibi yada botun conf dosyasinda http.tcl include edildi mi ?

hepsinini ysptımm

Cevap: Özel Tasarim Radyo TCL'si

Simdi mi ? yaptin yoksa yapilimiydi :p

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041521274)

Simdi mi ? yaptin yoksa yapilimiydi :p

yok yapmıştım Denedim Herşeyi ama olmadı :D

Cevap: Özel Tasarim Radyo TCL'si

./eggdrop -mn radyo.conf seklinde sunucuya sok botu, rontgen cek bakalim aradigimiz hatayi ordan bulabiliriz :D

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041522156)

./eggdrop -mn radyo.conf seklinde sunucuya sok botu, rontgen cek bakalim aradigimiz hatayi ordan bulabiliriz :D

[12:11] shoutcast: checking if stream is online
[12:11] Tcl error [countdusur]: can't read "radiochans": no such variable

[12:12] Tcl error [countdusur]: can't read "::rawcount": no such variable

Cevap: Özel Tasarim Radyo TCL'si

Ayni TCL'den mi ? bahsediyoruz.
countdusur proc'u yok bu tcl'de extra bi tcl eklemissin sanirim.
Conf dosyasindan include ettigin tcl'leri kontrol et bakalim bi :)

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041522394)

Ayni TCL'den mi ? bahsediyoruz.
countdusur proc'u yok bu tcl'de extra bi tcl eklemissin sanirim.
Conf dosyasindan include ettigin tcl'leri kontrol et bakalim bi :)

Evet aynı Tcl`di

source scripts/radyokick.tcl
source scripts/yesnoistek.tcl
source scripts/arti.tcl
bunlar ekliydi kaldırdım
-mn radyo.conf yaptıgımda hiç bir hata almadım şuanda Sanırım Sorun çözüldü. Sanırım bazı tcleler çakışıyor gibiydi.

Cevap: Özel Tasarim Radyo TCL'si

Paslanmisim bende sorunu gec halledebildik :D

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041522438)

Paslanmisim bende sorunu gec halledebildik :D

Onemli olan Halledebilmekti :D Geç olsun güç olmasın Eyw Yardımın için

Cevap: Özel Tasarim Radyo TCL'si

Efendim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ? :p

Cevap: Özel Tasarim Radyo TCL'si

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeş paylaşımınız için tşkler. emeğinize yüreğinize sağlık. bir kaç sorun vardı özelden bildirdim ama hala dönmediniz kardeş.

Cevap: Özel Tasarim Radyo TCL'si

Selamun aleykum. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] den yanıt yok bari yardım isteyeyim inşeallah yardım eden olur. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşımın radyosunu indirdim kanala attım fakat 2-3 sıkıntı oluyor
1. bot kanala winamp linki ve wep linkini atarken linklerin başında ve sonunda - bu işaret oluyor ve linkler tıklanmıyor
2. dj kanalında !yok elsukr dediğimde dj kanalına yansıtıyor yazıyı radyo kanalına gitmiyor. !var elsukr dediğimde sıkıntı yok onu radyo kanalına gönderiyor
3. tcl özelliğinde kill olmasına rağmen dj ye kill & kick atılamıyor
4. birde dinleyene voice verse, dinlemeyeni kapatandan voiceyi alsa süper olacak. tşkler sevgili ustadlar..

Cevap: Özel Tasarim Radyo TCL'si

yardım gelmeyince uğraştım, link işleri tamam da !yok nick te radyoya gönderme işini halledemedim ve diğerlerini :(

Cevap: Özel Tasarim Radyo TCL'si

Bu Bölümü :

Kod:

 if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "; putquick "PRIVMSG $radyo(adm) :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }

    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }

    }

Bu şekilde değiştir :

Kod:

 if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(chan) :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }

    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }

    }

Cevap: Özel Tasarim Radyo TCL'si

[13:16:36] <Deneme> !yok Deneme
[13:16:57] <Deneme> !var Deneme
[13:16:57] <Radyo> Bas ustune.
[13:16:57] Radyo : #Radyo Kanalında Senden Bahsediyor : Deneme isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeş dediğin yeri tcl den değiştim ftp den kopy yaptım, telnetten botu çıkarıp aldım. Yine değişmedi.

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

PHP- Kodu:
##################### Ayarlar #####################
set radyo(ip) "88.88.88.88"
set radyo(port) "8888"
set radyo(pass) "Sifre"
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 ;d

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 Radyomuzu WEB'den dinlemek icin \0034,1 | \0037 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]$radyo(ip):$radyo(port)"
putquick "os global \0034,4 \0030,1 Radyomuzu Winamp'tan dinlemek icin \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"
putquick "os global \0034,4 \0030,1 Istekleriniz icin $radyo(chan) kanalına \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin."
}

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}
if {[string match -nocase $radyo(adm) $chan]} {
if {$nick == $botnick} {return 0}
elseif {$nick == "MerLyn"} {return 0}
elseif {[onchan $nick "#MyOpers"]} {return 0}
elseif {[onchan $nick "#MyOps"]} {return 0}
else {
putquick "CHGHOST $nick global.mynet.radyo.yayincisi"
putquick "CHGIDENT $nick MynetFM"
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) :-"
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 [temizle $stitle] su anda online! 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...]$radyo(ip):$radyo(port) \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) :\0034,4 \0030,1 Istekleriniz icin $radyo(chan) kanalına \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin. \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 Radyomuzu WEB'den dinlemek icin \0034,1 | \0037 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]$radyo(ip):$radyo(port) \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"
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) :\0036Yayinda 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) :\0036Yayinda 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) :\0034bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."
return 0
}
if {$komut=="bilgi"} {
putquick "PRIVMSG $nick merhaba $nick"
putquick "PRIVMSG $nick yapmiş oldugum hatalarla ilgili \2\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
\2\3 adresine mail göndere bilir"
putquick "PRIVMSG $nick yada \2\35/MemoServ Send qeweSe <mesajiniz>\2\3 şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"
putquick "PRIVMSG $nick Coder Set By \35qeweSe"
return 0
}
if {$komut=="on"} {
putquick "PRIVMSG $radyo(adm) :\2Talebiniz alindi Hayırli Yayinlar\2 $nick!."
putquick "os Global Dj \002$nick\002 Ş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) :\2Dj programlari Siralaniyor\2"
putquick "PRIVMSG $radyo(adm) :ShoutCast==> \2
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#0000BB">putquick "PRIVMSG $radyo(adm) :Winamp==> \2
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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ÖNEMLİ UYARI :\003Ş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 [temizle $stitle] su anda online! \0034,1 | \0037 Istekleriniz icin $radyo(chan) kanalına; !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin. \0034,4"
}
}
if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } {
putquick "PRIVMSG $radyo(chan) :-"
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 [temizle $stitle] su anda online! 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...]$radyo(ip):$radyo(port) \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) :\0034,4 \0030,1 Istekleriniz icin $radyo(chan) kanalına \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin. \0034,4 "
putquick "PRIVMSG $radyo(chan) :-"
}
}
}

################################################## #################
proc temizle {icerik} {
regsub -all "'" $icerik "'" icerik
regsub -all "&" $icerik "feat." icerik
regsub -all "ç" $icerik "ç" icerik
regsub -all "ð" $icerik "ğ" icerik
regsub -all "ý" $icerik "ı" icerik
regsub -all "Ý" $icerik "İ" icerik
regsub -all "ö" $icerik "ö" icerik
regsub -all "þ" $icerik "ş" icerik
regsub -all "Ç" $icerik "Ç" icerik
regsub -all "Ð" $icerik "Ğ" icerik
regsub -all "Ö" $icerik "Ö" icerik
regsub -all "Þ" $icerik "Ş" icerik
regsub -all "ü" $icerik "ü" icerik
regsub -all "Ü" $icerik "Ü" icerik
regsub -all "¿" $icerik "¿" icerik
regsub -all "<" $icerik "<" icerik
regsub -all "" $icerik "†" icerik
regsub -all "ÿ" $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 dj_chan dur
if {[string match -nocase $radyo(adm) $c]} {
channel set $radyo(adm) -istkcmd
putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :5 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) :5 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :5 Istek zamani basladi, istekte bulunmak icin;4!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 :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 $radyo(chan) :1,12 $kisi 5isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm 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(chan) :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; 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) : \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) :5 $nick 5isteginiz online 5Dj'5imize iletilmistir. Lutfen bekleyiniz, isteginiz kontrol ediliyor. ";
putquick "PRIVMSG $radyo(adm) :5 İstek isteyen;4 $nick 5isteği;4 $arg ";
return 0
}
if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(adm) :5$nick 5bu kadar cok istekte bulunamazsiniz, biraz bekledikten sonra tekrar deneyin. " }
return 0
}
putquick "PRIVMSG $radyo(chan) :5$nick 5istekler yayinlanmayacaktir. Lutfen daha sonra tekrar deneyiniz. "
}

kopyala yapıstır dene bakalım

Cevap: Özel Tasarim Radyo TCL'si

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gerekli yerleri yapıp düzeltim atayım da dinleyene oice ver dinlemeyenden al felan eklenemezmi kardeş

Cevap: Özel Tasarim Radyo TCL'si

ya sabır yine olmadı kardeş :( !yok nick çalışmıyor ama !var nick çalışıyor

Cevap: Özel Tasarim Radyo TCL'si

Kod:

proc yok {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.!yok <NICK> 5seklindedir. "

        return

    }

        if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "; putquick "PRIVMSG $radyo(chan) :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }

        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }

    }

}

Yok proc'unu bununla degistirip dene bakalim.
Hic duzenlemeden dene daha sonra duzenlersin.

Cevap: Özel Tasarim Radyo TCL'si

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Tesekkürler kardeş oldu inşeallah. Dinleyene voice vermesi ve kapatandan alması eklenebilirmi peki ?

Cevap: Özel Tasarim Radyo TCL'si

HDD uctu malesef su anda imkansiz o postu cepten atana kadar neler cektim burda bir bilsen daha sonra yardimci olmaya calisirim birde forumda vardi sanirim aratirsan bulabilirsin :)

Cevap: Özel Tasarim Radyo TCL'si

onlarıda denedim arıza veriyo olmuyo :)

Cevap: Özel Tasarim Radyo TCL'si

forumda buldugum bir tcl yi kurdum kelebek' in kullandıgı tcl. buna dj kick eklenebilirmi ?

Cevap: Özel Tasarim Radyo TCL'si

Yayını kick'lemek için bu tcl'yi kullanabilirsiniz.

Kod:

##Buraya Radyonun İp Adresini Yazın..

set ip "31.210.155.94"

##Buraya Radyonun Portunu Yazın..

set port "4237"

##Buraya Radyonun Şifresini Yazın..

set pass "ruzgarfmm"

##Buraya Radyonun Admin Şifresini Yazın..

set adminpass "ruzgarfmm"

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set kickkanal "#Dj"

## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim ;)
 

bind pub - !kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {

global ip port pass adminpass kickkanal

if {$chan != $kickkanal} {return 0}

set sock [socket [duzelt $ip] [duzelt $port]]

puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

puts $sock "Host: $ip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

close $sock

putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür.. Lütfen Yayını Alınız.."

}
 

proc duzelt { a } {

regsub -all {\}} $a "" a

regsub -all {\{} $a "" a

regsub -all {\;} $a "" a

regsub -all {\*} $a "" a

regsub -all " " $a "" a

return $a

}
 

######kickradyo.tcl#########

Bir'de bu tcl'yi kullanabilirsin sağlıklı çalışıyordu en son kullandığımda.

Kod:

##################### Ayarlar #####################

set radyo(ip) "31.210.155.94"

set radyo(port) "4237"

set radyo(pass) "ruzgarfmm"

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 ;d
 

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 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.
putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"

        putquick "os global \0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum Sevda-FM ailesine gelsin."

}
 

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 +v $botnick";putquick "MODE $chan -f";return 0}

    if {[string match -nocase $radyo(adm) $chan]} {

        if {$nick == $botnick} {return 0}

        elseif {$nick == "Ajan"} {return 0}

        elseif {[onchan $nick "#Opers"]} {return 0}

        elseif {[onchan $nick "#Ops"]} {return 0}

        else {

            putquick "CHGHOST $nick GlobaL.Sevda.Gen.TR.Radyo.Yayincisi"

            putquick "CHGIDENT $nick SeVDa-FM"

            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) :-"

                            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "

                            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' [expr $repl + 20] ' 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.
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) :\0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum Sevda-FM ailesine gelsin.  \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 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.
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 ' [expr $repl + 20] ' 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"

                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) :\0036Yayinda 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) :\0036Yayinda 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) :\0034bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."

                return 0

            }

            if {$komut=="bilgi"} {

                putquick "PRIVMSG $nick merhaba $nick"

                putquick "PRIVMSG $nick yapmiş oldugum hatalarla ilgili \2\35SanaLTehLiqe@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Com\2\3 adresine mail göndere bilir"

                putquick "PRIVMSG $nick yada \2\35/MemoServ Send SeckiN <mesajiniz>\2\3 şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"

                putquick "PRIVMSG $nick Coder Set By \35SeckiN"

                return 0

             }

            if {$komut=="on"} {

                putquick "PRIVMSG $radyo(adm) :\2Talebiniz alindi Hayırli Yayinlar\2 $nick!."

                putquick "os Global Dj \002$nick\002 Ş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) :\2Dj programlari Siralaniyor\2"

                putquick "PRIVMSG $radyo(adm) :ShoutCast==> \2 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(adm) :Winamp==> \2 
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ÖNEMLİ UYARI :\003Ş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 [temizle $stitle] su anda online!  \0034,1 | \0037 Istekleriniz icin $radyo(chan) kanalına; !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum SeVDa-FM ailesine gelsin.  \0034,4"

            }

        } 

        if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 

            putquick "PRIVMSG $radyo(chan) :-"

            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "

            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' [expr $repl + 20] ' 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) :\0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum SeVDa-FM ailesine gelsin.  \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 dj_chan dur

    if {[string match -nocase $radyo(adm) $c]} {

        channel set $radyo(adm) -istkcmd

        putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "

        putquick "PRIVMSG $radyo(chan) :5 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) :5 Bas ustune. "

        putquick "PRIVMSG $radyo(chan) :5 Istek zamani basladi, istekte bulunmak icin;4!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 :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 $radyo(chan) :1,12 $kisi 5isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }

        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #Radyo 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 $radyo(adm) :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }

    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #Radyo kanalinda boyle bir rumuz bulunmamaktadir. "; 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) : \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) :5 $nick 5isteginiz online 5Dj'5imize iletilmistir. Lutfen bekleyiniz, isteginiz kontrol ediliyor. ";

        putquick "PRIVMSG $radyo(adm) :5 İstek isteyen;4 $nick 5isteği;4 $arg ";

        return 0

    }

    if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(adm) :5$nick 5bu kadar cok istekte bulunamazsiniz, biraz bekledikten sonra tekrar deneyin. " }

    return 0

    }

    putquick "PRIVMSG $radyo(chan) :5$nick 5istekler yayinlanmayacaktir. Lutfen daha sonra tekrar deneyiniz. "

}

Cevap: Özel Tasarim Radyo TCL'si

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim, bu sonraki verdiğiniz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] nin verdiği tcl ise kick atmıyor . !yok yazdığımızda bir sıkıntı vardı olmuyordu onuda @¿ kardeşimizin sayesinde çözülmüştü. daha bir kaç sıkıntısı daha var sanırım
!dj kill yazıldıgında diğer komutlarda işlem yamayı durduruyor ama kill de atmıyordu.

Cevap: Özel Tasarim Radyo TCL'si

Tcl error [kanala:yaz]: extra characters after close-quote

Hatasi Veriyor

Cevap: Özel Tasarim Radyo TCL'si

Alıntı:

¿ Nickli Üyeden Alıntı (Mesaj 1041522438)

Paslanmisim bende sorunu gec halledebildik :D

nasıl hallettiğinizi de paylaşsanız bizde halletsek :)

Kod:

[19:58] Tcl error [countdusur]: can't read "::rawcount": no such variable

Kod:

[19:58] Tcl error [join_greet]: extra characters after close-quote

gibi hatalar gözüme çarpıyor piyasadaki ne kadar tcl varsa hepsini deniyorum nereyse...

bu konularda yardımcı olabilecek arkadaşları bekliyorum birde arkadaşlar dikkatimi çeken farklı bir konu oldu her arkadaş bazı kodları kendisine göre yapılandırıyor ve dolayısı ile çakışmalar oluyor bu yayın kickleme dinleyene voice verme alma isteği aratıp convert edip indirilecek link veren tcl vs. hepsinde bazı değerler farklı farklı yapılandırılmış dolayısı ile de bunları ne tek tcl yapabiliyoruz nede farklı tcl mesela ben dj nick ini değiştirelim vs. gibi birşey sormuştum bir arkadaş sağolsun paylaştı ve orda host vs. gibi özellikleri içeren kodlar diğer tcl ile çakıştı mesela bu konuda yardımcı olabilirseniz sevinirim kodları toparlamaya editlemeye hataları gidermeye çalışıyorum ama bu hatalar yüzünden sanırım botta düşme vs. de yaşanıyor saygılarımla...