Questionable-Oerbital-Mechanics/main.lua

require "import"
-- Debugging / Logging:
debug = calc.debug
calc.isDebug = true

function love.load()
	-- Declaration:
	love.window.setTitle(info.name.." - v"..info.version)
	width, height = love.graphics.getDimensions()

	-- Camera:
	cam = Camera()
	zoomlevel = settings.zoom.reset

	--Simulation:
	warpspeed = 1
	warpCoolDown = 0

	-- Loading:
	ships = {}				--Potentially add other starships in the future?

	planet = {}
	loadPlanets()

	local spawnPlanet = planet[1]
	player = Player(spawnPlanet.x, spawnPlanet.y-spawnPlanet.r-1)
	gui = Gui(1)
end


-- Planets:

function loadPlanets()
	debug("Planets in planet table: "..#planetdata)
	for i=1, #planetdata do
		local p = planetdata[i]
		debug(p.name.." is loading")
		table.insert(planet, i, 
			Planet(
				-- Planet Data Assignment:
				p.x, p.y,
				p.r, p.m,
				p.xSpeed, p.ySpeed,
				p.name,
				p.colour,
				p.parent
			)
		)
		debug(p.name.." is loaded")
	end
	debug("Planets loaded: "..#planet)
end

function updatePlanets()
	planet[1]:update()
end

function drawPlanets()
	for i=1, #planet do
		planet[i]:draw()
		--debug("Drawing planet " .. i)
	end
end




-- Camera



function cameraControls()
	local step = settings.zoom.step

	function love.wheelmoved(x, y)
		if y > 0 then
			-- Zoom in:
			zoomlevel = zoomlevel + step
		elseif y < 0 then
			-- Zoom out:
			zoomlevel = zoomlevel - step
		end
	end

	-- Reset Zoom:
	if love.mouse.isDown(controls.camera.zoom.reset) then
		zoomlevel = settings.zoom.reset
	end

	-- Zoom Limit:
	local max = settings.zoom.max
	local min = settings.zoom.min
	if zoomlevel < min then
		zoomlevel = min
	end
	if zoomlevel > max then
		zoomlevel = max
	end
	--debug(zoomlevel)
	cam:zoomTo(zoomlevel)
end

function timewarpControls()
	-- Time Warp Toggle Cooldowns:
	local maxCooldown = settings.warp.cooldown
	
	-- Time Warp Steps:
	local step = settings.warp.step
	-- Time Warp Limits:
	local min = settings.warp.min
	local max = settings.warp.max

	-- Decrease Warp
	if love.keyboard.isDown(controls.flight.warp.down) and warpCoolDown <= 0 then
		warpspeed = warpspeed - step
		warpCoolDown = maxCooldown
	end
	-- Increase Warp
	if love.keyboard.isDown(controls.flight.warp.up) and warpCoolDown <= 0 then
		warpspeed = warpspeed + step
		warpCoolDown = maxCooldown
	end
	-- Reset Warp
	if love.keyboard.isDown(controls.flight.warp.reset) then
		warpspeed = min
	end

	-- Value Correction
	if warpspeed < min then
		warpspeed = min
	elseif warpspeed > max then 
		warpspeed = max
	end

	warpCoolDown = warpCoolDown - 1
	return warpspeed
end



-- MAIN

function love.update(dt)
	-- Game Objects:
	for i=1, timewarpControls() do
		-- Physics go in here:
		updatePlanets()
		player:update(dt)
	end
	player:throttleControls()

	-- Gui:
	gui:update(dt)

	-- Camera:
	cam:lookAt(player.x, player.y)
	cameraControls()
	--debug(player.x .. " " .. player.y)
end

function love.draw()
	cam:attach()
		-- Game Objects:
		drawPlanets()
		player:draw()

		-- Camera Zoom Player Location Indicator:                              OVERWORK SOON PLS KAY; IT UGLY
		if zoomlevel < 0.3 then
			love.graphics.setColor(1, 1, 1, 0.2)
			love.graphics.circle("fill", player.x, player.y, (1/zoomlevel)*10)
		end
	cam:detach()

	-- Gui:
	gui:draw()
end