dialog mmc {
  title "mIRC Media Center vBeta"
  size -1 -1 232 137
  option dbu
  icon $mmcico, 0
  button "", 3000, 0 0 0 0, hide ok
  box "", 2, 125 0 105 122
  text "Liste:", 6, 127 5 89 8
  list 7, 127 15 101 92, size
  list 8, 127 108 101 11, size
  list 9, 2 124 112 12, size
  button "Button", 10, 89 24 37 12, hide cancel
  text "mIRC Media Center vBeta | mIRCArge.com", 11, 127 127 120 8
}
alias mmc { if (!$dialog(mmc)) dialog -md mmc mmc }
alias mdc dll $shortfn($scriptdirmdc.dll) $1 $2-
alias mdx dll $shortfn($scriptdirmdx.dll) $1 $2-
alias barsmdx return $shortfn($scriptdirbars.mdx)
alias -l ekleico return $shortfn($scriptdirekle.ico)
alias -l silico return $shortfn($scriptdirsil.ico)
alias -l editico return $shortfn($scriptdirdüzelt.ico)
alias -l videoico return $shortfn($scriptdirpath.ico)
alias -l rdlist return $shortfn($scriptdirrdlist.txt)
alias -l urlico return $shortfn($scriptdirurl.ico)
alias -l closeico return $shortfn($scriptdirkapat.ico)
alias  -l openmedia mdc WMPCommand Open $1-
alias -l mmcico return $shortfn($scriptdirmmc.ico)
alias  file.ac {
  var %file = $sfile($mircdir,Dosya Seç)
  if (%file) openmedia $shortfn(%file)
}
alias -l url.ac {
  var %url = $input(Adres:,e)
  if (%url) openmedia %url
}
alias -l add.a.radio {
  var %rn = $input(Listeye eklemek istediğiniz?: $+ $crlf $+ (Örn: X Radyo+mms://irc.cerkesya.com/rd-x),e)
  if (%rn) {
    if (+ !isin %rn) return $input(Yanlış bilgi girişi!,ohud,Hata)
    else {
      tokenize 43 %rn
      write $rdlist $1 $+ ¿ $+ $2
      did -a mmc 7 $1
    }
  }
}
alias -l add.a.radio {
  var %rn = $input(Listeye eklemek istediğiniz?: $+ $crlf $+ (Örn: X Radyo+mms://65.55.144.155/rd-x),e)
  if (%rn) {
    if (+ !isin %rn) return $input(Yanlış bilgi girişi!,ohud,Hata)
    else {
      tokenize 43 %rn
      if ($isfile($rdlist) == $false) write -c $qt($rdlist)
      write $rdlist $1 $+ ¿ $+ $2
      did -a mmc 7 $1
    }
  }
}
alias -l edit.a.radio {
  var %rnm = $input(Yeni isim ve kısayol(adres): $+ $crlf $+ (Örn: X Radyo+mms://65.55.144.155/rd-x),e)
  if (%rnm) {
    if (+ !isin %rnm) return $input(Yanlış bilgi girişi!,ohud,Hata)
    else {
      tokenize 43 %rnm
      write -l $+ $did(mmc,7).sel $rdlist $1 $+ ¿ $+ $2
      did -o mmc 7 $did(mmc,7).sel $1
    }
  }
}
on *:dialog:mmc:init:*: { 
  mdc WMPlayer $dialog($dname).hwnd
  mdx MarkDialog $dname
  mdx SetBorderStyle $dname 8,9
  mdx SetFont $dname 8 13 700 Tahoma
  mdx SetControlMDX $dname 8,9 Toolbar arrow nodivider flat list > $barsmdx
  did -i $dname 8,9 1 bmpsize 16 16
  did -i $dname 8 1 setimage icon large 0, $+ $ekleico
  did -a $dname 8 +W 50 1 Ekle
  did -a $dname 8 1 -
  did -i $dname 8 1 setimage icon large 0, $+ $silico
  did -a $dname 8 +W 50 2 SiL
  did -a $dname 8 1 -
  did -i $dname 8 1 setimage icon large 0, $+ $editico
  did -a $dname 8 3 Düzelt
  did -i $dname 9 1 setimage icon large 0, $+ $videoico
  did -a $dname 9 1 Dosya Aç
  did -a $dname 9 1 -
  did -i $dname 9 1 setimage icon large 0, $+ $urlico
  did -a $dname 9 +W 62 2 URL Aç
  did -a $dname 9 1 -
  did -i $dname 9 1 setimage icon large 0, $+ $closeico
  did -a $dname 9 +W 60 3 Kapat  
  did -a $dname 9 1 -
  var %i = 1
  while (%i <= $lines($rdlist)) {
    tokenize 191 $read($rdlist,%i)
    did -a $dname 7 $1
    inc %i 
  }
}
on *:dialog:mmc:sclick:*: {
  if ($did == 9) {
    if ($did(9).sel == 6) .timer 1 0 dialog -x mmc
    if ($did(9).sel == 2) file.ac
    if ($did(9).sel == 4) url.ac
  }
  if ($did == 8) {
    if ($did(8).sel == 6) edit.a.radio
    if ($did(8).sel == 2) add.a.radio
    if ($did(8).sel == 4) {
      if ($did(7).sel == 0) return $input(Listeden bir seçim yapılmadı!,ohud,Hata)
      else {
        write -dl $+ $did(7).sel $rdlist
        did -d $dname 7 $did(7).sel
      }
    }
  }
}
on *:dialog:mmc:dclick:7: openmedia $gettok($read($rdlist,$did(7).sel),2,191)
alias -l ifile return $isfile($1-)
alias -l err { echo -a "4 $+ $1 $+ " isimli dosya bulunamadı.Bu dosyayı 4" $+ $scriptdir $+ " adlı klasöre kopyalayın. | .unload -rs $shortfn($script) }
on *:load: {
  if ($ifile($shortfn($scriptdirmdc.dll)) == $false) err mDC.DLL
  elseif ($ifile($shortfn($scriptdirmdx.dll)) == $false) err mDX.DLL
  elseif ($ifile($barsmdx) == $false) err Bars.mdx
  elseif ($ifile($ekleico) == $false) err ekle.ico
  elseif ($ifile($silico) == $false) err sil.ico
  elseif ($ifile($editico) == $false) err edit.ico
  elseif ($ifile($videoico) == $false) err path.ico
  elseif ($ifile($rdlist) == $false) err Rdlist.txt
  elseif ($ifile($urlico) == $false) err URL.ico
  elseif ($ifile($closeico) == $false) err Kapat.ico
  elseif ($ifile($mmcico) == $false) err MMC.ico
}
on *:signal:WMPlayer: {
  did -h mmc 6,7,8,11
  mdx SetDialog mmc coords * * $calc($1 + 226) $calc($2 + 30)
  mdx MoveControl mmc 9 * $calc($2 + 5)  * *
  mdx MoveControl mmc 2 $calc($1 + 10) * * $calc($2 + 5)
  mdx MoveControl mmc 6 $calc($1 + 15) *
  mdx MoveControl mmc 7 $calc($1 + 15) * * $calc($2 - 55)
  mdx MoveControl mmc 8 $calc($1 + 15) $calc($2 - 22)
  mdx MoveControl mmc 11 $calc($1 + 2) $calc($2 + 10)
  did -v mmc 6,7,8,11
}
on *:start:.mmc | .timer 1 1  openmedia  acilis.mp3