1
0
mirror of https://github.com/mt-mods/plantlife_modpack.git synced 2024-11-15 14:50:39 +01:00
plantlife_modpack/plantlife_lib/init.lua
2023-04-13 14:15:10 +02:00

136 lines
3.4 KiB
Lua

pl = {}
local deco = {}
dofile(minetest.get_modpath("plantlife_lib") .. DIR_DELIM .. "util.lua")
function pl.get_def_from_id(id)
for i, _ in ipairs(deco) do
if deco[i][1].id and deco[i][1].id == id then
return deco[i]
end
end
end
function pl.register_on_generate(def, plantname, index, func)
if not index then index = 1 end -- Do we need `index`?
local deco_def = {
name = plantname .. "_" .. index,
deco_type = "simple",
place_on = def.place_on or def.surface,
sidelen = 16,
fill_ratio = def.fill_ratio or 0.02,
noise_params = def.noise_params,
y_min = def.min_elevation,
y_max = def.max_elevation,
flags = def.flags,
decoration = "air",
}
-- handle near_nodes (we can't use the engine function for that)
if def.near_nodes then
deco_def.near_nodes = def.near_nodes
if def.near_nodes_size then
deco_def.near_nodes_size = def.near_nodes_size
if def.near_nodes_vertical then
deco_def.near_nodes_vertical = def.near_nodes_vertical
end
end
deco_def.near_nodes_count = def.near_nodes_count or 1
end
-- save def
local next = #deco + 1
deco[next] = {}
deco[next][1] = deco_def
deco[next][2] = func or nil
minetest.register_decoration(deco_def)
-- print(dump(deco))
end
local ids = {}
minetest.register_on_mods_loaded(function()
-- print(dump(deco))
for k, v in ipairs(deco) do
local id = minetest.get_decoration_id(deco[k][1].name)
deco[k][1].id = id
table.insert(ids, id)
end
-- print(dump2(ids))
minetest.set_gen_notify("decoration", ids)
-- print(dump(deco))
end)
local function place_handler(t)
local def = pl.get_def_from_id(t.id)
-- near nodes handler
if def.near_nodes and
#minetest.find_nodes_in_area(
{x = t.pos.x-def.near_nodes_size, y = t.pos.y-def.near_nodes_vertical, z = t.pos.z-def.near_nodes_size},
{x = t.pos.x+def.near_nodes_size, y = t.pos.y+def.near_nodes_vertical, z = t.pos.z+def.near_nodes_size},
def.near_nodes
) < def.near_nodes_count then
return -- Long distance neighbours do not match
end
-- run spawn function
local spawn_func = def[2]
spawn_func(t.pos)
-- some fun
local player = minetest.get_player_by_name("Niklp")
-- player:set_pos(t.pos)
t.pos.y = t.pos.y + 3
minetest.add_particle({
pos = t.pos,
expirationtime = 15,
playername = player:get_player_name(),
glow = minetest.LIGHT_MAX,
texture = "default_mese_crystal.png",
size = 15,
})
end
minetest.register_on_generated(function(minp, maxp, blockseed)
local t0 = minetest.get_us_time()
local g = minetest.get_mapgen_object("gennotify")
local locations = {}
for _, id in ipairs(ids) do
local deco_locations = g["decoration#" .. id] or {}
-- print("dl: " .. dump2(deco_locations))
for k, pos in pairs(deco_locations) do
-- print(id)
local next = #locations + 1
locations[next] = {}
locations[next].pos = pos
locations[next].id = id
-- dbg() ^ - This must be ID!
end
end
if #locations == 0 then return end
-- print("locations: " .. dump2(locations))
for _, t in ipairs(locations) do
place_handler(t)
end
local t1 = minetest.get_us_time()
print((t1 - t0) / 1000 .. " ms")
end)
--[[ Example plant
{
{
y_min = 1,
decoration = "air",
deco_type = "simple",
id = 45,
name = "bushes:bushes_1",
place_on = {
"default:dirt_with_grass",
"stoneage:grass_with_silex",
"sumpf:peat",
"sumpf:sumpf"
},
sidelen = 16,
fill_ratio = 0.001
},
^ - decoration def; object ID
<function>
}, ^ - spawn function
]]--