



Mirc Radyo Kodu
Bu kod sayesinde Radyo bilgilerini gösterebilirsiniz !durum !link !istek gibi özellikler aktiftir umarım işinize yarar.
Kod:
on *:text:*:#radyo: {
if !istek * iswm $1- {
/msg #radyo 4Isteginiz DJ\'lerimize iletilmistir 4,1 $nick 1,4( $2- )
/msg #dj Isteyen kisi: 4,1 $nick 1,4 Istedigi parca: $2-
}
if !link iswm $1- {
/msg #radyo 0,4 ** 9,1 Radyomuzu Winamp\'ten dinlemek icin tiklayin 0,4 >> 12http://84.16.253.254:8200/listen.pls
}
}
---------------------------------------------------------
alias radyo {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com:2525) | return }
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }
if (: isin $1) {
tokenize 58 $remove($1,http://,/)
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,http://,/) | set %site $remove($1-,http://,/) | }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*S:{
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 }
}
on *:Sockclose:radyo*S:radyo2
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site }
on *:SockOpen:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo,