ENCORE UN LECTEUR MP3...

;;;;Lecteur MP3 Par Tom_mlkj;;;;


;Met dans la menubar un raccourci...

menu menubar {
  Tom_mlkjMP3:.dialog -m Tom_mlkj.mp3 Tom_mlkj.mp3
}

;Le dialog

dialog Tom_mlkj.mp3 {
  title ".:: MP3 :: Tom_mlkj ::."
  size -1 -1 119 137
  option dbu
  button "Play", 1, 2 6 28 9
  button "Pause", 2, 31 6 28 9
  button "Reprendre", 3, 60 6 28 9
  button "Stop", 4, 89 6 28 9
  edit "", 5, 1 21 117 10, read autohs center
  edit "", 6, 1 31 117 10, read autohs center
  edit "", 7, 1 41 117 10, read autohs center
  list 8, 1 54 117 58, size
  check "", 9, 1 127 109 9
  button "Dossier", 10, 13 113 37 12
  button "", 11, 0 0 0 0, hide ok
  text "Volume :", 12, 62 115 22 8
  button "+", 13, 91 115 8 8
  button "-", 14, 101 115 8 8
}

;Lors du chargement du lecteur, ces commandes s'effectue...

On *:dialog:Tom_mlkj.mp3:init:*:{
  if ( %Tom_mlkj.mp3 == on ) { did -c Tom_mlkj.mp3 9 }
  if ( %Tom_mlkj.mp3 == off ) { did -u Tom_mlkj.mp3 9 }
  did -a Tom_mlkj.mp3 9 $me écoute...
  if ( $exists( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) ) = $false ) {
    set %dir $sdir(E:\anime,Repertoire des Mp3)
    $findfile(%dir,*.mp3,0,son $1-) 
  }
  else { 
    /write -c mp3.txt 
    if ( $findfile(%dir,*.mp3,0,son $1-) != $null ) { did -a Tom_mlkj.mp3 8 $1- }
  }
}

;Ecriture dans un fichier texte tous vos mp3 qui sont dans le dossier que vous avez choisi

alias son {
  .write $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34)  $1-
  .did -a Tom_mlkj.mp3 8 $nopath($1-) 
}
On *:dialog:Tom_mlkj.mp3:sclick:10:{
  .remove   $chr(34)   $+ $mircdir $+ mp3.txt $+ $chr(34) 
  set %dir $sdir(E:\anime,Repertoire des Mp3)
  did -r Tom_mlkj.mp3 8
  if ( $findfile(%dir,*.mp3,0,son $1-) != $null ) { did -a Tom_mlkj.mp3 8 $1- }
}

;Bouton PLAY

On *:dialog:Tom_mlkj.mp3:sclick:1:{
  if ( %MP3 == $null ) { echo -a 5,1Lecteur MP3 - Tu n'as pas choisie de MP3. | halt }
  if ( $server == $null ) { splay -p %mp3 | .timerTom 0 1 Tom_mlkj.mp3 | halt }  
  if ( $server != $null ) && ( %Tom_mlkj.mp3 == on ) { /splay -p %MP3 | /ame écoute 12||9,1 $nopath(%MP3) 12||9,1 Lecteur MP3 par Tom_mlkj 12||  | .timerTom 0 1 Tom_mlkj.mp3 | halt }
  if ( $server != $null ) { splay -p %mp3 | .timerTom 0 1 Tom_mlkj.mp3 | halt }
}
;Bouton PAUSE
ON *:dialog:Tom_mlkj.mp3:sclick:2:{
  .splay pause
}
;Bouton REPRENDRE
On *:dialog:Tom_mlkj.mp3:sclick:3:{
  .splay resume
}
;Bouton STOP
On *:dialog:Tom_mlkj.mp3:sclick:4:{
  .splay stop
}

;Pour la selection du mp3 dans la playlist et les informations comme la durée du mp3, le nom du mp3 et la taille en Mo

On *:dialog:Tom_mlkj.mp3:sclick:8:{
  set %mp3_num $did(Tom_mlkj.mp3,8).sel
  set %mp3 $read(mp3.txt , %mp3_num)
  did -r Tom_mlkj.mp3 5
  did -a Tom_mlkj.mp3 5 $nopath(%MP3).sel
  did -r Tom_mlkj.mp3 6
  did -a Tom_mlkj.mp3 6 $round($calc($lof(%mp3) / 1000000),2) Mo
  did -r Tom_mlkj.mp3 7
  did -a Tom_mlkj.mp3 7 $duration($left($mp3(%mp3).length,3))
}
alias Tom_mlkj.mp3 {
  if ($dialog(Tom_mlkj.mp3)) { 
    set %Tom_mlkj $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) 
    did -r Tom_mlkj.mp3 7
    did -a Tom_mlkj.mp3 7 %Tom_mlkj sur $duration($left($mp3(%mp3).length,3))
    if ( %Tom_mlkj == 0 ) { .timerTom off }
  }
  else { halt }
}

;Pour séléctionner si vous voulez dire automatiquement le mp3 joué sur tous les chan où vous vous trouvez...

On *:dialog:Tom_mlkj.mp3:sclick:9:{
  if ($did(9).state = 1 ) { .set %Tom_mlkj.mp3 on }
  else { .set %Tom_mlkj.mp3 off }
}

;Le volume

On *:dialog:Tom_mlkj.mp3:sclick:13:{
  vol -p $calc($vol(mp3) + 5000)
}
On *:dialog:Tom_mlkj.mp3:sclick:14:{
  vol -p $calc($vol(mp3) - 5000)
}