[scripts] Lecteur MP3

//on stoque la jaquette dans une varialbe
global.MP3_Jacket=bck_MP3_Jacket;

//on définit le dossier d'utilisation
DIR=working_directory+"\MP3\";

//on cherche le premier MP3
a=file_find_first(DIR+"*.mp3",0);

//et on le stoque dans une liste
global.MP3_list[0]=DIR+string_copy(a,1,string_length(a)-4);

//variables...
var a,stop;
a=1;
stop=false;

//boucle de chargement des MP3
while (stop=false)
{
//on cherche le MP3 suivant
T=file_find_next();

//si il n'y en à pas
if T=""
{
//on arrête la recherche
stop=true
}else{
//sinon, on l'ajoute
global.MP3_list[a]=DIR+string_copy(T,1,string_length(T)-4);
}
a+=1;
}

//on stoque le nombre de MP3
nb_dir=a-1;
global.MP3_nb=a-1;
//on ferme la recherche
file_find_close();

//en argument, le numéro de la musique
if (argument0<=global.MP3_nb)
{
//on charge le MP3
sound_replace(snd_MP3,global.MP3_list[argument0]+".mp3",0,2);
//on change l'image de la jaquette
if (file_exists(global.MP3_list[argument0]+".bmp")) {background_replace(bck_MP3_Jacket,global.MP3_list[argument0]+".bmp",0,0,1);}
//on lit le MP3
sound_play(snd_MP3);
}