alias radyo {
sockclose radyo
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | halt }
if (: isin $1) {
echo -a Lütfen Bekleyin..
tokenize 58 $1
sockopen radyo $1 $2
set %site $1 $2
}
else { sockopen radyo $1- | set %site $1- | echo -a Lütfen Bekleyin.. }
}
on *:SockOpen:radyo:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo:{
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 }
}
on *:Sockclose:radyo:radyo2
alias radyo2 { sockopen radyo2 %site | unset %site }
on *:SockOpen:radyo2:{
if ($sockerr > 0) return
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo2:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
var %z
sockread %z
}
on *:SockClose:radyo2:{
sockread -f %radyo
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $gettok(%z,%i,44)
dec %i
}
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
tokenize 191 %radyo2
; $1 = Dj in Yazdığı İsim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
; $10 = Ne oLduunu biLmiOm :)
.msg radyo 2İsim :4 $1
.msg radyo 2Genre :4 $2
.msg radyo 2URL :4 $3
.msg radyo 2ÇaLan Parça :4 $4
.msg radyo 2Şarkı KaLiteSi :4 $5
.msg radyo 2DinLeyici Sayısı :4 $6
.msg radyo 2Max. Dinleyici Sayısı :4 $7
.msg radyo 2DinLeyici Rekoru :4 $8 & $9
.msg #radyo 2Alemin En KraL 4Radyo2'Su DuygusehriFm'e Hoş Geldiniz. Yayınımızı Winamp Uzerinden Dinlemek Icin 7http://85.105.10.100:8032/listen.pls 2Tıklamanız Yeterli Olacaktır. Yayında Çalan Parça4 $1 2Dinleyici Sayısı4 $6 2DuygusehriFm
}
; $1 = Dj in Yazdığı İsim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
; $10 = Ne oLduunu biLmiOm Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ßunlarda Yanlıslık Var duzeltmeme Yardım Edebilirmisiniz ßirde Yayındaki Dj Oda yok Onu nasıl Eklicem
26 Haziran 2008, 11:43
Benzer Konular 
Normal
