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

S.a arkadaslar kullandıqım radyo yayın kodunda bir hata var
herseyı normal gösteriyor fakat
!dj !calan gibi özellikleri göstermiyor
ÖRNEK !CALAN verdiği yanıt şuan radyomuzda calan parca
ÖRNEK !DJ yayında bulunan dj
sadece bukadar cıkıyor
koda bi ayarlama yada sizlerin faal calışan önereceği 1 kod varsa paylaşmanızı rica edıyorum..

alias radyom {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a PORT Radyo.XXXFM | return }
if ($1 == $null) { echo -a LİNK Radyo.XXXFM | 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 0,13 - 0,6 $1 0,13 - 0,14 Şu anda Yayında. 0,13 - 0,13 - 0,6 RadyoLarınızda,0,13 - 0,13 - 0,14 SizLerLe 0,13 - 0,13
.msg #radyo 0,13 -
.msg #radyo 0,13 - 0,14 DinLettiği Parça 0,13 - 0,13 - 0,14 $4 0,13 - 0,13 - 0,6 çaLıyor..! 0,13 -
.msg #radyo 0,13 -
.msg #Radyo 0,13 - 0,14 Radyo XXXFm’i Şu anda, 0,6 ‘ $+ $6 $+ ‘ 0,14 Kişi dinLiyor..! 0,13 - 0,13 - 0,14 En yüksek dinLeyici Sayısı, 0,13 - 0,6 $+ $8 $+ 0,13 -
.msg #radyo 0,13 -
.msg #Radyo 0,13 - 0,14 Radyomuzu Winamptan dinLemek iÇin, 0,13 - 0,13 - 0,6 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,13 - 0,13 - 0,14 Adresine TıkLayınız.0,13 -
.msg #radyo 0,13 -
.msg #Radyo 0,13 - 0,14 13.:: 0Radyo XXXFM 13::. 0SanaL ALem’in en KaLiteLi Radyosu13..
.msg #radyo 0,13 -
.msg #radyo 0,13 - 0,14 13.::0,14 Online DJ4’0Lerimizden istekLerde buLunabiLir SevdikLerinize uLaştırabiLirsiniz13.
.msg #radyo 0,13 -
.msg #radyo 0,13 - 0,6 istekLerinizi << !istek Sanatçı - Şarkı >> şekLinde DJ’Lerimize biLdirebiLirsiniz. 0,13 -
.msg #radyo 0,13 -
.msg #radyo 0,13 - 0,14 D J - $1 - 0,13 - 0,13 - 0,6 DinLenen - $4 - 0,13 - 0,13 -0,14 xxxFM 0,13 -
}
}
on me:*:join:#radyo:{
.timer 1 2 radyom [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
.timer 0 240 radyom [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
.timer 0 300 msg #radyo 0,4 <**> 0,6 Radyomuzu DinLemek iÇin TıkLayın 0,4 >> 12 0,6 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
.timer 0 350 msg #radyo 0,13 - 0,6 istekLerinizi Radyo KanaLına 13,111<<13,1 !istek Sanatçı - Şarkı 11>>0,6 şekLinde DJ’Lerimize biLdirebiLirsiniz. 0,13 -
.timer 0 400 msg #radyo 0,13 - 0,14 13.:: 0Radyo XXXFM 13::. 0SanaL ALem’in en KaLiteLi Radyosu..
}
on *:text:!durum:#radyo:.radyom XXX.ORG:PORT
on *:text:*:*:{
if !link == $1 {
/msg #radyo 0,1 9XXXFM 'i 7Winamp'tan Dinlemek icin Tiklayınız 4 --> 8 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if !dj == $1 {
/msg # 1 Yayında Bulunan DJ : 4[ %dj ]
}
if !dinleyen == $1 {
/msg # 1 1 Şuan Radyomuzu : 4[ $6 ] 1Kişi Dinlemekte.
}
if !calan == $1 {
/msg # 1 Şuanda Radyomuzda Çalan Şarkı 4[ $4 ]
}
}
}