Bueno amigos de scenebeta me he decido ha  escribir este tuto, debido a que veo muchos post sobre preguntas de cómo hacer un explorador, todo esto bajo LuaDEV, espero resolver sus dudas con esto, ya que un explorador es muy importante a la hora de elaborar un homebrew… bueno eso también depende de su uso xD pero ustedes saben xD manos a la obra :D

Primero declaramos las variables que utilizaremos.

posicion 	= 1
limiteInf 	= 1
Chocolate 	= color.new(210,105,30)
negro 		= color.new(0,0,0)
blanco 		= color.new(255,255,255)
rojo 		= color.new(255,0,0)
workDir 	= files.list("ms0:/")

 “posicion” será nuestra variable que nos indicara en que lugar nos encontramos. Ejemplo, si nos encontramos adentro de una carpeta con 10 archivos con “posicion” sabremos en que archivo estamos posicionados indicado por un numero entero:

posicion 	= 1

 “limiteInf” esta variable nos ayudara hacer el famoso scroll, para que quede un poco mas claro la variable se llama “Limite Inferior” obvio verdad xD esto marcara el inicio de donde se comenzara a imprimir los elementos de nuestra tabla esta variable no es “x”, ya veras su uso mas adelante ;)

limiteInf 	= 1

Declaramos nuestros colores, siempre tomando en cuenta el post de xerpi aquí recuerda que esto es a tu gusto:

Chocolate 	= color.new(210,105,30)
negro 		= color.new(0,0,0)
blanco 		= color.new(255,255,255)
rojo 		= color.new(255,0,0)

Y por ultimo nuestro directorio de trabajo “workDir” si observas hemos utilizado una función de LuaDEV files.list() siempre revisa la documentación =_= files.list() es una función que nos lista los elementos de una carpeta, en otras palabras guarda en una tabla o array la dirección de los archivos que se encuentran en ella. En este caso files.list("ms0:/") guardara en una tabla todos los archivos que hay en la raíz de la memoria:

workDir 	= files.list("ms0:/")

Ahora haremos la función que recorrerá nuestra tabla donde están guardadas las direcciones de los archivos.

function opciones()
	x 		= 10
	y 		= 13
	lugar 	= workDir[posicion].name
	for i= limiteInf, #workDir do
		if posicion == i  then
			screen.print(x,y,files.nopath(workDir[i].name),0.6,negro,blanco)
		else 
			screen.print(x,y,files.nopath(workDir[i].name),0.6,blanco,0x0)
		end
		y 	= y + 13
	end
end

Declaramos nuestras variables de ubicación “x” & “y” con ellas se ubicara el texto donde tu lo asignes, te recomiendo estos valores; específicamente el de “y” debidos a las condiciones del scroll, pero tu fácilmente lo puedes modificar:

x = 10
y = 13

“lugar” se me acabo la imaginación xD asi que lo llame “lugar” esta variable almacena el lugar o archivo donde nos encontramos, no la posición, si no el nombre de la carpeta o archivo donde estamos posicionados:

lugar = workDir[posicion].name

Haremos el bucle que recorrerá nuestra tabla he imprimirá los nombres de los archivos:

for i= limiteInf, #workDir do

Esta es la estructura básica de un for: “for inicio, final do” esto sin contar el “end” que cierra el bucle. Esto quiere decir que nuestro for iniciara en 1(limiteInf = 1) y llegara hasta el tamaño de nuestra tabla; en Lua si antepones un # a una tabla, obtienes el valor de índices que hay en ella. 

Ahora haremos la condición que imprimirá nuestras opciones:

if posicion == i  then
	screen.print(x,y,files.nopath(workDir[i].name),0.6,negro,blanco)
else 
	screen.print(x,y,files.nopath(workDir[i].name),0.6,blanco,0x0)
end
y 	= y + 13

He decidido no explicar esta sección para que lean la documentación xD aunque yo en un tutorial anterior explique como funciona esto, pero no seria malo que repasaras la docu ;)

Vamos con la función para navegar por las opciones:

function navegador()   
	if controls.press("down") and posicion ~= #workDir then
		posicion = posicion + 1
		if posicion > 19 then limiteInf = limiteInf + 1 end
	end
	if controls.press("up") and posicion > 1 then  
		posicion = posicion - 1
		if posicion > 18 then limiteInf = limiteInf - 1 end
	end
end

Ocuparemos una condición la cual, si presionas abajo o arriba ejecutara una acción. Si has leído tutoriales de programación o traes algunas bases de otros lenguajes, sabrás sobre el operador booleano “and” que en Lua se escribe de la misma manera. El operador “and” es una conectiva que puede definirse como verdadera, sólo cuando ambas proposiciones sean verdaderas. Para que entiendas mejor veamos nuestra condición:

if controls.press("down") and posicion ~= #workDir then

si presionas abajo y(and) la variable posición es diferente que #workdir entonces…

Solo si se cumplen las dos condiciones se hará lo que deseamos. 

Ahora que ya entendemos por que ocupamos el operador “and” explicare por que “la variable posición tiene que ser diferente que #workdir” por que si “posicion” aumentara mas que el numero de índices de la tabla, nos daría error; por que buscaría variables en una tabla con índices que no existen.

