Forums Scripts & Popups sound script

on *:load:{
  echo -s Sound Mp3
  sound, select sound file by open play
}

menu channel,menubar {
  -
  sound 
  .Play:mp3
}

alias mp3 {
  set %mp3 $file="select song" 
  set %siz $round($calc($int($calc($file(%mp3).size / 1049)) / 1000),2) MB
  set %wlength $calc($mp3(%mp3).length / 1000)
  set %wtime $duration(%wlength)
  if ($chr(32) isin %wtime) { %wtime = $remove(%wtime,$chr(32)) }
  if (%mp3 != $null) {
  run %mp3 }
  else halt
  if (%addinfo == $true) { %msg %wacko.title %ic2 $+ $nopath(%mp3) %div.color %div %ic Size: %ic2 %siz %div.color %div %ic Length: %ic2 %wtime %div.color %div %ic File Info: %ic2 $mp3(%mp3).bitrate Kbps %ic / %ic2 $calc($mp3(%mp3).sample * .001) Khz %ic / %ic2 $mp3(%mp3).mode }
  else { %msg %wacko.title %ic2 $+ $nopath(%mp3) %div.color %div %ic Size: %ic2 %siz %div.color %div %ic Length: %ic2 %wtime }
  else halt
}

alias mp3 {
  set %mp3 $$sfile($iif($isdir($nofile(%mp3)),$nofile(%mp3) $+ *.mp3,$mircdir),select song,Play!)
  var %siz = $bytes($file(%mp3).size,m) MB
  var %wtime = $remove($duration($calc($mp3(%mp3).length / 1000)),$chr(32))
  run %mp3
  %msg %wacko.title %ic2 $+ $nopath(%mp3) %div.color %div %ic Size: %ic2 %siz %div.color %div %ic Length: %ic2 %wtime $&
    $iif((%addinfo == $true),%div.color %div %ic File Info: %ic2 $mp3(%mp3).bitrate Kbps %ic / %ic2 $calc($mp3(%mp3).sample * .001) Khz %ic / %ic2 $mp3(%mp3).mode)
}