Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias radyom2 { sockopen $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }
on *:SockOpen:radyo*zyn:{
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*zyn:{
if ($sockerr) { msg #Dj 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 irc.server.com:/port
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
msg #radyo 4,4 0,1 Müziğin kalbi 7Nostalji FM0'de atıyor.. 4,4
msg #radyo 4,4 0,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz. 4,4
msg #radyo -
msg #radyo 4,4 0,1 $4 0,1 0,5 Türkiye'nin En Eglenceli Internet Radyosu 0,7 Nostalji FM [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
msg #radyo 4,4 0,1 $1 0 su anda online!4,4 0,1 Calan parcamiz: 7 ( $4 )
msg #radyo 4,4 0,1Şuanda radyomuzu 7( $6 )0 0,1kişi dinliyor0,1 4,1|0 7 en yüksek( $7 )
msg #radyo 4,4 0,1Radyomuzu WEB'den dinlemek icin 4,1|0 7 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
msg #radyo 4,4 0,1Radyomuzu Winamp'tan dinlemek icin 4,1|0 7 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set %dj $1
set %ds $6
set %yt $2
set %cs $4
}
#durum on
on *:text:!durum:#Radyo:.radyom irc.MircSohbet.Com:8748
#durum end
#baglanti on
on 1:join:#Radyo: {
if ($nick != radio) {
/notice $nick 0,1En değişik, En eğlenceli, En profesyonel 11,1yayınlar bu radyoda :) Hemen0,1 #Radyo 11,1da 0,1!link 11,1yap ve linke tıklayarak yayını dinlemeye başla ;)
}
}
#baglanti end
#dj on
on *:text:*:#Radyo: {
if $1 == !Link {
msg #radyo 4,4 0,1 Müziğin kalbi 7Nostalji FM0'de atıyor.. 4,4
msg #radyo 4,4 0,1Radyomuzu Winamp'tan dinlemek icin 4,1|0 7 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
}
#dj end