- alias radyo {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a 1453 | return }
if ($1 == $null) { echo -a 38.99.21.22 | return }
if (: isin $1) {
tokenize 58 $remove($1,[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...])
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]) | set %site $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]) }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { msg #Radyo 0,6 Radyomuz ?u anda kapaly  | 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) { msg #Radyo 0,6 Radyomuz ?u anda kapaly }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { msg #Radyo 0,4 Yayyn Offline | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo,,)
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 Yazdy?y Ysim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = ?arky Kalitesi
; $6 = Dinleyici Sayysy
; $7 = Max. Dinleyici Sayysy
; $8 & $9 = DinLeyici Rekoru
msg #Radyo 0,13 - 0,6 $1 0,13 - 0,14 ?u anda yayynda. 0,13 -  0,13 - 0,6 Radyoda, 0,13 -  0,13 - 0,14 $4 0,13 -  0,13 - 0,6 çalyyor..! 0,13 - 
msg #Radyo 0,13 - 0,14 RAdyo XXX Fm’i ?u anda, 0,6 ‘ $+ $6 $+ ‘ 0,14 ki?i dinliyor..! 0,13 -  0,13 - 0,14 En yüksek dinleyici sayysy, 0,13 - 0,6 $+ ‘ 56 $+ ‘ 0,13 - 
msg #Radyo 0,13 - 0,14 Online istekleriniz için msn adresimiz, 0,13 -  0,13 - 0,6 Radyonuzun MSN Adresi 0,13 - 
msg #Radyo 0,13 - 0,14 Radyomuzu winamptan dinlemek için, 0,13 -  0,13 - 0,6 radyonuzun Linki 0,13 -  0,13 - 0,14 adresine tyklayynyz.. 0,13 -  13,13 13,15 - Radyonuzun Web Sitesi - 13,13 
msg #Radyo 0,13 - 0,14 13.:: 0Radyo XXXXXX 13::. 0Sanal Alem’in en kaliteli radyosu.. Online DJ’lerimizden isteklerde bulunabilir sevdiklerinize ula?tyrabilirsiniz. 0,13 -  0,13 - 0,6 isteklerinizi << !istek Sanatçy - ?arky >> ?eklinde DJ’lerimize bildirebilirsiniz. 0,13 - 
set %dj $1
set %cp $4
set %ds $6
}
#link on
on *:text:!link:#Radyo: {
msg #Radyo 0,13 - 0,14 Radyomuzu winamptan dinlemek için, 0,13 -  0,13 - 0,6 Radyonuzun LYNK’i 0,13 -  0,13 - 0,14 adresine tyklayynyz.. 0,13 -  13,13 13,15 - Radyo XXXXXX - 13,13 
}
#link end
#dj on
on *:text:!dj:#Radyo: {
msg #radyo 0,13 - 0,6 %dj 0,13 - 0,14 ?u anda Radyo XXXX FM’de yayynda. 0,13 - 
}
#dj end
}
#durum on {
on *:text:!durum:#Radyo: {
.radyo Radyo Link’i
}
#durum end
on *:text:#Radyo: {
if !istek * iswm $1- {
/msg #Radyo@ 0,10 - 11,1 %dj 0istek talebi var! 1,10 -  1,10 - 11,1 $nick 0Rumuzlu kullanycy, 11( $+ $2- $+ ) 0iste?inde bulundu.. 1,10 -  1,10 - 0,1 Lütfen 11!Evet 0yada 11!hayyr 0?eklinde yanyt verin. 1,10 - 
/notice $nick 0,13 - 0,6 $nick 13,13 0,6 istedi?iniz < $+ $2- $+ > olarak Dj’e iletildi. 0,13 - 
/set %istekrumuz $nick
}
if !istek iswm $1- {
/msg $nick 2 Bos istek gondermeyiniz  $nick  ” Örne?in : [20:03:37] !istek Gulben Ergen - Lay La Lay Lalay gibi”
}