Radyo Socket Kode. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

StanteaR · 03 Nisan 2009, 01:25

Arkadaslar Forumda radyo ıcın kodeler buldum ve mırcıma ekledım hersey guzel calısıyor fakan ben bunu kanala tımerle yollayamadım otomatık belırlı aralıklarla kanala yansızmaya calıstım olmadı !durum yazınca şu kısım guzelce cıkıyor

Alıntı:

msg #radyo 14Yayındakı Dj Programının Adı:7 $1
msg #radyo 14Yayınımızı Winamptan Dinlemek İcin 7http://72.20.58.138:4545/listen.pls
msg #radyo 14Genel Yayın Akısımız Tarzı 7 $2
msg #radyo 14Dinleyici Rekoru 7 $calc($8 +110) 14Maksimum Rekor 7 $calc($9 +150)
msg #radyo 14Çalan Şarki:7 $4
msg #radyo 14Şuanki Dinleyici Sayımız:7 $calc($6 +100)
msg #radyo 14Maksimum Ortalama Dinleyici Sayısı:7 $calc($7 +90)

fakan bunlara timer komutu ekledıgımde calısmıyor ayrı bır sekılde eklıyorum

on *:text: dıye baslıyarak yazıyorum bu sefer tımer calısıyor yanlıs dj calan sarkı falan bu kısımlar calısmıyor ama mesajı yolluyor yanı dj dınleyıcı sayısı kısımları cıkmıyor bu konuda yardımlarınızı beklıyorum radyo kodlarıda bunlar.

Alıntı:

alias radyom {
sockclose radyo*Df
sockclose radyo*zyn
if (: !isin $1) && (!$2) { echo -a 1453 | return }
if ($1 == $null) { echo -a 38.99.21.22 | return }
if (: isin $1) {
tokenize 58 $remove($1,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
sockopen $+(radyom,$r(1,9999),Df) $1 $2
set %sitem $1 $2
}
else { sockopen $+(radyom,$r(1,999),!) $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | set %sitem $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) }
}
on *:SockOpen:radyo*Df:{
if ($sockerr) { msg #radyo 4,0 Radyo Offline.. | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*Df:{
sockread %radyom
if (icy-name isin %radyom) { set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
if (icy-genre isin %radyom) { set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
if (icy-url isin %radyom) { set %radyom2 %radyom2 ¿ $remove(%radyom,icy-url) | sockclose radyom | radyom2 }
}
on *:Sockclose:radyo*Df:radyom2
alias radyom2 { sockopen $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }
on *:SockOpen:radyo*zyn:{
if ($sockerr) { msg #radyo 4,0 Radyo Offline.. }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*zyn:{
if ($sockerr) { msg #radyo 0,4 Yayın Offline | return }
var %zm
sockread %zm
}
on *:SockClose:radyo*zyn:{
sockread -f %radyom
var %zm $remove(%radyom,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %im $numtok(%zm,44)
while %im {
set %radyom2 %radyom2 ¿ $remove($gettok(%zm,%im,44),|)
dec %im
}
durumm
unset %radyom2
unset %radyom
}
alias -l durumm {
sockclose radyo*Df
sockclose radyo*zyn
tokenize 191 %radyom2
; $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 14Yayındakı Dj Programının Adı:7 $1
msg #radyo 14Yayınımızı Winamptan Dinlemek İcin 7http://72.20.58.138:4545/listen.pls
msg #radyo 14Genel Yayın Akısımız Tarzı 7 $2
msg #radyo 14Dinleyici Rekoru 7 $calc($8 +110) 14Maksimum Rekor 7 $calc($9 +150)
msg #radyo 14Çalan Şarki:7 $4
msg #radyo 14Şuanki Dinleyici Sayımız:7 $calc($6 +100)
msg #radyo 14Maksimum Ortalama Dinleyici Sayısı:7 $calc($7 +90)
set %dj $1
set %ds $6
set %dr $calc($8 +110)
set %ms $calc($7 +90)
set %mr $calc($9 +150)
set %dinleyen $calc($6 +100)
}
#durum on
on *:text:!durum:#radyo:.radyom [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
#durum end
#baglanti on
on 1:join:#radyo: {
if ($nick != radio) {
/mode $chan +v $nick
/msg $chan 0,4 ** 0,1 Radyomuzun yayin linkini ogrenmek icin 0,4 >> 12,0 !link
}
}
#baglanti end
on me:*:join:#radyo:{
.timer 0 100 msg #radyo 5Radyo için gerekli bilgiler 2!durum 5- 2!istek - 2!link 5- 2!calan 5- 2!dinleyen
}
on *:text:!link:#radyo: msg #radyo 14Radyomuzu 7Winamp14'tan dinlemek icin tiklayin 7http://72.20.58.138:4545/listen.pls
on *:text:!calan:#radyo: msg #radyo 14Şu an yayındaki dj: 7 %dj
on *:text:!dinleyen:#radyo: msg #radyo 14Şu anda 7FlortFm 14yayınını dinleyen 7 %dinleyen 14kişi..

Alıntı:

alias radyo {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a 1453 | return }
if ($1 == $null) { echo -a 38.99.21.22 | return }
if (: isin $1) {
msg #dj 7,1 Radyo Bilgileri Alınıyor...
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...]) | msg #dj 4,0 Radyo Bilgileri Alınıyor... }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { msg #dj 4,0 Radyo Offline.. | 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) { msg #dj 4,0 Radyo Offline.. }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { msg #dj 0,4 Yayın Offline | 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
topic #radyo 4,0 Yayında Bulunan DJ : 0,4 $1 4,0 Yayın Türü 0,4 $2 4,0 Çalan Şarkı : 0,4 $4 4,0 Şuan Radyomuzu 0,4 $6 4,0 Kişi Dinlemekte 7,1 Radyomuzu Winamp'tan dinlemek icin tiklayin 12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set %dj $1
set %ds $6
}
#link on
on *:text:!link:#radyo: {
.timer 1 1 /radyo 72.20.58.138:4545
}
#link end
#join off
on 1:join:#radyo: {
if ($nick != radio) {
mode $chan +v $nick
.timer 1 0 /topic $chan :-
.timer 1 1 /topic $chan 4,1 Yayında Bulunan DJ : 1,4 %dj 4,1 Şuan Radyomuzu 1,4 %ds 4,1 Kişi Dinlemekte
.timer 1 1 /topic $chan :-
.timer 1 2 /topic $chan 0,4 ** 0,1 Radyomuzun yayin linkini ogrenmek icin 0,4 >> 12,0 !link
.timer 1 2 /radyom 72.20.58.138:4545
}
}
#join end

Difuzyon · 03 Nisan 2009, 14:14

on *:text:!durum:#radyo:.radyom http://72.20.58.138:4545/listen.pls

Bir kere bu kısım yanlış,gelişi-güzel doldurmuşsun.Doğrusu aşağıdaki gibi olacak:

on *:text:!durum:#radyo:.radyom 72.20.58.138:4545

-----------

Aşağıdaki komut, her 60 sn.de bir "durum" isteğini gerçekleştirir.

/timer 0 60 radyom 72.20.58.138:4545

İyi forumlar...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Badnick Kode hash cevirme	KivanC	mIRC Scripting Sorunları	1	18 Ekim 2014 22:02
Radyo Botu Sorunu (Socket)	¿	mIRC Scripting Sorunları	2	09 Haziran 2010 23:36

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.