Kod: Kodu kopyalamak için üzerine çift tıklayın!
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) {
echo -a Lütfen Bekleyin..
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://,/) | echo -a Lütfen Bekleyin.. }
}
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,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|)
dec %i
}
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
sockclose radyo*S
sockclose radyo*J
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
msg %kanal 9,1Yayinda su an 8 $1 9,1bulunmakta. 13* 0Yayin Türü: 8 $1 13* 11Calan parca: 7>>>>> 9 $4 7<<<<<
msg %kanal 15,1 Turkiye'nin en kaliteli online radyosu ve DJ'leri 7,1 Radyo %Rad 15,1Resmi Sitesi:0,6 %web
msg %kanal 15,1Şuanda 7,1 $6 KiŞi dinlemekTe. 15,1 ReKor : 7,1 $7
msg %kanal 12Radyo ile ilgili sorunlariniz icin kanal aoplari ile görüşebilirsiniz.
set %dj $1
set %cp $4
set %ds $6
}
#dj on
on *:text:!dj:#Radyo: {
msg #radyo 0,4 Dj GörevLisi 1 %dj 0,4Şu anda OnLine.
#dj end
}
#parca on
on *:text:!parca:#Radyo: {
msg #radyo 0,2ÇaLan parca:9 %cp
#parca end
}
#dinleyici on
on *:text:!dinleyici:#Radyo: {
msg #radyo 0,6Radyomuzu Su anda 11 %ds 0,6Kişi DinLiyor.
#dinleyici end
}
!istek !djekle !djsil !djsil qibi Komutlarda mevcut bu Çalısırsa Unreal e göre Editler Verebilirim O kodları da.