function reproducir_sonido()
 
	rutas = workDir; -- rutas es una tabla con las rutas del directorio actual
	sonido_actual = 1; -- Nos indica en que sonido estamos
	sonido = nil; -- Iniciamos el sonido en nil
 
	sonidos = {}; -- Creamos nuestra tabla, que almacenará las rutas de nuestros sonidos
 
	for i = 1, #rutas do 
		if string.lower(files.ext(rutas[i].name)) == "mp3" or string.lower(files.ext(rutas[i].name)) == "wav" then -- Esto es solo con los dos principales formatos, recuerda que lua dev soporta 4
			table.insert(sonidos,rutas[i].name); -- Introducimos las rutas en la tabla
		end
	end -- Ok, hasta ahora ya tenemos nuestras rutas.
 
	while true do
 
		controls.read();
 
		if controls.press("cross") and sonido:playing() == false then -- Si presionamos equis y no hay sonido reproduciondose
			sonido = sound.load(sonidos[sonido_actual].name); -- Cargamos el sonido actual
			sonido:play(); -- Reproducimos el sonido
		end
 
		if controls.press("r") then
			sonido:stop(); -- Paramos el sonido actual
			sonido:free(); -- Lo liberamos
			sonido_actual = sonido_actual + 1; -- Avanzamos de sonido
			sonido = sound.load(sonidos[sonido_actual].name); -- Cargamos el sonido
			sonido:play(); -- Lo reproducimos
		elseif controls.press("l") then
			sonido:stop(); -- Paramos el sonido actual
			sonido:free(); -- Lo liberamos
			sonido_actual = sonido_actual - 1; -- Decrementamos de sonido
			sonido = sound.load(sonidos[sonido_actual].name); -- Cargamos el sonido
			sonido:play(); -- Lo reproducimos
		end
 
	end
 
end
end

pistas = {
"rutas",
"a las",
"canciones",
"que reproduciré",
"xD"
}
cancion,current = 1,0  --current me va decir q canción se está reproduciendo actualmente (la pongo a 0 para q se cargue al llamar a la función por primera vez).
 
function player() 
      if controls.press("up") then cancion=cancion - 1 end
      if controls.press("down") then cancion=cancion + 1 end
      if cancion < 1 then cancion=#pistas end
      if cancion > #pistas then cancion=1 end
--Va la parte mágica...
  if controls.press("cross") and cancion ~= current then
    if snd then --Por si se está reproduciendo la pista o ya estaba cargada...
      snd:stop() 
        snd:free() 
          collectgarbage("collect")
    end 
      snd = sound.load(pistas[cancion])
        snd:play()
      current = cancion
  end
end