LECTEUR MP3

; Add-on créé by SamsungMan
alias mp3 { dialog -dm mp3 mp3 | set %mp3 $findfile(%location,*.mp3 ,0,1,did -a mp3 1 $nopath($1-)) }
menu menubar,channel {
  -
  Lecteur mp3:/mp3
  -
}
on *:load:{
  /echo -a 4Lecteur Mp3 chargée.
}
dialog mp3 {
  title "Lecteur mp3 by SamsungMan"
  size -1 -1 152 170
  option dbu
  text "Lecteur Mp3", 1, 0 10 150 8, center
  button "Play", 2, 6 26 36 12
  button "Stop", 3, 6 44 36 12
  button "Pause", 4, 6 64 36 12
  button "Reprendre", 5, 6 84 36 12
  button "+", 7, 6 124 13 12
  button "-", 8, 30 138 12 12
  list 11, 46 54 102 102, size
  box "Informations", 12, 46 19 102 34
  text "Titre :", 13, 48 28 16 8
  text "Durée :", 16, 48 40 24 8
  box "Volume", 18, 2 112 44 44
  box "Contrôle", 19, 2 18 44 82
  text "© 2004-2005 SamungMan", 20, 2 160 62 8
  edit "", 21, 66 26 82 10, disable autohs
  edit "", 24, 68 39 40 10, disable autohs
  button "Choisir un repertoire ", 25, 0 0 150 8
  button "Fermer", 6, 71 159 76 10, ok cancel
}

On *:dialog:init:*:*{
/autoauth

On *:dialog:mp3:sclick*:*:{  
  if ($did == 25) { 
    set %location $sdir="Choisis le repertoire de tes MP3" C:\ 
    did -ra mp3 1 %location 
    set %mp3 $findfile(%location,*.mp3 ,0,1,did -a mp3 11 $nopath($1-))
  }
  if ($did == 8) {
    vol -v $calc($vol(master) - 5000)
  }    
  if ($did == 4) {
    splay -p pause
  }
  if ($did == 2) { 
    set %mp3 %location $+ $did(11).seltext
    set %mp3titre $mp3(%mp3).title      
    set %mp3time $duration($calc($mp3(%mp3).length / 1000 )) 
    if (%mp3 == $null) { /echo -a 4Erreur ! 1Choisis un mp3 dans la liste ! }
    if (%mp3titre == $null) { set %mp3titre [Inconnu] }
    if (%mp3time == $null) { set %mp3time [Inconnu] }
    did -ra mp3 21 %mp3titre
    did -ra mp3 24 %mp3time
    /ame 9,15©10,15°14,15o4.12,15 12,15écoute4,15 %mp3titre 1,15Durée 9,15[4,15 %mp3time 9,15] 4,15.14,15o10,15°9,15©
    splay %mp3   
  }
  if ($did == 5) {
    splay -p resume
  }
  if ($did == 7) {
    vol -v $calc($vol(master) + 5000)
  }
  if ($did == 3) {
    splay -p stop
  }
}