MP3 AVEC DLL

alias .mp3 { dialog -m .mp3 .mp3 }
dialog .mp3 {
  title ".::: MP3 :::."
  size -1 -1 106 112
  option dbu
  button "Choisi ton MP3", 1, 7 11 41 12
  button "Jouer", 2, 7 26 41 12
  button "Pause", 3, 51 11 41 12
  button "Stop", 4, 51 26 41 12
  box "rep, jouer, stop, pause", 5, 2 2 102 47
  box "Volume", 6, 2 48 102 50
  text " Augmenter", 7, 4 59 37 8
  button " +", 8, 29 69 11 12
  text " Baisser", 9, 44 74 43 8
  button " -", 10, 64 83 11 12
  button "ok", 11, 2 98 101 12, ok
}

alias .mp3 {
  var %title
  var %auteur
  var %album
  %title = $mp3(%.mp3.file).title
  %auteur = $mp3(%.mp3.file).artist
  %album = $mp3(%.mp3.file).album
}

on *:dialog:.mp3:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog .mp3
  dll mdx.dll SetDialog .mp3 bgcolor $rgb(10,25,255)
  dll mdx.dll SetFont .mp3 2 +abg 16 400 comic sans ms
  dll mdx.dll SetColor .mp3 "id" background $rgb(255,0,0) 
  dll mdx.dll SetColor .mp3 5 text $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 5 background $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 6 text $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 6 background $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 7 background $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 9 background $rgb(255,255,0)
  dll mdx.dll SetFont .mp3 7 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 8 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 9 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 11 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 10  +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 6 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 5 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 4 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 1 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 2 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 3 +abg 16 400 comic sans ms

}

on *:dialog:.mp3:sclick:2:{ /splay %Mp3Dir | /msg $active  4,15Moi J'écoute Sa :  1[4 %title $+ 1]4 De 1[4 %auteur $+ 1] AlBuM 1[4 %album $+ 1] 4PoidS 1[4 $round ] }
on *:dialog:.mp3:sclick:3:{ /splay pause }
on *:dialog:.mp3:sclick:4:{ /splay stop } 
on *:dialog:.mp3:sclick:1:set %MP3Dir $sfile( *.mp3 , Choisissez un fichier audio ) 
on *:dialog:.mp3:sclick:8:{ //vol -vp $calc($vol(mp3) + 5000) }
on *:dialog:.mp3:sclick:10:{ //vol -vp $calc($vol(mp3) - 5000) }