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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 27 Eylül 2011, 22:40   #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 kodları




Nomercy Socket olduğundan dogal olarak mIRC Scriping ( Remote) de calismaz.


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 #DJ 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 # 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 # 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 irc.mIRCTR.ORG:1905
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
msg #radyo 1 Yayında Bulunan DJ : 4[ $1 ]
msg #radyo 
msg #radyo 1 Şuan Radyomuzu : 4[ $6 ] 1Kişi Dinlemekte.
msg #radyo 
msg #radyo 1 Şuanda Radyomuzda Çalan Şarkı 4[ $4 ] 1
msg #radyo 
msg #radyo 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin 7http://irc.server.com:port/listen.pls
set %bo $1
set %Ce $6
set %k $4

}

on *:text:!durum:#radyo:.radyom irc.sunucuismi.net:port
on *:text:*:*:{
if !link == $1 {
/msg $chan 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin 7http://mircsirin.com./listen.pls
}
if !dj == $1 {
/msg $chan 1 Yayında Bulunan DJ : 4[ %bo ]
}
if !dinleyen == $1 {
/msg $chan 1 1 Şuan Radyomuzu : 4[ %Ce ] 1Kişi Dinlemekte.
}

if !calan == $1 {
/msg $chan 1 Şuanda Radyomuzda Çalan Şarkı 4[ %k ] 
}
}
}

 
Alıntı ile Cevapla

 

Etiketler
kodları, nomercy, radyo


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

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
NoMercy Radyo Botunda Hata Kodu qhoSteR mIRC Scripting Sorunları 4 17 Eylül 2013 09:05
Eggdrop - NoMercy Radyo Botu TCL CLubber Eggdrop, NeoStats, BNC 17 13 Haziran 2013 01:19
NoMercy Radyo Hakkında yardım rX mIRC Scripting Sorunları 5 09 Ocak 2009 19:52
NoMercy e Radyo Botu Ekleme q0kh4n01 mIRC Scripting Sorunları 18 27 Aralık 2008 23:26
NoMercy Radyo Codeleri Lazım problem_cocuk mIRC Scripting Sorunları 6 25 Ağustos 2008 10:06