IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Dj kanalında Dj lerin Global Atması için ?

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Dj kanalında Dj lerin Global Atması için ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/319425-dj-kanalinda-dj-lerin-global-atmasi-icin.html)

Dj kanalında Dj lerin Global Atması için ?

Simdi Radyo Botu #dj Kanalındayken !global yazıldıgında Çalan Parçayı Global olarak Atsın istiyorum Bunu Nasil yaparız

Radyo Çalan Parça kodu

Kod:

poststuff privmsg "0,2 Çalan Parça : 0,7 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 DJ ..:: $stitle $sgenre ::..Burda Sende Burda OL 0,5http://RadyoDinlemeAdresi:Port/listen.pls"

İlgi Gösteren Arkadaşlara Şimdiden Teşekkürler

Cevap: Dj kanalında Dj lerin Global Atması için ?

Alıntı:

senturk57 Nickli Üyeden Alıntı (Mesaj 1040337819)

Simdi Radyo Botu #dj Kanalındayken !global yazıldıgında Çalan Parçayı Global olarak Atsın istiyorum Bunu Nasil yaparız

Radyo Çalan Parça kodu

Kod:

poststuff privmsg "0,2 Çalan Parça : 0,7 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 DJ ..:: $stitle $sgenre ::..Burda Sende Burda OL 0,5http://RadyoDinlemeAdresi:Port/listen.pls"

İlgi Gösteren Arkadaşlara Şimdiden Teşekkürler

!global olarak düzenleme yapacağim şuan müsait değilim müsait bir zamada bakacağim.. şimdilik çalan parçayi global olarak atması lazım

poststuff os global "0,2 Çalan Parça : 0,7 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 DJ ..:: $stitle $sgenre ::..Burda Sende Burda OL 0,5http://RadyoDinlemeAdresi:Port/listen.pls"

Cevap: Dj kanalında Dj lerin Global Atması için ?

Alıntı:

GhostLy Nickli Üyeden Alıntı (Mesaj 1040337828)

Sağol hocam Ama Ben #Dj kanalında !global yazınca Atmasını istiyorum

Cevap: Dj kanalında Dj lerin Global Atması için ?

Kod:

 

bind pub - !global globalat

proc globalat { n u h c a } {

if {![isop $n "#dj"]} {return 0}

putserv "Os Global 0,2 Çalan Parça : 0,7 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 DJ ..:: $stitle $sgenre ::..Burda Sende Burda OL 0,5http://RadyoDinlemeAdresi:Port/listen.pls"

}

Cevap: Dj kanalında Dj lerin Global Atması için ?

Alıntı:

toXic Nickli Üyeden Alıntı (Mesaj 1040337837)

Kod:

 

bind pub - !global globalat

proc globalat { n u h c a } {

if {![isop $n "#dj"]} {return 0}

putserv "Os Global "0,2 Çalan Parça : 0,7 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 DJ ..:: $stitle $sgenre ::..Burda Sende Burda OL 0,5http://RadyoDinlemeAdresi:Port/listen.pls"

}

bu şekilde atmaz global etken gerekir tcl incelenmesi lazım. setler v.s onemli

örnek verecek olursak.

set dj "dj sunada yok"

bind pub - !global globalat
proc globalat { n u h c a } {
global dj
if {![isop $n "#dj"]} {return 0}
putserv "os global $dj"

Cevap: Dj kanalında Dj lerin Global Atması için ?

Alıntı:

toXic Nickli Üyeden Alıntı (Mesaj 1040337837)

Kod:

 

bind pub - !global globalat

proc globalat { n u h c a } {

if {![isop $n "#dj"]} {return 0}

putserv "Os Global "0,2 Çalan Parça : 0,7 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 DJ ..:: $stitle $sgenre ::..Burda Sende Burda OL 0,5http://RadyoDinlemeAdresi:Port/listen.pls"

}

Hocam buda olmadı :s

Cevap: Dj kanalında Dj lerin Global Atması için ?

Kod:

 

proc playing {target} {

global streamip streamport streampass dj

putlog "shoutcast: $target asked for current song"

if {[catch {set sock [socket $streamip $streamport] } sockerror]} {

putlog "error: $sockerror"

return 0 } else {

puts $sock "GET /admin.cgi?pass=$streampass&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: $streamip"

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 songtitle [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]]

if {$songurl != ""} { set songurl " ($songurl)"}

regsub -all "&#x3C;" $songtitle "<" songtitle

regsub -all "&#x3E;" $songtitle ">" songtitle

regsub -all "&#x26;" $songtitle "+" songtitle 

regsub -all "&#x22;" $songtitle "\"" songtitle

regsub -all "&#x27;" $songtitle "'" songtitle

regsub -all "&#xFF;" $songtitle "" songtitle

regsub -all "&#xB4;" $songtitle "´" songtitle

regsub -all "&#x96;" $songtitle "-" songtitle

regsub -all "&#xF6;" $songtitle "ö" songtitle

regsub -all "&#xE4;" $songtitle "ä" songtitle

regsub -all "&#xFC;" $songtitle "ü" songtitle

regsub -all "&#xD6;" $songtitle "Ö" songtitle

regsub -all "&#xC4;" $songtitle "Ä" songtitle

regsub -all "&#xDC;" $songtitle "Ü" songtitle

regsub -all "&#xDF;" $songtitle "ß" songtitle
 

if {$streamstatus == 1} {

putserv "notice $target :Suan Calan Sarki : $songtitle$songurl"

} else {

putserv "notice $target :Suan Sarki Calmiyor - Yayinda Dj Bulunmuyor."

}}}

close $sock

}}

bu kodu radyo.tcl bir yerine ekle otomatik atar global.