#Dj Kanalına Özel Komutlar - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

TUNAHAN · 18 Haziran 2010, 00:25

[COLOR=red Nickli Üyeden Alıntı

goKhaN[/COLOR]`;1040443185]istemiş oldugun kod Forumda Mevcuttur. Arama Yapmayi denersen daha gelişmişini bulabilirsin TUNAHAN. Kolay gelsin Ben bunu kendi botuma zamaninda uyarlamiştim. Yinede Emeğine sağlık.

Arama Yaparak Sunki Kodlara Ulasmistim Vaktim az oldugundan Dolayi arama yapmadim hani degil goKhaN .ve halende arama yapmaktayim en güzel örnegi burda yapmis Kodu Yapanin Ellerine Saglik
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 #mIRCoder 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 #mIRCoder 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 #mIRCoder 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.atvtr.net:/8030
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
msg #turkiye 1 Yayında Bulunan DJ : 4[ $1 ]
msg #turkiye
msg #turkiye 1 Şuan Radyomuzu : 4[ $6 ] 1Kişi Dinlemekte.
msg #turkiye
msg #turkiye 1 Şuanda Radyomuzda Çalan Şarkı 4[ $4 ] 1
msg #turkiye
msg #turkiye 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin 7http://irc.atvtr.net:8030/listen.pls
set %dj $1
set %ds $6
set %çp $4

}
#durum on
on *:text:!durum:#turkiye:.radyom irc.atvtr.net:8030
#durum end

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş Arama Yap
Stil
Normal gösterime geğ Hybrid-Şeklinde gösterime geç Ağaç şeklinde

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Eggdrop !komutlar yaparak komutları sadece özel kanalına versin.	helloweenfs	Eggdrop, NeoStats, BNC	1	05 Nisan 2020 12:28
Güncel Geliştirilebilir KOMUTLAR MODULÜ IF Kullanıcılarına ÖZEL...	SpOkE	Unreal IRCd	6	08 Kasım 2018 12:55
Helperlar İçin Özel Popups Komutlar	RekorNET	mIRC Scripting Hazır Kodlar	13	28 Ekim 2009 02:49

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.