alias -l aud.ent { 
  if ($istok($1,mp3,46)) { return -p }
  if ($istok($1,wav,46)) { return -w }
  if ($istok($1,mid,46)) { return -m }
}
alias -l aud.seek { 
  if ($dialog(mplay)) && ($inmp3) { 
    ;nT0xIc8's scroll/seek bar
    did -c mplay 4 $round($calc($calc($insong.pos / $insong.length) * 100),0) 
    did -ra mplay 3 $+($gmt($round($calc($insong.pos / 1000),0),nn:ss),$chr(47),$gmt($round($calc($insong.length / 1000),0),nn:ss))
  } 
  else {
    if (!$dialog(mplay)) { 
      .timerpos off 
    } 
    if (!$inmp3) { halt }
  } 
}
 
alias aud.play { 
  var %int = $did(mplay,11).sel
  var %i = $did(mplay,11).seltext
  set -nu1 %temporary %int
  splay $aud.ent($nopath(%temporary)) $read(playlist.txt,%int)
  did -ra mplay 3 $gmt($round($calc($insong.pos / 1000),0),nn:ss)
  did -a mplay 2 $iif(!$sound($inmp3).artist,$remove(%i,.mp3,.wma,.mid),$sound($insong).title - $sound($insong).artist)
  .timerplay 0 1 aud.seek
}
 
alias aud.stop { 
  .timerplay off 
  splay -p stop
  splay -w stop
  splay -m stop
  did -ra mplay 3 00:00/00:00
  did -ra mplay 2 << no song is currently playing >>
  if (%aud.pause) { unset %aud.pause }
}
 
alias aud.pause {
  if ($inmp3) { 
    if (!%aud.pause) { set %aud.pause 1 }
    if (%aud.pause = 1) {  
      .timerplay -p 
      splay pause
      did -ra mplay 2 << song is currently paused >>
      inc %aud.pause 1
      halt
    }
    if (%aud.pause = 2) { inc %aud.pause 1 }
    if (%aud.pause = 3) { 
      .timerplay -r 
      splay resume
      did -ra mplay 2 $iif(!$sound($inmp3).artist,$remove($did($dname,11).seltext,.mp3,.wma,.mid),$sound($insong).title - $sound($insong).artist)
      unset %aud.pause
      halt
    }
  }
}
 
alias aud.load { 
  var %tmpdir $sdir(C:,Music Files)
  if ($dialog(mplay)) did -r mplay 11
  var %x 1 
  :start
  if (%getnum|mp3 = 1) { inc %getnum|mp3 }
  while ($findfile(%tmpdir,*.mp3,%x)) {
    if ($dialog(mplay)) { did -a mplay 11 $nopath($findfile(%tmpdir,*.mp3,%x)) }
    write playlist.txt $findfile(%tmpdir,*.mp3,%x)
    inc %x
  }
  var %x 1  
  while ($findfile(%tmpdir,*.wav,%x)) {
    if ($dialog(mplay)) { did -a mplay 11 $nopath($findfile(%tmpdir,*.wav,%x)) }
    write playlist.txt $findfile(%tmpdir,*.wav,%x)
    inc %x
  }
  var %x 1 
  while ($findfile(%tmpdir,*.midi,%x)) {
    if ($dialog(mplay)) { did -a mplay 11 $nopath($findfile(%tmpdir,*.midi,%x)) }
    write playlist.txt  $findfile(%tmpdir,*.midi,%x)
    inc %x
  }
  halt
  if ($1 = destroydir) { 
    remove playlist.txt
    unset %getnum|mp3
    goto start
  }
  if ($1 = remfile) { 
    if ($2-) {
      if ($read(playlist.txt,$nopath($1)) { write -dl $v1 }
    }
  }
}
 
 
 
dialog mplay {
  title "media player"
  size -1 -1 159 116
  option dbu
  box "", 1, 4 2 150 33
  text "", 2, 8 11 137 8
  text "", 3, 8 23 38 8
  scroll "", 4, 51 23 95 8, range 0 100 horizontal bottom
  button "<<", 5, 17 97 23 12
  button ">", 6, 40 97 23 12
  button "||", 7, 63 97 23 12
  button "[ ]", 8, 86 97 23 12
  button ">>", 9, 109 97 23 12
  box "Playlist", 10, 6 36 139 58
  list 11, 10 43 130 46, size
}
 
on *:dialog:mplay:init:0:{  
  var %x 1
  inc %getnum|mp3
  if (%getnum|mp3 iswm 1) { aud.load }
  else {
    while ($read(playlist.txt,%x)) { 
      did -a $dname 11 $nopath($v1)
      inc %x
    }
  }
}
on *:dialog:mplay:sclick:6:{ 
  aud.play
}
on *:dialog:mplay:sclick:5:{ 
  did -c $dname 11 $calc($did($dname,11).sel - 1)
  aud.play
}
on *:dialog:mplay:sclick:9:{ 
  did -c $dname 11 $calc($did($dname,11).sel + 1)
  aud.play
}
on *:dialog:mplay:sclick:8:{ 
  aud.stop
}
on *:dialog:mplay:sclick:7:{ 
  aud.pause
}
;nT0xIc8's scroll in dialog format
on *:dialog:mplay:scroll:4:{
  if ($devent == scroll) { 
    if ($did == 4) { 
      if ($insong == $true) { 
        var %t $round($calc($did(mplay,4).sel / 22000 * $insong.length),0) 
        splay seek $calc((%t + $did(mplay,4).sel) * 200) 
      } 
    } 
  } 
} 
 
 
on *:dialog:mplay:close:{ 
  aud.stop 
}
 
alias aud.ad { 
  var %f = @title - @duration
  var %c = channels,not,allowed,to,use
  var %i = ison,msg
  if ($insong) {
    if ($gettok(%i,1,44) = isoff) { 
      echo -a $replace($gettok(%f,1-,44),@duration,$gmt($round($calc($insong.length / 1000)),nn:ss),@title,$iif(!$sound($insong.fname).artist,$remove($replace($nopath($insong.fname),_,$chr(32)),.mp3),$sound($insong.fname).title - $sound($insong.fname).artist))
    }
    elseif ($gettok(%i,1,44) = ison) { 
      var %c = 1
      while ($chan(%c)) { 
        if (!$istok(%i, $chan(%c),44)) { $+(/,$gettok(%i,2,44)) $chan(%c) $replace($gettok(%f,1-,44),@duration,$gmt($round($calc($insong.length / 1000)),nn:ss),@title,$iif(!$sound($insong.fname).artist,$remove($replace($nopath($insong.fname),_,$chr(32)),.mp3),$sound($insong.fname).title - $sound($insong.fname).artist)) }
        inc %c
      }
    }
  }
}
 
;----------------- QUICK ACCESS PLAY -----------------
 
alias quickmedia { 
  if ($1) { 
    if ($v1 = .play) { 
      var %i on
      var %s = $$sfile($mircdir, choose a file to play:) 
      splay $aud.ent(%s) %s
      if (%i = on) aud.ad
    }
    if ($v1 = .pause) { 
      if ($insong) { 
        if (!%tmpo) {
          splay pause
          set %tmpo 1
          halt
        }
        elseif (%tmpo) { splay resume | unset %tmpo }
      }
    }
    if ($v1 = .stop) { 
      if ($insong) { splay stop }
    }
  }
}
 
;---------------- OTHER ------------------
 
menu channel { 
  mp3
  .open:aud.open
  .advertise:aud.ad
}
 
alias aud.open { if (!$dialog(mplay)) { dialog -mdo mplay mplay }

Commenting Options