/ScriptServ

menu channel {
  KLøWñ× Sound
  .MP3 Player
  ..Play MP3:mp3
  ..location?:set %mp3dir $$?="Enter location of MP3S"
  .Wav Player
  ..Play Wav:wav
  ..location?:set %wavdir $$?="Enter location of WAVS"  
  .Midi Player
  ..Play MiDi:midi
  ..location?:set %mididir $$?="Enter location of MIDIS"
  .Stop:splay off
}

ON 1:LOAD:{
  set %mp3player $$?="Location Mp3 Player"
  set %mp3dir $$?="Enter location of MP3S"
  set %wavdir $$?="Enter location of WAVS"
  set %mididir $$?="Enter location of MIDIS"
  echo -a 4,5::::::::::02,14K07L13ø12W05ñ07× 9Sound System Loaded4,5::::::::::
}
alias mp3 {
  set %mp3 $dir="KLøWñ× MP3" [ %mp3dir $+ \*.mp3 ] 
  me 12,15(2layer3 audio12) 14[2file:14[2 $+ $nopath(%mp3) $+ 14] [2size:14[2 $+ $size(%mp3) $+ 14] [02K07L13ø12W05ñ07×14] 
  run %mp3
}
;9,1(layer3 audio) [file:[ $+ $nopath(%mp3) $+ ] [size:[ $+ $size(%mp3) $+ ] [ 12K07L13ø11W8ñ07× 9]
; 12,15(2layer3 audio12) 14[2file:14[2 $+ $nopath(%mp3) $+ 14] [2size:14[2 $+ $size(%mp3) $+ 14] [02K07L13ø12W05ñ07×14] 
alias wav {
  set %wav $dir="KLøWñ× Wav" [ %wavdir $+ \*.wav ]
  if (%wav == $null) { halt }
  me 12,15(2wav12) 14[2file:14[2 $+ $nopath(%wav) $+ 14]  14[2size:14[2 $+ $size(%wav) $+ 14] [02K07L13ø12W05ñ07×14]
  sound %wav
  unset %wav
}
; 9,1(wav) [file:[ $+ $nopath(%wav) $+ ] [size:[ $+ $size(%wav) $+ ]  [ 3K07L13ø12W05ñ07× 9]
alias midi {
  set %midi $dir="KLøWñ× Midi" [ %mididir $+ \*.mid ]
  sound %midi 12,15(2midi12) 14[2file:14[2 $+ $nopath(%midi) $+ 14] [2size:14[2 $+ $size(%midi) $+ 14] [02K07L13ø12W05ñ07×14]
}
;(midi) [file:[ $+ $nopath(%midi) $+ ] [size:[ $+ $size(%midi) $+ ] [ 3K07L13ø12W05ñ07× 9]

alias size {
  set %bytes.start $lof($1)
  if (%bytes.start >= 1099511627776) { return $round($calc(%bytes.start / 1099511627776),2) $+ tb | halt }
  if (%bytes.start >= 1073741824) { return $round($calc(%bytes.start / 1073741824),2) $+ gb | halt }
  if (%bytes.start >= 1048576) { return $round($calc(%bytes.start / 1048576),2) $+ mb | halt }
  if (%bytes.start < 1024) { return %bytes.start $+ b | halt }
  return $round($calc( %bytes.start / 1024 ),2) $+ kb
  halt
}