--Idea original de DeViAnte
--completado por tu_yo(lo ha intentado)
 
preguntas = {};
respuestas = {};
table.insert(preguntas,"De donde salen los niños?");
table.insert(respuestas, { { 0, "Del cielo" }, { 0, "Del huerto" }, { 1, "De sus madres" }, { 0, "Vienen del espacio exterior" } } );
 
voypor = 1;
total = math.min( table.maxn(preguntas), table.maxn(respuestas) );
math.randomseed(os.time());
 
while voypor <= total do 
 
 
     cross, circle, triangle, square = nil, nil, nil, nil;
     while ( ( cross == triangle ) or ( cross == nil) or ( cross == square ) or ( cross == circle) ) do cross =math.random(1,4); 
     end
     while ( ( circle == triangle ) or ( circle == nil) or ( circle == square ) or ( circle == cross ) ) do circle = math.random(1,4); 
     end
     while ( ( triangle == nil) or ( triangle == square) or ( triangle == circle) or ( triangle == cross ) ) do triangle =math.random(1,4); 
     end 
     while ( ( square == nil) or ( square == triangle ) or ( square == circle) or ( square == cross ) ) do square =math.random(1,4); 
     end
 
      while true do
      pad = Controls.read()
      screen:clear()
 
         pad = Controls.read()  
         screen:print(1,1, preguntas[voypor]);
 
 
         screen:print(75,25, respuestas[voypor][1][1] );
         screen:print(75,50, respuestas[voypor][2][2] );
         screen:print(75,75, respuestas[voypor][3][3] );
         screen:print(75,100, respuestas[voypor][4][4] );
 
       if triangle == 3 then 
          triangle = [3] 
       end
       if circle == 2 then
          circle = [2] 
       end
       if square == 4 then 
          square = [4] 
       end
       if cross == 1 then
          cross = [1] 
       end
 
       if pad:triangle() and not oldpad:triangle() then 
         if respuestas[voypor][triangle][1] == 1 then preguntas[1] = acertaste else preguntas[1] = fallaste end
       end
 
       if pad:circle() and not oldpad:circle() then 
         if respuestas[voypor][circle][2] == 1 then preguntas[1] = acertaste else preguntas[1] = fallaste end 
       end
 
       if pad:square() and oldpad:square() then 
         if respuestas[voypor][square][3] == 1 then preguntas[1] = acertaste else preguntas[1] = fallaste end
       end
 
       if pad:cross() and oldpad:cross()  
         if respuestas[voypor][cross][4] == 1 then preguntas[1] = acertaste else preguntas[1] = fallaste end 
       end
 
      end 
      voypor = voypor + 1; 
 
end
-- ¿alguien sabe que tecla contiene este signo?