LECTEUR MP3 EN PICKWIN (MODIFIER)

On *:load:{ if ($version != 6.03) { echo -a Votre version est différente de la 6.03, je ne sais pas si le lecteur fonctionne... tapez /lectmp3 }
  else { echo -a Lecteur Mp3 Charger | lectmp3 }
}
alias Lectmp3 {
  window -odapBk0z +dL @mp3 10 10 180 120 | drawrect @mp3 1 1 19 104 141 15 | drawrect @mp3 1 1 0 0 180 335 | drawrect @mp3 1 1 0 0 180 10 | drawrect @mp3 1 1 0 0 162 10 | drawtext @mp3 1 Arial 8 172 0 X | drawtext @mp3 1 Arial 9 164 -3 _ | drawtext @mp3 1 Tahoma 8 14 0 Lecteur MP3 par Tom_mlkj | drawrect -f @mp3 1 1 26 57 30 15 | drawrect -f @mp3 1 1 59 57 30 15 | drawrect -f @mp3 1 1 92 57 30 15 | drawrect -f @mp3 1 1 65 25 52 15 | drawrect -f @mp3 1 1 125 57 30 15 | drawrect @mp3 1 1 73 88 34 15 | drawline @mp3 1 1 19 95 73 95 | drawline @mp3 1 1 106 95 160 95 | drawtext @mp3 0 Tahoma 11 75 25 Dossier | drawtext @mp3 0 Tahoma 10 32 58 Play | drawtext @mp3 0 Tahoma 10 61 58 Pause | drawtext @mp3 0 Tahoma 10 131 58 Stop | drawtext @mp3 0 Tahoma 8 93 60 Resume | window -apoBk0dslL +deL @pl 10 130 180 200 arial 12 | 
  var %a = $findfile(%dossier,*.mp3*,0,1, aline -p 10 @pl $nopath($1-))
}
menu @mp3 {
  mouse { 
    if ($mouse.x >= 59) && ($mouse.x <= 89) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 59 57 30 15 | drawtext @mp3 1 Tahoma 10 61 58 Pause } 
    else { drawrect -f @mp3 1 1 59 57 30 15 | drawtext @mp3 0 Tahoma 10 61 58 Pause } 
    if ($mouse.x >= 26) && ($mouse.x <= 56) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 26 57 30 15 | drawtext @mp3 1 Tahoma 10 32 58 Play } 
    else { drawrect -f @mp3 1 1 26 57 30 15 | drawtext @mp3 0 Tahoma 10 32 58 Play }
    if ($mouse.x >= 92) && ($mouse.x <= 121) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 92 57 30 15 | drawtext @mp3 1 Tahoma 8 93 60 Resume } 
    else { drawrect -f @mp3 1 1 92 57 30 15 | drawtext @mp3 0 Tahoma 8 93 60 Resume } 
    if ($mouse.x >= 125) && ($mouse.x <= 154) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 125 57 30 15 | drawtext @mp3 1 Tahoma 10 131 58 Stop } 
    else { drawrect -f @mp3 1 1 125 57 30 15 | drawtext @mp3 0 Tahoma 10 131 58 Stop } 
    if ($mouse.x >= 65) && ($mouse.x <= 116) && ($mouse.y >= 25) && ($mouse.y <= 39) { drawrect -f @mp3 0 0 65 25 52 15 | drawtext @mp3 1 Tahoma 11 75 25 Dossier } 
  else { drawrect -f @mp3 1 1 65 25 52 15 | drawtext @mp3 0 Tahoma 11 75 25 Dossier } }
  sclick {
    if ($mouse.y < 20) Lectmp3.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
    if ($inrect($mouse.x,$mouse.y,169,1,10,9)) { window -c @mp3 | window -c @pl | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,164,0,10,9)) { window -c @mp3 | window -c @pl | reduc }
    if ($inrect($mouse.x,$mouse.y,26,57,30,15)) { if ( %playlectmp3 != $null ) { splay -p %playlectmp3 | set %lectmpause 0 | .timer 0 1 lectmp3tps
        drawrect -f @mp3 10 10 20 105 139 13  
    drawtext @mp3 1 Tahoma 10 22 105 $left( $+ $nopath( $+ $insong.fname $+ ) $+ ,25) $+ ... } }
    if ($inrect($mouse.x,$mouse.y,125,57,30,15)) { splay stop | drawrect -f @mp3 10 10 74 89 32 13 | drawrect -f @mp3 10 10 20 105 139 13 | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,59,57,30,15)) { if ($insong == $true) { splay pause | set %lectmpause 1 } }
    if ($inrect($mouse.x,$mouse.y,92,57,30,15)) { if (%lectmpause == 1) { splay resume | set %lectmpause 0 } }
    if ($inrect($mouse.x,$mouse.y,65,25,51,14)) {   
      if ($window(@pl)) {
        %dossier = $sdir(*.*,Choisir le dossier,OK!)
        clear @pl
      var %a = $findfile(%dossier,*.mp3*,0,1, .aline -p 10 @pl $nopath($1-)) }
    }
  }
}
On *:close:@mp3:{ unset %lectmpause } 
alias reduc { window -odapBk0z +dL @reduc 0 300 5 90 |  drawfill @reduc 10 10 1 1 |  drawtext @reduc 0 Tahoma 10 2 0 L |  drawtext @reduc 0 Tahoma 10 2 8 E |  drawtext @reduc 0 Tahoma 10 1 16 C |  drawtext @reduc 0 Tahoma 10 2 24 T |  drawtext @reduc 0 Tahoma 10 2 32 E |  drawtext @reduc 0 Tahoma 10 1 40 U |  drawtext @reduc 0 Tahoma 10 2 48 R |  drawtext @reduc 1 Tahoma 10 2 60 M |  drawtext @reduc 1 Tahoma 10 3 68 P |  drawtext @reduc 1 Tahoma 10 3 76 3 }
menu @reduc { 
sclick { window -c @reduc | lectmp3 } }
alias lectmp3tps { if ($window(@mp3)) && ($insong != $false) { set %tpslectmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) | titipopo  } }
alias titipopo {  %tpslectmp3 = $replace( %tpslectmp3 ,secs,) |  %tpslectmp3 = $replace( %tpslectmp3 ,mins, :) |  %tpslectmp3 = $replace( %tpslectmp3 ,sec,) |  %tpslectmp3 = $replace( %tpslectmp3 ,min, :) |  %tpslectmp3 = $replace( %tpslectmp3 , ,) |  drawrect -f @mp3 10 10 74 89 32 13 |  drawtext -p @mp3 1 Tahoma 9 80 90 1,10 $+ %tpslectmp3 }
menu @pl {
dclick {    set %playlectmp3 %dossier $+ $sline(@pl,1)  } }
alias -l Lectmp3.move { if ($window(@mp3)) window @mp3 $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($window(@pl)) window @pl $calc($mouse.dx - $1 - -0) $calc($mouse.dy - $2 - -120) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 Lectmp3.move $1- }