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

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
1Beğeni(ler)
  • 1 Post By CLubber

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 08 Mart 2012, 20:03   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Radyo TCL sorunu



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 ######"
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 08 Mart 2012, 20:33   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo TCL sorunu



TCL'deki;

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

bind time - "?0 * * * *" global:at 

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

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  "
} 

Kısımlarını silin, sonrasında ise;

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

putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.   \0034,4  "
            putquick "PRIVMSG $radyo(chan) :-"
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu 0,7 Geveze FM 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
            putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' [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">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) :-" 

Bu kodun hemen sonuna;

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

putquick "OperServ GLOBAL Linkiniz" 

Ekleyin.

 
Alıntı ile Cevapla

Alt 09 Mart 2012, 17:05   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo TCL sorunu



CLubber dedigini yaptım babacan ama olmadı

 
Alıntı ile Cevapla

Alt 09 Mart 2012, 17:05   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo TCL sorunu



sen tcl yi ayarlayıp atabilir misin

 
Alıntı ile Cevapla

Alt 09 Mart 2012, 18:01   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo TCL sorunu



PHP 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.
style="color: #0000BB">set radyo(wiamplink) "http://184.164.145.122:1841/listen.pls "
set radyo(calan) "!calan"
set radyo(online)     "1"
set linktime "15"
################### Ayarlar bitti burdan sonrasina dokunma 
bind time - "* * * * *" isonline 
bind join - * dj:giris
bind pubm - * kanala:yaz
bind pub - !var var
bind pub - !yok yok
bind pub - !istek istek
bind pub - !dur dur
bind pub - !basla basla
bind pub - !global global:at
channel add $radyo(chan)
channel add $radyo(adm)
if {![string match "*linkmesaj*" [timers]]} { 
  timer $linktime linkmesaj 
} 
proc linkmesaj {} { 
  global botnick linktime
  putquick "os global \0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor.. \0034,4  "
  putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"  \0034,4  "
  putquick "os global \0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.  \0034,4  "
  timer $linktime linkmesaj 
}
 
proc global:at {nick uhost hand chan arg} {
  global radyo temizle
  putquick "os global \0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor.. \0034,4  "
  putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"  \0034,4  "
  putquick "os global \0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.  \0034,4  "
}
proc helpme {nick uhost hand chan arg} {
  global radyo
  putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1bilgi için \0034,1 | \0037 $radyo(yardim)"
}
 
