--Empezamos bucle y funcion
 
opcion1 = image.load("Chistes/Chiste1.png")
opcion2 = image.load("Chistes/Chiste2.png")
opcion3 = image.load("Chistes/Chiste3.png")
opcion4 = image.load("Chistes/Chiste4.png")
opcion5 = image.load("Chistes/Chiste5.png")
opcion6 = image.load("Chistes/Chiste6.png")
opcion7 = image.load("Chistes/Chiste7.png")
opcion8 = image.load("Chistes/Chiste8.png")
opcion9 = image.load("Chistes/Chiste9.png")
opcion10 = image.load("Chistes/Chiste10.png")
 
opcion_actual = 1
 
while true do
image.clear()
controls.read()
function cambiaopcion()  
if opcion_actual == 1 then
image.blit(0,0,opcion1)
end
if opcion_actual == 2 then
image.blit(0,0,opcion2)
end
if opcion_actual == 3 then
image.blit(0,0,opcion3)
end
if opcion_actual == 4 then
image.blit(0,0,opcion4)
end
if opcion_actual == 5 then
image.blit(0,0,opcion5)
end
if opcion_actual == 6 then
image.blit(0,0,opcion6)
end
if opcion_actual == 7 then
image.blit(0,0,opcion7)
end
if opcion_actual == 8 then
image.blit(0,0,opcion8)
end
if opcion_actual == 9 then
image.blit(0,0,opcion9)
end
if opcion_actual == 10 then
image.blit(0,0,opcion10)
end
if controls.r() and controls.press("r") then
opcion_actual = opcion_actual +1
end
if controls.r() and controls.press("r") and opcion_actual >= 10 then
dofile("script2.lua")
end
end
cambiaopcion()
screen.waitvblankstart()
screen.flip()
end