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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   ShoutCast (Radyo) BilgiLeri Gösterici (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/11143-shoutcast-radyo-bilgileri-gosterici.html)

SCouNDReL 07 Temmuz 2006 03:27

Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
bağlandığın sunucuyu versene bir de ben denim ?

SCouNDReL 08 Temmuz 2006 16:52

Yanıt: ShoutCast (Radyo) BilgiLeri Gösterici
 
Addon Güncellenmiştir ;

Kod:

;Radyo Bilgileri Gösterici By SCouNDReL
;Kullanim /radyo Server(ip) Port

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
  echo -a İsim : $1
  echo -a Genre : $2
  echo -a URL : $3
  echo -a ÇaLan Parça : $4
  echo -a Şarkı KaLiteSi : $5
  echo -a DinLeyici Sayısı : $6
  echo -a Max. Dinleyici Sayısı : $7
  echo -a DinLeyici Rekoru : $8 & $9
}


Hasnicktir 07 Ağustos 2007 19:06

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
Kanala nasıl yansıtırız ?

SaintCty 07 Ağustos 2007 19:27

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
radyo kanalına diyorsan şöle yapılırsa radyo kanalına mesaj atar

kod:
;Radyo Bilgileri Gösterici By SCouNDReL
;Kullanim /radyo Server(ip) Port
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,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | set %site $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | 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
echo -a İsim : $1
echo -a Genre : $2
echo -a URL : $3
echo -a ÇaLan Parça : $4
echo -a Şarkı KaLiteSi : $5
echo -a DinLeyici Sayısı : $6
echo -a Max. Dinleyici Sayısı : $7
echo -a DinLeyici Rekoru : $8 & $9
msg #radyo İsim : $1
msg #radyoGenre : $2
msg #radyo URL : $3
msg #radyo ÇaLan Parça : $4
msg #radyo Şarkı KaLiteSi : $5
msg #radyo DinLeyici Sayısı : $6
msg #radyo Max. Dinleyici Sayısı : $7
msg #radyo DinLeyici Rekoru : $8 & $9
}

CipriX 08 Ağustos 2007 02:14

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
iyi bende istek olayını vereyim bi arkadaş başka bi forumda istemişti onun için yazmıştım sizde yararlanın;

on *:text:*:#KANAL:{
if !istek* iswm $1- {
if $($+(%,.,istek,.,$nick),2) >= 1 {
.msg $chan 3 Dakika İçinde Sadece 1 İstek Yapabilirsiniz
}
else {
.inc $+(%,.,istek,.,$nick)
msg #dj ISTEK ! Isteyen Nick: $nick , Isteği: $2-
.msg $chan Isteğiniz DJ'imize Ulaşmıştır: $2-
.timer 1 $calc(3*60) .unset $+(%,.,istek,.,$nick)
}
}
if !durum isin $1- {
radyo RADOYO-IP PORT
}
if !link isin $1- {
msg $chan Radiomuzu Dinlemek İçin Tıklayın: RADIO-URL
}
}

kalın olan yerlere dikkat edelim lütfen..

============

<Deneme> !istek Orontez - Tek Yumuruk GFB
<CipriX> Isteğiniz DJ'imize Ulaşmıştır: Orontez - Tek Yumuruk GFB

============

DJ KANALINA GİDEN;

<CipriX> ISTEK ! Isteyen Nick: Deneme , Isteği: Orontez - Tek Yumuruk GFB


============

Istek Floodda;

<Deneme> !istek Orontez - Tek Yumuruk GFB
<CipriX> 3 Dakika İçinde Sadece 1 İstek Yapabilirsiniz

============

Hasnicktir 08 Ağustos 2007 18:36

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], kod çok iyi çalışıyor.

Kod:


on *:text:*:#Radyo:{
  if !link* iswm $1- {
    if $($+(%,.,link,.,$nick),2) >= 1 {
      .msg $chan 5  2 dakika içinde sadece 1 link isteği yapabilirsiniz.
    }
    else {
      .inc $+(%,.,link,.,$nick)
      cs topic $chan 0,4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,1Radyomuzu dinlemek için tıklayınız. 4,1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
      .timer 1 $calc(2*60) .unset $+(%,.,link,.,$nick)
    }
  }

Bu şekilde yaptım. "!link" yapıldığında topic atıyor. "2 dakika içinde sadece 1 link isteği yapabilirsiniz." mesajı yolluyor. Bunu "!durum" için yaptığımda olmuyor ? "!durum" yaptıklarında ;
Kod:


; $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 İsim : $1
  .msg #Radyo 4Genre : $2
  .msg #Radyo 4URL : $3
  .msg #Radyo 12Çalan Parça : $4
  .msg #Radyo 12Şarkı KaliteSi : $5
  .msg #Radyo 12Dinleyici Sayısı : $6
  .msg #Radyo 4Max. Dinleyici Sayısı : $7

Bu kısmı #Radyo kanalına göstersin istiyorum. Ama 2 dakika içinde bir defa "!durum" komutunu uygulasın, "!link" "!istek" komutlarında ki gibi msg atsın ¿

CipriX 09 Ağustos 2007 11:04

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
if !durum isin $1- {
if %durum !== 1 {
.radyo
.set -u120 %durum 1
}
else {
msg $chan 2 Dk içinde yanlızca 1 kere durum'a bakabilirsiniz
}
}

denemedim ama çalışmalı

SaintCty 11 Ağustos 2007 18:48

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
yavu arkadaşlar calan parcayı niye güncellemiyor yani 2 gün önceki parcayı hala veriyor nedendir acabe ilgi ve alaknıza tşkler

SCouNDReL 11 Ağustos 2007 19:46

Cevap: ShoutCast (Radyo) BilgiLeri Gösterici
 
addon sadece sunucuda olan bilgileri çekiyor ek olarak birşey yapmıyor. Problem sunucundan olmalı..


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

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