Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

2Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 26 Kasım 2014, 18:05   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



Merhaba ;

Forumdakilerin Çoğunu Denedim Komutlar da Tepki Vermiyorlar, Yani Denemeden Konu Açmadığıma Emin Olabilirsiniz.

Sağlam Olduğundan Emin Olduğunuz Radyo.TCL Varsa Paylaşırmısınız.

Teşekkürler...

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan
Alt 26 Kasım 2014, 18:14   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



Radyo.tcl dosyaları o kadar problem yaratmaz sanırım, .tcl dosyasına bilgilerinizi doğru girdiğinizden emin misiniz? Ip, port, şifre gibi..

Birde onları kontrol edin isterseniz. Sorun onunla da alakalı değil ise ;


Birde şunu deneyiniz ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Arşivimde varmış, yükledim bir yere. Conf dosyası da mevcuttur içerisinde.

 
Alıntı ile Cevapla

Alt 26 Kasım 2014, 18:40   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



Kendi kullanmış olduğum radyo tcl dosyası.

Not : +20 dinleyici

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
##################### Ayarlar #####################
set radyo(ip) "31.210.155.94"
set radyo(port) "4237"
set radyo(pass) "biraskfmm"
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 BirAsk-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.BirAsk.Net.Radyo.Yayincisi"
            putquick "CHGIDENT $nick BirAsk-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 BirAsk-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 Edit \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 BirAsk-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 BirAsk-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. "
}


Konu SeckiN tarafından (01 Aralık 2014 Saat 16:07 ) değiştirilmiştir. Sebep: TCl düzenleme
 
Alıntı ile Cevapla

Alt 26 Kasım 2014, 20:41   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kardeşim Bu Türkçe Karakter Sorununu Nasıl Hallederim ?

Ellerine Sağlık Bu Arada Çok Güzel Çalışıyor..

Sorun ;

Alıntı:
 ' KzL ELmám (Mus†áfá YLdzdóáñ) ' 


 
Alıntı ile Cevapla

Alt 26 Kasım 2014, 21:06   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



No_FeaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kardeşim Bu Türkçe Karakter Sorununu Nasıl Hallederim ?

Ellerine Sağlık Bu Arada Çok Güzel Çalışıyor..

Sorun ;


O türkçe karakter hatası değil paşam. Tcl içinde yapılan binevi gösteriş (=

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
##################### 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 BirAsk-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.BirAsk.Net.Radyo.Yayincisi"
            putquick "CHGIDENT $nick BirAsk-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 BirAsk-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 \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 BirAsk-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 BirAsk-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 "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "I" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

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


setudef flag istkcmd

proc dur {n u h c a} {
global botnick radyo dj_chan dur
    if {[string match -nocase $radyo(adm) $c]} {
        channel set $radyo(adm) -istkcmd
        putquick "PRIVMSG $radyo(adm) :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. "
}

Bunu dene bakalım.

 
Alıntı ile Cevapla

Alt 26 Kasım 2014, 21:56   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Çok Teşekkür Ederim Çok Güzel Oldu, Türkçe Karakterleri Hala Göstermiyor Ama..

Örnek ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[21:52] <Radyo> No_FeaR su anda online! Calan parcamiz: |  ' elik - Hercai '
 
Alıntı ile Cevapla

Alt 26 Kasım 2014, 22:17   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###################################################################
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 "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "I" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yukarıdaki kodları aşağıdaki ile değiştir bakalım.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###################################################################
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 "&#xFE;" $icerik "ş" icerik
    regsub -all "&#xDC;" $icerik "Ü" icerik
    regsub -all "&#xC7;" $icerik "Ç" icerik
    regsub -all "&#xE7;" $icerik "ç" icerik
    regsub -all "&#xD;"  $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 "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "I" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

#################################
 
Alıntı ile Cevapla

Alt 26 Kasım 2014, 22:57   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hala Aynı Dediğin Gibi Yaptım ;



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[22:51] <Radyo> 4,4  0,1 No_FeaR su anda online! Calan parcamiz: 4,1 | 7 ' Ahmet Seluk lkan feat. Niran nsal - Geceler Ah Gecelerim (2014) '  4,4  
[22:52] <Radyo> -
[22:52] <Radyo> 4,4  0,1 No_FeaR su anda online! Calan parcamiz: 4,1 | 7 ' Ahmet Seluk lkan feat. Niran nsal - Geceler Ah Gecelerim (2014) '  4,4  
[22:53] <Radyo> -
[22:53] <Radyo> 4,4  0,1 No_FeaR su anda online! Calan parcamiz: 4,1 | 7 ' Ahmet Seluk lkan feat. Niran nsal - Geceler Ah Gecelerim (2014) '  4,4  
[22:54] <Radyo> -
[22:54] <Radyo> 4,4  0,1 No_FeaR su anda online! Calan parcamiz: 4,1 | 7 ' Ahmet Seluk lkan feat. Niran nsal - Geceler Ah Gecelerim (2014) '  4,4  
[22:55] <Radyo> -
[22:55] <Radyo> 4,4  0,1 No_FeaR su anda online! Calan parcamiz: 4,1 | 7 ' Ahmet Seluk lkan feat. Niran nsal - Geceler Ah Gecelerim (2014) '  4,4
 
Alıntı ile Cevapla

Alt 09 Temmuz 2015, 23:06   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanks. bulamadıysan bende var Radyo.Tcl verebilirim.

 
Alıntı ile Cevapla

Alt 10 Temmuz 2015, 16:25   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Buyur Bunu Dene Radyo TCL [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
char *adres = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] for(int i = 0; *(adres + i); i++) { putchar(toupper(adres[i])); }
 
Alıntı ile Cevapla

Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2

Etiketler
2014 çalışan tcl, bi, Çalışan, paylaşırmısınız, radyo, radyo tcl varmı, sağlam, tcl, varsa

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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
Çalışan Kadınlar Ve Ev Hayatı, Çalışan Kadınların Zorunlulkları Ay Ah Kadınlar 0 08 Temmuz 2010 16:35
Elinizde Sorunusuz calışan radyo bot u varmı ircd Eggdrop, NeoStats, BNC 4 08 Haziran 2009 10:19
Eliniz sipariş formu var ise paylaşırmısınız? [CRUEL] PHP 4 12 Ekim 2008 00:06
aCiL VarSa sağlam Biri Baksın XpLoD Unreal IRCd 3 23 Şubat 2008 00:48




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
ferizli haber kaynarca haber sohbet sohbet teması takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk
Kuşadası Web Site Tasarım & Teknik Destek - KuşadasıNET