Çözüldü mirc radyo player - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

aquabluee · 12 Mayıs 2024, 01:23

Bu kodu dene istersen bende çalışıyor.

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

dialog enes {
  title "Radio Player "
  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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
}

alias oynat {
  window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  write -c enes.html
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) {
    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(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) {
    window -hne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    noop $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
    noop $dll(nHTMLn_2.95.dll,navigate,$mircdirenes.html)
  }
}

alias rdydinle { dialog -m enes enes } 

menu * {
  Radio Player: rdydinle
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IRC Radyo player	AyazGeceLer	Eggdrop, NeoStats, BNC	7	26 Ocak 2021 10:07
Mirc Şiir pLayer	ZenqerDenq	mIRC Scripting Sorunları	15	18 Şubat 2018 15:48
Radyo Player	Rohit	mIRC Scripting Hazır Kodlar	1	25 Ekim 2011 03:28
Radyo recoder player.	IrCbaStarD	mIRC Scripting Hazır Kodlar	4	13 Aralık 2008 14:12
Radyo media player	away	mIRC Scripting Sorunları	3	12 Mart 2007 08:04

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.