xdecor-libre/hive.lua

local hive = {}

function hive.construct(pos)
	local meta = minetest.get_meta(pos)
	meta:set_string("formspec", "size[8,5;]"..xdecor.fancy_gui..
		"label[1.35,0;Bees are making honey\nwith pollen around...]"..
		"image[-0.1,-0.2;1,1;flowers_tulip.png]"..
		"image[0.5,0.2;1,1;flowers_dandelion_yellow.png]"..
		"image[6.6,0.1;1,1;flowers_geranium.png]"..
		"image[7.2,-0.1;1,1;flowers_rose.png]"..
		"image[6,0;0.9,0.9;xdecor_bee.png]".. -- Bee texture by Charles Sanchez and Mark Weyer.
		"list[current_name;honey;5,0;1,1;]"..
		"list[current_player;main;0,1.35;8,4;]")
	meta:set_string("infotext", "Artificial Hive")
	local inv = meta:get_inventory()
	inv:set_size("honey", 1)
end

function hive.dig(pos, player)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()

	if not inv:is_empty("honey") then return false end
	return true
end

xdecor.register("hive", {
	description = "Artificial Hive",
	tiles = {
		"xdecor_hive_top.png",
		"xdecor_hive_top.png",
		"xdecor_hive_side.png",
		"xdecor_hive_side.png",
		"xdecor_hive_side.png",
		"xdecor_hive_front.png",
	},
	groups = {snappy=3, flammable=1},
	on_construct = hive.construct,
	can_dig = hive.dig,
	on_punch = function(pos, node, puncher, pointed_thing)
		local health = puncher:get_hp()
		puncher:set_hp(health-4)
	end,
	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		if listname == "honey" then return 0 end
		return stack:get_count()
	end,
})

minetest.register_abm({
	nodenames = {"xdecor:hive"},
	interval = 10, chance = 4,
	action = function(pos, node, active_object_count, active_object_count_wider)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()

		local radius = 8
		local minp = {x=pos.x-radius, y=pos.y-radius, z=pos.z-radius}
		local maxp = {x=pos.x+radius, y=pos.y+radius, z=pos.z+radius}
		local flowers = minetest.find_nodes_in_area(minp, maxp, "group:flower")

		if #flowers >= 4 then inv:add_item("honey", "xdecor:honey") end
	end
})