Radyo Addonu veya Kodu bulamıyorum :( - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

winstroy · 18 Eylül 2008, 15:17

Arkadaslar Baktıgım bütün radyo baslıklarının linkleri kırık ölmüs.Tarihleri cok eski.Yada ben sağlamına denk gelemedim.

Benim istedigim Mümkünse tabi. /radyo yazdıgım zaman herhangi bir pencere istemıyorum direk müzik baslasın.durdurmak içinde /dur yazdıgımda dursun mümkünmüdür.
tşkler şimdiden.

Editor · 18 Eylül 2008, 16:35

Kod: Kodu kopyalamak için üzerine çift tıklayın!

menu status,channel {
  -
  †mIRC Radyo†:/dialog -m radyo radyo
  -
}
alias radyo { if (!$dialog(radyo)) { .dialog -md radyo radyo } }
alias -l radyom { sockopen bilgi $1 $2 }
alias -l radyobaslat { if ($exists(ilk.mp3) == $true) { .remove ilk.mp3 } | if ($exists(son.mp3) == $true) { .remove son.mp3 } | %dosya = ilk.mp3 | .timerradyoyubaslat 1 30 radyoçal | if ($sock(radyo)) { .sockclose radyo }  | .sockopen radyo $did(radyo,1).seltext $did(4).text | .did -b radyo 1,4,5,8,14 | .did -e radyo 7 } 
alias -l mp3degistir { if ($exists($filename) == $true) { .remove $shortfn($filename) |  if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 } } } 
alias -l radyoçal { if $exists(%dosya) { .radyom $did(radyo,1).seltext $did(radyo,4).text  | .splay %dosya } | .did -ra Radyo 6 --->> Radyo Aktif!.. <<--- | if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 }  } 
alias -l radyoyukle { .splay stop | if ($sock(radyo)) { sockclose radyo } | %SC = 0 | .did -r radyo 1 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | .did -a radyo 1 $gettok($read(Radyo.txt,%SC),1,58)  } | .did -c radyo 1 1 | portuyaz }
alias -l radyoekle { .write Radyo.txt $+($?:"Ekleyeceğiniz Radyonun IP Adresi?:",:,$?:"Port?:") | radyoyukle }
alias -l radyosil { .write -dl $+ $did(radyo,1).sel Radyo.txt | radyoyukle }
alias -l portuyaz { %SC = 0 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | if ($did(radyo,1).seltext == $gettok($read(Radyo.txt,%SC),1,58)) { .did -ra radyo 4 $gettok($read(Radyo.txt,%SC),2,58)  }  }  }
on 1:mp3end:{ if $exists(%dosya) { .splay %dosya | .radyom $did(radyo,1).seltext $did(radyo,4).text } | .mp3degistir } 
on 1:sockopen:radyo:{ 
  if ($sockerr) { .did -ra radyo 6 ---> Bağlantı Kurulamadı!.. Tekrar Deneyiniz!.. <--- | halt } 
  .sockwrite -n radyo get / http/1.0 
  .sockwrite -n radyo Host: $sock(radyo).ip 
  .sockwrite -n radyo user-agent: mssc/1.1 
  .sockwrite -n radyo accept: */* 
  .sockwrite -n radyo icy-metadata:0 
  .sockwrite -n radyo connection: close 
  .sockwrite -n radyo 
  .did -ra Radyo 6 -->> Bağlantı Kuruldu!.. Radyo mIRC Yükleniyor... <<--
} 
on 1:sockread:radyo:{ .sockread &radyo | .bwrite %dosya -1 -1 &radyo | .sockread &radyo } 
on 1:sockclose:radyo:{ .did -ra radyo 6 ---> Bağlantı Kurulamadı!.. <--- }
dialog Radyo {
  title "Radyo"
  size -1 -1 175 65
  option dbu
  text "Radyo Server :", 2, 6 20 38 8
  text "Port :", 3, 125 20 15 8
  edit "", 4, 142 19 28 10
  button "Radyoyu Başlat!..", 5, 95 47 75 12
  edit "", 6, 5 8 165 10, read center
  button "Radyo Değiştir...", 7, 5 32 81 12
  button "Radyo Sil..", 8, 133 32 37 12
  combo 1, 46 19 76 40, size drop edit
  text "Ses :", 10, 6 49 16 8
  button "---", 11, 23 47 30 12
  button "-+-", 12, 56 47 30 12
  box "Ayarlar...", 13, 2 0 171 62
  button "Radyo Ekle..", 14, 95 32 37 12
}
on *:dialog:radyo:init:0:{ .radyoyukle | .did -b radyo 7 | .did -ra radyo 6 ---> Bağlantı Yok <--- }  
on *:dialog:radyo:*:*:{ 
  if $devent == sclick { 
    if $did == 1 { .portuyaz }
    if $did == 5 { .radyobaslat }
    if $did == 11 { .vol -p $calc($vol(song) - 4000) }
    if $did == 12 { .vol -p $calc($vol(song) + 4000) }
    if $did == 14 { .radyoekle }
    if $did == 8 { .radyosil }
    if $did == 7 { .did -e radyo 1,4,5,7,8,14 | .sockclose radyo | .splay stop | .did -ra radyo 6 ---> Bağlantı Yok <--- }
  }
  if $devent == close { .timerradyoyubaslat off | .sockclose radyo | .splay stop }
}
on *:sockopen:bilgi:{
  if ($sockerr > 0) return
  .sockwrite -n bilgi GET /7.html HTTP/1.0
  .sockwrite -n bilgi User-Agent: Mozilla
  .sockwrite -n bilgi 
}
on *:sockread:bilgi:{  if ($sockerr > 0) return | var %oku | sockread -f %oku | while ($sockbr) sockread %oku }
on *:sockclose:bilgi:{ var %csj | sockread -f %csj | %csj = $remove(%csj,<body>,<html>,</body>,</html>,<head>,</head>,<meta http-equiv="Pragma" content="no-cache">) | .did -ra radyo 6 [Çalan Parça: $gettok(%csj,7-,44) $+ ]  }

Bu Kod işini Görücektir.Yapımcısı Hakkında Bilgim yok Kolay Gelsin.

/radyo Denemenle birlikte Çalışır.

eXLove · 22 Eylül 2008, 07:37

!durum !calan !istek filan bunların da oldugu bi addon varmı kendi scriptime eklicem ama mümkünse paylasırmısınız

Murebba · 19 Aralık 2008, 13:51

: ))))))))))))))

qAriSmA · 23 Mayıs 2009, 15:35

Sagopa Aliases e Aynen ekLedım Kodu fakat :

* Hafızayı Ayırmada Hata var (Satır 29, aliases.ini)

Gibi bi Sorun ÇıqTı çaLışmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Asimavi · 23 Mayıs 2009, 15:45

qAriSmA Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sagopa Aliases e Aynen ekLedım Kodu fakat :

* Hafızayı Ayırmada Hata var (Satır 29, aliases.ini)

Gibi bi Sorun ÇıqTı çaLışmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Daha Önce Radyo İsminde Bir Dialogunuz Varsa Onunla Çakışmış Olabilir.
Denedim Sorunsuz Çalışmakta Bende.

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Giriş Kodu Addonu	LauReLL	mIRC Scripting Hazır Kodlar	12	17 Ağustos 2017 00:32
Mdx.dll ile Radyo addonu	ExceptioN	mIRC Scripting Hazır Kodlar	4	12 Ocak 2010 18:02
radyo addonu	QkLa	mIRC Scripting Sorunları	14	11 Eylül 2008 08:22
Radyo addonu	MaXiMuS78	mIRC Scripting Sorunları	1	24 Ağustos 2008 20:52

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.