x=0
dofile("weaponlib.lua")
fondo=image.load("fondo.png")
personaje={x=20}
 
andando = image.loadsprite("andando.png",100,137)
disparando = image.loadsprite("disparando.png",130,140)
quieto = image.load("quieto.png")
 
cuadro=0
minitimer=0
cuadro1=0
estado="quieto"
 
flecha = image.load("flecha.png")
 
arco = weapon.create(flecha,3)
weapon.action(arco,"start")
 
 
while true do
 
controls.read() 
fondo:blit(x,0)
 
if estado=="andando" then
x=x-1
if cuadro>4 then cuadro = 0 estado="quieto" end 
if minitimer==10 then  minitimer = 0 cuadro = cuadro + 1 end
minitimer = minitimer + 1		
andando:setframe(cuadro)    
andando:blit(100,100)
end
 
if estado=="disparando" then
if cuadro1>3 then cuadro1 = 0 estado="quieto" end 
if minitimer==10 then  minitimer = 0 cuadro1 = cuadro1 + 1 end
minitimer = minitimer + 0.5	
if cuadro1<2 and dispa==0 then weapon.shoot(arco,160,143,4,0)  dispa=1 end
if cuadro1>2 then dispa=0 end
disparando:setframe(cuadro1)    
disparando:blit(100,95)
end
 
if estado=="quieto" then
quieto:blit(100,100)
end
 
weapon.blit(arco)
 
if controls.right() and estado=="quieto" then estado="andando" end 
if controls.r() and estado=="quieto" then estado="disparando" end
 
 
if controls.start() then broke() end
screen.flip()    
 
end