| Difuzyon | 26 Kasım 2008 22:51 |
Cevap: radyo !durum gosterme.
Kod:
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 #mIRCoder 7,1 Radyo Bilgileri Alınıyor...
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 #mIRCoder 4,0 Radyo Bilgileri Alınıyor... }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { msg #mIRCoder 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 #mIRCoder 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 #mIRCoder 0,4 Yayı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 #mIRCoder 4,0 Yayında Bulunan DJ : 0,4 $1 4,0 Yayın Türü 0,4 $2 4,0 Çalan Şarkı : 0,4 $4 4,0 Şuan Radyomuzu 0,4 $6 4,0 Kişi Dinlemekte 7,1 Radyomuzu Winamp'tan dinlemek icin tiklayin 12 http://irc.atvtr.net:8030/listen.pls
set %dj $1
set %ds $6
}
#link on
on *:text:!link:#mIRCoder: {
.timer 1 1 /radyo irc.atvtr.net:8030
}
#link end
#istek on
on *:text:*:#mIRCoder: {
if $1 == !istek {
msg #DJ 2İstek yapan:4 $nick 2İstenilen Şarkı:4 $2-
msg #mIRCoder 2 $nick 5,isteğiniz DJ'lerimize iletilmiştir.
}
}
#istek end
#join off
on 1:join:#mIRCoder: {
if ($nick != radio) {
mode $chan +v $nick
.timer 1 0 /topic $chan :-
.timer 1 1 /topic $chan 4,1 Yayında Bulunan DJ : 1,4 %dj 4,1 Şuan Radyomuzu 1,4 %ds 4,1 Kişi Dinlemekte
.timer 1 1 /topic $chan :-
.timer 1 2 /topic $chan 0,4 ** 0,1 Radyomuzun yayin linkini ogrenmek icin 0,4 >> 12,0 !link
.timer 1 2 /radyom irc.atvtr.net:8030
}
}
#join end
Kod:
alias radyom {
sockclose radyo*Df
sockclose radyo*zyn
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,http://,/)
sockopen $+(radyom,$r(1,9999),Df) $1 $2
set %sitem $1 $2
}
else { sockopen $+(radyom,$r(1,999),!) $remove($1-,http://,/) | set %sitem $remove($1-,http://,/) }
}
on *:SockOpen:radyo*Df:{
if ($sockerr) { msg #mIRCoder 4,0 Radyo Offline.. | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*Df:{
sockread %radyom
if (icy-name isin %radyom) { set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
if (icy-genre isin %radyom) { set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
if (icy-url isin %radyom) { set %radyom2 %radyom2 ¿ $remove(%radyom,icy-url) | sockclose radyom | radyom2 }
}
on *:Sockclose:radyo*Df:radyom2
alias radyom2 { sockopen $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }
on *:SockOpen:radyo*zyn:{
if ($sockerr) { msg #mIRCoder 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*zyn:{
if ($sockerr) { msg #mIRCoder 0,4 Yayın Offline | return }
var %zm
sockread %zm
}
on *:SockClose:radyo*zyn:{
sockread -f %radyom
var %zm $remove(%radyom,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %im $numtok(%zm,44)
while %im {
set %radyom2 %radyom2 ¿ $remove($gettok(%zm,%im,44),|)
dec %im
}
durumm
unset %radyom2
unset %radyom
}
alias -l durumm {
sockclose radyo*Df
sockclose radyo*zyn
tokenize 191 %radyom2
; $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 #mIRCoder 4,0Yayında Bulunan DJ :0,4 $1 4,0Şuan Radyomuzu :0,4 $6 4,0Kişi Dinlemekte
set %dj $1
set %ds $6
}
#durum on
on *:text:!durum:#mIRCoder:.radyom irc.atvtr.net:8030
#durum end
#baglanti on
on 1:join:#mIRCoder: {
if ($nick != radio) {
/mode $chan +v $nick
/msg $chan 0,4 ** 0,1 Radyomuzun yayin linkini ogrenmek icin 0,4 >> 12,0 !link
}
}
#baglanti end
* 2 sayfa olarak düşünün ve ayrı sayfalara eklemeyi unutmayın.
* $remove komutunda ) parantezi kapanmamıştı,düzeltildi.
* Kestirmeden gitmişsiniz :) Radyodan veri almadan Dj,Dinleyici Sayısı bilgisini doğrulayamazsınız "radyom" aliası ile !durum için sock bağlantı sağlamış olduk.
* %dj = dj , %ds = dinleyici sayısı ,variables'leri belirtmişsiniz ama kaynak yok(değer?), merak etmeyin ben ekledim :)
* !istek komutunu çalışır hale getirmiş olduk,#DJ kanalını düzenlersiniz.
Güle güle kullanın ;) İyi paylaşımlar... |
