-- LUALOCALS < ---------------------------------------------------------
local math, minetest, nodecore, pairs, vector
    = math, minetest, nodecore, pairs, vector
local math_random
    = math.random
-- LUALOCALS > ---------------------------------------------------------

local cache = {}

local function envcheck(player)
	local stats = {}

	local pos = player:getpos()
	pos.y = pos.y + 1.6

	stats.light = minetest.get_node_light(pos)

	local target = vector.add(pos, {
			x = math_random() * 128 - 64,
			y = math_random() * 128 - 64,
			z = math_random() * 128 - 64
		})
	local _, hit = minetest.line_of_sight(pos, target)
	hit = hit or target

	stats.space = vector.distance(pos, hit)

	local node = minetest.get_node(hit)
	local def = minetest.registered_items[node.name]
	local groups = def.groups or {}

	stats.green = groups.green or 0
	stats.water = groups.water or 0 + stats.green / 5

	local pname = player:get_player_name()
	local agg = cache[pname]
	if not agg then
		agg = {}
		local raw = player:get_attribute("healthenv")
		if raw and raw ~= "" then
			agg = minetest.deserialize(raw)
		end
		cache[pname] = agg
	end
	for k, v in pairs(stats) do
		agg[k] = ((agg[k] or 0) * 99 + v) / 100
	end
	agg.dirty = (agg.dirty or 0) + 1
	if agg.dirty >= 20 then
		agg.dirty = nil
		player:set_attribute("healthenv",
			minetest.serialize(agg))
		nodecore.addphealth(player, 0.01 + (agg.green + 0.02)
			* (agg.water + 0.1)
			* (agg.space + 5)
			* (agg.light + 8) / 240)
	end

end

local t = 0
minetest.register_globalstep(function(dt)
		t = t + dt
		while t > 0.1 do
			t = t - 0.1
			for _, player in pairs(minetest.get_connected_players()) do
				if player:get_hp() > 0 then
					envcheck(player)
				end
			end
		end
	end)

minetest.register_on_respawnplayer(function(player)
		player:set_attribute("healthenv", "")
		cache[player:get_player_name()] = nil
		player:set_hp(1)
		player:set_attribute("dhp", "-0.4999")
	end)