;..................................................................................................................................................... ;                                                Bu Kod EmektaR Tarafindan Editlenmistir.                 ;..................................................................................................................................................... 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 $+($?:"Eklenecek Radyonun IP Adresi? Ornek: 85.214.36.220",:,$?:"Port? Ornek: 80") | 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 Baglanti Kurulamadi.. 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 Baglanti Kuruldu Lutfen Bekleyiniz.. }  on 1:sockread:radyo:{ .sockread &radyo | .bwrite %dosya -1 -1 &radyo | .sockread &radyo }  on 1:sockclose:radyo:{ .did -ra radyo 6 Baglanti Kurulamadi!.. } dialog Radyo {   title " Radio"   size -1 -1 185 72   option dbu   text "Radyo Server :", 2, 5 18 38 18   text "Port :", 3, 125 20 15 8   edit "", 4, 142 19 28 10   button "Radyoyu Baslat", 5, 95 47 75 12   edit "", 6, 5 8 165 10, read center   button "Radyo KAPAT", 7, 5 32 81 14, cancel   button "Radyo Sil", 8, 133 32 37 12   text "Edit By EmektaR", 9, 3 63 61 8   combo 1, 46 19 76 40, size drop edit   text "Ses :", 10, 6 49 16 8   button "Azalt", 11, 23 47 30 12   button "Yukselt", 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 Baglanti Yok    mdxinit    mdx SetDialog  $dname  bgcolor  $rgb(255,140,0)   mdx SetColor $dname 1,2,3,4,6,9,10,13 textbg $rgb(255,140,0)    mdx SetColor $dname 1,2,3,4,6,9,10,13 background $rgb(255,140,0)   mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14 13 800 tahoma   mdx SetColor  2,3,10  text $rgb(0,0,0)   mdx SetBorderStyle 5,7,8,11,12,14 staticedge } 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 Baglanti 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 Su an Calan Parca: $gettok(%csj,7-,44) $+  }  On *:LOAD:{    .echo $timestamp 4*** Radyo mIRC* yuklendi..   .echo $timestamp 12*** Kullanmak icin /Radyo yazıp Enterlayiniz!..   .echo $timestamp 10*** Http:sizin siteniz }

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
}

