Menu channel,status {
  Music Player: MusicPlayer
}
Alias Musicplayer {
  if (!$hget(musicplayer)) { hmake Musicplayer 20 }
  if ($exists($mircdir $+ Musicplayer.txt)) {
    hload Musicplayer Musicplayer.txt
    dialog -m Music Music
  }
  else { 
    hadd Musicplayer Dir $sdir(*)
    if (!$hget(Musicplayer,dir)) { halt }
    else { dialog -m Music Music }
  }
}
alias acd { 
  var %x 1
  if ($hget(Music) == Music) { hfree  Music }
  while ($findfile($hget(Musicplayer,dir),*.mp3,0) >= %x) {
    noop $findfile($hget(Musicplayer,dir),*.mp3,%x,did -a Music 2 $nopath($1-))
    inc %x
  }
}
Dialog Music {
  title "Mp3 Player"
  icon Music_icon.bmp
  size -1 -1 130 260
  option dbu
  list 2,4 4 90 190, sort
  button "Refresh",3,96 4 30 10
  text " ",4,4 190 30 6
  text " ",5,4 200 90 14
  icon 6,14 220 10 10,$mircdir $+ \MusicPlayer\Pause.jpg,Pause/Play
  icon 7,4 220 10 10,$mircdir $+ \MusicPlayer\Previous.jpg,Previous
  icon 8,34 220 10 10,$mircdir $+ \MusicPlayer\Next.jpg,Next 
  icon 9,24 220 10 10,$mircdir $+ \MusicPlayer\Stop.jpg,Stop
  button "Save",10,96 14 30 10
  button "Change Dir",11,96 24 30 10
  scroll "", 12,4 234 80 10, horizontal range 65535
  button "Volume", 13,9 234 30 10
}
on 1:dialog:Music:init:0: { 
  acd 
  did -h Music 12
  did -h Music 4
  did -h Music 5
}
on 1:dialog:Music:dclick:2: {
  splay -p $hget(Musicplayer,dir) $+ $did(Music,2,$did(Music,2).sel)
  did -va Music 5 Now playing $did(Music,2,$did(Music,2).sel)
  did -va Music 4 00:00/ $+ $asctime($left($insong.length,3),nn:ss)
  titlebar Now Playing: $nopath($insong.fname) 00:00/ $+ $asctime($left($insong.length,3),nn:ss)
  .timersongtime -o 0 1 Song.time 
}
on 1:dialog:Music:sclick:3: {
  did -r Music 2
  acd
}
on 1:dialog:Music:sclick:6: {
  if (!$insong.pause) && ($insong) {
    splay pause
    did -g Music 6 $mircdir $+ \MusicPlayer\Play.jpg
  }
  elseif ($insong.pause) {
    splay resume
    did -g Music 6 $mircdir $+ \MusicPlayer\Pause.jpg
  }
}
on 1:dialog:Music:sclick:7: {
  if ($insong) {
    if ($calc($didwm(Music,2,* $+ $nopath($insong.fname) $+ *)-1) < 1) {
      splay $hget(Musicplayer,dir) $+ $did(Music,2,$did(Music,2).lines)
      did -va Music 4 00:00 $+ / $+ $asctime($left($insong.length,3),nn:ss)
      did -va Music 5 Now playing $nopath($insong.fname)
      did -c Music 2 $didwm(Music,2,* $+ $nopath($insong.fname) $+ *)

    }
    else {
      splay $hget(Musicplayer,dir) $+ $did(Music,2,$calc($didwm(Music,2,* $+ $nopath($insong.fname) $+ *)-1))
      did -va Music 4 00:00 / $+ $asctime($left($insong.length,3),nn:ss)
      did -va Music 5 Now playing $nopath($insong.fname)
      did -c Music 2 $didwm(Music,2,* $+ $nopath($insong.fname) $+ *)

    }
  }
}
on 1:dialog:Music:sclick:8: {
  if ($insong) {
    if ($calc($didwm(Music,2,* $+ $nopath($insong.fname) $+ *)+1) > $did(Music,2).lines) {
      splay $hget(Musicplayer,dir) $+ $did(Music,2,1)
      did -va Music 4 00:00 $+ / $+ $asctime($left($insong.length,3),nn:ss)
      did -va Music 5 Now playing $nopath($insong.fname)
      did -c Music 2 $didwm(Music,2,* $+ $nopath($insong.fname) $+ *)


    }
    else {
      splay $hget(Musicplayer,dir) $+ $did(Music,2,$calc($didwm(Music,2,* $+ $nopath($insong.fname) $+ *)+1))
      did -va Music 4 00:00 $+ / $+ $asctime($left($insong.length,3),nn:ss)
      did -va Music 5 Now playing $nopath($insong.fname)
      did -c Music 2 $didwm(Music,2,* $+ $nopath($insong.fname) $+ *)
    }
  }
}
on 1:dialog:Music:sclick:9: {
  if ($insong) {
    splay stop
    did -rh Music 5
    did -c Music 2
    did -rh Music 4
    .timersongtime off   
    titlebar
  }
}
on 1:dialog:Music:sclick:10: {
  if ($hget(Music,dir)) {
    if (!$exists($mircdir/music)) { mkdir music }
    hsave -on MusicPlayer.txt
  }
}
on 1:dialog:Music:sclick:11: { 
  var %x $hget(Musicplayer,Dir)
  hdel Musicplayer Dir
  var %y $sdir(*)
  acd
  if (%y !== $null) { 
    hadd MusicPlayer Dir %y
  }
  elseif (!$hget(Musicplayer,Dir)) { 
    hadd -m Musicplayer Dir %x 
  }
}
on 1:dialog:Music:close:*: {
  .timersongtime off
  Splay Stop
  titlebar
}
alias -l Song.time {
  if ($insong) {
    did -av Music 4 $asctime($mid($insong.pos,1,$calc($len($insong.pos)-3)),nn:ss) $+ / $+ $asctime($left($insong.length,3),nn:ss)
    titlebar Now Playing: $nopath($insong.fname) $asctime($mid($insong.pos,1,$calc($len($insong.pos)-3)),nn:ss) $+ / $+ $asctime($left($insong.length,3),nn:ss)
  }
  else {
    did -ah Music 4 
    titlebar
  }
}
on 1:MP3END: {
  var %x 
  inc %x 1
  splay $hget(Musicplayer,dir) $+ $did(Music,2,$iif(15 < %x ,1,%x))
  did -a Music 5 Now playing $did(Music,2,$iif($didwm(Music,2,* $+ $nopath($insong.fname) $+ *) > %x,1,%x))
  did -c Music 2 $didwm(Music,2,* $+ $nopath($insong.fname) $+ *)
}