ayuda para codigo!! PSP

dofile("comp.LUA")
pad = controls.read()
--contadores
comadera = Timer.new()--contador madera milisegundos
copiedra = Timer.new()--contador piedra milisegundos
cobarro = Timer.new()--contador barro milisegundos
cepp = Timer.new()-- contador edificio principal milisegundos
cuartell = Timer.new()-- contador cuartel milisegundos
cmadera = math.floor( comadera:time() / 1000 )--para conseguir en segundos madera
cpiedra = math.floor( copiedra:time() / 1000 )--para conseguir en segundos piedra
cbarro = math.floor( cobarro:time() / 1000 )--para conseguir en segundos barro
cep = math.floor( cepp:time() / 1000 )--para conseguir en segundos edificio principal
ccuart = math.floor( cuartell:time() / 1000 )--para conseguir en segundos cuartel
-----------------

function recursos()
if cmadera == tmadera then
madera = madera + 1
cmadera:reset(0)
cmadera:start
end
if cbarro == 5 then
barro = barro + 1
cbarro:reset(0)
cbarro:start
end
if cpiedra == 5 then
piedra = piedra + 1
cpiedra:reset(0)
cpiedra:start
end
if madera == almacen then
color1 = rojo
comadera:stop()
mmadera = 1
else color1 = blanco
end
if mmadera = 1 then
comadera:start()
end
if piedra == almacen then
color2 = rojo
end
if barro == almacen then
color3 = rojo
end

end
function cursosr()
if pad:up() and oldpad:up() =~ pad:up() then -- para cursor
y = y - 1
end
if pad:down() and oldpad:down() =~ pad:down() then
y = y + 1
end
if pad:left() and oldpad:left() =~ pad:left() then
x = x - 1
end
if pad:right() and oldpad:right() =~ pad:right() then
x = x + 1
end

end

while true do
screen:clear()
oldpad = controls.read()
screen:blit(0,0,fondo)
screen:blit(x,y,cursor)
screen:print(257, 44,madera, color1)
screen:print(383, 44,piedra, color2)
screen:print(321, 44,barro, color3)
screen:blit(0,262,barra)
comadera:start()--encendemos
copiedra:strat()--encendemos
cobarro:start()--encendemos
cursor()
recursos()
if pad:cross() and oldpad:cross() ~= pad:cross() and x < 100 and x > 1 and y < 38 and y > 5 then-- para entrar en el ep
ep = 1
end
if pad:cross() and oldpad:cross() ~= pad:cross() and x < 160 and x > 100 and y < 38 and y > 5 then-- para entrar en el cuartel
cuart = 1
end

-- empezamos con el edificio principal
if ep == 1 then
while true do
screen:clear()
oldpad = controls.read()
x = 240
y=172
screen:print(454,57,lvlep1,negro)
screen:print(454,118,lvlcuart1,negro)
screen:blit(0,0,iep)
screen:blit(x,y,cursor)
screen:blit(0,262,barra)
cursor()
recusos()
if pad:R() and oldpad:R() =~ pad:R() then
break
end

--construir ep
-- ¡¡CORDENADAS MAL; IMAGEN EP SIN ALGUNOS EDIFICIOS!!

if pad:cross() and oldpad:cross() ~= pad:cross() and x < 479 and x > 401 and y < 72 and y > 43 then -- para construir en ep
if lvlep = 1 and madera >= 90 and piedra >= 80 and barro >= 70 then

madera = madera - 90
piedra = piedra - 80
barro = barro - 70
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end
if lvlep = 2 and madera >= 113 and piedra >= 102 and barro >= 88 then
madra = madera - 113
piedra = piedra - 102
barro = barro - 88
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end
if lvlep = 3 and madera >= 143 and piedra >= 130 and barro >= 111 then
madra = madera - 143
piedra = piedra - 130
barro = barro - 111
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end
if lvlep =4 and madera >= 143 and piedra >= 130 and barro >= 111 then
madra = madera - 143
piedra = piedra - 130
barro = barro - 130
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end

