From 41cebe13bfb047bfa4c3671ff4903f8ed4e53537 Mon Sep 17 00:00:00 2001
From: Wuzzy <Wuzzy2@mail.ru>
Date: Sat, 3 Feb 2018 02:40:49 +0100
Subject: [PATCH] Chance to damage anvil with each step

---
 GROUPS.md                      |  1 +
 mods/ITEMS/mcl_anvils/init.lua | 50 ++++++++++++++++++++++++++++++++++
 2 files changed, 51 insertions(+)

diff --git a/GROUPS.md b/GROUPS.md
index d400be01a..a50234cf3 100644
--- a/GROUPS.md
+++ b/GROUPS.md
@@ -52,6 +52,7 @@ Please read <http://minecraft.gamepedia.com/Breaking> to learn how digging times
 * `can_eat_when_full=1`: Only for foodstuffs. This item can be eaten when the user has a full hunger bar
 * `attached_node_facedir=1`: Like `attached_node`, but for facedir nodes
 * `cauldron`: Cauldron. 1: Empty. 2-4: Water height
+* `anvil`: Anvil. 1: No damage. 2-3: Higher damage levels
 * `no_rename=1`: Item cannot be renamed by anvil
 
 #### Footnotes
diff --git a/mods/ITEMS/mcl_anvils/init.lua b/mods/ITEMS/mcl_anvils/init.lua
index ca7b206ed..13624ef2d 100644
--- a/mods/ITEMS/mcl_anvils/init.lua
+++ b/mods/ITEMS/mcl_anvils/init.lua
@@ -147,6 +147,35 @@ local function drop_anvil_items(pos, meta)
 	end
 end
 
+-- Roll a virtual dice and with a low chance, damage the anvil by 1 level.
+-- Destroy anvil when at highest damage level.
+-- Returns true if anvil was destroyed.
+local function damage_anvil(pos)
+	local r = math.random(1, 100)
+	-- 12% chance
+	if r <= 12 then
+		local node = minetest.get_node(pos)
+		local new
+		if node.name == "mcl_anvils:anvil" then
+			minetest.swap_node(pos, {name="mcl_anvils:anvil_damage_1", param2=node.param2})
+			minetest.sound_play(mcl_sounds.node_sound_metal_defaults().dig, {pos=pos, max_hear_distance=16})
+			return false
+		elseif node.name == "mcl_anvils:anvil_damage_1" then
+			minetest.swap_node(pos, {name="mcl_anvils:anvil_damage_2", param2=node.param2})
+			minetest.sound_play(mcl_sounds.node_sound_metal_defaults().dig, {pos=pos, max_hear_distance=16})
+			return false
+		elseif node.name == "mcl_anvils:anvil_damage_2" then
+			-- Destroy anvil
+			local meta = minetest.get_meta(pos)
+			drop_anvil_items(pos, meta)
+			minetest.sound_play(mcl_sounds.node_sound_metal_defaults().dug, {pos=pos, max_hear_distance=16})
+			minetest.remove_node(pos)
+			return true
+		end
+	end
+	return false
+end
+
 local anvildef = {
 	groups = {pickaxey=1, falling_node=1, crush_after_fall=1, deco_block=1, anvil=1},
 	tiles = {"mcl_anvils_anvil_top_damaged_0.png^[transformR90", "mcl_anvils_anvil_base.png", "mcl_anvils_anvil_side.png"},
@@ -212,6 +241,18 @@ local anvildef = {
 			end
 		end
 		update_anvil_slots(meta)
+
+		local destroyed = damage_anvil(pos, player)
+		-- Close formspec if anvil was destroyed
+		if destroyed then
+			--[[ Closing the formspec w/ emptyformname is discouraged. But this is justified
+			because node formspecs seem to only have an empty formname in MT 0.4.16.
+			Also, sice this is on_metadata_inventory_take, we KNOW which formspec has
+			been opened by the player. So this should be safe nonetheless.
+			TODO: Update this line when node formspecs get proper identifiers in Minetest. ]]
+			minetest.close_formspec(player:get_player_name(), "")
+		end
+
 	end,
 	on_metadata_inventory_take = function(pos, listname, index, stack, player)
 		local meta = minetest.get_meta(pos)
@@ -231,6 +272,13 @@ local anvildef = {
 			end
 		end
 		update_anvil_slots(meta)
+		local destroyed = damage_anvil(pos, player)
+
+		-- Close formspec if anvil was destroyed
+		if destroyed then
+			-- See above for justification.
+			minetest.close_formspec(player:get_player_name(), "")
+		end
 	end,
 	on_construct = function(pos)
 		local meta = minetest.get_meta(pos)
@@ -280,12 +328,14 @@ anvildef0.description = "Anvil"
 local anvildef1 = table.copy(anvildef)
 anvildef1.description = "Slightly Damaged Anvil"
 anvildef1.groups.not_in_creative_inventory = 1
+anvildef1.groups.anvil = 2
 anvildef1._doc_items_create_entry = false
 anvildef1.tiles = {"mcl_anvils_anvil_top_damaged_1.png^[transformR90", "mcl_anvils_anvil_base.png", "mcl_anvils_anvil_side.png"}
 
 local anvildef2 = table.copy(anvildef)
 anvildef2.description = "Very Damaged Anvil"
 anvildef2.groups.not_in_creative_inventory = 1
+anvildef2.groups.anvil = 3
 anvildef2._doc_items_create_entry = false
 anvildef2.tiles = {"mcl_anvils_anvil_top_damaged_2.png^[transformR90", "mcl_anvils_anvil_base.png", "mcl_anvils_anvil_side.png"}