-- Comentario del código, línea a línea.
 
acertaste = Image.load("ms0:/PSP/GAME/LuaPlayerHM7/acertaste.png"); -- tu_yo addon, carga imagen. OK
fallaste = Image.load("ms0:/PSP/GAME/LuaPlayerHM7/fallaste.png");   -- tu_yo addon, carga imagen. OK
 
-- Creación de dos tablas vacías.
preguntas = {};
respuestas = {};
 
-- Insertamos here... las preguntas. Si, en imagen mismamente...
table.insert(preguntas,Image.load("ms0:/PSP/GAME/LuaPlayerHM7/pregunta1.png"));
table.insert(preguntas,Image.load("ms0:/PSP/GAME/LuaPlayerHM7/pregunta2.png"));
table.insert(preguntas,Image.load("ms0:/PSP/GAME/LuaPlayerHM7/pregunta3.png"));
table.insert(preguntas,Image.load("ms0:/PSP/GAME/LuaPlayerHM7/pregunta4.png"));
table.insert(preguntas,Image.load("ms0:/PSP/GAME/LuaPlayerHM7/pregunta5.png"));
--[...] 
-- En caso de HM, pues hasta las que aguante, en otro luaplayer, recomendaría
-- dejar sólo la ruta, y cargarlas pregunta a pregunta, dónde indicaré más adelante.
 
-- Insertamos, las respuestas. No sobreescribimos, no borramos nada, simplemente
-- insertamos, al final, una respuesta, que es una tabla. En lua es completamente
-- legal insertar tablas en tablas, y mas tablas en otras tablas... y tablas sobre tablas...
-- Hasta k nos quedemos sin memoria, o sin imaginación.
-- Formato de la respuesta:
--   { -- array con CUATRO posibles soluciones
--  { ¿CORRECTA?, TEXTO_RESPUESTA }
--  { ¿CORRECTA?, TEXTO_RESPUESTA }
--  { ¿CORRECTA?, TEXTO_RESPUESTA }
--  { ¿CORRECTA?, TEXTO_RESPUESTA }
-- }
-- Correcta será un número: 0 = incorrecta, 1 = correcta.
-- Texto pues... queda claro, la respuesta en sí, que el usuario leerá.
 
table.insert(respuestas, { { 0, "Del cielo" }, { 0, "Del huerto" }, { 1, "De sus madres" }, { 0, "Vienen del espacio exterior" } } );
table.insert(respuestas, { { 0, "Del cielo" }, { 0, "Del huerto" }, { 1, "De sus madres" }, { 0, "Vienen del espacio exterior" } } );
table.insert(respuestas, { { 0, "Del cielo" }, { 0, "Del huerto" }, { 1, "De sus madres" }, { 0, "Vienen del espacio exterior" } } );
table.insert(respuestas, { { 0, "Del cielo" }, { 0, "Del huerto" }, { 1, "De sus madres" }, { 0, "Vienen del espacio exterior" } } );
 
 
-- INICIAMOS aquí nuestro script, bien, preparemos las variables...
voypor = 1; -- Si, akabamos de empezar, vamos por la PRIMERA pregunta.
 
-- Ey! Esto pinta raro... Pero NO, no habrán más repuestas que soluciones.
-- Pues son tablas, no se cuentan por separado, se cuentan por insercioens en
-- la tabla madre respuestas, no dentro de cada sub-tabla.
-- Igualmente, este math.min() es un preventor por si acaso, alguien se cuela
-- escribiendo distinto número de preguntas y de respuestas, así, sólo se mostraran
-- las coincidientes. ( Si las insertó en el orden correcto ).
total = math.min( table.maxn(preguntas), table.maxn(respuestas) );
 
-- Simple sistema de puntuación.
aciertos = 0;
fallos = 0;
 
-- Simple aleatorización de la semilla generadora de números aleatorios.
math.randomseed(os.time());
 
-- Iniciar pad y oldpad. Mera simplificación para que luego no nos dé
-- que oldpad es nil en las próximas comprobaciones. (pues se setea el último en cada ciclo). 
pad = Controls.read();
oldpad = Controls.read();
 
