VoxeLibre/mods/ITEMS/mcl_cocoas/init.lua

mcl_cocoas = {}

-- place cocoa
function mcl_cocoas.place_cocoa(itemstack, placer, pointed_thing, plantname)

	local pt = pointed_thing

	-- check if pointing at a node
	if not pt or pt.type ~= "node" then
		return
	end

	local under = minetest.get_node(pt.under)

	-- return if any of the nodes are not registered
	if not minetest.registered_nodes[under.name] then
		return
	end

	-- am I right-clicking on something that has a custom on_place set?
	-- thanks to Krock for helping with this issue :)
	local def = minetest.registered_nodes[under.name]
	if def and def.on_rightclick then
		return def.on_rightclick(pt.under, under, placer, itemstack)
	end

	-- check if pointing at jungletree
	if under.name ~= "mcl_core:jungletree"
	or minetest.get_node(pt.above).name ~= "air" then
		return
	end

	-- add the node and remove 1 item from the itemstack
	minetest.set_node(pt.above, {name = plantname})

	minetest.sound_play("default_place_node", {pos = pt.above, gain = 1.0})

	if not minetest.setting_getbool("creative_mode") then
		itemstack:take_item()
	end

	return itemstack
end

-- Note: cocoa beans are implemented as mcl_dye:brown

-- Cocoa definition
local crop_def = {
	drawtype = "plantlike",
	tiles = {"mcl_cocoas_cocoa_stage_0.png"},
	paramtype = "light",
	paramtype2 = "facedir",
	walkable = true,
	drop = "mcl_dye:brown",
	selection_box = {
		type = "fixed",
		fixed = {-0.3, -0.5, -0.3, 0.3, 0.5, 0.3}
	},
	groups = {
		choppy=3, not_in_creative_inventory=1, dig_by_water = 1,
	},
	sounds = mcl_sounds.node_sound_wood_defaults()
}

-- stage 1
minetest.register_node("mcl_cocoas:cocoa_1", table.copy(crop_def))

-- stage2
crop_def.tiles = {"mcl_cocoas_cocoa_stage_1.png"}
minetest.register_node("mcl_cocoas:cocoa_2", table.copy(crop_def))

-- stage 3 (final)
crop_def.tiles = {"mcl_cocoas_cocoa_stage_2.png"}
crop_def.drop = "mcl_dye:brown 3",
minetest.register_node("mcl_cocoas:cocoa_3", table.copy(crop_def))

-- Add random cocoa pods to jungle trees
minetest.register_on_generated(function(minp, maxp)

	if maxp.y < 0 then
		return
	end

	local pos, dir
	local cocoa = minetest.find_nodes_in_area(minp, maxp, "mcl_core:jungletree")

	for n = 1, #cocoa do

		pos = cocoa[n]

		if minetest.find_node_near(pos, 1, {"mcl_core:jungleleaves"}) then

			dir = math.random(1, 80)

			if dir == 1 then
				pos.x = pos.x + 1
			elseif dir == 2 then
				pos.x = pos.x - 1
			elseif dir == 3 then
				pos.z = pos.z + 1
			elseif dir == 4 then
				pos.z = pos.z -1
			end

			if dir < 5
			and minetest.get_node(pos).name == "air"
			and minetest.get_node_light(pos) > 12 then

				minetest.swap_node(pos, {
					name = "mcl_cocoas:cocoa_" .. tostring(math.random(1, 3))
				})
			end

		end
	end
end)