LECTEUR MP3

menu channel {
  -
  Lecteur Mp3
  .Lancer:/mp3_player
  .Arrêter:/splay -p stop
  .-
  .Lire en boucle
  .. $iif(((%repeat.mp3 == $true)), $style(2)) Oui:/set %repeat.mp3 $true
  .. $iif(((%repeat.mp3 == $false)), $style(2)) Non:/set %repeat.mp3 $false
}

alias mp3_player {
  var %title
  var %auteur
  var %album
  var %mode
  var %bitrate
  var %sample
  %mp3_player.file = $$sfile($mp3dir, Choisissez un MP3, Lire)
  if (%mp3_player.file == $null) { goto fin }
  splay -p %mp3_player.file
  %title = $mp3(%mp3_player.file).title
  %auteur = $mp3(%mp3_player.file).artist
  %album = $mp3(%mp3_player.file).album
  %mode = $mp3(%mp3_player.file).mode
  %bitrate = $mp3(%mp3_player.file).bitrate
  %sample = $round($calc($mp3(%mp3_player.file).sample / 1000),1)
  if (%title == $null) { %title = (Inconnu) }
  if (%auteur == $null) { %auteur = (Inconnu) }
  if (%album == $null) { %album = (Inconnu) }
  if (%mode == $null) { %mode = (Inconnu) }
  if (%bitrate == $null) { %bitrate = (Inconnu) }
  if (%sample == $null) { %sample = (Inconnu) }
  msg # 4?12 [7MP3 Player12] 4?12 [7Titre : %title $+ 12] 4?12 [7Auteur : %auteur $+ 12] 4?12 [7Album : %album $+ 12] 4?12 [7Taille : $round( $+ $calc($file(%mp3_player.file).size / (1024 * 1024)) $+ ,2) Mo $+ 12] 4?12 [7Durée : $asctime($calc($mp3(%mp3_player.file).length / 1000),n:ss)) $+ 12] 4?12 [7Qualité : %mode $+ 12] 4?12 [7Bitrate : %bitrate kbps $+ 12] 4?12 [7Sample : %sample khz $+ 12] 4?
  :fin
}

ON 1:MP3END:{
  if (%repeat.mp3 == $true) { 
    splay -p %mp3_player.file
  }
}