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) {
msg #istek 5Radyo BiLgiLeri Aliniyor ...
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://,/) | msg #istek 5 Radyo BiLgiLeri Aliniyor... }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { msg #dj 4,0 Radyo Offline.. | 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 #dj 4,0 Radyo Offline.. }
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 #istek 0,4 YayIn OffLine | 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 #radyo 0,1 YayIn Turu : 8 $1 0,1 YayIndaki Dj : 8 $2 0,1 CaLan Sarki : 8 $4 0,1 Suan Radyomuzu 4>8 $6 4< 0,1 Kisi DinLemekte 7,1 Radyomuzu Winamp'tan DinLemek IcIn TikLayIn 8 http://212.95.47.132:2008/listen.pls
set %program $1
set %dj $2
set %şarkı $4
set %dinleyen $6
}
on me:*:join:#radyo:{
.timer 1 2 radyo 212.95.47.132:2008
.timer 0 240 radyo 212.95.47.132:2008
.timer 0 150 msg #radyo 0,1 9RadyoRitmik 0HakkIndA BiLgiLendirme 7!durum 8- 7!istek 8- 7!link 8- 7!calan 8- 7!dinleyen
.timer 0 100 msg #radyo 0,1 Suan YayInI :8 %dinleyen 0Kisi DinLemektedir
}
on *:text:*:#radyo:{
if !durum == $1 { msg #radyo 0,1 YayIn Turu : 8 $1 0,1 YayIndaki Dj : 8 $2 0,1 CaLan Sarki : 8 $4 0,1 Suan Radyomuzu 4>8 $6 4< 0,1 Kisi DinLemekte 7,1 Radyomuzu Winamp'tan DinLemek IcIn TikLayIn 8 http://212.95.47.132:2008/listen.pls }
elseif !link == $1 { msg #radyo 0,1 9RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 ----> 8
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0AdresIne TikLayInIz }
elseif !calan == $1 { msg #radyo 0,1 Suan YayIndaki Dj :8 %dj }
elseif !dinleyen == $1 { msg #radyo 0,1 Suan YayInI :8 %dinleyen 0Kisi DinLemektedir }
elseif !istek == $1 { msg #radyo 0,1 SarkI IstegInIz Dj'LerImIze ILetILmIstIr Isteyen :8 $nick 0Istek :8 $qt($2-) | msg #istek 0,1 Istek Isteyen :8 $nick 0Istek :8 $qt($2-) }
}