Untitled

menu * {
  -
  mp3 player
  .Current; %mp3.dir $+ ://echo -a Current MP3 Dir is: %mp3.dir
  .Current; %mp3.mode $+ ://echo -a Current MP3 Display mode is: %mp3.mode
  .-
  .Select MP3://mp3 -s
  .Random MP3://mp3 -r
  .Stop:/splay stop
  .Pause:/splay pause
  .Resume:/splay resume
  .-
  .Change Directory://set %mp3.dir $sdir(C:\, Please select your MP3 Directory!)
  .Change display://set %mp3.mode $$?="Enter ECHO -a, MSG #Chan, AMSG $crlf $crlf Echo -a (Displays Silently (not seen by anyone but you) $crlf $crlf MSG #Channel (Only is displayed in 1 channel) $crlf $crlf AMSG (Is displayed in all channels you're on)"
  .-
  .Create MP3 list://echo -a 15[4WARNING15] If you have not selected a MP3 Directory, The list creator feature won't work. | echo -a MP3 Directory is set as: %mp3.dir | write -c mp3list.txt | write mp3list.txt $findfile(%MP3.dir,*.mp3,0,write mp3list.txt $nopath($1-))
  .About://about.mp3
}

alias mp3 {
  if (%mp3.dir == $null) { echo -a 15[4ERROR15] You need to set a MP3 Directory, first! | set %mp3.dir $sdir(C:\, Please select your MP3 Directory!) | HALT }
  if ((%MP3.mode == $null) || (Echo !isin %MP3.mode) && (MSG !isin %MP3.mode) && (%MP3.mode != AMSG)) { echo -a 15[4ERROR15] You need to set a MP3 display mode, first! | set %mp3.mode $$?="Enter ECHO -a, MSG #Chan, AMSG $crlf $crlf Echo -a (Displays Silently (not seen by anyone but you) $crlf $crlf MSG #Channel (Only is displayed in 1 channel) $crlf $crlf AMSG (Is displayed in all channels you're on)" | HALT }
  if (($1 != -r) && ($1 != -s)) { echo -a 15[4Correct Syntax15] /mp3 -s (To choose a mp3 yourself) or /mp3 -r (random) | HALT }
  else {
    if ($1 == -s) { set %MP3 $sfile(%mp3.dir,Select a MP3 to play) | splay $shortfn(%mp3) | mp3display | HALT }
    if ($1 == -r) { set %mp3.rand $rand(1,$findfile(%mp3.dir,*.mp3,0)) | set %MP3 $findfile(%MP3.dir,*.mp3,%MP3.rand) | run $shortfn(%mp3) | mp3display | HALT }
    else { HALT }
  } 
}

;$round($iif($file($inmp3.fname).size > 1048576,$calc($file($inmp3.fname).size / 1048576),$calc($file($inmp3.fname).size / 1024)),2) $+ $iif($file($inmp3.fname).size > 1048576,mb,kb)

alias mp3display2 { %MP3.mode 07,00MP3 -10 $nopath(%MP3) 7(10,00 $+ $duration($calc($sound($shortfn(%MP3)).length /1000)) $+ 14,00@10,00 $+ $sound($shortfn(%MP3)).bitrate $+ kbps7) }
alias mp3display3 { %MP3.mode 07,00MP3 -10 $sound($shortfn(%MP3)).artist - $sound($shortfn(%MP3)).album - $sound($shortfn(%MP3)).track - $sound($shortfn(%MP3)).title 7(10,00 $+ $duration($calc($sound($shortfn(%MP3)).length /1000)) $+ 14,00@10,00 $+ $sound($shortfn(%MP3)).bitrate $+ kbps7) }
alias mp3display { %MP3.mode 07,00MP3 -10 $sound($shortfn(%MP3)).artist - $sound($shortfn(%MP3)).title 7(10,00 $+ $duration($calc($sound($shortfn(%MP3)).length /1000)) $+ 14,00@10,00 $+ $sound($shortfn(%MP3)).bitrate $+ kbps7) }
alias mp3ad { 
  if (($sound($shortfn(%MP3)).artist != $null) && ($sound($shortfn(%MP3)).album != $null) && ($sound($shortfn(%MP3)).title != $null)) { say 07,00MP3 -10 $sound($shortfn(%MP3)).artist - $sound($shortfn(%MP3)).album - $sound($shortfn(%MP3)).track - $sound($shortfn(%MP3)).title 7(10,00 $+ $duration($calc($sound($shortfn(%MP3)).length /1000)) $+ 14,00@10,00 $+ $sound($shortfn(%MP3)).bitrate $+ kbps7) | HALT }
  if (($sound($shortfn(%MP3)).artist != $null) && ($sound($shortfn(%MP3)).title != $null)) { say 07,00MP3 -10 $sound($shortfn(%MP3)).artist - $sound($shortfn(%MP3)).title 7(10,00 $+ $duration($calc($sound($shortfn(%MP3)).length /1000)) $+ 14,00@10,00 $+ $sound($shortfn(%MP3)).bitrate $+ kbps7) | HALT }
  else { say 07,00MP3 -10 $nopath(%MP3) 7(10,00 $+ $duration($calc($sound($shortfn(%MP3)).length /1000)) $+ 14,00@10,00 $+ $sound($shortfn(%MP3)).bitrate $+ kbps7) | HALT }
}

alias vol {
  if ($1 == $null) { echo -a 15[4Correct Syntax15] /vol 1-5 (1=Lowest, 5=Highest) | HALT }
  if ($1 == 1) { vol -v 30000 | HALT }
  if ($1 == 2) { vol -v 40000 | HALT }
  if ($1 == 3) { vol -v 50000 | HALT }
  if ($1 == 4) { vol -v 55000 | HALT }
  if ($1 == 5) { vol -v 65000 | HALT }
  else { vol -v $1 }
}