bola = {objeto = model.load("modelos/bola.obj"),	pos={x=0,y=-2,z=-14},rot={x=0,y=0,z=0},	w = 0.93, h = 0.93, p = 0.93}
canasto ={objeto = model.load("modelos/canasto.obj"),	pos={x=0,y=-2,z=-2},rot={x=-106,y=0,z=90},	w = 1.57, h = 1.25, p = 0.38}
--bloque = model.load("modelos/palo.obj")
pause = false
blanco = color.new(255,255,255)
puntos = "0"
 
 
function colision(obj1, obj2) 
	if  obj1.pos.x + obj1.w > obj2.pos.x and obj1.pos.x < obj2.pos.x + obj2.w 
	and obj1.pos.y + obj1.h > obj2.pos.y and obj1.pos.y < obj2.pos.y + obj2.h
	and obj1.pos.z + obj1.p > obj2.pos.z and obj1.pos.z < obj2.pos.z + obj2.p then 
		return true 
	end
	return false 
end
function savedata()
		lugares = {
					"Ranura 1",
					"Ranura 2",
					"Ranura 3",
					"Ranura 4",
					"Ranura 5"
					}
		guardado = {gameid = "fran98s_CTB"..os.date("%S"),savenames = lugares};
		subinfo = {
					title = "Puntuación guardada",
					subtitle = "Puntuación guardada de CTB (Catch the Ball!)",
					details = { "Usuario: "..os.nick(),"Puntuación: "..puntos,"Fecha: "..os.date("%d/%m/%Y %H:%M") },
					savetext = "Sin datos",
					}
		correct, good = savedata.save(guardado,subinfo,info)
		if correct then return good
		else return nil end
end
 
function cargar_save()
lugares = {
			"Ranura 1",
			"Ranura 2",
			"Ranura 3",
			"Ranura 4",
			"Ranura 5"
			}
lugar_save = {gameid = "fran98s_CTB"..os.date("%S"), savenames = lugares};
correct, good, yeah = savedata.load(lugar_save)
	if correct then return yeah:explode(lugar);
	else return nil end
end
 
--[[function pausar()
	while true do
	controls.read()
	if pause == true then
		image.blend(0,0,220,220,100)
		screen.print(250,250,"Pausa",2)
	end
end
end
]]--
 
world.lightenabled(1,true)
world.lightambient(1,blanco)
world.lightdiffuse(1,blanco)
world.lightspecular(1,blanco)
world.lighttype(1,2)
world.lightcomponent(1,1)
world.lightposition(1,0,0,0)
world.ambient(blanco)
world.specular(4.04)
world.update()
seg = timer.new()
seg:start()
mint = timer.new()
mint:start()
 
while true do
controls.read()
	total_min = math.floor(mint:time() / 60000)
	totalsec = math.floor(seg:time() / 1000)
	if controls.l() then canasto.pos.z=canasto.pos.z-0.2 end
	if controls.r() then canasto.pos.z=canasto.pos.z+0.2 end
	--[[for choque=1,30 do
		bloque:blit();
	end]]--
	bola.objeto:position(bola.pos.x,bola.pos.y,bola.pos.z)
	canasto.objeto:rotation(math.rad(canasto.rot.x),math.rad(canasto.rot.y),math.rad(canasto.rot.z));
	canasto.objeto:position(canasto.pos.x,canasto.pos.y,canasto.pos.z)
	bola.objeto:blit()
	canasto.objeto:blit()
	screen.print(20,160,"Tiempo: "..total_min..":"..totalsec,1,blanco,"right")
	if totalsec >= 60 then
		seg:reset()
	end
	--screen.print(10,50"Puntuación: "..puntos,1,blanco,"center")
	screen.print(5,0,"- -Canasto")
	screen.print(5,20,"Pos: "..canasto.pos.x..":"..canasto.pos.y..":"..canasto.pos.z.."   Rot: "..canasto.rot.x.." : "..canasto.rot.y.." : "..canasto.rot.z)
	screen.print(5,40,"- -Bola")
	screen.print(5,60,"Pos: "..bola.pos.x..":"..bola.pos.y..":"..bola.pos.z.."   Rot: "..bola.rot.x.." : "..bola.rot.y.." : "..bola.rot.z)
	--[[if savedata() == false then
		os.message("No se pudo guardar. Inténtelo más tarde")
	end
 
	cargadogood = cargar_save();
	if cargagood then
		for i=1,#cargagood do
			assert(loadstring(cargagood[i]))();
		end
	end
	]]--
	if colision(bola, canasto) then
		puntos = puntos+1
		screen.print(50,50,"¡COLISIÓN!")
	end
	if controls.left() then
		canasto.pos.x = canasto.pos.x-0.1
	end
	if controls.right() then
		canasto.pos.x = canasto.pos.x+0.1
	end
	if controls.down() then
		bola.pos.y = bola.pos.y-0.3
	end
	if controls.select() then
		captura = os.osk("Escriba el nombre del pantallazo","Pantallazo",20,3,0)
		image.save(screen.toimage(),"ms0:/PICTURE/"..captura..".png")
 
		captura = nil
 
		os.message("Captura realizada y guardada en ms0:/PICTURE")
	end
	--[[if controls.start() and pause == true then
		pause = false
	else pause = true
	end
	pausar();]]--
screen.flip()
end