proc dj:giris {nick uhost hand chan} {
  global botnick radyo
  if {$nick == $botnick} { putquick "MODE $chan +h $botnick";putquick "MODE $chan -f";return 0}
  }
  proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] } 
    proc kanala:yaz {nick uhost hand chan arg} {
      global radyo botnick server temizle
      if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
      putquick "PRIVMSG $chan :Baglanamadi : $sockerror"
      return 0 
      } else {  
      puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" 
      puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" 
      puts $sock "Host: $radyo(ip)" 
      puts $sock "Connection: close" 
      puts $sock "" 
      flush $sock 
      while {[eof $sock] != 1} { 
        set bl [gets $sock] 
        if { [string first "standalone" $bl] != -1 } { 
          set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]] 
          set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]] 
          set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]] 
          set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]] 
          set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]] 
          set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]] 
          set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]] 
          set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] 
          set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] 
          set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]] 
          if {$sgenre != ""} {set sgenre " ($sgenre)"} 
          set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]] 
          set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]] 
          set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]] 
          if {$icq == 0} { set icq "N/A" } 
          set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]] 
          set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]] 
          set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]] 
          set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]] 
          if {[string match -nocase $radyo(chan) $chan]} { 
            if {[string match -nocase $radyo(calan) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) 4,4    Calan parcamiz:  4,1|0 ' [temizle $calan] '  "
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(drm) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :-"
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu 0,7 Geveze FM 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' $repl ' kisi dinliyor. \0034,1 | \0030,1 En yuksek ' $curhigh ' -\00315 kişi dinlemiş  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
                putquick "PRIVMSG $radyo(chan) :-"
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(link) $arg]} {
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
              return 0
            }
            if {[string match -nocase $radyo(dj) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) :4,4    [temizle $stitle] su anda online!   Calan parcamiz:  4,1|0 ' [temizle $calan] '  "
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(dinleyen) $arg]} {
              if {$streamstatus == 1} {
                putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' $repl ' kisi dinliyor.  4,1|0 En yuksek ' $curhigh ' -15 kişi dinlemiş  "
                return 0
                } else {
                putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
              }
            }
            if {[string match -nocase $radyo(yardim) $arg]} {
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(yardim)  \0034,1 | \0037 burdaki komutlari listeler      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(drm)  \0034,1 | \0037 radyo durumunu yansıtır      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(link)  \0034,1 | \0037 radyo linkini yansıtır      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(dj)  \0034,1 | \0037 yayındaki dji gösterir      "
              putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(calan)  \0034,1 | \0037 o anda radyoda çalan parçayı yansıtır      "
              return 0
            }
          }
        }
      } 
      close $sock 
    }
    if {[string match -nocase $radyo(adm) $chan]} {
      set komut [lindex $arg 1]
      if {[string match -nocase "*$radyo(djcmd)*" $arg]} {
        if {$komut==""} {
          putquick "PRIVMSG $radyo(adm) :\2$chan\2 kanalinda kullana bileceginiz komutlar."
          putquick "PRIVMSG $radyo(adm) :\2$radyo(djcmd) <sifre/bilgi/on/depo/kill>\2"
          putquick "PRIVMSG $radyo(adm) :\2!basla\2 | istek saatini başlatir"
          putquick "PRIVMSG $radyo(adm) :\2!var\2 istek sahibine isteginin işleme alındıgını vurgular"
          putquick "PRIVMSG $radyo(adm) :\2!yok\2 | istek sahibine isteginin olmadigini vurgular"
          putquick "PRIVMSG $radyo(adm) :\2!dur\2 | istek saatini bitirir"
          putquick "PRIVMSG $radyo(adm) :\2!global\2 | bütün sunucuya global atar"
          return 0
        }
        if {$komut=="kill"} {
          if {$chan != $radyo(adm)} {return 0}
          putquick "PRIVMSG $radyo(adm) :0,12 Bas ustune. "
          if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
          putlog "error: $sockerror"
          putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Yayinda ki DJ'e kill atılamadi"
          return 0
          } else {
          puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=kicksrc&pass=$radyo(pass) HTTP/1.0"
          puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
          puts $sock "Host: $radyo(ip)"
          puts $sock "Connection: close"
          puts $sock ""
          flush $sock
          close $sock
          putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Yayinda ki DJ'e kill atilmistir."
        }
        return 0
      }
      if {$komut=="sifre"} {
        putquick "PRIVMSG $radyo(adm) :\2Radyo bilgileri\2"
        putquick "PRIVMSG $radyo(adm) :IP adresi \0034 $radyo(ip)\2"
        putquick "PRIVMSG $radyo(adm) :Portu \0034 $radyo(port)\2"
        putquick "PRIVMSG $radyo(adm) :Radyo Şifresi \0034 $radyo(pass)\2"
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."
        return 0
      }
      if {$komut=="bilgi"} {
        putquick "PRIVMSG $nick \0034,4  \0030,1merhaba $nick"
        putquick "PRIVMSG $nick \0034,4  \0030,1yapmiş oldugum hatalarla ilgili \35emre[MENTION=101802]rize[/MENTION].com \0030,1adresine mail göndere bilir"
        putquick "PRIVMSG $nick \0034,4  \0030,1yada MemoServ Send Challenger <mesajiniz> şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"
        putquick "PRIVMSG $nick \0034,4  \0030,1Coder Set By Challenger"
        return 0
      }
      if {$komut=="on"} {
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Talebiniz alindi Hayırli Yayinlar\2 $nick!."
        putquick "os Global \0034,4  \0030,1 Dj \002$nick Şuanda online istekleriniz $radyo(chan) kanalinda Yapabilirsiniz.."
        putquick "os raw svsjoin $nick $radyo(chan)"
        utimer 2[list putquick "os raw:ChanServ mode $radyo(chan) +o $nick"]
        return 0
      }
      if {$komut=="depo"} {
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Dj programlari Siralaniyor\2"
        putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Sam2==>  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1Winamp==>  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">return 0
      }
    }
  }
}
 
 
###################################################################
proc isonline { nick uhost hand chan arg } { 
global radyo
if {$radyo(online) == 1} { 
  set announce "1" 
  set urltopic "1" 
  set tellsongs "1" 
  set tellusers "1" 
  set tellbitrate "1" 
  set advertise "1"
  set isonlinefile "isonline" 
  set oldisonline "isonline: 0" 
  set oldcurlist "4,1 : 15,1 0" 
  set oldcurhigh "curhigh: 0" 
  set oldsong "cursong: 0" 
  set oldbitrate "bitrate: 0" 
  if {[file exists $isonlinefile]} { 
    putlog "shoutcast: checking if stream is online" 
    set temp [open "isonline" r] 
    while {[eof $temp] != 1} { 
      set zeile [gets $temp] 
    if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile } 
  if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile } 
if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile } 
if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile } 
if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile } 
} 
close $temp 
} 
if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
putlog "error: $sockerror" 
return 0
} else { 
puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" 
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" 
puts $sock "Host: $radyo(ip)" 
puts $sock "Connection: close" 
puts $sock "" 
flush $sock 
while {[eof $sock] != 1} { 
  set bl [gets $sock] 
  if { [string first "standalone" $bl] != -1 } { 
    set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]" 
    set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]" 
    set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]" 
    set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]] 
    set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]" 
    set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
    set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]" 
    set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]] 
    set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]" 
    set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] 
    set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] 
  }
} 
close $sock 
} 
set temp [open "isonline" w+] 
puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrate" 
close $temp 
if {$announce == 1 } { 
if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} { 
  putquick "topic $radyo(chan) :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
  putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1ÖNEMLİ UYARI :Şuanda Radyoda Dj Yoktur.. Dj Arkadaşlardan yayının boş bulundurulmamasi için rica ediyorum Dj bilgileri için $radyo(adm) kanalinda \002 $radyo(djcmd) sifre\002 yaziniz teşekkürler.."  
} 
if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } { 
if {$sgenre != ""} { set sgenre " ($sgenre)" } 
putquick "topic $radyo(chan) :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
}
} 
if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Müziğin kalbi 7Geveze FM0'de atıyor..   \0034,4  "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz.   \0034,4  "
putquick "PRIVMSG $radyo(chan) :-"
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu 0,7 Geveze FM [url]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' [lindex $repl 1] ' kisi dinliyor. \0034,1 | \0030,1 En yuksek ' [lindex $curhigh 1] ' -\00315 kişi dinlemiş  \0034,4  "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 [url]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
putquick "PRIVMSG $radyo(chan) :-"
} 
}
}
###################################################################
proc temizle {icerik} {
regsub -all "&#x27;" $icerik "'" icerik
regsub -all "&#x26;" $icerik "feat." icerik
regsub -all "&#xE7;" $icerik "ç" icerik
regsub -all "&#xF0;" $icerik "ğ" icerik
regsub -all "&#xFD;" $icerik "ı" icerik
regsub -all "&#xDD;" $icerik "İ" icerik
regsub -all "&#xF6;" $icerik "ö" icerik
regsub -all "&#xFE;" $icerik "ş" icerik
regsub -all "&#xC7;" $icerik "Ç" icerik
regsub -all "&#xD0;" $icerik "Ğ" icerik
regsub -all "&#xD6;" $icerik "Ö" icerik
regsub -all "&#xDE;" $icerik "Ş" icerik
regsub -all "&#xFC;" $icerik "ü" icerik
regsub -all "&#xDC;" $icerik "Ü" icerik
regsub -all "&#xBF;" $icerik "¿" icerik
regsub -all "&#x3C;" $icerik "<" icerik
regsub -all "&#x86;" $icerik "†" icerik
regsub -all "&#xFF;" $icerik "" icerik
regsub -all "a" $icerik "á" icerik
regsub -all "b" $icerik "ß" icerik
regsub -all "i" $icerik "í" icerik
regsub -all "o" $icerik "ó" icerik
regsub -all "l" $icerik "L" icerik
regsub -all "I" $icerik "Î" icerik
regsub -all "e" $icerik "é" icerik
regsub -all "t" $icerik "†" icerik
regsub -all "y" $icerik "¥" icerik
regsub -all "c" $icerik "¢" icerik
regsub -all "o" $icerik "Ó" icerik
regsub -all "n" $icerik "ñ" icerik
return $icerik
}
#################################
 
