menu * { 
  -
  Media Player:/dialog -iem med med
  -
}
on *:MP3END: { 
  if ($did(med,4).sel == $did(med,4).lines) { 
    set %line 2
    /splay  $did(med,2).seltext $+ \ $+ $did(med,4,2).text 
    did -a med 22 $sound($insong.fname).title
    did -a med 24 $sound($insong.fname).album
    did -a med 26 $sound($insong.fname).artist
    did -c med 4 %line
    set %line $did(4).sel
    dialog -t med Media Player: $sound($insong.fname).artist
  }
  elseif ($did(med,4).sel != $did(med,4).lines) { 
    inc %line
    /splay $did(med,2).seltext $+ \ $+ $did(med,4,%line).text
    did -a med 22 $sound($insong.fname).title
    did -a med 24 $sound($insong.fname).album
    did -a med 26 $sound($insong.fname).artist
    did -c med 4 %line
    set %line $did(4).sel
    dialog -t med Media Player: $sound($insong.fname).artist
  }
}
dialog med { 
  title "Media Player"
  size -1 -1 600 280

  text "Directory's:", 1, 1 1 80 20
  list 2, 1 20 200 230, ok

  text "Song's:", 3, 210 1 80 20
  list 4, 210 20 200 230, auto hs

  box "Options", 5, 420 1 125 40
  button ">", 6, 430 15 25 25
  button "", 7, 455 15 25 25
  button "|<<", 8, 480 15 25 25
  button ">>|", 9, 505 15 25 25

  box "Volume", 10, 420 50 80 115
  button "Up", 11, 430 65 60 25
  button "Down", 12, 430 90 60 25
  button "Mute", 13, 430 115 60 25
  text "", 14, 450 140 40 20

  button "Add Directory", 15, 510 50 89 20
  button "Use Directory", 16, 510 70 89 20
  button "Find Files", 17, 510 90 89 20
  button "Close", 18, 510 110 89 20, ok
  box "Directory", 19, 420 170 179 40
  edit "", 20, 426 185 170 20, autohs, auto hs

  text "Song:", 21, 1 255 50 20
  text "", 22, 30 255 150 20

  text "Album:", 23, 190 255 50 20
  text "", 24, 225 255 150 20

  text "Artist:", 25, 385 255 50 20
  text "", 26, 415 255 150 20
  button "Random", 27, 510 130 89 20
}
on *:dialog:med:sclick:27: { 
  set %line $rand(2,$did(4).lines)
  if (%line == $did(4).sel)   set %line $rand(1,$did(4).lines)
  /splay $did(2).seltext $+ \ $+ $did(4,%line).text
  did -a med 22 $sound($insong.fname).title
  did -a med 24 $sound($insong.fname).album
  did -a med 26 $sound($insong.fname).artist
  did -c med 4 %line
  did -a med 6 ||
  set %line $did(4).sel
  dialog -t med Media Player: $sound($insong.fname).artist
}
on *:dialog:med:init:*: { 
  did -a med 14 %vollvl $+ $chr(37)
  if (%total == $null) halt
  unset %halt
  set %directs 1 
  .timerdirects 0 0.5 directs
}
on *:dialog:med:close:*: { 
  /splay stop
}
on *:dialog:med:sclick:13: { 
  if (%mute == on) { 
    /vol -v %oldvol
    did -a med 14 %oldlvl 
    unset %oldlvl
    unset %oldvol
    unset %mute
  }
  else { 
    set %oldvol $vol(master)
    set %oldlvl $did(14)
    /vol -v 0
    did -a med 14 0 $+ $chr(37)
    set %mute on
  }
}
on *:DIALOG:med:sclick:11:{ 
  var %a = $calc( $remove($did(med,14),$chr(37)) + 5 ) 
  if (%a > 100) { halt } 
  did -ra med 14 %a $+ $chr(37) 
  set %vollvl %a
  vol -v $calc( %a / 100 * 65535 )
  unset %mute 
} 
on *:DIALOG:med:sclick:12:{ 
  var %a = $calc( $remove($did(med,14),$chr(37)) - 5 ) 
  if (%a < 0) { halt } 
  did -ra med 14 %a $+ $chr(37) 
  set %vollvl %a
  vol -v $calc( %a / 100 * 65535 ) 
  unset %mute
}
on *:dialog:med:sclick:7: { 
  /splay stop
  did -a med 6 >
}
on *:dialog:med:sclick:8,9: { 
  if ($did == 9) { 
    if ($calc($did(4).sel + 1) > $did(4).lines) { 
      halt 
    }
    else {
      set %x $calc($did(4).sel + 1)
      /splay $did(20) $+ \ $+ $did(4,%x).text
      set %line $did(4).sel
      dialog -t med Media Player: $sound($insong.fname).artist
      did -c med 4 %x
      did -a med 22 $sound($insong.fname).title
      did -a med 24 $sound($insong.fname).album
      did -a med 26 $sound($insong.fname).artist

    }
  }
  else {
    if ($calc($did(4).sel - 1) < 0) { 
      halt 
    }
    else {
      set %x $calc($did(4).sel - 1)
      /splay $did(20) $+ \ $+ $did(4,%x).text
      did -c med 4 %x
      set %line $did(4).sel
      dialog -t med Media Player: $sound($insong.fname).artist
      did -a med 22 $sound($insong.fname).title
      did -a med 24 $sound($insong.fname).album
      did -a med 26 $sound($insong.fname).artist
    }
  }
}
on *:dialog:med:dclick:4: {
  if ($insong.fname != $did(20) $+ \ $+ $did(4).seltext) { 
    did -a med 6 ||
    /splay $did(20) $+ \ $+ $did(4).seltext
    set %line $did(4).sel
    dialog -t med Media Player: $sound($insong.fname).artist
    did -a med 22 $sound($insong.fname).title
    did -a med 24 $sound($insong.fname).album
    did -a med 26 $sound($insong.fname).artist
  }   
  elseif (%play == on) {
    unset %play 
    /splay pause
    did -a med 6 >
    set %pause on
  }
  elseif (%pause == on) { 
    /splay resume
    unset %pause 
    did -a med 6 ||
    set %play on
  }
  else {
    set %play on
    /splay $did(20) $+ \ $+ $did(4).seltext
    /did -a med 6 ||
    set %line $did(4).sel
    dialog -t med Media Player: $sound($insong.fname).artist
    did -a med 22 $sound($insong.fname).title
    did -a med 24 $sound($insong.fname).album
    did -a med 26 $sound($insong.fname).artist
  }
}
on *:dialog:med:sclick:6: { 
  if ($insong.fname != $did(20) $+ \ $+ $did(4).seltext) { 
    /splay $did(20) $+ \ $+ $did(4).seltext
    did -a med 6 ||
    set %line $did(4).sel
    dialog -t med Media Player: $sound($insong.fname).artist
    did -a med 22 $sound($insong.fname).title
    did -a med 24 $sound($insong.fname).album
    did -a med 26 $sound($insong.fname).artist
  }  
  elseif (%play == on) {
    unset %play 
    /splay pause
    did -a med 6 >
    set %pause on
  }
  elseif (%pause == on) { 
    /splay resume
    unset %pause 
    did -a med 6 ||
    set %play on
  }
  else {
    set %play on
    /splay $did(20) $+ \ $+ $did(4).seltext
    /did -a med 6 ||
    set %line $did(4).sel
    dialog -t med Media Player: $sound($insong.fname).artist
    did -a med 22 $sound($insong.fname).title
    did -a med 24 $sound($insong.fname).album
    did -a med 26 $sound($insong.fname).artist
  }
}
on *:dialog:med:sclick:15: { 
  /dialog -m medf medf 
}
on *:dialog:med:sclick:16,17: { 
  did -ra med 20 $did(2).seltext
  did -ra med 4
  $findfile($did(2).seltext,*.mp3,0,did -a med 4 $nopath($1-)) 
  $findfile($did(2).seltext,*.wma,0,did -a med 4 $nopath($1-))
}
on *:dialog:med:dclick:2: { 
  did -ra med 20 $did(2).seltext
  did -ra med 4
  $findfile($did(2).seltext,*.mp3,0,did -a med 4 $nopath($1-)) 
  $findfile($did(2).seltext,*.wma,0,did -a med 4 $nopath($1-))
}
alias -l directs {
  if ($dialog(med)) && (%halt == $null) {  
    if (%directs > %total) { unset %directs | set %halt on } 
    else { 
      did -a med 2 %dir. [ $+ [ %directs ] ] 
      inc %directs
    }
  } 
}
dialog medf { 
  title "Media Player - File Directory:"
  size -1 -1 800 50

  edit "", 1, 1 1 798 20
  button "Done", 2, 1 21 798 29, ok
}
on *:dialog:medf:edit:1: { 
  dialog -t medf Media Player - File Directory: $did(1)
}
on *:dialog:medf:sclick:2: { 
  inc %total
  set %dir. [ $+ [ %total ] ] $did(1)
  did -a med 2 $did(1)
}
alias msnsong { 
  var %dll $mircdir/MsnSong.dll 
  .comreg %dll 
  .comopen msn Msn.Write 
  var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null) 
  .comreg -u %dll 
  .comclose msn 
}