underworlds/mapgen.lua

92 lines
1.9 KiB
Lua

-- Underworlds mapgen.lua
-- Copyright Duane Robertson (duane@duanerobertson.com), 2017
-- Distributed under the LGPLv2.1 (https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html)
local DEBUG = false
-- This tables looks up nodes that aren't already stored.
local node = setmetatable({}, {
__index = function(t, k)
if not (t and k and type(t) == 'table') then
return
end
t[k] = minetest.get_content_id(k)
return t[k]
end
})
local data = {}
local p2data = {}
local function generate(p_minp, p_maxp, seed)
if not (p_minp and p_maxp and seed) then
return
end
local minp, maxp = p_minp, p_maxp
local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
if not (vm and emin and emax) then
return
end
vm:get_data(data)
p2data = vm:get_param2_data()
local heightmap
local area = VoxelArea:new({MinEdge = emin, MaxEdge = emax})
local csize = vector.add(vector.subtract(maxp, minp), 1)
local write = false
if not underworlds_mod.underzones then
return
end
do
local avg = (minp.y + maxp.y) / 2
for _, uz in pairs(underworlds_mod.underzones) do
if avg <= uz.upper_bound and avg >= uz.lower_bound then
write = underworlds_mod.undergen(minp, maxp, data, p2data, area, node, uz)
end
end
end
if write then
vm:set_data(data)
vm:set_param2_data(p2data)
minetest.generate_ores(vm, minp, maxp)
if DEBUG then
vm:set_lighting({day = 8, night = 8})
else
vm:set_lighting({day = 0, night = 0}, minp, maxp)
vm:calc_lighting()
end
vm:update_liquids()
vm:write_to_map()
end
end
if underworlds_mod.path then
dofile(underworlds_mod.path .. "/undergen.lua")
end
local function pgenerate(...)
local status, err = pcall(generate, ...)
--local status, err = true
--generate(...)
if not status then
print('Underworlds: Could not generate terrain:')
print(dump(err))
collectgarbage("collect")
end
end
minetest.register_on_generated(pgenerate)