plantlife_modpack/plantlife_lib/init.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", -- spawn the decoration later
	}
	-- handle avoid_nodes (no engine support :\)
	if def.avoid_nodes then
		deco_def.avoid_nodes = def.avoid_nodes
		if def.avoid_radius then
			deco_def.avoid_radius = def.avoid_radius
		end
	end
	-- 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)
	local p_top = {x = pos.x, y = pos.y + 1, z = pos.z}

	-- 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

	-- avoid nodes handler
	if def.avoid_nodes and def.avoid_radius then
		if minetest.find_node_near(p_top, def.avoid_radius + math.random(-1.5,2), def.avoid_nodes) then
			return
		end
	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)
	minetest.add_particle({
		pos = p_top,
		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
]]--