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/)
-   -   NoMercy Radyo Hakkında yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/171554-nomercy-radyo-hakkinda-yardim.html)

rX 09 Ocak 2009 16:18

NoMercy Radyo Hakkında yardım
 
Arkadaşlar Elimdeki Radyo Kodu Şarkılar Değişince Otomatik Kanala yansıtmıyor
+
Sürekli Aynı Şarkıyı Gösteriyor Nedendir Acaba? 2 Saattir Ugrasiyorum Bulamiyorum


Elimdeki Kod ;

Kod:

; RadyoBot

alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return 8.255.116.29
}

alias shoutcast.port {
  return 8070
}

alias shoutcast.adminpass {
  return SohbetTr.Be
}

alias shoutcast.socket {
  return shoutcast
}

alias getxmltext {
  var %tag.open = $+(<, $1, >)
  var %tag.close = $+(</, $1, >)
  if $pos($2-,%tag.open) {
    var %start = $ifmatch + $len(%tag.open)
    var %length  = $calc($pos($2-, %tag.close) - %start)
    return $mid($2-, %start, %length)
  }
  return $null
}

on 1:SOCKOPEN:$($shoutcast.socket): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$shoutcast.adminpass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($shoutcast.host, :, $shoutcast.port)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:$($shoutcast.socket): {
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $remove($ifmatch,&#xFF;,&#x26;)
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .timer 1 7 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    .timer 1 20 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ topic $shoutcast.channel : 0,4 C*    0,5 Turkiye'nin en kaliteli DJ'lerinden  0,1 $+ %genre $+  0,5Suan online   0,4 C*  
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayinda su an <<8 $+ %genre $+ 0,1>> bulunmakta.
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayin turu: << 8 %servertitle 0,1>>
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Çalan parca:0,10 %songtitle
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Dinlenme Oranı: 0,6 Su anda  %currentlisteners  kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu dinlemek icin tiklayin 12http://88.255.116.29:8070/listen.pls
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu WEB'den dinlemek icin tiklayin 4,1|0 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o,Ó,n,ñ)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return 2 *~~ 0,4 D 0,2 J  %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyoslogan.txt))),^genre,%genre)   > : $randombilgi  ~~*
}

alias randombilgi {
  if $r(1,2) == 1 {
    return 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
  }
  else {
    return 4Dinlemek icin > 12http://8.255.116.29:8070/listen.pls  
  }
}


Difuzyon 09 Ocak 2009 16:45

Cevap: NoMercy Radyo Hakkında yardım
 
Shoutcast Winamp'tan yayın yapan DJ , winamptaki shoutcast panelinde "Yellow Pages" kısmında [ ] Automatic ... diye başlayan kısımdaki işareti kaldırmışsa ,şarkı isimleri artık gösterilmez ve en son şarkı ismi sabit olarak kalır.

Kodla oynamadan , kontrol ettirirmisin.

q0kh4n01 09 Ocak 2009 17:11

Cevap: NoMercy Radyo Hakkında yardım
 
Kod:

alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return 67.228.165.161
}

alias shoutcast.port {
  return 8200
}

alias shoutcast.adminpass {
  return aLicanxx
}

alias shoutcast.socket {
  return shoutcast
}

alias getxmltext {
  var %tag.open = $+(<, $1, >)
  var %tag.close = $+(</, $1, >)
  if $pos($2-,%tag.open) {
    var %start = $ifmatch + $len(%tag.open)
    var %length  = $calc($pos($2-, %tag.close) - %start)
    return $mid($2-, %start, %length)
  }
  return $null
}

