;======================
; Mp3 Player Info v1.0
;       By Ss
;======================
;En este caso no cabe explicacion alguna, pues solo son 'matemáticas' y usar 4 o 5 identificadores BÁSICOS. Solo trato de mostrar como obtener información del mp3 ya sea en formato 'duration' o bien en el formato 'tradicional de minutos:segundos'


===>> FORMATO 'DURATION':
 --> OBTENER EL TIEMPO QUE LLEVA SONANDO FORMATO X-minutos Z-segundos

LLeva sonando: $SR-1
alias SR-1 { return $duration($calc($inmp3.pos / 1000)) }

 --> OBTENER EL TIEMPO QUE QUEDA DE CANCIÓN FORMATO X-minutos Z-segundos

Queda de canción: $SR-2
alias SR-2 { return $duration($calc(($inmp3.length - $inmp3.pos) / 1000)) }


===>> FORMATO 'mm:ss':
 --> OBTENER EL TIEMPO QUE LLEVA SONANDO FORMATO minutos:segundos

LLeva sonando: $SR-1($int($calc($inmp3.pos / 1000)))
alias SR-1 { 
  var %SR.M $int($calc($1 / 60))
  var %SR.S $calc($1 - (%SR.M * 60))
  if (%SR.M < 10) { var %SR.M [ 0 $+ [ %SR.M ] ] }
  if (%SR.S < 10) { var %SR.S [ 0 $+ [ %SR.S ] ] }
  return %SR.M $+ : $+ %SR.S
}

 --> OBTENER EL TIEMPO QUE QUEDA DE CANCIÓN FORMATO minutos:segundos

Queda de canción: $SR-2($int($calc(($inmp3.length - $inmp3.pos) / 1000)))
alias SR-2 { 
  var %SR.M $int($calc($1 / 60))
  var %SR.S $calc($1 - (%SR.M * 60))
  if (%SR.M < 10) { var %SR.M [ 0 $+ [ %SR.M ] ] }
  if (%SR.S < 10) { var %SR.S [ 0 $+ [ %SR.S ] ] }
  return %SR.M $+ : $+ %SR.S
} 





		_-_-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-
		_-            \\  ||  //                 _-
		_-             [- Ss -]                  _-
		_-            //  ||  \\                 _-
		_-     http://Sscript.infdj.com          _-
		-_-_-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_