dofile("System/Recursos/Utl.lua")
 
while true do
controls.read()
asb=asb+5
x=math.cos(math.rad(asb))*140
y=-math.sin(math.rad(asb))*140
AstroT[3].fondo:blit(0,0)
AstroT[1].smell:blit(x+240,y+106)
AstroT[2].mira:blit(AstroT[2].x,AstroT[2].y)
screen.print(100,100,"Testeo Vbeta",tclrs[3])
movePad(AstroT[2])
moveF(AstroT[2])
if controls.cross() then
	x=100 
end
if controls.cross() then
	y=100
end
if x==100 then
	AstroT[4].smellkill:blit(x,y)
end
if y==100 then
	AstroT[4].smellkill:blit(x,y)
end
if controls.press("circle") then
	usb.on()
end
if controls.press("triangle") then
	usb.off()
end
if controls.press("triangle") then
	dofile("script.lua")
end
if AstroT[2].w<0 then
	AstroT[2].w=0
elseif AstroT[2].w+20>480 then
	AstroT[2].w=480-20
end
 
if AstroT[2].h<0 then
	AstroT[2].h=0
elseif AstroT[2].h+21>272 then
	AstroT[2].h=272-21
end 
 
screen.flip()
end

------VARIABLES----
-------------------
-------------------
 
tclrs = {}
AstroT = {}
asb=0
tclrs[1]=color.new(255,0,0)
tclrs[2]=color.new(0,0,255)
tclrs[3]=color.new(0,255,0)
AstroT[1]={smell=image.load("System/Recursos/Imagenes/smell.png")}
AstroT[2]={mira=image.load("System/Recursos/Imagenes/mira.png"),x=100,y=100,h=21,w=20}
AstroT[3]={fondo=image.load("System/Recursos/Imagenes/fondo.png")}
AstroT[4]={smellkill=image.load("System/Recursos/Imagenes/smellkill.png")}
 
------FUNCIONES---
------------------
------------------
 
function movePad(object)
if math.abs(controls.analogy())>20 then object.y=object.y+controls.analogy()/10 end
if math.abs(controls.analogx())>20 then object.x=object.x+controls.analogx()/10 end
end
 
function moveF(object)
if controls.up() then
	object.y=object.y-12
elseif controls.down() then
	object.y=object.y+12
elseif controls.left() then
	object.x=object.x-12
elseif controls.right() then
	object.x=object.x+12
end
end