on 1:SOCKOPEN:$($shoutcast.socket): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$shoutcast.adminpass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($shoutcast.host, :, $shoutcast.port)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:$($shoutcast.socket): {
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $remove($ifmatch,&#xFF;,&#x26;)
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .timer 1 7 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    .timer 1 20 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ topic $shoutcast.channel : 0,4 C*    0,5 Turkiye'nin en kaliteli DJ'lerinden  0,1 $+ %genre $+  0,5Suan online   0,4 C*  
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayinda su an <<8 $+ %genre $+ 0,1>> bulunmakta.
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayin turu: << 8 %servertitle 0,1>>
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Çalan parca:0,10 %songtitle
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Dinlenme Oranı: 0,6 Su anda  %currentlisteners  kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu dinlemek icin tiklayin 12http://irc.Cesur.net:8200/listen.pls
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu WEB'den dinlemek icin tiklayin 4,1|0 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o,Ó,n,ñ)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return 2 *~~ 0,4 D 0,2 J  %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyoslogan.txt))),^genre,%genre)   > : $randombilgi  ~~*
}

alias randombilgi {
  if $r(1,2) == 1 {
    return 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
  }
  else {
    return 4Dinlemek icin > 12http://irc.Cesur.net:8200/listen.pls  
  }
}

aynı botu kullanıyoruz sanırım bu kodda sorun yok belki işine yarar

q0kh4n01 09 Ocak 2009 17:13

Cevap: NoMercy Radyo Hakkında yardım
 
Kod:

alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return radyohost
}

alias shoutcast.port {
  return radyoport
}

alias shoutcast.adminpass {
  return radyopass
}

alias shoutcast.socket {
  return shoutcast
}

alias getxmltext {
  var %tag.open = $+(<, $1, >)
  var %tag.close = $+(</, $1, >)
  if $pos($2-,%tag.open) {
    var %start = $ifmatch + $len(%tag.open)
    var %length  = $calc($pos($2-, %tag.close) - %start)
    return $mid($2-, %start, %length)
  }
  return $null
}

on 1:SOCKOPEN:$($shoutcast.socket): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$shoutcast.adminpass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($shoutcast.host, :, $shoutcast.port)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:$($shoutcast.socket): {
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $remove($ifmatch,&#xFF;,&#x26;)
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    .timer 1 7 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    .timer 1 20 sw NoMercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ topic $shoutcast.channel : 0,4 C*    0,5 Turkiye'nin en kaliteli DJ'lerinden  0,1 $+ %genre $+  0,5Suan online   0,4 C*  
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayinda su an <<8 $+ %genre $+ 0,1>> bulunmakta.
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Yayin turu: << 8 %servertitle 0,1>>
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Çalan parca:0,10 %songtitle
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,2 0,2Dinlenme Oranı: 0,6 Su anda  %currentlisteners  kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu dinlemek icin tiklayin 12http://IRC.mIRCDark.Com:2222/listen.pls 
    sw NoMercy os raw :ChanServ privmsg $shoutcast.channel : 0,4 C*    0,1 Radyomuzu WEB'den dinlemek icin tiklayin 4,1|0 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o,Ó,n,ñ)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return 2 *~~ 0,4 D 0,2 J  %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyoslogan.txt))),^genre,%genre)   > : $randombilgi  ~~*
}

alias randombilgi {
  if $r(1,2) == 1 {
    return 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
  }
  else {
    return 4Dinlemek icin > 12http://IRC.mIRCDark.Com:2222/listen.pls    
  }
}

aynı botu kullanıyoruz sanırım bu kodda sorun yok belki işine yarar

rX 09 Ocak 2009 17:23

Cevap: NoMercy Radyo Hakkında yardım
 
Şuan Düzeldi Karıstırdım Kurcaladım Oldu ... Eğerki Bi daha Bozulursa Bo Kodu Kullanıcam saolasın ...

Difizyon Hacı Onla Ilgili Degil Bot Ara sıra Böyle Yapıyor anlamadıgım Sebep Karıstırdım Kurcaladım oldu .

rX 09 Ocak 2009 19:52

Cevap: NoMercy Radyo Hakkında yardım
 
Kodlar Aynı Düzeldi Bi Süre Sonra Tekrar Kanala Radyonun Otomatik durumunu Atmamaya Başladı :s Deliricem Anlamıyorum Neden Böyle Yaptıqını ? Bi Bilginiz Varmı ?


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

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