-- `World`
-- Used to manage physical world and everything inside it: clouds, platforms, nauts, background etc.

-- WHOLE CODE HAS FLAG OF "need a cleanup"

-- Metatable of `World`
-- nils initialized in constructor
World = {
	-- inside
	world = nil,
	Nauts = nil,
	Platforms = nil,
	Clouds = nil,
	EffectsBottom = nil,
	EffectsTop = nil,
	camera = nil,
	-- cloud generator
	clouds_delay = 6,
	clouds_initial = nil
}

-- Constructor of `World` ZA WARUDO!
function World:new()
	-- Meta
	local o = {}
	setmetatable(o, self)
	self.__index = self
	-- Physical world initialization
	love.physics.setMeter(64)
	o.world = love.physics.newWorld(0, 9.81*64, true)
	o.world:setCallbacks(o.beginContact, o.endContact)
	-- Empty tables for objects
	local n = {}
	o.Nauts = n
	local p     = {}
	o.Platforms = {}
	local c  = {}
	o.Clouds = c
	local e   = {}
	o.Effects = e
	-- Random init
	math.randomseed(os.time())
	-- Create camera
	o.camera = Camera:new(o)
	-- Cloud generator
	o.clouds_initial = o.clouds_delay
	for i=1,5 do
		o:randomizeCloud(false)
	end
	return o
end

-- Add new platform to the world
function World:createPlatform(x, y, polygon, sprite)
	table.insert(self.Platforms, Ground:new(self.world, x, y, polygon, sprite))
end

-- Add new naut to the world
function World:createNaut(x, y, name)
	table.insert(self.Nauts, Player:new(self, self.world, x, y, name))
end

-- Add new cloud to the world
function World:createCloud(x, y, t, v)
	table.insert(self.Clouds, Cloud:new(x, y, t, v))
end

-- Randomize Cloud creation
function World:randomizeCloud(outside)
	if outside == nil then
		outside = true
	else
		outside = outside
	end
	local x,y,t,v
	if outside then
		x = -250+math.random(-30,30)
	else
		x = math.random(-200,250)
	end
	y = math.random(0, 160)
	t = math.random(1,3)
	v = math.random(8,18)
	self:createCloud(x, y, t, v)
end

-- Add an effect behind nauts
function World:createEffect(name, x, y)
	table.insert(self.Effects, Effect:new(name, x, y))
end

-- Update ZU WARUDO
function World:update(dt)
	-- Physical world
	self.world:update(dt)
	-- Camera
	self.camera:update(dt)
	-- Nauts
	for _,naut in pairs(self.Nauts) do
		naut:update(dt)
	end
	-- Clouds
	-- generator
	local n = table.getn(self.Clouds)
	self.clouds_delay = self.clouds_delay - dt
	if self.clouds_delay < 0 and
	   n < 12
	then
		self:randomizeCloud()
		self.clouds_delay = self.clouds_delay + self.clouds_initial
	end
	-- movement
	for _,cloud in pairs(self.Clouds) do
		if cloud:update(dt) > 340 then
			table.remove(self.Clouds, _)
		end
	end
	-- Effects
	for _,effect in pairs(self.Effects) do
		if effect:update(dt) then
			table.remove(self.Effects, _)
		end
	end
end

-- Keypressed
function World:keypressed(key)
	for _,naut in pairs(self.Nauts) do
		naut:keypressed(key)
	end
end

-- Keyreleased
function World:keyreleased(key)
	for _,naut in pairs(self.Nauts) do
		naut:keyreleased(key)
	end
end

-- Draw
function World:draw()
	-- Hard-coded background (for now)
	love.graphics.setColor(193, 100, 99, 255)
	love.graphics.rectangle("fill", 0, 0, love.graphics.getWidth(), love.graphics.getHeight()*0.25)
	love.graphics.setColor(179, 82, 80, 255)
	love.graphics.rectangle("fill", 0, love.graphics.getHeight()*0.8, love.graphics.getWidth(), love.graphics.getHeight()*0.2)
	
	-- Camera stuff
	local offset_x, offset_y = self.camera:getOffsets()
	local scale = self.camera.scale
	
	-- Draw clouds
	for _,cloud in pairs(self.Clouds) do
		cloud:draw(offset_x, offset_y, scale)
	end
	
	-- Draw effects
	for _,effect in pairs(self.Effects) do
		effect:draw(offset_x,offset_y, scale)
	end
	
	-- Draw player
	for _,naut in pairs(self.Nauts) do
		naut:draw(offset_x, offset_y, scale, debug)
	end
	
	-- Draw ground
	for _,platform in pairs(self.Platforms) do
		platform:draw(offset_x, offset_y, scale, debug)
	end
	
	-- Draw HUDs
	for _,naut in pairs(self.Nauts) do
		naut:drawHUD(1, 1+(_-1)*33, scale)
	end
end

-- beginContact
function World.beginContact(a, b, coll)
	if a:getCategory() == 1 then
		local x,y = coll:getNormal()
		if y == -1 then
			print(b:getUserData().name .. " is not in air")
			b:getUserData().inAir = false
			b:getUserData().jumpdouble = true
			b:getUserData().salto = false
			b:getUserData():createEffect("land")
		end
	end
end

-- endContact
function World.endContact(a, b, coll)
	if a:getCategory() == 1 then
		print(b:getUserData().name .. " is in air")
		b:getUserData().inAir = true
	end
end