alias AFradyo { .timercloseaf -m 1 10 dialog $iif(!$dialog(AF-Rd),-m,-c) af-rd af-rd }
dialog AF-Rd {
  title "AfraN Script v.06 Radyo Player"
  size -1 -1 172 152
  option dbu
  list 4, 107 15 60 13, size
  list 10, 5 31 162 106, size
}
on *:dialog:AF-Rd:close:*:{
  dll $bamp_in Stop
  sockclose AF-Rd
}
on *:dialog:AF-Rd:init:*:{
  dll dlls\mdx.dll SetMircVersion $version
  dll dlls\mdx.dll MarkDialog $dname
  dll dlls\mdx.dll SetDialog $dname Style title
  dll dlls\mdx.dll SetDialog $dname bgcolor %Diacolors
  dll dlls\mdx.dll SetFont $dname 10,11 +b 14 700 Tahoma
  .disable #radsh1
  dll dlls\mdx.dll SetControlMDX 10 listview report single Sortascending grid rowselect oneclick Underlinehot > dlls\views.mdx
  dll dlls\mdx.dll SetColor 4 background %Listark
  dll dlls\mdx.dll SetColor 4 textbg %textark
  dll dlls\mdx.dll SetColor 4 text %buttextcolors
  did -i $dname 10 1 setbkg color %Listark
  did -i $dname 10 1 settxt color %buttextcolors
  did -i $dname 10 1 settxt bgcolor %Listark
  did -i $dname 10 1 headerdims 125:1 260:2 52:3
  did -i $dname 10 1 headertext + 1 Radyo isim $chr(9) $+ 1 Radyo url adresleri $chr(9) $+ +b port
  dll dlls\mdx.dll SetControlMDX 4 Trackbar horizontal noticks tooltips both > dlls\bars.mdx
  did -i $dname 4 1 params %AFrad-ses 0 100 * * * * 18
  did -i $dname 4 1 ticfreq 2
  mdc BitBtn create $dname 597 0 0 344 24 > Radyo su anda acik degil
  mdc BitBtn Color 597 %dibutcolors
  mdc BitBtn downcolor 597 %dibutdowncolors
  mdc BitBtn Font 597 %buttextcolors 14 +u > Tahoma
  mdc BitBtn Create $dname 590 10 30 28 26 > +
  mdc BitBtn Color 590 %dibutcolors
  mdc BitBtn downcolor 590 %dibutdowncolors
  mdc BitBtn Font 590 %buttextcolors 13 +b > Tahoma
  mdc BitBtn Create $dname 591 44 30 28 26 > -
  mdc BitBtn Color 591 %dibutcolors
  mdc BitBtn downcolor 591 %dibutdowncolors
  mdc BitBtn Font 591 %buttextcolors 13 +b > Tahoma
  mdc BitBtn Create $dname 592 78 30 28 26 > X
  mdc BitBtn Color 592 %dibutcolors
  mdc BitBtn downcolor 592 %dibutdowncolors
  mdc BitBtn Font 592 %buttextcolors 13 +b > Webdings
  mdc BitBtn Create $dname 593 112 30 28 26 > 4
  mdc BitBtn Color 593 %dibutcolors
  mdc BitBtn downcolor 593 %dibutdowncolors
  mdc BitBtn Font 593 %buttextcolors 13 +b > Webdings
  mdc BitBtn Create $dname 594 146 30 28 26 > <
  mdc BitBtn Color 594 %dibutcolors 
  mdc BitBtn downcolor 594 %dibutdowncolors
  mdc BitBtn Font 594 %buttextcolors 13 +b > Webdings
  mdc BitBtn Create $dname 595 180 30 28 26 > 5
  mdc BitBtn Color 595 %dibutcolors
  mdc BitBtn downcolor 595 %dibutdowncolors
  mdc BitBtn Font 595 %buttextcolors 13 +b > Webdings
  mdc BitBtn Create $dname 596 100 278 140 22 > Tamam kapat
  mdc BitBtn Color 596 %dibutcolors
  mdc BitBtn downcolor 596 %dibutdowncolors
  mdc BitBtn Font 596 %buttextcolors 11 +b > Tahoma
  Afradiolist
}
#rmut off
#rmut end
alias Afradiolist { 
  did -r AF-Rd 10
  var %a = 1 
  while (%a <= $lines($shortfn($scriptdirAFRadlist.txt))) { 
    did -a AF-Rd 10 + $gettok($read($shortfn($scriptdirAFRadlist.txt),%a),3,32) $chr(9) $+ $gettok($read($shortfn($scriptdirAFRadlist.txt),%a),1,32) $chr(9) $gettok($read($shortfn($scriptdirAFRadlist.txt),%a),2,32)
    inc %a 
  } 
}
#radsh1 off
#radsh1 end
on *:dialog:AF-Rd:sclick:*:{
  if $did == 4 { 
    dll $bamp_in Misc setvolume $gettok($did(4,1),1,32) 
    set %AFrad-ses $gettok($did(4,1),1,32) 
    did -i AF-Rd 4 1 tipText Ses: % $+ %AFrad-ses
  }
}
alias afradyocal { 
  if ($dialog(AF-Rd)) && ($sock(AF-Rd)) {
    mdc BitBtn text 597 > $iif($sock(AF-Rd),Radyo Caliyor... $chr(91) $+ %radname $+ $chr(93),Bekleyin baglaniyor..) 
  } 
}
alias AfraNradio { 
  dll $bamp_in Stop
  if (!$exists($shortfn($mircdirAfraN\AfraNRad.mp3))) { write $shortfn($mircdirAfraN\AfraNRad.mp3) } 
  if ($exists($shortfn($mircdirAfraN\AfraNRad.mp3))) { .remove $shortfn($mircdirAfraN\AfraNRad.mp3) } 
  sockclose AF-Rd 
  if ($dialog(AF-Rd)) { mdc BitBtn text 597 > Baglanti kesildi. } 
  dll $bamp_in Stop
  sockopen AF-Rd $remove($$1,http://,/) $2 
  if ($dialog(AF-Rd)) mdc BitBtn text 597 > Bekleyin baglaniyor...
}
on *:sockclose:AF-Rd:{ 
  dll $bamp_in Stop 
  if ($dialog(AF-Rd)) { 
    mdc BitBtn text 597 > Baglantida hata olustu...
  } 
  if ($sokerr) { AFradio $sock($sockname).ip $sock($sockname).port } 
}
on *:sockopen:AF-Rd:{
  if ($sockerr) { if ($dialog(AF-Rd)) mdc BitBtn text 597 > Baglantida hata olustu, baglanti yok... | return }
  else {
    sockwrite -n $sockname GET / HTTP/1.0
    sockwrite -n $sockname Host: $sock($sockname).ip
    sockwrite -n $sockname User-Agent: AfraN Radio Player
    sockwrite -n $sockname Accept: */*
    sockwrite -n $sockname Connection: close
    sockwrite -n $sockname
    sockmark $sockname afran!
  }
}
on *:sockread:AF-Rd:{
  if ($sock(AF-Rd).mark == afran!) {
    sockread &radio 8192
    while ($sockbr) {
      set %AFrad-sockbr $sockbr
      bwrite $shortfn($mircdir/AfraN\) $+ AfraNRad.mp3 -1 -1 &radio
      sockread &radio 8192
    }
    var %m = $shortfn($mircdir/AfraN\) $+ AfraNRad.mp3
    if ($exists($shortfn($shortfn($scriptdir/AfraNRad.mp3)))) && ($int($bytes($file(%m).size,k)) >= 150) && ($gettok($dll($bamp_in,CurrentMusic,status),2,32) == stopped) {
      if ($dialog(AF-Rd)) { mdc BitBtn text 597 > $chr(91) $+ %radname $+ $chr(93) Radyo Caliyor.. } 
      bplay %m
    }
  }
}
alias bplay { dll $bamp_in Stop | dll $bamp_in Play $remove($1-,") }
alias bamp_in { return $shortfn($mircdirDlls/amp_in.dll) }
alias ampload-all-input return $findfile($shortfn($mircdirDlls/),in_*.dll,0,1,ampload-input-plugin $1-)
alias ampload-waveout dll $bamp_in PluginManager load output $shortfn($mircdirDlls/out_wave.dll)
alias ampload-input-plugin dll $bamp_in PluginManager load input $1-
alias ampload { ampload-all-input | ampload-waveout }
on *:signal:mdc: {
  if ($2 == AF-Rd) && ($3 == sclick) {
    if ($4 == 590) {
      var %H = $input(Portsuz radio link ekleyin. Orn; http://149.202.159.241,1,Radyo ekle)
      if (%H == $null) { return }
      var %i = $input(Linksiz Port ekleyin. Orn;7009,1,port ekle)
      if (%i == $null) { return }
      var %d = $input(Radyo ismi ekleyin. Orn;GevezeFm,1,Isim ekle)
      if (%d == $null) { return }
      write $shortfn($mircdirAfraN\AFRadlist.txt) %H %i %d
      Afradiolist
    }
    if ($4 == 591) { run $mircdirafran\AFradlist.txt }
    if ($4 == 592) { 
      $iif($group(#rmut) == on,.disable,.enable) #rmut
      if ($group(#rmut) == on) { 
        mdc BitBtn text 592 > x
        vol -vu1 
      } 
      else { 
        mdc BitBtn text 592 > X
        vol -vu2 
      }
    }
    if ($4 == 593) {
      if ($did($2,10,1).sel == 0) { echo -a Listeden bir radyo url adresi seciniz. | return }
      else { 
        AfraNradio $gettok($did($2,10).seltext,11,32) $gettok($gettok($did($2,10).seltext,16,32),1,43) 
        set -e %radname $gettok($did($2,10,1).seltext,6,32) 
      } 
    }
    if ($4 == 594) {
      sockclose AF-Rd
      mdc BitBtn text 597 > Radyo durduruldu.!
      dll $bamp_in Stop 
    }
    if ($4 == 595) {
      if $group(#radsh1) == off {
        var %a1f 304
        while (62 <= %a1f) { dialog -s af-rd -1 -1 344 %a1f | dec %a1f }
        mdc BitBtn text 595 > 6
        .enable #radsh1
      }
      else {
        var %a2f 62
        while (%a2f <= 304) { dialog -s af-rd -1 -1 344 %a2f | inc %a2f }
        mdc BitBtn text 595 > 5
        .disable #radsh1
      }
    }
    if ($4 == 596) { AFRadyo }
  }
}
on *:start: { ampload }