/ScriptServ

alias playlist {
  if (%mp3.dir == $null) playlistsetup
  set %mp3.list.starttime $ctime
  set %mp3.list.nick $me
  set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt
  window -dhnal @list
  $findfile($mp3dir,*.mp3,@list)
  set %mp3.list.total $findfile(%mp3.dir,*.mp3,0)
  write %mp3.list.textfile $cr
  write -c %mp3.list.textfile $me $+ 's Mp3 List
  write %mp3.list.textfile Total $calc(%mp3.list.total - 1) Mp3 files
  set %mp3.list.count 1
  set %mp3.list.filesize.total 0
  set %mp3.list.file.lastdir ""
  :next
  set %mp3.list.file $line(@list,%mp3.list.count)
  set %mp3.list.file.dir $nofile(%mp3.list.file)
  set %mp3.list.file.name $nopath(%mp3.list.file)
  set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3)
  set %mp3.list.length $calc(70 - $len(%mp3.list.file.name) - $len(%mp3.list.count))
  if (%mp3.list.file.dir != %mp3.list.file.lastdir)  {
    write %mp3.list.textfile $cr
    write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ]
    write %mp3.list.textfile $cr
  }
  else { }
  set %mp3.list.file.lastdir %mp3.list.file.dir
  if %mp3.list.count > 1 {
    if %mp3.list.filesize > %mp3.list.filesize.high { 
      set %mp3.list.filesize.high %mp3.list.filesize 
    set %mp3.list.filename.high %mp3.list.file.name }
    elseif %mp3.list.filesize < %mp3.list.filesize.low {  
      set %mp3.list.filesize.low %mp3.list.filesize 
      set %mp3.list.filename.low %mp3.list.file.name 
    }
  }
  else { 
    set %mp3.list.filesize.high %mp3.list.filesize 
    set %mp3.list.filesize.low %mp3.list.filesize
  }
  write %mp3.list.textfile %mp3.list.count $+ . %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB
  inc %mp3.list.filesize.total %mp3.list.filesize
  inc %mp3.list.count 1
  if ( %mp3.list.count < %mp3.list.total ) { goto next }
  :end
  window -c @list 
  write %mp3.list.textfile
  write %mp3.list.textfile $cr
  if %mp3.list.filesize.total < 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) Mp3 files encompassing $round(%mp3.list.filesize.total,1) MB  }
  else { write %mp3.list.textfile  Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB  }
  set %mp3.list.time $calc($ctime - %mp3.list.starttime)
  run %mp3.list.textfile  |  echo -a 5,4An Mp3 list8,1[[4 $calc(%mp3.list.total - 1) files total 8]]5,4has been created
}
alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs,ec,$chr(32)) }
alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 }
alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps }
alias mp3.bitrate { 
  if (($1 == $null) || ($exists($1-) == $false)) return 0 
  set %_bitrate $read -l1 $1- 
  if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 } 
  set %_bitrate $asc($mid(%_bitrate,3,1)) 
  .timer 1 1 unset %_bitrate 
  return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16)))) 
}