Radyo Bot Yardim - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

AyazGeceLer · 31 Ocak 2009, 20:28

Elimde Su SekiLde Dort Tane Kod Var

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias radyo { 
  sockclose radyo*S
  sockclose radyo*J    
  if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com:2525) | return }
  if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }  
  if (: isin $1) { 
    echo -a Lütfen Bekleyin..    
    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://,/) | echo -a Lütfen Bekleyin.. } 
} 
on *:SockOpen:radyo*S:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | 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) { echo -a Siteye BağLanmada Hata! }    
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo*J:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | 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 %kanal 0,1 YayInda Su An 8 $1 0BuLunmakta. * YayIn Turu: 8 $1 0* Calan parca: 4>>>>> 8 $4 4<<<<< 
  msg %kanal 0,1 Turkiye'nin En KaLiteLi OnLine Radyosu ve DJ'Leri Radyo 8 %Rad 0Resmi Sitesi: 8 %web 
  msg %kanal 0,1 8 $1 0Su Anda OnLine Siradaki Parca :8 $4 0Su anda 4<8 $6 4> 0 kisi dinliyor 8 (rekor: $8) 
  msg %kanal 8,1 ** 9,1 RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 --> 7 http:// $+ %link $+ : $+ %port $+ /listen.pls 0,1Adresine TikLayiniz ! 
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:connect:{ 
  .nick %nick
  .identify %sifre 
  .partall
  .timer 1 1  join %kanal
  .timer 1 1  join %djk 
  .rd
  .web
}
on *:start:{ 
  .set %logo 1« Radyo Bøt Script v1.o 4®1 »
  .xecho
  .timer 1 1 /rad
}
alias rad { dialog -m rb rb }
alias xecho {
  echo -a [Rb] « Radyo Bøt Script v1.o 4®1 »
  echo -a [Rb] Radyo Script Suanda KuLLanIma HazIr !
  echo -a [Rb] Tarih $date
  echo -a [Rb] Tarih $time
  echo -a [Rb] Radyo Script Suana Kadar %rb Sefer AciLdi !
  echo -a [Rb] Radyo Script [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Tarafindan DuzeLtiLmistir !
  .titlebar «Radyo Bøt Script v1.o ®»
  .ignore -r
  inc %rb
}
ctcp 1:version:*:{
  ctcpreply $nick  Radyo Bøt Script v1.o ® 
}
ctcp 1:finger:*:{
  ctcpreply $nick  Radyo Bøt Script v1.o ® 
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:%kanal:{
  if ($1 == !durum) { .radyo  %link $+ : $+ %port }
  if ($1 == !istekbilgi) { msg %kanal 0,1 IstekLerInIzI Radyo KanaLina 9!istek 4<9istediginiz sarki ve mesajiniz4> 0,1SekLinde YazabiLirsInIz. Ornek: 9!istek Gece YoLcuLari 4- 9Unut beni4 - 8Tum %Rad ailesine gelsin. }
  if ($1 == !link) { msg %kanal 8,1 ** 9,1 RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 --> 7 http:// $+ %link $+ : $+ %port $+ /listen.pls 0,1Adresine TikLayInIz!  }
  if ($1 == !istek) { msg %Djk 0,1 Isteyen: 8 $nick 0 Istek 4 $2- | msg %kanal 9,1 Sarki 0,1 IstegInIz DJ'LerImIze iLetiLmIstIr 7 $nick 8( $+ $2- $+ ) }
  if ($1 == !İstek) { msg %Djk 0,1 Isteyen: 8 $nick 0 Istek 4 $2- | msg %kanal 9,1 Sarki 0,1 IstegInIz DJ'LerImIze iLetiLmIstIr 7 $nick 8( $+ $2- $+ ) }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog rb {
  title "Radyo mIRC - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
  size -1 -1 289 164
  option dbu
  text "Sunucu Adı", 1, 15 20 45 8
  text "Bot Nicki", 2, 15 35 45 8
  text "Bot Şifresi", 3, 15 50 45 8
  text "Yayın Kanalı", 4, 15 65 45 8
  text "Dj Kanalı", 5, 15 80 45 8
  text "Radyo IP Adresi", 6, 15 95 45 8
  text "Radyo Portu", 7, 15 110 45 8
  text "Radyo Adı", 8, 15 125 45 8
  text "Radyo Web Sitesi", 9, 15 140 45 8
  edit "", 10, 70 20 50 10, autohs autovs
  edit "", 11, 70 35 50 10, autohs autovs
  edit "", 12, 70 50 50 10, autohs autovs pass
  edit "", 13, 70 65 50 10, autohs autovs
  edit "", 14, 70 80 50 10, autohs autovs
  edit "", 15, 70 95 50 10, autohs autovs
  edit "", 16, 70 110 50 10, autohs autovs
  edit "", 17, 70 125 50 10, autohs autovs
  edit "", 18, 70 140 50 10, autohs autovs
  text "ÖR: irc.adres.com", 19, 125 20 45 8
  text "ÖR: Radyo", 20, 125 35 45 8
  text "ÖR: 13mir13cd13", 21, 125 50 45 8
  text "ÖR: #Radio", 22, 125 65 45 8
  text "ÖR: #Dj", 23, 125 80 45 8
  text "ÖR: 208.98.57.49", 24, 125 95 45 8
  text "ÖR: 9777", 25, 125 110 45 8
  text "ÖR: Ritmik FM", 26, 125 125 45 8
  text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 27, 125 140 45 8
  text "- Değerli kullanici;                                * Radyo Script kodları toplama kodlar olarak sizlere sunulmuştur. Bu yuzden ufak sorunlar çıkabilir, ancak Script ayarlanılınca en iyi şekilde yapılmaya çalışılmıştır.                                                                                              ***Not: Botun duzgun çalışması için belirtilen yerleri eksiksiz olarak doldurun.                                                                                                           ***UYARI: Script Kodları kaynak gosterilmeden  yayınlanması yasaktir.", 28, 185 20 90 99
  button "Tamam", 29, 185 125 37 12, flat ok
  text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 30, 230 155 55 8, disable center
}
on 1:dialog:rb:sclick:29:{
  set %server $did(10)
  set %nick $did(11)
  set %sifre $did(12)
  set %kanal $did(13)
  set %djk $did(14)
  set %link $did(15)
  set %port $did(16)
  set %Rad $did(17)
  set %Web $did(18)
  server %server
}

Bu KodLar Var CaLisiyorLar Ama mIRC Otomatik oLarak

<+RadyoBot> Suan Yayinimizi << 37 >> Kisi Dinlemektedir.

[20:09] <+RadyoBot> Suan Yayinimizi << 37 >> Kisi Dinlemektedir.
[20:09] <+RadyoBot> İsteklerinizin Calinmasi İcin Yapmaniz Gereken Tek Sey; #Radyo Kanalinda !istek < istediginiz Şarkı ve Mesajiniz > Şuanda Yayinda Olan << Dj SeRSeRi iLe DuYGu SeLi >>
[20:09] <+RadyoBot> .
[20:09] <+RadyoBot> Siradaki Çalicak Olan Parça : 02 {aþk} her {Þeye} {deðer} {aslý} {güngör} 2009 uykc blogcu com ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:09] <+RadyoBot> ..
[20:09] <+RadyoBot> RadyoRitmik 'i Winamp Üzerinden Dinlemek İçin Tiklayiniz ---> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[20:08] <+RadyoBot> RadyoRitmik Hakkinda Bilgilendirme !durum - !istek - !link - çalan - !dinleyen
[20:08] <+RadyoBot> Suan Yayinimizi << 32 >> Kisi Dinlemektedir.

SekLinde KendiLiqinden Mesaj AtmIyor ßunu NasiL ayarLiyabiLirim Yardimci oLurmusunuz Simdiden TskLer

MerakLıuSer · 31 Ocak 2009, 21:25

Arkadaşım sorunu tam anlamadım ama şöyle yapabilirsin. Şu kısmı;

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:connect:{ 
.nick %nick
.identify %sifre 
.partall
.timer 1 1 join %kanal
.timer 1 1 join %djk 
.rd
.web
}

Şöyle değiştir;

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:connect:{ 
.nick %nick
.identify %sifre 
.partall
.timer 1 1 join %kanal
.timer 1 1 join %djk
.timer 0 300 /gostert
.rd
.web
}

Olmazsa şunu dene kesin olur.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:connect:{ 
.nick %nick
.identify %sifre 
.partall
.timer 1 1 join %kanal
.timer 1 1 join %djk
.timer 0 300 .msg %kanal 0,1 YayInda Su An 8 $1 0BuLunmakta. * YayIn Turu: 8 $1 0* Calan parca: 4>>>>> 8 $4 4<<<<< 
.timer 0 300 .msg %kanal 0,1 Turkiye'nin En KaLiteLi OnLine Radyosu ve DJ'Leri Radyo 8 %Rad 0Resmi Sitesi: 8 %web 
.timer 0 300 .msg %kanal 0,1 8 $1 0Su Anda OnLine Siradaki Parca :8 $4 0Su anda 4<8 $6 4> 0 kisi dinliyor 8 (rekor: $8) 
.timer 0 300 .msg %kanal 8,1 ** 9,1 RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 --> 7 http:// $+ %link $+ : $+ %port $+ /listen.pls 0,1Adresine TikLayiniz ! 
.rd
.web
}

5 dakikada bir mesajı atıcaktır neden? Çünki .timer 0 300 "300" saniye cinsinden "5" dakikadır.
Kod yanlışsa üzgünüm
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
daha toyuz ama yardım etmişsem ne mutlu bana
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
elimden geldiğince
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Difuzyon · 01 Şubat 2009, 15:30

/gostert diye uygularsan(ki uygulayamazsın , alias -l olarak kullanılmış) variablesteki bekleyen verileri gönderir MerakLıuser,yani socket bağlantı kurduktan sonra o an aldığı veriyi görüntüler ve variables'te o bilgiler durur.Ta ki siz yeni bağlantı kurana dek...Yeni bağlantı kurmadığından dolayı (Şarkı değişmiştir ama bot eski şarkı adını yazacaktır)

Bu durumda socketin yeni bağlantı kurmasını sağlamanız lazım ki yeni veriler alınsın ve onlar gösterilsin.Bu kodda socketin bağlanmasını sağlayan ve aldığı yeni verileri kod içerisinde kanalda gösteren komut

/radyo link:port

Buna göre bi timer ayarlamalısınız,timer süresinide şarkı değişim sürelerine göre alırsanız(Ortalama 4 dk.) ,göze daha hoş gelir...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

MerakLıuSer · 02 Şubat 2009, 00:38

Katılıyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo Tcl Yardim	ModuLes	Eggdrop, NeoStats, BNC	9	24 Nisan 2011 23:28
Radyo TCL Yardim	CroAtoN	Eggdrop, NeoStats, BNC	1	26 Şubat 2008 13:30
Yardim Radyo	Nurullahoruc	Eggdrop, NeoStats, BNC	8	15 Kasım 2007 18:19

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.