on *:TEXT:*:#dj: {
if ($1 == !Var) { /msg $chan 4 $2 1Nickinin ÖzeLine 4 Mesaj1 YoLLanmıştır4. | /msg $2 1 İstediğiniz1 Şarkı Mevcut 4,1 Çalma 4Listesine 1 ALınmıştır4, 1Teşekkür Ederiz1. 2mIRC4TR2FM }
if ($1 == !Yok) { /msg $chan 4 $2 1Nickinin ÖzeLine 4 Mesaj1 YoLLanmıştır4. | /msg $2 1 Üzgünüm İstediğiniz Şarkı Mevcut 4DeğiLdir 1, 1DiLerseniz Başka Bir istek Şarkısı isteyebilirsiniz1, 2mIRC4TR2FM }
if ($1 == !RekLam) { /msg $chan 1 Radyo GLobaL4 Reklamı1 Atılmıştır4. | /describe $chr(36) $+ $server 0,1 0,4 Radyo Yayınımızı 0,1 4 $2 0,4 iLe DinLemek iÇin Link´e TıkLayın 11,1 4>> 0,5 mIRCTRFM 0,12 SanaL aLemin En KaLiteLi Radyosu 0,1 0,4 0,1 0,4 11,1 4>> 0,4
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1 4>> }
if ($1 == !şifre) { /msg $chan 4 Şifre 1BiLgileri ÖzeLinize GönderiLiyor4.1 Lütfen Bekleyin4.
/msg $nick 1 IP 7:4 72.8.146.244
/msg $nick 1 Port 7:4 1905
/msg $nick 1 Şifre 7:1 Radyo 4 SorumLusundan1 ALıcakSınız4.
/msg $nick 1 Radyo BiLgilerinin Sonu4.
/msg $nick 4 Radyo1 BiLgiLerini ALan Nick 1( 4 $nick 1) iyi YayınLar DiLeriz 12mIRC4TR12FM
}
if ($1 == !bilgi) {
/msg $chan 1 isteniLen Şarkı Varsa 4 !Var Nick 1 Yazınız4. ( 1 BeLirttiğiniz4 Nick'in1 ÖzeLine Şarkının OLduğunu BeLirten4 Mesaj1 Atar 4)
/msg $chan 1 isteniLen Şarkı Yoksa 4 !Yok Nick 1 Yazınız4. ( 1 BeLirttiğiniz4 Nick'in1 ÖzeLine Şarkının OLmadığını BeLirten4 Mesaj1 Atar 4)
/msg $chan 4 Dj'e1 ÖzeL Radyo RekLamı iÇin 4 !RekLam Nick 1 Yazınız4. ( 1 BeLirttiğiniz Nick'e ÖzeL Radyo GLobaL4 Reklamı1 Atar 4)
/msg $chan 1 Radyo BiLgiLeri iÇin 4 !şifre1 Yazınız4. ( 1 Radyo BiLgiLerini :4 IP1 ,4 Port1 ,4 Şifre1 BiLgiLerini Verir 4)
/msg $chan 4 !Var Nick 1-- 4 !Yok Nick 1 KomutLarında KuLLanıLan4 MesajLarı1 Görmek iÇin 4 !msj 1 Yazınız
/msg $chan 1 BiLgi Listesinin Sonu4.
}
if ($1 == !msj) {
msg $chan 4 !Var Nick 1Komutunda4 ;
msg $chan 1 İstediğiniz1 Şarkı Mevcut 4,1 Çalma 4Listesine 1 ALınmıştır4, 1Teşekkür Ederiz1, 2mIRC4TR2FM
msg $chan 1 Mesajı YoLLanıyor4.
msg $chan 4 !Yok Nick 1Komutunda4 ;
msg $chan 1 Üzgünüm İstediğiniz Şarkı Mevcut 4DeğiLdir 1, 1DiLerseniz Başka Bir istek Şarkısı isteyebilirsiniz1, 2mIRC4TR2FM
msg $chan 1 Mesajı YoLLanıyor4.
}
}
if ($1 == !reklam Dj-Nick) {
msg $chan 1 Bu KomutLa Servere 4Notice1 Atarsınız4,1 Radyo4 Link'i1 Bütün userLerin4 özeLine1 gider4.
}
}
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 ]
}
}
}
-------------------------------------------------------------------------------------
- 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) {
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...]) }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { msg #Radyo 0,6 Radyomuz şu anda kapalı | 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) { msg #Radyo 0,6 Radyomuz şu anda kapalı }
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 #Radyo 0,4 Yayın Offline | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo,,)
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
msg #Radyo 0,13 - 0,6 $1 0,13 - 0,14 Şu anda yayında. 0,13 - 0,13 - 0,6 Radyoda, 0,13 - 0,13 - 0,14 $4 0,13 - 0,13 - 0,6 çalıyor..! 0,13 -
msg #Radyo 0,13 - 0,14 RAdyo mIRCTRFm’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 $+ ‘ 56 $+ ‘ 0,13 -
msg #radyo 0
msg #Radyo 0,13 - 0,14 Online istekleriniz için msn adresimiz, 0,13 - 0,13 - 0,6
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 0,13 -
msg #radyo 0
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 - 13,13 13,15 -
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - 13,13
msg #radyo 0
msg #Radyo 0,13 - 0,14 13.:: 0Radyo mIRCTRFM 13::. 0Sanal Alem’in en kaliteli radyosu.. Online DJ’lerimizden isteklerde bulunabilir sevdiklerinize ulaştırabilirsiniz. 0,13 - 0,13 - 0,6 isteklerinizi << !istek Sanatçı - Şarkı >> şeklinde DJ’lerimize bildirebilirsiniz. 0,13 -
set %dj $1
set %cp $4
set %ds $6
}
#link on
on *:text:!link:#Radyo: {
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 - 13,13 13,15 - Radyo mIRCTRFM - 13,13
}
#link end
#dj on
on *:text:!dj:#Radyo: {
msg #radyo 0,13 - 0,6 %dj 0,13 - 0,14 Şu anda Radyo mIRCTRFM’de yayında. 0,13 -
}
#dj end
}
#durum on {
on *:text:!durum:#Radyo: {
.radyo Radyo Link’i
}
#durum end
on *:text:*:#Radyo: {
if !istek * iswm $1- {
/msg #dj 0,10 - 11,1 %dj 0istek talebi var! 1,10 - 1,10 - 11,1 $nick 0Rumuzlu kullanıcı, 11( $+ $2- $+ ) 0isteğinde bulundu.. 1,10 - 1,10 - 0,1 Lütfen 11!Evet 0yada 11!hayır 0şeklinde yanıt verin. 1,10 -
/notice $nick 0,13 - 0,6 $nick 13,13 0,6 istediğiniz < $+ $2- $+ > olarak Dj’e iletildi. 0,13 -
/set %istekrumuz $nick
}
if !istek iswm $1- {
/msg $nick 2 Bos istek gondermeyiniz $nick ” Örneğin : [20:03:37] !istek Gulben Ergen - Lay La Lay Lalay gibi”
}
}
hangisinden verim alıyoran onu kulllan arkadasım linkleri ve adresi değişmeyi unutma