| MoRtaL_ | 26 Haziran 2008 11:43 |
Radyo
Kod:
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 :)
ßunlarda Yanlıslık Var duzeltmeme Yardım Edebilirmisiniz ßirde Yayındaki Dj Oda yok Onu nasıl Eklicem | 