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

Cybersoft · 17 Şubat 2009, 14:23

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

ilgilenen kimse yok sanırım // Güncelleme ?

Cybersoft · 19 Şubat 2009, 21:22

Elimde Şöyle bir kod var ama daha ileriye götüremedim bir türlü yardım ederseniz arkadaşlar yapalım bunu?

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


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

Botunun scriptine aşağıdaki kodları yüklüyorsun :

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

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

Difuzyon kardeş hepsi çalışıyor ama !dinleyen ve !dj yazdıgımda göstermiyor bir türlü

Difuzyon · 21 Şubat 2009, 00:13

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

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


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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


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?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Sockbot Radyo HeLp Me?	Goemon	mIRC Scripting Sorunları	9	22 Mayıs 2012 14:49
SockBot	RedLine	mIRC Scripting Sorunları	2	12 Ocak 2008 03:16
Siteniz için Radyo / TV yayını için Kaynak site	PuSAt	PHP	0	20 Haziran 2006 17:28

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.