IRC Sunucu Radyo Kodu

Faruk

Harbi Üye
Forum Üyesi
Katılım
19 Mart 2019
Mesajlar
8,738
Tepkime puanı
28
Konum
Diyarbakır
Cinsiyet
  1. Bay
Takım
Galatasaray
Merhabalar.

Öncelikle bu kodu eklememdeki sebeb çoğu arkadaşımız radyo kodu var ama !link !calan !dinleyen !durum faliyeti istemesidir. Elimden geldigi kadar yardimci olsamda diğer Ustadlarim yardımcı olsada forumda halendaha istenen bir kod olduğunu görmüş bulunmaktayim. Eğerki uygun bulunmazsa konum silinebilir. şimdi Kodu Tanitalim.
Kod:
[B] alias radyom {[/B]
[B]   sockclose  radyo*Df[/B]
[B]   sockclose radyo*zyn[/B]
[B]   if (: !isin $1) && (!$2) {  echo -a 1453 | return }[/B]
[B]   if ($1 == $null) { echo -a 38.99.21.22 |  return }[/B]
[B]   if (: isin $1) {[/B]
[B]     tokenize 58 $remove($1,http://,/)[/B]
[B]     sockopen $+(radyom,$r(1,9999),Df) $1 $2[/B]
[B]     set %sitem $1 $2[/B]
[B]   }[/B]
[B]   else { sockopen $+(radyom,$r(1,999),!) $remove($1-,http://,/) | set  %sitem $remove($1-,http://,/) }[/B]
[B] }[/B]
[B] on *:SockOpen:radyo*Df:{[/B]
[B]   if  ($sockerr) { msg #mIRCoder 4,0 Radyo Offline.. | return }[/B]
[B]   sockwrite -tn $sockname GET / HTTP/1.1[/B]
[B]   sockwrite -tn $sockname  $crlf[/B]
[B] }[/B]
[B] on *:Sockread:radyo*Df:{[/B]
[B]   sockread %radyom[/B]
[B]   if  (icy-name isin %radyom) { set %radyom2 %radyom2 ¿  $remove($gettok(%radyom,2,58),|) }[/B]
[B]   if (icy-genre isin %radyom) {  set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }[/B]
[B]   if  (icy-url isin %radyom) { set %radyom2 %radyom2 ¿  $remove(%radyom,icy-url) | sockclose radyom | radyom2 }[/B]
[B] }[/B]
[B] on  *:Sockclose:radyo*Df:radyom2[/B]
[B] alias radyom2 { sockopen  $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }[/B]
[B] on  *:SockOpen:radyo*zyn:{[/B]
[B]   if ($sockerr) { msg # 4,0 Radyo  Offline.. }[/B]
[B]   sockwrite -tn $sockname GET /7.html HTTP/1.0[/B]
[B]   sockwrite -tn $sockname User-Agent: Mozilla[/B]
[B]   sockwrite -tn $sockname[/B]
[B] }[/B]
[B] on  *:Sockread:radyo*zyn:{[/B]
[B]   if ($sockerr) { msg # 0,4 Yayın  Offline | return }[/B]
[B]   var %zm[/B]
[B]   sockread %zm[/B]
[B] }[/B]
[B] on  *:SockClose:radyo*zyn:{[/B]
[B]   sockread -f %radyom[/B]
[B]   var %zm  $remove(%radyom,<HTML><meta http-equiv="Pragma"  content="no-cache"></head><body>,</body></html>)[/B]
[B]   var %im $numtok(%zm,44)[/B]
[B]   while %im {[/B]
[B]     set %radyom2 %radyom2 ¿  $remove($gettok(%zm,%im,44),|)[/B]
[B]     dec %im[/B]
[B]   }[/B]
[B]   durumm[/B]
[B]   unset %radyom2[/B]
[B]   unset %radyom[/B]
[B] }[/B]
[B] alias -l durumm {[/B]
[B]   sockclose radyo*Df[/B]
[B]   sockclose radyo*zyn[/B]
[B]   tokenize 191 %radyom2[/B]
[B]   ; $1 = Dj in Yazdığı İsim[/B]
[B]   ; $2 = Genre[/B]
[B]   ; $3 = URL  [COLOR=Red]irc.server.com:/port[/COLOR][/B]
[B]   ; $4 = ÇaLan Parça[/B]
[B]   ; $5 = şarkı Kalitesi[/B]
[B]   ; $6 = Dinleyici Sayısı[/B]
[B]   ; $7 = Max. Dinleyici Sayısı[/B]
[B]   ; $8  & $9 = DinLeyici Rekoru[/B]
[B]   msg #turkiye 1 Yayında Bulunan DJ :  4[  $1 ] [/B]
[B]   msg #turkiye [/B]
[B]   msg #turkiye 1 şuan Radyomuzu     :  4[  $6 ] 1Kişi Dinlemekte.[/B]
[B]   msg #turkiye [/B]
[B]   msg #turkiye 1  şuanda Radyomuzda Çalan şarkı 4[ $4 ] 1[/B]
[B]   msg #turkiye [/B]
[B]   msg  #turkiye 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin  7http://[COLOR=Red]irc.server.com:port[/COLOR]/listen.pls[/B]
[B]   set %bo $1[/B]
[B]   set %Ce $6[/B]
[B]   set %k $4[/B]

[B] } [/B]

[B] on *:text:!durum:#turkiye:.radyom   [COLOR=Red]irc.server.com:port [/COLOR][/B]
[B] on *:text:*:*:{
  if !link == $1 {
    /msg $chan 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin  7http://[COLOR=Red]irc.server.com:port[/COLOR]/listen.pls
  }
  if !dj == $1 {
    /msg $chan  1 Yayında Bulunan DJ :  4[  %bo ]
  }
  if !dinleyen == $1 {
    /msg $chan 1  1 şuan Radyomuzu     :  4[ %Ce ] 1Kişi Dinlemekte. 
  }

  if !calan == $1 {
    /msg $chan  1  şuanda Radyomuzda Çalan şarkı 4[ %k ] 
  }
}[/B]
[B] }[/B]
Kırmızıyla Belirttiğim Yerleri Kendi Serverinize Göre ayarlayınız.


şimdi Nasıl Çalıştığına Bakalım.

PHP:
 <boCek> !durum 
 <Casus_Bot>  Yayında Bulunan DJ : [ Dj Ay_mavi ]
 <Casus_Bot> 
 <Casus_Bot>  şuan Radyomuzu : [ 27 ] Kişi Dinlemekte.
 <Casus_Bot> 
 <Casus_Bot>  şuanda Radyomuzda Çalan şarkı [ Dj Aydin Özer Club mix ww.djler.net ] 
 <Casus_Bot> 
 <Casus_Bot>  Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin http://irc.atvtr.net:8030/listen.pls
 ---------------------------
 <boCek> !link
 <Casus_Bot>  Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin http://irc.atvtr.net:8030/listen.pls
 ---------------------------
 <boCek> !calan
 <Casus_Bot>  şuanda Radyomuzda Çalan şarkı [ Dj Aydin Özer Club mix ww.djler.net ] 
 ---------------------------
 <boCek> !dinleyen
 <Casus_Bot>  şuan Radyomuzu : [ 27 ] Kişi Dinlemekte.
 ---------------------------
 <boCek> !dj
 <Casus_Bot>  Yayında Bulunan DJ : [ Dj Ay_mavi ]
Yapmaniz Gerek En üsteki Kodu mIRC'ınızın Remote Bölümüne ( Alt + R ) Olan kısma kopyalayip yapiştırıyoruz. Daha Sonra Tamam Dedikten sonra işlem bitmiştir.



Bunlar Nasıl Çalışır ?

PHP:
 !link : Belirtmiş olduğunuz link'i Kanala yansıtır.
 !calan : Yayında Çalan şarkıyı Kanala yansıtır.
 !durum : Yayında Kim Dj , Yayında Kaç kişi dinliyor , Yayında Çalan şarkı , Genel durum.
 !dinleyen : Yayını Kaç kişi dinliyor.
 !dj : Yayındaki DJ'i belirtir.
Diyebilirsiniz Hepsini Zaten Durum Yapiyor. Ama Bazi Arkadaşlarımız Sadece Kısa komut yani !link vermek ısteye bilir !dj merak edebilir hepsini bir anda vermek ıstemeye bilir diye oyle bir duzenlemede eklemiş bulunmaktayım ama Hepsini bir anda yaptırmak ısteyenler ıcın !durum olayı bence harika gibime geliyor çünkü benim aklıma gelip oyle bir tasarlama yapmis bulunmaktayim.


Evet Arkadaşlar Elimden Geldigi Kadar Açıklamalı ve düzgün bir anlatışla anlattım. Umarım begenir ve yardımlarım dokunmuş olur.

Kodda Hata Çalışmama Gibi bende göremedim egerki sizde sorun olursa konu altında bildiriniz elimden geldigi kadar yardımcı olabilirim.

Kodlama : Difüzyon
Düzenleme ve Tasarım : boCek
Kodlamasından dolayi Difüzyon'a Teşekkürler.


Tesekkur Mesajı Yazmaniza Gerek Yok Teşekkür Et Buttona Tıklasaniz Yeterdir :)

ALINTIDIR
 

Benzer konular

İçerik sağlayıcı "paylaşım" sitelerinden biri olan Harbimekan.Com Forum, Eğlence ve Güncel Paylaşım Platformu Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Harbimekan.Com sitesindeki konular yada mesajlar hakkında yapılacak tüm hukuksal Şikayetler için info@harbimekan.com yada iletişim sayfası üzerinden iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 Gün (72 Saat) içerisinde Forum yönetimi olarak tarafımızdan gereken işlemler yapılacaktır.

Bu Site, Bilim ve Sağlık Haber Ajansı Üyesidir.

Yığıntı - 8kez - kaynak mağazam - Uğur Ağdaş