Si eso se cumple ejecutamos lo siguiente.

Ya que cambiamos de archivo necesitamos cambiar también la posición en la que nos encontramos.

posicion = posicion + 1

Ahora aquí viene nuestro famoso scroll :D

if posicion > 19 then limiteInf = limiteInf + 1 end

He declarado 19 por el tamaño de letra que he asignado y el espacio entre cada impresión, si hay más de 19 archivos no podremos verlos todos. Recuerda nuestro for de impresión (for i= limiteInf, #workDir do) nuestra variable “limiteInf” empezaba en 1 y con esto se sumara tantas veces sea necesario, es decir que ya no imprimirá mis archivos desde el primero, si no desde lo indique “limiteInf” eso hará nuestro famoso scroll :D fácil verdad.

La segunda condición es lo mismo pero esta se cumplirá si presionas arriba y si “posicion” es mayor que 1, por que, si esta variable llega a cero, nos dará un error. Y el Scroll de este es igual solo que inverso, en ves de sumarle a “limiteInf” se resta1.

Vamos a nuestra función para entrar a las carpetas :D

function adelante()
	if workDir[posicion].directory then
		posicion 	= 1
		limiteInf 	= 1
		workDir 	= files.list(lugar)
	end
end

En esta función, realizamos una condición que verificara, si donde nos encontramos (posición) es una carpeta o un archivo, esto lo sabemos colocando “.directory” a la tabla que almacena nuestros archivos listados.

Luego colocamos las variables “posicion” y “limiteInf” en 1 para que no haya errores de índices no encontrados en la tabla que listamos con:

workDir 	= files.list(lugar)

Si se recuerdan “lugar” mantenía el nombre de donde estamos ubicados, esto al pasárselo al file.list() listara lo que hay en la carpeta. Fácil no? x’D 

Vamos con la funcion atras:

function atras()
   posicion 	= 1
   limiteInf 	= 1
   workDir 		= files.list(files.nofile(files.nofile(lugar)))
end

con esto nosotros podes regresar, de alguna carpeta en la que nos hayamos metido y siempre colocamos las variables “posicion” y “limiteInf” en 1 para que no haya errores de índices que no existen en la tabla que listamos con

workDir 	= files.list(files.nofile(files.nofile(lugar)))

la funcion files.nofile() sirve para quitar el archivo a una ruta, pero no solo eso, puede seguir quitando hasta directorios… como asi? Veamos con un ejemplo:

Nos encontramos en la carpeta “demo” posicionados en el archivo “script.lua”

“ms0:/PSP/GAME/demo/script.lua”

Si nosotros aplicamos la función files.nofile() ha esa cadena nos quedaría:

“ms0:/PSP/GAME/demo/”

 Pero eso no es suficiente, por que si listamos eso, nos quedaremos en el mismo lugar, ya que estamos en esa misma carpeta. Entonces volvemos aplicar la misma función files.nofile() y nos quedaría asi

“ms0:/PSP/GAME/”

Al listar eso, estaremos un directorio arriba de donde nos econtramos. Yo se LuaDEV es lo máximo x’D

Bueno espero poder ayudarles con este tutorial, respondiendo algunas o todas sus dudas sobre este tema, le he puesto algunos efectos (solo son colores x'D) para que no se vea tan cutre, esto es el gusto del programador :3 se que el código se podría simplificar mas, pero como dije es gusto del programador :3

Cualquier duda o comentario es bienvenido : D

Les pongo el codigo completo para que lo examinen, lo demas no lo explico por que seria de sobra:

posicion 	= 1
limiteInf 	= 1
Chocolate 	= color.new(210,105,30)
negro 		= color.new(0,0,0)
blanco 		= color.new(255,255,255)
rojo 		= color.new(255,0,0)
workDir 	= files.list("ms0:/")
function opciones()
	x 		= 10
	y 		= 13
	lugar 	= workDir[posicion].name
	for i= limiteInf, #workDir do
		if posicion == i  then
			screen.print(x,y,files.nopath(workDir[i].name),0.6,negro,blanco)
		else 
			screen.print(x,y,files.nopath(workDir[i].name),0.6,blanco,0x0)
		end
		y 	= y + 13
	end
end
function navegador()   
	if controls.press("down") and posicion ~= #workDir then
		posicion = posicion + 1
		if posicion > 19 then limiteInf = limiteInf + 1 end
	end
	if controls.press("up") and posicion > 1 then  
		posicion = posicion - 1
		if posicion > 18 then limiteInf = limiteInf - 1 end
	end
end
function adelante()
	if workDir[posicion].directory then
		posicion 	= 1
		limiteInf 	= 1
		workDir 	= files.list(lugar)
	end
end
function atras()
   posicion 	= 1
   limiteInf 	= 1
   workDir 		= files.list(files.nofile(files.nofile(lugar)))
end
while true do
	controls.read()
	navegador()
	draw.gradrect(0,0,480,272,Chocolate,Chocolate,negro,negro)
	opciones()
	screen.flip()
	if controls.press("cross") then
		adelante()
	end
	if controls.press("circle") then
		atras()
	end
end