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

22Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Mayıs 2012, 20:41   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Özel Tasarim Radyo TCL'si




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
##################### Ayarlar #####################
set radyo(ip"88.88.88.88"
set radyo(port"8888"
set radyo(pass"Sifre"
set radyo(chan"#Radyo"
set radyo(adm"#DJ"
set radyo(drm"!durum"
set radyo(link"!link"
set radyo(dinleyen"!dinleyen"
set radyo(dj"!dj"
set radyo(yardim"!Help"
set radyo(kick"!kick"
set radyo(djcmd"!dj"
set radyo(weblink""
set radyo(wiamplink""
set radyo(calan"!çalan"
set radyo(online)     "1"
################### Ayarlar bitti burdan sonrasina dokunma ;d

bind time "* * * * *" isonline 
bind time 
"?0 * * * *" global:at
bind join 
- * dj:giris
bind pubm 
- * kanala:yaz
bind pub 
- !var var
bind pub - !yok yok
bind pub 
- !istek istek
bind pub 
- !dur dur
bind pub 
- !basla basla
bind pub 
- !global global:at

channel add $radyo
(chan)
channel add $radyo(adm)


proc global:at {nick uhost hand chan arg} {
    global 
radyo temizle
        putquick 
"os global \0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$radyo
(ip):$radyo(port)"
        
putquick "os global \0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls"
        
putquick "os global \0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin."
}

proc helpme {nick uhost hand chan arg} {
    global 
radyo
    putquick 
"PRIVMSG $radyo(chan) :\0034,4  \0030,1bilgi için \0034,1 | \0037 $radyo(yardim)"
}


proc dj:giris {nick uhost hand chan} {
global 
botnick radyo
    
if {$nick == $botnick} { putquick "MODE $chan +h $botnick";putquick "MODE $chan -f";return 0}
    if {[
string match -nocase $radyo(adm$chan]} {
        if {
$nick == $botnick} {return 0}
        elseif {
$nick == "MerLyn"} {return 0}
        elseif {[
onchan $nick "#MyOpers"]} {return 0}
        elseif {[
onchan $nick "#MyOps"]} {return 0}
        else {
            
putquick "CHGHOST $nick global.mynet.radyo.yayincisi"
            
putquick "CHGIDENT $nick MynetFM"
            
return 0
        
}
    }
}

proc shrink calc number string start bl} { return [expr [string first "$string$bl $start$calc $number] } 
proc kanala:yaz {nick uhost hand chan arg} {
    global 
radyo botnick server temizle
    
if {[catch {set sock [socket $radyo(ip$radyo(port)] } sockerror]} { 
        
putquick "PRIVMSG $chan :Baglanamadi : $sockerror"
        
return 
    
} 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] != -} { 
                
set streamstatus [string range $bl [shrink 14 "<STREAMSTATUS>" 0 $bl] [shrink "</STREAMSTATUS>" 0 $bl]] 
                
set repl [string range $bl [shrink 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink "</REPORTEDLISTENERS>" 0 $bl]] 
                
set curhigh [string range $bl [shrink 15 "<PEAKLISTENERS>" 0 $bl] [shrink "</PEAKLISTENERS>" 0 $bl]] 
                
set currentl [string range $bl [shrink 18 "<CURRENTLISTENERS>" 0 $bl] [shrink "</CURRENTLISTENERS>" 0 $bl]] 
                
set surl [string range $bl [shrink 11 "<SERVERURL>" 0 $bl] [shrink "</SERVERURL>" 0 $bl]] 
                
set maxl [string range $bl [shrink 14 "<MAXLISTENERS>" 0 $bl] [shrink "</MAXLISTENERS>" 0 $bl]] 
                
set bitrate [string range $bl [shrink "<BITRATE>" 0 $bl] [shrink "</BITRATE>" 0 $bl]] 
                
set stitle [string range $bl [shrink 13 "<SERVERTITLE>" 0 $bl] [shrink "</SERVERTITLE>" 0 $bl]] 
                
set sgenre [string range $bl [shrink 13 "<SERVERGENRE>" 0 $bl] [shrink "</SERVERGENRE>" 0 $bl]] 
                
set calan [string range $bl [shrink 11 "<SONGTITLE>" 0 $bl] [shrink "</SONGTITLE>" 0 $bl]] 
                if {
$sgenre != ""} {set sgenre " ($sgenre)"
                
set avgtime [string range $bl [shrink 13 "<AVERAGETIME>" 0 $bl] [shrink "</AVERAGETIME>" 0 $bl]] 
                
set irc [string range $bl [shrink "<IRC>" 0 $bl] [shrink "</IRC>" 0 $bl]] 
                
set icq [string range $bl [shrink "<ICQ>" 0 $bl] [shrink "</ICQ>" 0 $bl]] 
                if {
$icq == 0} { set icq "N/A" 
                
set aim [string range $bl [shrink "<AIM>" 0 $bl] [shrink "</AIM>" 0 $bl]] 
                
set webhits [string range $bl [shrink "<WEBHITS>" 0 $bl] [shrink "</WEBHITS>" 0 $bl]] 
                
set streamhits [string range $bl [shrink 12 "<STREAMHITS>" 0 $bl] [shrink "</STREAMHITS>" 0 $bl]] 
                
set version [string range $bl [shrink "<VERSION>" 0 $bl] [shrink "</VERSION>" 0 $bl]] 
                if {[
string match -nocase $radyo(chan$chan]} { 
                    if {[
string match -nocase $radyo(calan$arg]} {
                        if {
$streamstatus == 1} {
                        
putquick "PRIVMSG $radyo(chan) 4,4    Calan parcamiz:  4,1|0 ' [temizle $calan] '  "
                        
return 0
                        
} else {
                            
putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
                        
}
                    }
                    if {[
string match -nocase $radyo(drm$arg]} {
                        if {
$streamstatus == 1} {
                            
putquick "PRIVMSG $radyo(chan) :-"
                            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
                            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' $repl ' kisi dinliyor. \0034,1 | \0030,1 En yuksek ' $curhigh ' -\00315 kişi dinlemiş  \0034,4  "
                            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$radyo
(ip):$radyo(port)  \0034,4  "
                            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
                            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin.  \0034,4  "
                            
putquick "PRIVMSG $radyo(chan) :-"
                            
return 0
                        
} else {
                            
putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
                        
}
                    }
                    if {[
string match -nocase $radyo(link$arg]} {
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$radyo
(ip):$radyo(port)  \0034,4  "
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
                        
return 0
                    
}
                    if {[
string match -nocase $radyo(dj$arg]} {
                        if {
$streamstatus == 1} {
                            
putquick "PRIVMSG $radyo(chan) :4,4    [temizle $stitle] su anda online!   Calan parcamiz:  4,1|0 ' [temizle $calan] '  "
                            
return 0
                        
} else {
                            
putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
                        
}
                    }
                    if {[
string match -nocase $radyo(dinleyen$arg]} {
                        if {
$streamstatus == 1} {
                            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' $repl ' kisi dinliyor.  4,1|0 En yuksek ' $curhigh ' -15 kişi dinlemiş  "
                            
return 0
                        
} else {
                            
putquick "PRIVMSG $chan :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
                        
}
                    }
                    if {[
string match -nocase $radyo(yardim$arg]} {
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(yardim)  \0034,1 | \0037 burdaki komutlari listeler      "
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(drm)  \0034,1 | \0037 radyo durumunu yansıtır      "
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(link)  \0034,1 | \0037 radyo linkini yansıtır      "
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(dj)  \0034,1 | \0037 yayındaki dji gösterir      "
                        
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 $radyo(calan)  \0034,1 | \0037 o anda radyoda çalan parçayı yansıtır      "
                        
return 0
                    
}
                }
            }
        } 
        
close $sock 
    
}
    if {[
string match -nocase $radyo(adm$chan]} {
        
set komut [lindex $arg 1]
        if {[
string match -nocase "*$radyo(djcmd)*" $arg]} {
            if {
$komut==""} {
                
putquick "PRIVMSG $radyo(adm) :\2$chan\2 kanalinda kullana bileceginiz komutlar."
                
putquick "PRIVMSG $radyo(adm) :\2$radyo(djcmd) <sifre/bilgi/on/depo/kill>\2"
                
putquick "PRIVMSG $radyo(adm) :\2!basla\2 | istek saatini başlatir"
                
putquick "PRIVMSG $radyo(adm) :\2!var\2 istek sahibine isteginin işleme alındıgını vurgular"
                
putquick "PRIVMSG $radyo(adm) :\2!yok\2 | istek sahibine isteginin olmadigini vurgular"
                
putquick "PRIVMSG $radyo(adm) :\2!dur\2 | istek saatini bitirir"
                
return 0
            
}
            if {
$komut=="kill"} {
                if {
$chan != $radyo(adm)} {return 0}
                
putquick "PRIVMSG $radyo(adm) :0,12 Bas ustune. "
                
if {[catch {set sock [socket $radyo(ip$radyo(port)] } sockerror]} { 
                    
putlog "error: $sockerror"
                    
putquick "PRIVMSG $radyo(adm) :\0036Yayinda ki DJ'e kill atılamadi"
                    
return 0
                
} else {
                    
puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=kicksrc&pass=$radyo(pass) HTTP/1.0"
                    
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
                    
puts $sock "Host: $radyo(ip)"
                    
puts $sock "Connection: close"
                    
puts $sock ""
                    
flush $sock
                    close $sock
                    putquick 
"PRIVMSG $radyo(adm) :\0036Yayinda ki DJ'e kill atilmistir."
                
}
                return 
0
            
}
            if {
$komut=="sifre"} {
                
putquick "PRIVMSG $radyo(adm) :\2Radyo bilgileri\2"
                
putquick "PRIVMSG $radyo(adm) :IP adresi \0034 $radyo(ip)\2"
                
putquick "PRIVMSG $radyo(adm) :Portu \0034 $radyo(port)\2"
                
putquick "PRIVMSG $radyo(adm) :Radyo Şifresi \0034 $radyo(pass)\2"
                
putquick "PRIVMSG $radyo(adm) :\0034bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."
                
return 0
            
}
            if {
$komut=="bilgi"} {
                
putquick "PRIVMSG $nick merhaba $nick"
                
putquick "PRIVMSG $nick yapmiş oldugum hatalarla ilgili \2\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
\2\3 adresine mail göndere bilir"
                
putquick "PRIVMSG $nick yada \2\35/MemoServ Send qeweSe <mesajiniz>\2\3 şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"
                
putquick "PRIVMSG $nick Coder Set By \35qeweSe"
                
return 0
             
}
            if {
$komut=="on"} {
                
putquick "PRIVMSG $radyo(adm) :\2Talebiniz alindi Hayırli Yayinlar\2 $nick!."
                
putquick "os Global Dj \002$nick\002 Şuanda online istekleriniz $radyo(chan) kanalinda Yapabilirsiniz.."
                
putquick "os raw svsjoin $nick $radyo(chan)"
                
utimer 2 [list putquick "os raw:ChanServ mode $radyo(chan) +o $nick"]
                return 
0
             
}
            if {
$komut=="depo"} {
                
putquick "PRIVMSG $radyo(adm) :\2Dj programlari Siralaniyor\2"
                
putquick "PRIVMSG $radyo(adm) :ShoutCast==> \2 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putquick 
"PRIVMSG $radyo(adm) :Winamp==> \2 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">return 
0
             
}
        }
    }
}





###################################################################
proc isonline nick uhost hand chan arg } { 
global 
radyo
    
if {$radyo(online) == 1} { 
        
set announce "1" 
        
set urltopic "1" 
        
set tellsongs "1" 
        
set tellusers "1" 
        
set tellbitrate "1" 
        
set advertise "1"
        
set isonlinefile "isonline" 
        
set oldisonline "isonline: 0" 
        
set oldcurlist "4,1 : 15,1 0" 
        
set oldcurhigh "curhigh: 0" 
        
set oldsong "cursong: 0" 
        
set oldbitrate "bitrate: 0" 
        
if {[file exists $isonlinefile]} { 
            
putlog "shoutcast: checking if stream is online" 
            
set temp [open "isonline" r
            while {[
eof $temp] != 1} { 
                
set zeile [gets $temp
                if {[
string first "isonline:" $zeile] != -} { set oldisonline $zeile 
                if {[
string first "curlist:" $zeile] != -} { set oldcurlist $zeile 
                if {[
string first "curhigh:" $zeile] != -} { set oldcurhigh $zeile 
                if {[
string first "cursong:" $zeile] != -} { set oldsong $zeile 
                if {[
string first "bitrate:" $zeile] != -} { 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] != -} { 
                
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 "</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 "</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 "<SONGURL>" 0 $bl] [shrink "</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 "</SERVERTITLE>" 0 $bl]] 
                
set sgenre [string range $bl [shrink 13 "<SERVERGENRE>" 0 $bl] [shrink "</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 == } { 
            if {
$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} { 
                
putquick "topic $radyo(chan) :\0034,4  \0030,1 Şuanda  \0034,1 | \0037 online dj yoktur!"
                
putquick "PRIVMSG $radyo(adm) :\0034ÖNEMLİ UYARI :\003Şuanda Radyoda Dj Yoktur.. Dj Arkadaşlardan yayının boş bulundurulmamasi için rica ediyorum Dj bilgileri için $radyo(adm) kanalinda \002 $radyo(djcmd) sifre\002 yaziniz teşekkürler.."  
            

            if {
$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } { 
                if {
$sgenre != ""} { set sgenre " ($sgenre)" 
                
putquick "topic $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online!  \0034,1 | \0037 Istekleriniz icin $radyo(chan) kanalına; !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin.  \0034,4"
            
}
        } 
        if {(
$tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 
            
putquick "PRIVMSG $radyo(chan) :-"
            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 [temizle $stitle] su anda online! Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] '  \0034,4  "
            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu su anda ' [lindex $repl 1] ' kisi dinliyor. \0034,1 | \0030,1 En yuksek ' [lindex $curhigh 1] ' -\00315 kişi dinlemiş  \0034,4  "
            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu WEB'den dinlemek icin  \0034,1 | \0037 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$radyo
(ip):$radyo(port)  \0034,4  "
            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Radyomuzu Winamp'tan dinlemek icin  \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls  \0034,4  "
            
putquick "PRIVMSG $radyo(chan) :\0034,4  \0030,1 Istekleriniz icin $radyo(chan) kanalına  \0034,1 | \0037 !istek <istediginiz sarki ve mesajiniz>  seklinde yazabilirsiniz.  Ornek: !istek İsmail Yk - TıkLa - Tum EskiMynetSohbet ailesine gelsin.  \0034,4  "
            
putquick "PRIVMSG $radyo(chan) :-"
        

    }
}

###################################################################
proc temizle {icerik} {
    
regsub -all "&#x27;" $icerik "'" icerik
    regsub 
-all "&#x26;" $icerik "feat." icerik
    regsub 
-all "&#xE7;" $icerik "ç" icerik
    regsub 
-all "&#xF0;" $icerik "ğ" icerik
    regsub 
-all "&#xFD;" $icerik "ı" icerik
    regsub 
-all "&#xDD;" $icerik "İ" icerik
    regsub 
-all "&#xF6;" $icerik "ö" icerik
    regsub 
-all "&#xFE;" $icerik "ş" icerik
    regsub 
-all "&#xC7;" $icerik "Ç" icerik
    regsub 
-all "&#xD0;" $icerik "Ğ" icerik
    regsub 
-all "&#xD6;" $icerik "Ö" icerik
    regsub 
-all "&#xDE;" $icerik "Ş" icerik
    regsub 
-all "&#xFC;" $icerik "ü" icerik
    regsub 
-all "&#xDC;" $icerik "Ü" icerik
    regsub 
-all "&#xBF;" $icerik "¿" icerik
    regsub 
-all "&#x3C;" $icerik "<" icerik
    regsub 
-all "&#x86;" $icerik "†" icerik
    regsub 
-all "&#xFF;" $icerik "" icerik
    regsub 
-all "a" $icerik "á" icerik
    regsub 
-all "b" $icerik "ß" icerik
    regsub 
-all "i" $icerik "í" icerik
    regsub 
-all "o" $icerik "ó" icerik
    regsub 
-all "l" $icerik "L" icerik
    regsub 
-all "I" $icerik "Î" icerik
    regsub 
-all "e" $icerik "é" icerik
    regsub 
-all "t" $icerik "†" icerik
    regsub 
-all "y" $icerik "¥" icerik
    regsub 
-all "c" $icerik "¢" icerik
    regsub 
-all "o" $icerik "Ó" icerik
    regsub 
-all "n" $icerik "ñ" icerik
    
return $icerik
}

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


setudef flag istkcmd

proc dur 
{n u h c a} {
global 
botnick radyo dj_chan dur
    
if {[string match -nocase $radyo(adm$c]} {
        
channel set $radyo(adm) -istkcmd
        putquick 
"PRIVMSG $radyo(adm) :5 Bas ustune. "
        
putquick "PRIVMSG $radyo(chan) :5 Lutfen istekte bulunmayin, istekler calinmayacaktir. "
    
}
}

proc basla {n u h c a} {
global 
botnick radyo
    
if {[string match -nocase $radyo(adm$c]} {
        
channel set $radyo(adm) +istkcmd
        putquick 
"PRIVMSG $radyo(adm) :5 Bas ustune. "
        
putquick "PRIVMSG $radyo(chan) :5 Istek zamani basladi, istekte bulunmak icin;4!istek Sanatci ismi - Parca ismi - Mesajiniz. "
    
}
}


proc var {nick uhost hand chan text} {
global 
botnick radyo
    
if {[string match -nocase $radyo(adm$chan]} {
    
set kisi [lindex $text 0]
    if {
$kisi == ""} {
        
putquick "PRIVMSG $chan :5 Nick belirtmediniz. "
        
putquick "PRIVMSG $chan :5 Kullanimi: 1,12.!var <NICK> 5seklindedir. "
        
return
    }
        if {[
onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "putquick "PRIVMSG $radyo(chan) :1,12 $kisi 5isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return }
        if {![
onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; return }
    }
}

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 }
    if {![
onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 #MynetFm kanalinda boyle bir rumuz bulunmamaktadir. "; return }
    }
}

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 }
    if {![
info exists ::istekcount([set wnick [md5 [string tolower $uhost]]])]} {
    
set ::istekcount($wnick0
    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. "



 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 13 Ağustos 2012, 15:34   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




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

__________________
Aklımdasın diyen balıklar, ömrümsün diyen kelebekler..


olur olmaz kişilere içini dökersen, döktüğünü toplamak yine sana kalır..
 
Alıntı ile Cevapla

Alt 20 Eylül 2012, 21:04   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




rar dosyası olarak atsanız seviririz arkadaslar

 
Alıntı ile Cevapla

Alt 21 Eylül 2012, 00:53   #4
Supernova
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




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

 
Alıntı ile Cevapla

Alt 23 Ekim 2014, 15:05   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




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

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Alt 24 Ekim 2014, 19:36   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




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

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Alt 24 Ekim 2014, 21:34   #7
Çevrimdışı
¿
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




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

 
Alıntı ile Cevapla

Alt 25 Ekim 2014, 16:01   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




¿ Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kimliksiz, radyonun aktif olduguna emin misiniz ? ve/veya ip ve port kismini dogru yazdigindan emin ol.

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

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Alt 25 Ekim 2014, 22:49   #9
Çevrimdışı
¿
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




KimLikSiz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Radyo çalışıyor çalışmasında bir sıkıntı yok ama Belirli bir süre geçtikten Sonra bu hatayı veriyor
telnetten çıkartıp geri aldıktan sonra Hiç bir sıkıntı yok devam ediyor.

Kodlarda gozume carpan bi eksiklik yok hatta fazlasi var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Makina ile alakali bi sorun gibi yada botun conf dosyasinda http.tcl include edildi mi ?

 
Alıntı ile Cevapla

Alt 25 Ekim 2014, 23:09   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Özel Tasarim Radyo TCL'si




¿ Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodlarda gozume carpan bi eksiklik yok hatta fazlasi var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Makina ile alakali bi sorun gibi yada botun conf dosyasinda http.tcl include edildi mi ?

hepsinini ysptımm

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Cevapla

Etiketler
radyo, tasarim, tcli, Özel


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

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
Özel tasarim saatler. Sihir Ah Kadınlar 0 03 Aralık 2011 23:28
Özel radyo programı isteyenler? CanCeL Servisler 15 05 Şubat 2009 23:31
Özel Radyo Programı Hazırlanır... CanCeL Servisler 11 06 Şubat 2008 13:38