if ced = 1
while true do
screen:clear()
oldpad = controls.read()
screen:print(454,57,lvlep1,negro)
screen:print(454,118,lvlcuart1,negro)
screen:blit(0,0,iep)
screen:blit(x,y,cursor)
screen:blit(0,262,barra)
cursor()
recusos()
if cep == 60 and acep = 0 then
completado = 0
lvlep = lvlep + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

if cep = 90 and acep = 1 then
completado = 0
lvlep = lvlep + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

if cep = 120 and acep = 2 then
completado = 0
lvlep = lvlep + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

end
ced = 0
end

end

if pad:cross() and oldpad:cross() ~= pad:cross() and x < 479 and x > 401 and y < 130 and y > 101 then -- para constuir en cuartel
if lvlcuart = 0 and lvlep = 3 and madera >= 200 and piedra >= 170 and barro >= 90 then

madera = madera - 200
piedra = piedra - 170
barro = barro - 90
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end

if ced = 1
while true do
if cep == 60 and acuart == 0 then
completado = 0
lvlcuart = lvlcuart + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

if cep = 90 and acuart = 1 then
completado = 0
lvlcuart = lvlcuart + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

end
ced = 0
end

end

if pad:cross() and oldpad:cross() ~= pad:cross() and x < 479 and x > 401 and y < 130 and y > 101 then -- para constuir en leñador
if lvlmad = 1 and madera >= 63 and piedra >= 77 and barro >= 50 then

madera = madera - 60
piedra = piedra - 77
barro = barro - 50
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end
if lvlmad = 2 and madera >= 78 and piedra >= 98 and barro >= 78 then

madera = madera - 78
piedra = piedra - 98
barro = barro - 78
cepp:reset(0)
cepp:start()
screen:print(20,268,cep,negro)
ced = 1
end

if ced = 1
while true do
if cep == 120 and amad == 1 then
completado = 0
lvlmad = lvlmad + 1
tmadera = 4
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

if cep = 180 and amad = 2 then
completado = 0
lvlmad = lvlmad + 1
tmadera = 3
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end

end
ced = 0
end

end

end

end

--empezamos con el cuartel
if cuart == 1 then
while true do
screen:clear()
oldpad = controls.read()
screen:blit(0,0,cuart)
screen:blit(x,y,cursor)
screen:print(257, 44,madera, color1)
screen:print(383, 44,piedra, color2)
screen:print(321, 44,barro, color3)
screen:blit(0,262,barra)
cursor()
recursos()
if pad:R() and oldpad:R() =~ pad:R() then
break
end

--hacer tropas
if pad:cross() and oldpad:cross() ~= pad:cross() and x > 426 and x < 454 and y < 114 and y > 59 then -- para lanceros

if lvlcuart = 1 and madera >= 50 and piedra >= 30 and barro >= 10 then

madera = madera - 50
piedra = piedra - 30
barro = barro - 10
cuartell:reset(0)
cuartell:start()
screen:print(163,268,ccuart,negro)
cud = 1
end
if lvlcuart = 2 and madera >= 50 and piedra >= 30 and barro >= 10 then

madera = madera - 50
piedra = piedra - 30
barro = barro - 10
cuartell:reset(0)
cuartell:start()
screen:print(163,268,ccuart,negro)
cud = 1
end

if cud = 1

if ccuart == 300 and acuart == 1 then
compltado = 0
lanceros = lanceros + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end
if ccuart == 270 and acuart == 2 then
compltado = 0
lanceros = lanceros + 1
if completado = 0
sceen:print(240,170,completado,rojo)
cep:reset(0)
while true do
if pad:cross() and oldpad:cross() ~= pad:cross() and completado == 0 then -- para quitar completado
completado = 1
break
end
screen.flip()
screen.waitVblankStart()
end

end

end
cud = 0
end

end

end

end

end