dialog mp3 {
  title "Mp3 Player By SuLh"
  size -1 -1 140 164
  option dbu
  list 1, 6 15 74 121, size
  button "Ekle", 2, 6 140 34 18
  button "Sil", 3, 48 140 33 18
  button "Gönder", 4, 88 15 42 20
  button "Sıradaki", 5, 88 40 42 20
  button "Çal", 6, 88 66 42 20
  button "Durdur", 7, 88 91 42 20
  text "Şarkı Listesi", 8, 24 6 39 8, center
  button "Kapat", 9, 88 114 42 20,ok
}
alias mp3 { dialog -m mp3 mp3 }
on *:dialog:mp3:init:*: {
  var %i 1
  while (%i <= $lines(mp3.txt)) {
    did -a mp3 1 $read(mp3.txt,%i)
    inc %i
  }
}
on *:dialog:mp3:sclick:*: {
  if ($did == 2) {
    var %:s $sfile($mircdir)
    if $chr(32) isin %:s { 
      echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor. 
      var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
      var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ )
      rename $shortfn(%:s) %:new
      echo -a Parçanın yeni ismi %:new
      write mp3.txt %:new
      echo -a %:new Şarkısı anadizine kopyalanıyor
      did -a mp3 1 %:new 
      copy -a %:s $mircdirmp3
      return
    }
    var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
    var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ )
    if %:s == $null { return }
    echo -a %:b Şarkısı anadizine kopyalanıyor.
    write mp3.txt %:b
    did -a mp3 1 %:b 
    copy -a %:s $mircdirmp3
  }
  if ($did == 3) {
    var %:hm  $did(1).seltext
    did -d mp3 1 $did(1).sel
    echo -a 7,1 %:hm parçası silindi.
    write -dl $+ %:hm mp3.txt 
    remove %:hm
  }
  if ($did = 6) {
    splay $mircdir $+ $did(1).seltext
    echo -a 7,1 $did(1).seltext parçası çalıyor..
  }
  if ($did == 7) {
    splay stop
    echo -a 7,1 Mp3 player durduruldu.
  }
  if ($did == 4) {
    $amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..) 
  }
  if ($did == 5) {
    var %:siradaki $did(1).seltext
    if $read(mp3.txt,w, $+ %:siradaki $+ ) {
      var %:c $calc($readn + 1)
      splay  $+($mircdir,$read(mp3.txt,%:c))
      return
    }
    if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 }
    splay $+($mircdir,$read(mp3.txt,%:c))
  }
}

menu * {
  Mp3 Player:mp3
}