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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Radyo SockBot icin (https://www.ircforumlari.net/mirc-scripting-sorunlari/180764-radyo-sockbot-icin.html)

Cybersoft 17 Şubat 2009 14:23
Radyo SockBot icin
 
Merhaba arkadaşlar uzun süredir aklımda bulunan ve bir türlü fırsat bulupta yapamadıgım bişey vardı eger yardımcı olan coder arkadaşlarda olursa bu Konuda iyi bişey yapaLım artık

yapacagım şeyler şunlar

Tcl Radyo botunu komple bir Sockbot a çevirmek

Örnekler :

!durum
!dinleyen
!dj
!calan
!link

vs bunların bulundugu ve kanal a belirli aralıklarla Radyo da calan parçayı msj şeklinde atmasını sağlamak Bot içeri alır almaz yayında dj varsa hemen Radyo bilgilerini #Radyo kanalına versin Ayrıca Belirli aralıklarda Radyo bilgilendirme yapsın
[13:00] <RadyoBot> Radyo için Gerekli biLgiLer !durum - !istek -!link - !calan - !dinleyen

Bu arada Bu konu altına lütfen daha önce verildi vs denilmesin daha önce verilen kodlarda ben pek performans görmedigim icin açtım Lütfen yardımcı olacak arkadaşlar konu altında cevap yazarlarsa daha temiz bir iş yapmış oluruz.

Cybersoft 18 Şubat 2009 23:31
Cevap: Radyo SockBot icin
 
ilgilenen kimse yok sanırım // Güncelleme ?

Cybersoft 19 Şubat 2009 21:22
Cevap: Radyo SockBot icin
 
Elimde Şöyle bir kod var ama daha ileriye götüremedim bir türlü yardım ederseniz arkadaşlar yapalım bunu?

PHP- Kodu:
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 #kontrol 5 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 #radyo 4,0 Radyo Bilgileri Alınıyor... }
}
on *:SockOpen:radyo*S:{
  if ($sockerr) { msg #radyo 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 #radyo 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 #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 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  12http://irc.siteadı.com:8808/listen.pls
  set %dj $1
  set %ds $6
}


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 #radyo 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 #radyo 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 #radyo 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 #radyo 9,1 $1 Su Anda Yayında 11,1 Calan Parca: $4 8,1 Su Anda $6 Kisi Dinliyor  (rekor: $8 )

  set %dj $1
  set %ds $6
}
#durum on
on *:text:!durum:#radyo:.radyom http://siteadı.com:9044/listen.pls
#durum end 

Difuzyon 19 Şubat 2009 23:42
Cevap: Radyo SockBot icin
 
Botunun scriptine aşağıdaki kodları yüklüyorsun :

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 #dj 5 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 #dj 4,0 Radyo Bilgileri Alınıyor... }
}
on *:SockOpen:radyo*S:{
  if ($sockerr) { msg #dj 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 #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*J:{
  if ($sockerr) { msg #dj 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 4,0 Yayın Türü : 0,4 $1 4,0 Yayındaki Dj 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  12http://irc.siteadı.com:8200/listen.pls
  set %program $1
  set %dj $2
  set %şarkı $4
  set %dinleyen $6
}
on me:*:join:#radyo:{
  .timer 1 2 radyo 88.32.44.122:8200
  .timer 0 200 radyo 88.32.44.122:8200
  .timer 0 100 msg #radyo 5Radyo için gerekli bilgiler 2!durum 5- 2!istek - 2!link 5- 2!calan 5- 2!dinleyen
}
on *:text:*:#radyo:{
  if !durum == $1 { msg #radyo 4,0 Yayın Türü : 0,4 %program 4,0 Yayındaki Dj 0,4 %dj 4,0 Çalan Şarkı : 0,4 %şarkı 4,0 Şuan Radyomuzu 0,4 %dinleyen 4,0 Kişi Dinlemekte 7,1 Radyomuzu Winamp'tan dinlemek icin tiklayin  12http://irc.siteadı.com:8200/listen.pls }
  elseif !link == $1 { msg #radyo 7,1 Radyomuzu Winamp'tan dinlemek icin tiklayin  12http://irc.siteadı.com:8200/listen.pls }
  elseif !calan == $1 { msg #radyo Şu an yayındaki dj: %dj }
  elseif !dinleyen == $1 { msg #radyo Şu an yanını dinleyen %dinleyen kişi }
  elseif !istek == $1 { msg #radyo İsteğiniz djlere iletilmiştir. 5İsteyen: $nick İstek: $qt($2-) | msg #dj 5İsteyen:4 $nick 5İstek:2 $qt($2-) }
}
Kırmızı alandaki bilgileri sen dolduracaksın.Bilgiler tamamlandıktan sonra botu #radyo ve #dj kanalına alıyorsun,gerisini izledikten sonra görürsün...

İyi forumlar...

Cybersoft 20 Şubat 2009 23:50
Cevap: Radyo SockBot icin
 
Difuzyon kardeş hepsi çalışıyor ama !dinleyen ve !dj yazdıgımda göstermiyor bir türlü

Difuzyon 21 Şubat 2009 00:13
Cevap: Radyo SockBot icin
 
Göstermeyen kısım nedir ?
Hiçmi göstermiyor , bilgiler noksanmı geliyor ?
Varsa hata mesajı nedir ?

+

!dj diye bir komut yok ? İsteğinde !calan demişsin ?

Orhan_VeLi 08 Mart 2009 20:29
Cevap: Radyo SockBot icin
 
PHP- Kodu:
on *:text:*:#radyo:{
  if !durum == $1 { msg #radyo 4,0 Yayın Türü : 0,4 %program 4,0 Yayındaki Dj 0,4 %dj 4,0 Çalan Şarkı : 0,4 %şarkı 4,0 Şuan Radyomuzu 0,4 %dinleyen 4,0 Kişi Dinlemekte 7,1 Radyomuzu Winamp'tan dinlemek icin tiklayin  12http://irc.siteadı.com:8200/listen.pls }
  elseif !link == $1 { msg #radyo 7,1 Radyomuzu Winamp'tan dinlemek icin tiklayin  12http://irc.siteadı.com:8200/listen.pls }
  elseif !calan == $1 { msg #radyo Şu an yayındaki dj: %dj }
  elseif !dinleyen == $1 { msg #radyo Şu an yanını dinleyen %dinleyen kişi }
  elseif !istek == $1 { msg #radyo İsteğiniz djlere iletilmiştir. 5İsteyen: $nick İstek: $qt($2-) | msg #dj 5İsteyen:4 $nick 5İstek:2 $qt($2-) }
}

Çok güzeL çaLışmasına Rağmen MaaLesef bende de bunlar çalışmadı. 
Bu kodlarda birtek !istek bölümünde sorun var Yani

!istek mesaj

komutunu uyguladığında istek kanalında şöyle bir yazı çıkıyor

PHP- Kodu:
1 0,1 Istek Isteyen :8 sss 0Istek :8  
Yani isteğini göstermiyor. Bunu düzeltebilip boş isteğide uyarı verdirtebilimiyiz?

Ve bu arada ben aşağıdakinin altına

on me:*:join:#radyo:{

.timer 0 130 msg #radyo Suan Yayini : %dinleyen Kisi DinLemektedir

bunuda diğerleri gibi ekledim ancak çalışmıyor yazı çıkıyor ama kaç kişinin dinlediği yazmıyor

"Şuan yayını: kişi dinlemektedir"

Gibi yazıyor bunu düzeltemezmiyiz?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:30.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk