From b7971ef7966fcef58cc58b9e9c009f20fbf91a9c Mon Sep 17 00:00:00 2001
From: Wuzzy <almikes@aol.com>
Date: Sun, 14 May 2017 21:08:02 +0200
Subject: [PATCH] Turn dry farmland to dirt, update farmland wetten

---
 mods/ITEMS/mcl_farming/soil.lua | 66 ++++++++++++++++++++++++++++++---
 1 file changed, 60 insertions(+), 6 deletions(-)

diff --git a/mods/ITEMS/mcl_farming/soil.lua b/mods/ITEMS/mcl_farming/soil.lua
index a69dbce0a3..e4aa7b11eb 100644
--- a/mods/ITEMS/mcl_farming/soil.lua
+++ b/mods/ITEMS/mcl_farming/soil.lua
@@ -12,6 +12,10 @@ minetest.register_node("mcl_farming:soil", {
 			{-0.5, -0.5, -0.5, 0.5, 0.4375, 0.5},
 		}
 	},
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_int("wet", 0)
+	end,
 	groups = {handy=1,shovely=1, not_in_creative_inventory=1, soil=2, soil_sapling=1 },
 	sounds = mcl_sounds.node_sound_dirt_defaults(),
 	_mcl_blast_resistance = 3,
@@ -31,6 +35,10 @@ minetest.register_node("mcl_farming:soil_wet", {
 			{-0.5, -0.5, -0.5, 0.5, 0.4375, 0.5},
 		}
 	},
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_int("wet", 7)
+	end,
 	groups = {handy=1,shovely=1, not_in_creative_inventory=1, soil=3, soil_sapling=1 },
 	sounds = mcl_sounds.node_sound_dirt_defaults(),
 	_mcl_blast_resistance = 3,
@@ -38,14 +46,60 @@ minetest.register_node("mcl_farming:soil_wet", {
 })
 
 minetest.register_abm({
-	nodenames = {"mcl_farming:soil"},
+	label = "Farmland hydration",
+	nodenames = {"mcl_farming:soil", "mcl_farming:soil_wet"},
 	interval = 15,
-	chance = 3,
+	chance = 4,
 	action = function(pos, node)
-		if minetest.find_node_near(pos, 4, {"mcl_core:water_source", "mcl_core:water_flowing"}) then
-			node.name = "mcl_farming:soil_wet"
-			minetest.set_node(pos, node)
+		-- Get wetness value
+		local meta = minetest.get_meta(pos)
+		local wet = meta:get_int("wet")
+		if not wet then
+			if node.name == "mcl_farming:soil" then
+				wet = 0
+			else
+				wet = 7
+			end
+		end
+
+		-- Check an area of 9×2×9 around the node for nodename
+		local check_surroundings = function(pos, nodename)
+			local nodes = minetest.find_nodes_in_area({x=pos.x-4,y=pos.y-1,z=pos.z-4}, {x=pos.x+4,y=pos.y,z=pos.z+4}, {nodename})
+			return #nodes > 0
+		end
+
+		if check_surroundings(pos, "group:water") then
+			if node.name ~= "mcl_farming:soil_wet" then
+				-- Make it wet
+				node.name = "mcl_farming:soil_wet"
+				minetest.set_node(pos, node)
+			end
+		else
+			-- Decay if no water is nearby.
+			-- But not near unloaded areas since thse might include water.
+			if not check_surroundings(pos, "ignore") then
+				if wet <= 0 then
+					local n_def = minetest.registered_nodes[node.name] or nil
+					local nn = minetest.get_node_or_nil({x=pos.x,y=pos.y+1,z=pos.z})
+					if not nn or not nn.name then
+						return
+					end
+					local nn_def = minetest.registered_nodes[nn.name] or nil
+
+					if nn_def and minetest.get_item_group(nn.name, "plant") == 0 then
+						node.name = "mcl_core:dirt"
+						minetest.set_node(pos, node)
+						return
+					end
+				else
+					if wet == 7 then
+						node.name = "mcl_farming:soil"
+						minetest.swap_node(pos, node)
+					end
+					-- Slowly count down wetness
+					meta:set_int("wet", wet-1)
+				end
+			end
 		end
 	end,
 })
-