-- Parameters
local YMAX = 33000 -- Maximum altitude for pools
local XZMIN = 50 -- Minimum absolute value of X/Z coord
local FLOW = 256
-- End of parameters

local c_air = minetest.CONTENT_AIR

local p_lake_heat -- Perlin noise for lake type (water or lava)

-- minp, maxp, seed: From minetest.register_on_generated
-- c_liquid: Liquid node of lake
-- c_replace: Will be replaced with c_lakebed
-- c_lakebed: Node at bottom of lake
-- check_spawn: If true, lake won't generate close to X=0, Z=0
local function generate_lake(minp, maxp, seed, c_liquid, c_replace, c_lakebed, check_spawn)
	local y0 = minp.y
	if y0 < -32 or y0 > YMAX then
		return
	end


	local t1 = os.clock()
	local x0 = minp.x
	local z0 = minp.z
	local x1 = maxp.x
	local y1 = maxp.y
	local z1 = maxp.z

	-- Don't generate lake if chunk is too close to X=0, Z=0.
	-- We do this to prevent players spawning in lakes.
	if (check_spawn) and ((x0 < XZMIN and x0 > -XZMIN) or (z0 < XZMIN and z0 > -XZMIN) or
	   (x1 < XZMIN and x1 > -XZMIN) or (z1 < XZMIN and z1 > -XZMIN)) then
		return
	end

	local sidelen = x1 - x0 -- actually sidelen - 1

	minetest.log("verbose", "[hades_mapgen_lakes] chunk ("..x0.." "..y0.." "..z0..")")

	local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
	local area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
	local data = vm:get_data()


	for xcen = x0 + 8, x1 - 7, 8 do
	for zcen = z0 + 8, z1 - 7, 8 do
		local yasurf = false -- y of above surface node
		for y = y1, 2, -1 do
			local vi = area:index(xcen, y, zcen)
			local c_node = data[vi]
			if y == y1 and c_node ~= c_air then -- if top node solid
				break
			elseif c_node == c_liquid then
				break
			elseif c_node == c_replace then
				yasurf = y + 1
				break
			end
		end
		if yasurf then
			local abort = false
			for ser = 1, 80 do
				local vi = area:index(xcen + ser, yasurf, zcen)
				local c_node = data[vi]
				if xcen + ser == x1 then
					abort = true
				elseif c_node ~= c_air then
					break
				end
			end
			for ser = 1, 80 do
				local vi = area:index(xcen - ser, yasurf, zcen)
				local c_node = data[vi]
				if xcen - ser == x0 then
					abort = true
				elseif c_node ~= c_air then
					break
				end
			end
			for ser = 1, 80 do
				local vi = area:index(xcen, yasurf, zcen + ser)
				local c_node = data[vi]
				if zcen + ser == z1 then
					abort = true
				elseif c_node ~= c_air then
					break
				end
			end
			for ser = 1, 80 do
				local vi = area:index(xcen, yasurf, zcen - ser)
				local c_node = data[vi]
				if zcen - ser == z0 then
					abort = true
				elseif c_node ~= c_air then
					break
				end
			end
			if abort then
				break
			end


			local vi = area:index(xcen, yasurf, zcen)
			data[vi] = c_liquid
			local flab = false -- flow abort
			for flow = 1, FLOW do
				for z = z0, z1 do
					for x = x0, x1 do
						local vif = area:index(x, yasurf, z)
						if data[vif] == c_liquid then
							if x == x0 or x == x1 or z == z0 or z == z1 then
								flab = true -- if liquid at chunk edge, abort flow
								break
							else -- flow liquid
								local vie = area:index(x + 1, yasurf, z)
								local viw = area:index(x - 1, yasurf, z)
								local vin = area:index(x, yasurf, z + 1)
								local vis = area:index(x, yasurf, z - 1)
								if data[vie] == c_air then
									data[vie] = c_liquid
								end
								if data[viw] == c_air then
									data[viw] = c_liquid
								end
								if data[vin] == c_air then
									data[vin] = c_liquid
								end
								if data[vis] == c_air then
									data[vis] = c_liquid
								end
							end
						end
					end
					if flab then
						break
					end
				end
				if flab then
					break
				end
			end
			if flab then -- erase liquid from this y level
				for z = z0, z1 do
				for x = x0, x1 do
					local vi = area:index(x, yasurf, z)
					if data[vi] == c_liquid then
						data[vi] = c_air
					end
				end
				end
			else -- flow downwards
				for z = z0, z1 do
				for x = x0, x1 do
					local vi = area:index(x, yasurf, z)
					if data[vi] == c_liquid then
						for y = yasurf - 1, y0, -1 do
							local viu = area:index(x, y, z)
							if data[viu] == c_air then
								data[viu] = c_liquid
							elseif data[viu] == c_replace then
								data[viu] = c_lakebed
								break
							else
								break
							end
						end
					end
				end
				end
			end
		end
	end
	end

	vm:set_data(data)
	vm:set_lighting({day=0, night=0})
	vm:calc_lighting()
	vm:update_liquids()
	vm:write_to_map(data)

	local chugent = math.ceil((os.clock() - t1) * 1000)
	minetest.log("verbose", "[hades_mapgen_lakes] time "..chugent.." ms")
end

minetest.register_on_generated(function(minp, maxp, seed)
	local c_liquid, c_replace, c_lakebed, check_spawn
	if not p_lake_heat then
		p_lake_heat = minetest.get_perlin({
			offset = 0,
			scale = 0.2,
			spread = {x = 5, y = 5, z = 5},
			seed = 100,
			octaves = 1,
			persist = 0.0
		})
	end
	local lake_heat = p_lake_heat:get_2d({x=minp.x, y=0, z=minp.z})
	if lake_heat > 0 then
		-- Lava lake
		c_liquid = minetest.get_content_id("hades_core:lava_source")
		c_replace = minetest.get_content_id("hades_core:ash")
		c_lakebed = minetest.get_content_id("hades_core:gravel_volcanic")
		check_spawn = true
	else
		-- Water lake
		c_liquid = minetest.get_content_id("hades_core:water_source")
		c_replace = minetest.get_content_id("hades_core:tuff")
		c_lakebed = minetest.get_content_id("hades_core:gravel")
		check_spawn = false
	end
	generate_lake(minp, maxp, seed, c_liquid, c_replace, c_lakebed, check_spawn)
end)
