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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Ocak 2009, 16:18   #1
Çevrimdışı
rX
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
; 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  } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 09 Ocak 2009, 16:45   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 09 Ocak 2009, 17:11   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: NoMercy Radyo Hakkında yardım




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

 
Alıntı ile Cevapla

Alt 09 Ocak 2009, 17:13   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: NoMercy Radyo Hakkında yardım




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

 
Alıntı ile Cevapla

Alt 09 Ocak 2009, 17:23   #5
Çevrimdışı
rX
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 .

 
Alıntı ile Cevapla

Alt 09 Ocak 2009, 19:52   #6
Çevrimdışı
rX
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ı ?

 
Alıntı ile Cevapla

Cevapla

Etiketler
hakkinda, mirc download, mirc indir, nomercy, radyo, yardim


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Eggdrop - NoMercy Radyo Botu TCL CLubber Eggdrop, NeoStats, BNC 17 13 Haziran 2013 01:19
NoMercy radyo kodları Vefa mIRC Scripting Sorunları 3 01 Ekim 2011 00:21
Radyo tcl hakkında yardım lütfen. deLuxe Eggdrop, NeoStats, BNC 1 21 Temmuz 2010 18:36
NoMercy Radyo Codeleri Lazım problem_cocuk mIRC Scripting Sorunları 6 25 Ağustos 2008 10:06
Radyo Kurulumu Hakkında Yardım KabuSsSs Eggdrop, NeoStats, BNC 1 18 Eylül 2006 00:30