From ab84afd071cad49b318735d0207b3db632e32fbf Mon Sep 17 00:00:00 2001
From: Perttu Ahola <celeron55@gmail.com>
Date: Sat, 31 Mar 2012 13:12:12 +0300
Subject: [PATCH] Leaf decay, based on the groups 'leafdecay' and 'tree'

---
 mods/default/init.lua      |  9 +++--
 mods/default/leafdecay.lua | 76 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 81 insertions(+), 4 deletions(-)
 create mode 100644 mods/default/leafdecay.lua

diff --git a/mods/default/init.lua b/mods/default/init.lua
index bd17d68..fda4ee1 100644
--- a/mods/default/init.lua
+++ b/mods/default/init.lua
@@ -11,8 +11,9 @@ LIGHT_MAX = 14
 -- Definitions made by this mod that other mods can use too
 default = {}
 
--- Register and define map generator stuff
+-- Load other files
 dofile(minetest.get_modpath("default").."/mapgen.lua")
+dofile(minetest.get_modpath("default").."/leafdecay.lua")
 
 --
 -- Tool definition
@@ -808,7 +809,7 @@ minetest.register_node("default:tree", {
 	description = "Tree",
 	tile_images = {"default_tree_top.png", "default_tree_top.png", "default_tree.png"},
 	is_ground_content = true,
-	groups = {snappy=2,choppy=2,oddly_breakable_by_hand=1},
+	groups = {tree=1,snappy=2,choppy=2,oddly_breakable_by_hand=1},
 	sounds = default.node_sound_wood_defaults(),
 })
 
@@ -816,7 +817,7 @@ minetest.register_node("default:jungletree", {
 	description = "Jungle Tree",
 	tile_images = {"default_jungletree_top.png", "default_jungletree_top.png", "default_jungletree.png"},
 	is_ground_content = true,
-	groups = {snappy=2,choppy=2,oddly_breakable_by_hand=1},
+	groups = {tree=1,snappy=2,choppy=2,oddly_breakable_by_hand=1},
 	sounds = default.node_sound_wood_defaults(),
 })
 
@@ -839,7 +840,7 @@ minetest.register_node("default:leaves", {
 	visual_scale = 1.3,
 	tile_images = {"default_leaves.png"},
 	paramtype = "light",
-	groups = {snappy=3},
+	groups = {snappy=3, leafdecay=3},
 	drop = {
 		max_items = 1,
 		items = {
diff --git a/mods/default/leafdecay.lua b/mods/default/leafdecay.lua
new file mode 100644
index 0000000..0fa894a
--- /dev/null
+++ b/mods/default/leafdecay.lua
@@ -0,0 +1,76 @@
+-- minetest/default/leafdecay.lua
+
+-- To enable leaf decay for a node, add it to the "leafdecay" group.
+--
+-- The rating of the group determines how far from a node in the group "tree"
+-- the node can be without decaying.
+--
+-- If param2 of the node is ~= 0, the node will always be preserved. Thus, if
+-- the player places a node of that kind, you will want to set param2=1 or so.
+
+default.leafdecay_trunk_cache = {}
+default.leafdecay_enable_cache = true
+
+minetest.register_abm({
+	nodenames = {"group:leafdecay"},
+	neighbors = {"air", "group:liquid"},
+	-- A low interval and a high inverse chance spreads the load
+	interval = 2,
+	chance = 5,
+
+	action = function(p0, node, _, _)
+		--print("leafdecay ABM at "..p0.x..", "..p0.y..", "..p0.z..")")
+		local do_preserve = false
+		local d = minetest.registered_nodes[node.name].groups.leafdecay
+		if not d or d == 0 then
+			--print("not groups.leafdecay")
+			return
+		end
+		local n0 = minetest.env:get_node(p0)
+		if n0.param2 ~= 0 then
+			--print("param2 ~= 0")
+			return
+		end
+		local p0_hash = nil
+		if default.leafdecay_enable_cache then
+			p0_hash = minetest.hash_node_position(p0)
+			local trunkp = default.leafdecay_trunk_cache[p0_hash]
+			if trunkp then
+				local n = minetest.env:get_node(trunkp)
+				local reg = minetest.registered_nodes[n.name]
+				if reg.groups.tree and reg.groups.tree ~= 0 then
+					--print("cached trunk still exists")
+					return
+				end
+				--print("cached trunk is invalid")
+				-- Cache is invalid
+				table.remove(default.leafdecay_trunk_cache, p0_hash)
+			end
+		end
+		for dx = -d, d do if do_preserve then break end
+		for dy = -d, d do if do_preserve then break end
+		for dz = -d, d do if do_preserve then break end
+			local p = {
+				x = p0.x + dx,
+				y = p0.y + dy,
+				z = p0.z + dz,
+			}
+			local n = minetest.env:get_node(p)
+			local reg = minetest.registered_nodes[n.name]
+			if reg.groups.tree and reg.groups.tree ~= 0 then
+				do_preserve = true
+				if default.leafdecay_enable_cache then
+					--print("caching trunk")
+					-- Cache the trunk
+					default.leafdecay_trunk_cache[p0_hash] = p
+				end
+			end
+		end
+		end
+		end
+		if not do_preserve then
+			minetest.env:remove_node(p0)
+		end
+	end
+})
+