ace = Image.load("/Stand_Ace_Der_1.png") --sprtite 
dofile("/colores.lua") -- vectores con colores
 
 
 suelo = Image.createEmpty(480,10)
suelo:clear(color.verde)
 
--personaje--
personaje1 = ace
 
 -- obstaculos cajas
 cajas = Image.createEmpty(20,20)
 cajas:clear(color.verde)
 caja = {}
 caja[1] = { x = 180, y = 242, height = cajas:height(), width = cajas:width() }
 caja[2] = { x = 380, y = 202, height = cajas:height(), width = cajas:width() }
 caja[3] = { x = 450, y = 142, height = cajas:height(), width = cajas:width() }
--Array del personaje.
personaje = {}
personaje.y = 169
personaje.x = 50
personaje.velocidadSalto = 10
personaje.estadoSalto = "suelo"
personaje.estadoColision = "Normal"
personaje.width =  ace:width() 
personaje.height =  ace:height()
 
 function comprobarColision(object)
 --separar if para evitar minisalto al solo colisionar en x
 if (personaje.x + personaje.width > object.x) and (personaje.x < object.x + object.width)and  (personaje.y + personaje.height > object.y) and (personaje.y < object.y + object.height)  then
personaje.x = oldx
personaje.y = oldy
--insertar if para suelificar y evitar caida infinita
--if personaje.x > object.x and personaje.y > object.y and personaje.x < object.x + object.width and personaje.y < object.y + object.height then
personaje.estadoSalto = "suelo"
elseif personaje.y ~= 169 then
personaje.estadoSalto = "suelo"
end
end
 
 
 
 
--Bucle principal-----------Bucle principal-------Bucle principal-------Bucle principal-------Bucle principal-------Bucle principal-------Bucle principal-----------------------------------------------------------------------------------------------------------------------
while true do
oldx = personaje.x
oldy = personaje.y
  pad = Controls.read()
  screen:clear()
 
if pad:left() then
     personaje.x = personaje.x - 2
 
 
  end
  if pad:right() then
     personaje.x = personaje.x + 2
 
  end
 
if pad:cross() and personaje.estadoSalto == "suelo" then
     personaje.estadoSalto = "saltando"
	 personaje.xinicio = personaje.x
  end
 
if personaje.estadoSalto == "saltando" then
     personaje.velocidadSalto = personaje.velocidadSalto - 0.5
     personaje.y = personaje.y - personaje.velocidadSalto
  end
 
if personaje.velocidadSalto < 0 then
     personaje.estadoSalto = "cayendo"
  end
 
if personaje.y < 169 and personaje.estadoSalto == "cayendo" then
     personaje.velocidadSalto = personaje.velocidadSalto + 0.5
     personaje.y = personaje.y + personaje.velocidadSalto
  end
if personaje.y > 169 then personaje.y = 169 end
personaje.y = personaje.y 
comprobarColision(caja[1])
comprobarColision(caja[2])
comprobarColision(caja[3])
screen:blit(personaje.x,personaje.y,personaje1)
  screen:blit(0,262,suelo)
 screen:print(280,10, "Tamaño Ace:" .. ace:height() .. "x" .. ace:width(), color.celeste)
screen:print(10,10,"X: "..personaje.x.." Y: "..personaje.y,color.verde)
  screen:print(10,20,"estadoSalto: "..personaje.estadoSalto,color.verde)
  screen:print(10,30, "Estado Colision:" .. personaje.estadoColision, color.rojo)
 
 for a = 1,3 do 																	---blitear bloques
screen:blit(caja[a].x,caja[a].y,cajas)
end
 
 
 
if personaje.y == 169 then -- detiene el salto
     personaje.velocidadSalto = 10
     personaje.estadoSalto = "suelo"
 
  end
screen.waitVblankStart()
  screen.flip()
end