guerrero_sabion = {}
guerrero_sabion["stay"]={}
guerrero_sabion["walk"]={}
 
guerrero_sabion["stay"]["up"] = image.load("Imagenes/Sprites/guerrero sabion arriba.png")
guerrero_sabion["stay"]["down"] = image.load("Imagenes/Sprites/guerrero sabion abajo.png")
guerrero_sabion["stay"]["right"] = image.load("Imagenes/Sprites/guerrero sabion derecha.png")
guerrero_sabion["stay"]["left"] = image.load("Imagenes/Sprites/guerrero sabion izquierda.png")
suelo = image.load("Imagenes/suelo.png")
arbol = {img=image.load("Imagenes/Sprites/arbol.png"),x=250,y=96,w=100,h=114}   
guia = image.load("Imagenes/guia.png")
barra_guia = image.load("Imagenes/barra guia.png")
planta = image.load("Imagenes/planta.png")
troncolado = image.load("Imagenes/troncolado.png")
trocoabajo = image.load("Imagenes/trocoabajo.png")
cofre = image.load("Imagenes/cofre.png")
 
 
black=color.new(0,0,0)
 
menu = {}
menu[1] = image.load("Imagenes/submenu1.png")
menu[2] = image.load("Imagenes/submenu2.png")
 
 
options = 2
mActual = 1
 
rawset(guerrero_sabion["walk"],"up",image.loadsprite("Imagenes/Sprites/arribam.png",32,48))
rawset(guerrero_sabion["walk"],"down",image.loadsprite("Imagenes/Sprites/abajom.png",32,48))
rawset(guerrero_sabion["walk"],"right",image.loadsprite("Imagenes/Sprites/derecham.png",32,48))
rawset(guerrero_sabion["walk"],"left",image.loadsprite("Imagenes/Sprites/izquierdam.png",32,48))
 
status = "stay" 
direction = "down" 
guerrero_sabion.x = 5	
guerrero_sabion.y = 5
guerrero_sabion.w = 48
guerrero_sabion.h = 32
anim = 0
 
 
tiempo = timer.new()
tiempo:start()
 
cuenta_atras = 50 
 
 
function save()
        mydata = {
                "nick='LuaDEV'",
                "age=69",
                "watermark='Ouch'",
                "anydata='foo'",
                "foo='bar'"
        };
 
 
 
        spaces = { "DATA0", "DATA1", "DATA2" };
        saveplace = {gameid="Sabion", savenames=spaces};
        saveconfig = { 
                title="Partida guardada Sabion", 
                subtitle=os.date(), 
                details="VDEMO",
                savetext="New Savedata",
				icon0="Imagenes/ICON0.PNG"
        }
 
        done, where = savedata.save(saveplace,saveconfig,mysavedata);
        if done then return where 
        else return nil end
end
 
 
 
function colin(objeto1,objeto2)
if objeto1.x+objeto1.w > objeto2.x and objeto1.x < objeto2.x+objeto2.w and
objeto1.y +objeto1.h > objeto2.y and objeto1.y < objeto2.y + objeto2.h  then 
return true
else
return false
end
end
 
 
 
while true do
	tiempo_en_segundos = math.floor( tiempo:time() / 5000)
	controls.read()
	image.blit(0,0,suelo)
	arbol.img:blit(250,96)
	image.blit(352,160,planta)
	image.blit(288,192,planta)
	image.blit(256,192,planta)
	image.blit(128,192,planta)
	image.blit(64,192,planta)
	image.blit(32,160,planta)
	image.blit(352,32,troncolado)
	image.blit(416,32,trocoabajo)
	image.blit(384,64,cofre)
 
if colin(guerrero_sabion,arbol) then
if direction == "left" then
guerrero_sabion.x = guerrero_sabion.x - 1
end
if direction == "up" then
guerrero_sabion.y = guerrero_sabion.y - 1
end
if direction == "down" then
guerrero_sabion.y = guerrero_sabion.y + 1
end
if direction == "right" then
guerrero_sabion.x = guerrero_sabion.x + 1
end
end
 
	if tiempo_en_segundos >= 5 then
		image.blit(5,211,guia)
		image.blit(55,241,barra_guia)
		screen.print(75,246,"Ya estoy de vuelta Zefiro,traigo noticias del castillo")
end
if tiempo_en_segundos >= 8 then
		image.blit(55,241,barra_guia)
		screen.print(75,246,"La reina Mia quiere veros cuanto antes")
end
if tiempo_en_segundos >= 10 then
		image.blit(55,241,barra_guia)
		screen.print(75,246,"Ha insistido en que acabeis vuestro entrenamiento")
end
if tiempo_en_segundos >= 12 then
		image.blit(55,241,barra_guia)
		screen.print(75,246,"Asi que sera mejor que acabemos lo mas pronto posible")
end
if tiempo_en_segundos >= 12 then
		image.blit(55,241,barra_guia)
		screen.print(75,246,"¿Por donde ibamos?... AH ! si los cofres, bien")
end
 
	if controls.press("l") then
    if mActual<=1 then mActual=2 else mActual = mActual - 1 end
elseif controls.press("r") then
    if mActual >=2 then mActual = 1 else mActual = mActual + 1 end
end
 
 
	if controls.up() or controls.down() or controls.left() or controls.right() then
		anim = anim + 0.1
		status = "walk"
		if math.floor(anim)>3 then
			anim = 0
		end
	else
		anim = 0
		status = "stay"
	end
 
	if controls.up() then
		guerrero_sabion.y=guerrero_sabion.y-1
		direction = "up"
	elseif controls.down() then
		guerrero_sabion.y=guerrero_sabion.y+1
		direction = "down"
	elseif controls.right() then
		guerrero_sabion.x=guerrero_sabion.x+1
		direction = "right"
	elseif controls.left() then
		guerrero_sabion.x=guerrero_sabion.x-1
		direction = "left"
	end
 
	if status=="walk" then
		guerrero_sabion[status][direction]:setframe(anim)
	end
 
	if guerrero_sabion.x<0 then
	guerrero_sabion.x=0
	elseif guerrero_sabion.x+32>480 then
	guerrero_sabion.x=480-32
end
 
if guerrero_sabion.y<0 then
	guerrero_sabion.y=0
	elseif guerrero_sabion.y+48>272 then
	guerrero_sabion.y=272-48
end
	guerrero_sabion[status][direction]:blit(guerrero_sabion.x,guerrero_sabion.y)              	
	screen.flip()
 
if controls.start() then
save()
end
 
if controls.select() then
dofile("script menu.lua")
end
end