« idle kontrol remotesi | mIRCMerkez | mIRC indirme »
Radyo kodu
Yazar Daemnia | Haziran 14, 2008
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,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://,/)  }
}
on *:SockOpen:radyo*S:{
 if ($sockerr) { msg #Radyo 0,6 Radyomuz şu anda kapalı | 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 kapalı }
 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 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
 msg #Radyo 0,13 - 0,6 $1 0,13 - 0,14 Şu anda yayında. 0,13 - 0,13 - 0,6 Radyoda, 0,13 - 0,13 - 0,14 $4 0,13 - 0,13 - 0,6 çalıyor..! 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 sayısı, 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 tıklayınız.. 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ÅŸtırabilirsiniz. 0,13 - 0,13 - 0,6 isteklerinizi << !istek Sanatçı - Åžarkı >> ÅŸ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 LÄ°NK’i 0,13 - 0,13 - 0,14 adresine tıklayınız.. 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 yayında. 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 kullanıcı, 11( $+ $2- $+ ) 0isteğinde bulundu.. 1,10 - 1,10 - 0,1 Lütfen 11!Evet 0yada 11!hayır 0şeklinde yanıt 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] <Radyo> !istek Gulben Ergen - Lay La Lay Lalay gibi”
 }
}
Kategori: mIRC Hazır Kodları | Radyo kodu
|Etiketler: link, mirc addon, mirc hazir kod, Radyo, radyo bot, socket radyo bot
Bugun 3 toplam 716 kere okundu.
Benzer mIRC Konulari;
- mIRCMerkez Radyo Yayında!
- mIRC Radyo
- Pagerank Sorgulama
- İddaa Sonuçları
- mIRCMerkez Kanal Diyalogu
