Radio Player / Mircten Radyo Dinleyin. - IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

**immortaL** · 10 Haziran 2016, 20:15

mIRC üzerinden radyo dinlemenize olanak sağlayan bir dialog. Ekle bölümüne Radyonuzun adresini yazmanı yeterli olacaktır.
Örneğin: https://185.9.37.60:7088/listen.pls

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

dialog enes {
  title "Radio Player @ESohbet.Net"
  size -1 -1 153 118
  option dbu
  button "Oynat", 1, 2 13 23 25
  button "Sil", 2, 128 28 22 24
  button "Ekle", 3, 1 78 24 16
  list 4, 26 13 99 53, size
  edit "", 5, 26 78 99 16, autohs autovs
  button "Kapat", 6, 35 103 78 12,ok
  button "Durdur", 7, 2 42 23 23
}

alias dlls if $1 = mdx { return mdx.dll } | if $1 = bars { return bars.mdx }

on *:dialog:enes:init:*: {
  var %bs 1
  while (%bs <= $lines(radyolar.txt)) {
    did -a enes 4 $read(radyolar.txt,%bs)
    inc %bs
  }
  dll $dlls(mdx) MarkDialog $dname
  dll $dlls(mdx) SetDialog $dname bgcolor $rgb(5,0,0)
  dll $dlls(mdx) SetFont 1,2,3,4,5 +a default 13 1200 Tahoma
  dll $dlls(mdx) SetColor 1,2 text $rgb(2,255,255) 
  dll $dlls(mdx) SetColor 1,2 textbg $rgb(0,0,0) 
  dll $dlls(mdx) SetColor 1,2 background $rgb(0,0,0)
  dll $dlls(mdx) SetColor 10 background $rgb(5,255,255)
}

on *:dialog:enes:sclick:*: {
  if ($did == 3) {
    if $did(5) == $null { echo -a Lutfen bir link giriniz. }
    else { write radyolar.txt $did(5) | echo -a $did(5) linki eklendi. | did -a enes 4 $did(5) }
  }
  if ($did == 2) { write -d radyolar.txt $did(4).sel | echo -a $did(4).seltext silindi. | did -d enes 4 $did(4).sel }
  if ($did == 1) { set %link $did(4).seltext | oynat | Echo -a 1,7 $did(4).seltext Linki Calmaya Basliyor. $server Sunucusundasiniz. }
  if ($did == 7) { window -c @radyo }
}

alias oynat {
  window -c @radyo
  write -c enes.html
  if !$window(@radyo) {
    write enes.html <html> $&
      <body> <script> var flashvars = {};flashvars.serverHost = " $+ $remove(%link,/,http:,listen.pls) $+ /;";flashvars.getStats = "0";flashvars.autoStart = "1";flashvars.textColour = "";flashvars.buttonColour = "";var params = {};params.bgcolor= "";params.wmode="transparent"; </script> $&
      <script type="text/javascript" src="https://mixstreamflashplayer.net/v1.3.js"></script> $&
      </body> $&
      </html>
    .timer 1 2 rdy
  }
}

alias rdy {
  if !$window(@radyo) {
    window -hne @radyo
    noop $dll(nHTMLn_2.95.dll,attach,$window(@radyo).hwnd)
    noop $dll(nHTMLn_2.95.dll,navigate,$mircdirenes.html)
  }
}

alias rdydinle { dialog -m enes enes } 

menu * {
  Radio Player: rdydinle
}

Alıntı.

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.