!dj !durum !calan hakkında - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Dangerous123 · 11 Kasım 2011, 23:44

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| 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 ]
}
}
}

Dangerous123 · 12 Kasım 2011, 00:55

ArkadaşLar lazım bı kod ilgilenirseniz.

toXic · 12 Kasım 2011, 12:39

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İnceleyebilirsiniz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Ah Bu Çalan Şarkımız	by_C3zA	Aşk ve Sevgi Köşesi	0	29 Ocak 2010 00:41
Saz Çalan Kazım	Serdar28	Şiir, Hikaye ve Güzel Sözler	0	16 Ocak 2008 10:15

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.