setudef flag istkcmd
proc dur {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
channel set $radyo(adm) -istkcmd
putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Lutfen istekte bulunmayin, istekler calinmayacaktir. "
}
}
proc basla {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
channel set $radyo(adm) +istkcmd
putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Istek zamani basladi, istekte bulunmak icin ;!istek Sanatci ismi - Parca ismi - Mesajiniz. "
}
}
 
proc var {nick uhost hand chan text} {
global botnick radyo
if {[string match -nocase $radyo(adm) $chan]} {
set kisi [lindex $text 0]
if {$kisi == ""} {
  putquick "PRIVMSG $chan :\0034,4  \0030,1 Nick belirtmediniz. "
  putquick "PRIVMSG $chan :\0034,4  \0030,1 Kullanimi: .!var <NICK> seklindedir. "
  return
}
if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "; putquick "PRIVMSG $radyo(chan) : $kisi isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
}
}
proc yok {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
set kisi [lindex $a 0]
if {$kisi == ""} {
  putquick "PRIVMSG $c :\0034,4  \0030,1 Nick belirtmediniz. "
  putquick "PRIVMSG $c :\0034,4  \0030,1 Kullanimi: .!yok <NICK> seklindedir. "
  return
}
if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 Bas ustune. "; putquick "PRIVMSG $radyo(adm) : Uzgunum $kisi isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
}
}
proc istek {nick uhost handle chan arg} {
global botnick radyo
if {[lsearch -exact [channel info $radyo(adm)] +istkcmd] != -1} {
if {$arg == ""} { putquick "PRIVMSG $radyo(chan) : \0034,4  \0030,1  $nick isteginizi belirtmeyi unuttunuz. "; return 0 }
if {![info exists ::istekcount([set wnick [md5 [string tolower $uhost]]])]} {
  set ::istekcount($wnick) 0
  utimer 60[list unset ::istekcount($wnick)]
  putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $nick isteginiz online Dj'imize iletilmistir. Lutfen bekleyiniz, isteginiz kontrol ediliyor. ";
  putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1 İstek isteyen; $nick isteği; $arg ";
  return 0
}
if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(adm) :\0034,4  \0030,1$nick bu kadar cok istekte bulunamazsiniz, biraz bekledikten sonra tekrar deneyin. " }
return 0
}
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1$nick istekler yayinlanmayacaktir. Lutfen daha sonra tekrar deneyiniz. "
} 

* utimer 60[ buradaki 60 ile [ arasında boşluk olması gerekli.

* 15 dk'da bir radyo linkini global atar botun.

* set linktime "15"

* Buradan süreyi uzatıp kısaltabilirsin.

 
Alıntı ile Cevapla

Cevapla

Etiketler
radyo, sorunu, tcl

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Radyo Sorunu ?? wiems Eggdrop, NeoStats, BNC 6 05 Kasım 2010 01:49
Radyo sorunu Oneman Unreal IRCd 5 22 Ocak 2010 13:02
Radyo bot sorunu aLLstaR mIRC Scripting Sorunları 4 04 Şubat 2009 19:45
Radyo Sorunu? LauReLL mIRC Scripting Sorunları 1 29 Ocak 2008 23:46
Radyo sorunu NoRToN Eggdrop, NeoStats, BNC 2 24 Ocak 2008 22:52




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org