-- Mientras VAYA POR una pregunta que sea MAS PEQUEÑA O IGUAL que la ULTIMA. ( lógico )
while voypor <= total do 
 
	-- Aquí iria la inialización del frame, por ejemplo la carga de la imagen
	-- de la pregunta como anteriormente comenté, o lo que queramos. Aquí preparamos
	-- todo para la pregunta que vendrá a continuación.
 
	-- ALEATORIZACIÓN DE RESPUESTA EN BOTÓN DISTINTO CADA VEZ.
	-- t == triangulo
	-- c == cuadrado
	-- r == redonda o círculo
	-- x == cruz o equis.
 
	t,c,r,x = nil, nil, nil, nil;
 
	-- Ei! 3 intentos por ciclo? (dev addon de ahora...)
	intentos = 3;
 
	-- MIENTRAS "el boton" sea igual a cualquier otro boton, o vacío HACER dar número aleatorio. FIN
	-- Al final de este bloque los botones tendrán un número del 1 al 4, pero TODOS DISTINTOS LOS UNOS
	-- DE LOS OTROS. Gracias.
	while ( t==nil or t==c or t==r or t==x ) do t = math.random(1,4); end
	while ( c==nil or c==t or c==r or c==x ) do x = math.random(1,4); end
	while ( r==nil or r==t or r==c or r==x ) do r = math.random(1,4); end
	while ( x==nil or x==t or x==c or x==r ) do x = math.random(1,4); end
 
	-- YA tenemos los botones aleatorizados. podemos comenzar a mostrar la pregunta.
 
	-- MIENTRAS SIEMPRE HACER
	while true do
		pad = Controls.read();			-- Leer controles...
		screen:clear();					-- Limpiar pantalla.
		screen:blit(1,1, preguntas[voypor]);	-- Mostrar IMAGEN de la PREGUNTA en la que VOY POR.
 
		-- No recuerdo la función del texto. Pondré "PRINTEAR", ya lo cambiais por lo que sea en HM.
		-- Recordemos que las repuestas, tienen 4 sub-tablas (los 4 botones)
		-- Y la tabla de cada boton es [1] = correcto? [2] = texto.
		printear(30,130, " X :"..respuestas[voypor][x][2]);
		printear(30,160, " [] : "..respuestas[voypor][c][2]);
		printear(30,190, " () : "..respuestas[voypor][r][2]);
		printear(30,220, " /\ : "..respuestas[voypor][t][2]);
 
		-- Texto pintado, imagen pintada... volteamos la pantalla.
		screen.Waitvblankstart(); -- o como sescriba...
		screen.flip(); -- idem.
 
		-- De los controles sólo explicaré uno, el resto es igual,
		-- cambiando simplemente la variable.
 
		-- SI pulsamos X Y NO pulsabamos X antes HACER
		if pad:cross() and not oldpad:cross() then
			-- Si la repuesta en la que voy por, de entre ellas,
			-- la que es la X, es correcta...
			if respuestas[voypor][x][1] == 1 then 
				system.message("HAS ACERTAO!",0);
				aciertos = aciertos + 1;
				-- EI! ¿ un break ? que se ha roto?
				-- Pues el WHILE TRUE. Se rompe. así k pasariamos a la liberacion del
				-- frame actual, más abajo, ya lo volveré a indicar.
				break;
			else 
				-- Pues fallaste, un intento menos, y seguimos aquí. no break.
				fallos = fallos + 1;
				intentos = intentos - 1;
			end
		end
 
		if pad:circle() and not oldpad:circle() then
			if respuestas[voypor][r][1] == 1 then
				system.message("HAS ACERTAO!",0);
				aciertos = aciertos + 1;
				break;
			else 
				fallos = fallos + 1;
				intentos = intentos - 1;
			end
		end
 
		if pad:triangle() and not oldpad:triangle() then
			if respuestas[voypor][t][1] == 1 then
				system.message("HAS ACERTAO!",0);
				aciertos = aciertos + 1;
				break;
			else 
				fallos = fallos + 1;
				intentos = intentos - 1;
			end
		end
 
		if pad:square() and not oldpad:square() then
			if respuestas[voypor][c][1] == 1 then
				system.message("HAS ACERTAO!",0);
				aciertos = aciertos + 1;
				break;
			else 
				fallos = fallos + 1;
				intentos = intentos - 1;
			end
		end
 
	if intentos <= 0 then break; end -- NO MAS INTENTOS. SIguienteee!
 
	oldpad = pad;	-- Viejo pad...
	-- AKI AKABA EL WHILE TRUE
	end 
 
	-- AKI ESTAMOS, DESPUES DE HACER BREAK!
	-- Asi que aquí liberamos, si necesitaramos, la imagen del frame anterior.
 
	-- Y preparamos las nuevas variables...
	voypor = voypor + 1;	-- Siguiente preguntaa
end
 
-- AKI FIN DE LAS PREGUNTAS, MOSTRAR PUNTUACIÓN
-- NO SE... TABLAS DE MEJORES RESULTADOS...
-- Y ALGUNA PANTALLITA DE CREDITOS.

table.insert(respuestas, { { 0, "Del cielo" }, { 0, "Del huerto" }, { 1, "De sus madres" }, { 0, "Vienen del espacio exterior" } } );