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

toXic · 04 Mart 2010, 09:50

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

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

GhostLy · 04 Mart 2010, 09:59

toXic Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 
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"

senturk57 · 04 Mart 2010, 10:09

toXic Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 
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

insane · 04 Mart 2010, 10:41

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

 
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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Türkiye Kupası maçında ilginç anlar! Vanspor'un gol atması için kaleyi açan Konyaspor gönülleri fethetti	CORDON BLEU	Türkiye Kupası	1	03 Aralık 2021 01:19
Kur'an-ı Kerim'de Bazı Kıssa'ların Ve Ayet'lerin Ve Cümle'lerin Sık Sık Tekrarlanmasının Sebebi Nedir?	CyBeR	İslamiyet	1	10 Ekim 2021 12:02
ERKEK'lerin KADIN'lar için Dedigi DIR DIR varya ?	Sır	Ah Erkekler	0	03 Şubat 2018 01:56
Ops kanalında bulunmayan Global opa deop uygulamak	Guard`	mIRC Scripting Sorunları	9	19 Ocak 2012 02:48
#X kanalında .ban nick yazınca #x1 ve #x2 kanalında uygulamak	istcafe	mIRC Scripting Hazır Kodlar	4	06 Kasım 2009 14:33

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.