server-nalc/mods/plantlife_modpack/bushes_classic/nodes.lua

-- Boilerplate to support localized strings if intllib mod is installed.
local S
if (minetest.get_modpath("intllib")) then
  dofile(minetest.get_modpath("intllib").."/intllib.lua")
  S = intllib.Getter(minetest.get_current_modname())
else
  S = function ( s ) return s end
end


plantlife_bushes = {}

-- TODO: add support for nodebreakers? those dig like mese picks
plantlife_bushes.after_dig_node = function(pos, oldnode, oldmetadata, digger) 
	if( not( digger ) or not( pos ) or not (oldnode )) then
		return nil;
	end

	-- find out which bush type we are dealing with
	local bush_name   = "";
	local can_harvest = false;
	
	if( oldnode.name == 'bushes:fruitless_bush' ) then
		-- this bush has not grown fruits yet (but will eventually)
		bush_name   = oldmetadata[ 'fields' ][ 'bush_type' ];
		-- no fruits to be found, so can_harvest stays false
	else
		local name_parts = oldnode.name:split( ":" );
		if( #name_parts >= 2 and name_parts[2]~=nil ) then

			name_parts = name_parts[2]:split( "_" );

			if( #name_parts >= 2 and name_parts[1]~=nil ) then
				bush_name   = name_parts[1];
				-- this bush really carries fruits
				can_harvest = true;
			end
		end
	end

	-- find out which tool the digger was wielding (if any)
	local toolstack    = digger:get_wielded_item();
	local capabilities = toolstack:get_tool_capabilities();

	-- what the player will get
	local harvested    = "";
	local amount       = "";

	-- failure to find out what the tool can do: destroy the bush and return nothing
	if( not( capabilities["groupcaps"] )) then
		return nil;

	-- digging with the hand or something like that
	elseif(	capabilities["groupcaps"]["snappy"] ) then

		-- plant a new bush without fruits
		minetest.set_node(pos,{type='node',name='bushes:fruitless_bush'})
		local meta = minetest.get_meta( pos );
		meta:set_string( 'bush_type', bush_name ); 

		-- construct the stack of fruits the player will get
		-- only bushes that have grown fruits can actually give fruits
		if( can_harvest == true ) then
			amount    = "4";
			harvested = "bushes:"..bush_name.." "..amount;
		end

	-- something like a shovel
	elseif( capabilities["groupcaps"]["crumbly"] ) then

		-- with a chance of 1/3, return 2 bushes
		if( math.random(1,3)==1 ) then
			amount = "2";
		else
			amount = "1";
		end
		-- return the bush itself
		harvested = "bushes:" .. bush_name .. "_bush "..amount;

	-- something like an axe
	elseif( capabilities["groupcaps"]["choppy"] ) then

		-- the amount of sticks may vary
		amount    = math.random( 4, 20 );
		-- return some sticks
		harvested = "default:stick "..amount;

	-- nothing known - destroy the plant
	else
		return nil;
	end

	-- give the harvested result to the player
	if( harvested ~= "" ) then
		--minetest.chat_send_player("singleplayer","you would now get "..tostring( harvested ) );
		digger:get_inventory():add_item( "main", harvested );
	end
end



plantlife_bushes.after_place_node = function(pos, placer, itemstack)

	if( not( itemstack ) or not( pos )) then
		return nil;
	end

	local name_parts = itemstack:get_name():split( ":" );
	if( #name_parts <2 or name_parts[2]==nil ) then
		return nil;
	end

	name_parts = name_parts[2]:split( "_" );

	if( #name_parts <2 or name_parts[1]==nil ) then
		return nil;
	end

	minetest.set_node( pos, {type='node',name='bushes:fruitless_bush'});
	local meta = minetest.get_meta( pos );
	meta:set_string( 'bush_type', name_parts[1] ); 

	return nil;
end



-- regrow berries (uses a base abm instead of plants_lib because of the use of metadata).

minetest.register_abm({
	nodenames = { "bushes:fruitless_bush" },
	interval = 500,
	chance = 5,
	action = function(pos, node, active_object_count, active_object_count_wider)

		local meta = minetest.get_meta( pos );
		local bush_name = meta:get_string( 'bush_type' ); 
		if( bush_name ~= nil and bush_name ~= '' ) then
			local dirtpos = { x = pos.x, y = pos.y-1, z = pos.z }
			local dirt = minetest.get_node(dirtpos)
			if dirt.name == "farming:soil_wet" or math.random(1,3) == 1 then
				minetest.set_node( pos, {type='node',name='bushes:'..bush_name..'_bush'})
			end
		end
	end
})

-- Define the basket and bush nodes

for i, bush_name in ipairs(bushes_classic.bushes) do

	local desc = bushes_classic.bushes_descriptions[i]

	minetest.register_node(":bushes:basket_"..bush_name, {
		description = S("Basket with "..desc.." Pies"),
		tiles = {
		"bushes_basket_"..bush_name.."_top.png",
		"bushes_basket_bottom.png",
		"bushes_basket_side.png"
		},
		on_use = minetest.item_eat(18),
		groups = { dig_immediate = 3 },
	})

	local texture_top, texture_bottom

	local groups = {snappy = 3, bush = 1, flammable = 2, attached_node=1}
	if bush_name == "mixed_berry" then
		bush_name = "fruitless";
		desc      = S("currently fruitless");
		texture_top = "bushes_fruitless_bush_top.png"
		texture_bottom = "bushes_fruitless_bush_bottom.png"
		groups.not_in_creative_inventory = 1
	else
		texture_top = "bushes_bush_top.png"
		texture_bottom = "bushes_bush_bottom.png"
	end

	minetest.register_node(":bushes:" .. bush_name .. "_bush", {
			description = S(desc.." Bush"),
			drawtype = "nodebox",
			tiles = {texture_top, texture_bottom, "bushes_" .. bush_name .. "_bush.png"},
			inventory_image = "bushes_" .. bush_name .. "_bush.png",
			paramtype = "light",
			sunlight_propagates = true,
			walkable = false,
			node_box = {
				type = "fixed",
				fixed = {
					{-1/16,	-8/16,	-1/16,	1/16,	-6/16,	1/16},
					{-4/16,	-6/16,	-4/16,	4/16,	5/16,	4/16},
					{-5/16,	-5/16,	-5/16,	5/16,	3/16,	5/16},
					{-6/16,	-4/16,	-6/16,	6/16,	2/16,	6/16},
					{-6.5/16,	-3/16,	-6.5/16,	6.5/16,	-2/16,	6.5/16},
					{-3/16,	5/16,	-3/16,	3/16,	6/16,	3/16},
					{-2/16,	5/16,	-2/16,	2/16,	7/16,	2/16}
				}
			},

			groups = groups,
			sounds = default.node_sound_leaves_defaults(),
			drop = "",
			after_dig_node = function( pos, oldnode, oldmetadata, digger )
				return plantlife_bushes.after_dig_node(pos, oldnode, oldmetadata, digger);
			end,
			after_place_node = function( pos, placer, itemstack )
				return plantlife_bushes.after_place_node(pos, placer, itemstack);
			end,
	})

	-- do not spawn fruitless bushes
	if bush_name ~= "fruitless" then
		table.insert(bushes_classic.spawn_list, "bushes:"..bush_name.."_bush")
	end
end


minetest.register_node(":bushes:basket_empty", {
    description = S("Basket"),
    tiles = {
	"bushes_basket_empty_top.png",
	"bushes_basket_bottom.png",
	"bushes_basket_side.png"
    },
    groups = { dig_immediate = 3 },
})