Encore un lecteur mp3...

Commenter

Contenu du snippet

Bah... c'est un lecteur MP3 !

Source / Exemple : 


;;;;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)
}

Conclusion :


Heu... j'avais rien a faire et comme j'ai pas mis beaucoup de sources... ( juste une autre ) j'ai fais ce Lecteur mp3 !
Si y a des bugs, dites le moi !

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Tommlkj)