LECTEUR MP3 BY MC_ABBER

alias mp3p { dialog -md mp3p mp3p }   
dialog mp3p {   
  title "    .::[ Mp3 ]::.  "  
  size -1 -1 198 173  
  option dbu  
  edit "", 1, 30 6 131 10, disable center  
  box "", 2, 36 23 116 50  
  button "+dir", 3, 80 32 29 14  
  button "Play", 4, 44 51 29 14  
  button "Pause", 5, 78 51 29 14  
  button "Stop", 6, 112 51 29 14  
  box "", 7, 39 92 117 50  
  text "Volume:", 8, 59 85 69 8, center  
  button "+", 9, 79 103 37 12  
  button "-", 10, 78 120 37 12  
}  
On *:dialog:mp3p:sclick:*:{  
  if ($did == 3) { set %MP3Dir $sfile( *.* , Choisissez un fichier audio ) | did -ra $dname 1 $remove($nopath(%Mp3dir),.mp3,.wma,.wav,.mid))  }  
  if ($did == 4) { splay %Mp3dir | amsg 4(15Mp34) 4(15 $+ $remove($nopath(%Mp3dir),.mp3,.wma,.wav,.mid) $+ 4) 4(15AbBeR-§cRipT4) }  
  if ($did == 5) { if %pause == 1 { splay resume | %pause = 0 | did -ra $dname 5 Pause } | else { splay pause | %pause = 1 | did -ra $dname 5 Resume } } 
  if ($did == 6) { splay stop | did -ra $dname 1 $remove($nopath(%Mp3dir),.mp3,.wma,.wav,.mid) (Stop) }  
  if ($did == 9) { //vol -vp $calc($vol(mp3) + 5000) }  
  if ($did == 10) { //vol -vp $calc($vol(mp3) - 5000) }
}