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[4].smell2:blit(460,50)
AstroT[2].mira:blit(AstroT[2].x,AstroT[2].y)
screen.print(100,100,"Testeo Vbeta",tclrs[3])
movePad(AstroT[2])
moveF(AstroT[2])
moverX(AstroT[4],460,0)
if controls.press("cross") then
	sound.play(AstroT[5].sdp)
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
AstroT[2].x = math.min(math.max(0,AstroT[2].x), 480-AstroT[2].w/2)
AstroT[2].y = math.min(math.max(0,AstroT[2].y), 272-AstroT[2].h/2)
screen.flip()
end

------VARIABLES----
-------------------
-------------------
 
tclrs={}
AstroT={}
S={}
asb=0
x=0
mv=0.2
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,w=0,h=0}
AstroT[3]={fondo=image.load("System/Recursos/Imagenes/fondo.png")}
AstroT[4]={smell2=image.load("System/Recursos/Imagenes/smell2.png"),y=0,x=100,w=0,h=0,vel=5}
AstroT[5]={sdp=sound.load("System/Recursos/Music/Sn.wav")}
AstroT[2].h=AstroT[2].mira:height()
AstroT[2].w=AstroT[2].mira:width()
AstroT[4].h=AstroT[4].smell2:height()
AstroT[4].w=AstroT[4].smell2:width()
 
------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
 
function move(object,vel)
if object.dir=="r" then 
	object.x=object.x+vel
elseif object.dir=="l" then 
	object.x=object.x-vel
elseif object.dir=="u" then 
	object.y=object.y-vel
elseif object.dir=="d" then 
	object.y=object.y+vel
end
if object.dir=="r" and object.x>=object.x2+1 then
	object.dir="l"
end
if object.dir=="l" and object.x<=object.x1-1 then
	object.dir="r"
end
if object.dir=="d" and object.y>=object.y2+1 then
	object.dir="u"
end
if object.dir=="u" and object.y<=object.y1-1 then
	object.dir="d"
end
end
 
function moverX(objeto,lim1,lim2)
 
	if objeto.dir == "r" then
 
		objeto.x = objeto.x + objeto.vel
 
	elseif objeto.dir == "l" then
 
		objeto.x = objeto.x - objeto.vel
 
	end
 
	if objeto.x == lim1 then
 
		objeto.dir = "r"
 
	elseif objeto.x == lim2 then
 
		objeto.dir = "l"
 
	end
 
end