04 Şubat 2007, 05:35
|
#21 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Yanıt: Radyo !durum göstericisi
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 #IRCMaster 2Radyo Bilgileri Alınıyor7...
tokenize 58 $remove($1,[Üye Olmadan Linkleri Göremezsiniz. Ü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. Üye Olmak için TIKLAYIN...]) | set %site $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | msg #IRCMaster 4,0 Radyo Bilgileri Alınıyor... }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { msg #IRCMaster 2Radyo 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 #IRCMaster 2Radyo 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 #IRCMaster 2Yayın 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
topic #IRCMaster 2Yayında Bulunan DJ;4 $1 2Çalan Şarkı;4 $4 2Şuan Radyomuzu4 $6 2Kişi Dinlemekte! 12 Radyomuzu Winamp'tan dinlemek icin tiklayin ==> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set %dj $1
set %cp $4
set %ds $6
}
#link on
on *:text:!link:#IRCmaster: {
radyo 66.90.85.34:4545
}
#link end
#link end
#durum on
on *:text:!durum:#IRCMaster: {
msg $chan 2 Yayında Bulunan DJ:4 %dj 2Şuan Radyomuzu4 %ds 2Kişi Dinlemekte.
}
#durum end
#istek on
on *:text:!istek*:#IRCMaster: {
msg #IRCMaster 2Dikkat7!!( %dj ) 4 $nick 2TarafIndan Istekde BulunuLdu.7 IsteniLen Sarkı: $2- | .msg %dj 4 $nick 2TarafIndan Istekde BulunuLdu.7 IsteniLen Sarkı: $2- }
#istek end #baglanti on
on 1:join:#IRCMaster: {
if ($nick != ankarafm) {
/mode $chan +v $nick
/msg $chan 2 **4 Radyomuzun yayin linkini ogrenmek icin 7>> 4!link
} }
#baglanti end
ßu addonu bu sekilde calisdiriyorum.. ßir sorunum yok fakat ßir konu var.. Sarkı degisdiginde tekrar yeni sarkıyı topic atacak kendisi bunu yapabilir miyiz?
|
|
|  |