Cracking of anvils

mods/anvil/depends.txt

@@ -1,2 +1,3 @@
 default 
-metals
+metals
+helper_functions

mods/anvil/init.lua

@@ -128,133 +128,18 @@ minetest.register_tool("anvil:tool_hammer_stone", {
 })
 
 local anvils = {
-	{'stone', 'Stone', 0},
+	{'stone', 'Stone', 0, 61},
-	{'copper', 'Copper', 1},
+	{'copper', 'Copper', 1, 411},
-	{'rose_gold', 'Rose Gold', 2},
+	{'rose_gold', 'Rose Gold', 2, 521},
-	{'bismuth_bronze', 'Bismuth Bronze', 2},
+	{'bismuth_bronze', 'Bismuth Bronze', 2, 581},
-	{'black_bronze', 'Black Bronze', 2},
+	{'black_bronze', 'Black Bronze', 2, 531},
-	{'bronze', 'Bronze', 2},
+	{'bronze', 'Bronze', 2, 601},
-	{'wrought_iron', 'Wrought Iron', 3},
+	{'wrought_iron', 'Wrought Iron', 3, 801},
-	{'steel', 'Steel', 4},
+	{'steel', 'Steel', 4, 1101},
-	{'black_steel', 'Black Steel', 5}
+	{'black_steel', 'Black Steel', 5, 1501}
 }
 
 for _, anvil in ipairs(anvils) do
-	minetest.register_node("anvil:"..anvil[1].."_anvil", {
-		description = anvil[2] .. " Anvil",
-		tiles = {"anvil_"..anvil[1].."_top.png","anvil_"..anvil[1].."_top.png","anvil_"..anvil[1].."_side.png"},
-		drawtype = "nodebox",
-		paramtype = "light",
-		paramtype2 = "facedir",
-		node_box = {
-			type = "fixed",
-			fixed = {
-				{-0.5,-0.5,-0.3,0.5,-0.4,0.3},
-				{-0.35,-0.4,-0.25,0.35,-0.3,0.25},
-				{-0.3,-0.3,-0.15,0.3,-0.1,0.15},
-				{-0.35,-0.1,-0.2,0.35,0.1,0.2},
-			},
-		},
-		selection_box = {
-			type = "fixed",
-			fixed = {
-				{-0.5,-0.5,-0.3,0.5,-0.4,0.3},
-				{-0.35,-0.4,-0.25,0.35,-0.3,0.25},
-				{-0.3,-0.3,-0.15,0.3,-0.1,0.15},
-				{-0.35,-0.1,-0.2,0.35,0.1,0.2},
-			},
-		},
-		groups = {oddly_breakable_by_hand=2, cracky=3, dig_immediate=1},
-		sounds = default.node_sound_stone_defaults(),
-		can_dig = function(pos,player)
-			local meta = minetest.env:get_meta(pos);
-			local inv = meta:get_inventory()
-			if inv:is_empty("src1") and inv:is_empty("src2") and inv:is_empty("hammer")
-				and inv:is_empty("output") and inv:is_empty("flux") then
-				return true
-			end
-			return false
-		end,
-		on_construct = function(pos)
-			local meta = minetest.env:get_meta(pos)
-			meta:set_string("formspec", "invsize[8,7;]"..
-					"button[0.5,0.25;2,1;buttonForge;Forge]"..
-					"list[current_name;src1;2.9,0.25;1,1;]"..
-					"image[3.69,0.22;0.54,1.5;anvil_arrow.png]"..
-					"list[current_name;src2;4.1,0.25;1,1;]"..
-					"button[5.5,0.25;2,1;buttonWeld;Weld]"..
-					"list[current_name;hammer;1,1.5;1,1;]"..
-					"list[current_name;output;3.5,1.5;1,1;]"..
-					"list[current_name;flux;6,1.5;1,1;]"..
-					"list[current_player;main;0,3;8,4;]")
-			meta:set_string("infotext", anvil[2].." Anvil")
-			local inv = meta:get_inventory()
-			inv:set_size("src1", 1)
-			inv:set_size("src2", 1)
-			inv:set_size("hammer", 1)
-			inv:set_size("output", 1)
-			inv:set_size("flux", 1)
-		end,
-		on_receive_fields = function(pos, formname, fields, sender)
-			local meta = minetest.env:get_meta(pos)
-			local inv = meta:get_inventory()
-		
-			local src1, src2 = inv:get_stack("src1", 1), inv:get_stack("src2", 1)
-			local hammer, flux = inv:get_stack("hammer", 1), inv:get_stack("flux", 1)
-			local output = inv:get_stack("output", 1)
-			if string.sub(hammer:get_name(), 12, 17) == "hammer" then
-				if fields["buttonForge"] then
-					for _, recipe in ipairs(realtest.registered_anvil_recipes) do
-						if recipe.type == "forge" and recipe.item1 == src1:get_name() and recipe.item2 == src2:get_name() and
-							anvil[3] >= recipe.level and
-							minetest.registered_items[hammer:get_name()].groups["anvil_level"] >= recipe.level then
-							if inv:room_for_item("output", recipe.output) then
-								if recipe.rmitem1 then
-									src1:take_item()
-									inv:set_stack("src1", 1, src1)
-								end
-								if recipe.item2 ~= "" and recipe.rmitem2 then
-									src2:take_item()
-									inv:set_stack("src2", 1, src2)
-								end
-								output:add_item(recipe.output)
-								inv:set_stack("output", 1, output)
-								hammer:add_wear(65535/30)
-								inv:set_stack("hammer", 1, hammer)
-							end
-							return
-						end
-					end 
-				elseif fields["buttonWeld"] then
-					if flux:get_name() == "minerals:flux" then
-						for _, recipe in ipairs(realtest.registered_anvil_recipes) do
-							if recipe.type == "weld" and recipe.item1 == src1:get_name() and recipe.item2 == src2:get_name() and
-						 		anvil[3] >= recipe.level and
-						 		minetest.registered_items[hammer:get_name()].groups["anvil_level"] >= recipe.level then
-								if inv:room_for_item("output", recipe.output) then
-									if recipe.rmitem1 then
-										src1:take_item()
-										inv:set_stack("src1", 1, src1)
-									end
-									if recipe.item2 ~= "" and recipe.rmitem2 then
-										src2:take_item()
-										inv:set_stack("src2", 1, src2)
-									end
-									output:add_item(recipe.output)
-									inv:set_stack("output", 1, output)
-									flux:take_item()
-									inv:set_stack("flux", 1, flux)
-									hammer:add_wear(65535/60)
-									inv:set_stack("hammer", 1, hammer)
-								end
-								return
-							end
-						end 
-					end
-				end
-			end
-		end,
-	})
 	if anvil[1] ~= "stone" then
 		minetest.register_craft({
 			output = "anvil:"..anvil[1].."_anvil",
@@ -266,3 +151,172 @@ for _, anvil in ipairs(anvils) do
 		})
 	end
 end
+
+for i = 1, 2 do
+	for _, anvil in ipairs(anvils) do
+		local postfix = ""
+		local ttiles = {"anvil_"..anvil[1].."_top.png","anvil_"..anvil[1].."_top.png","anvil_"..anvil[1].."_side.png"}
+		if i == 2 then 
+			ttiles = {"anvil_"..anvil[1].."_top.png^anvil_cracked.png","anvil_"..anvil[1].."_top.png^anvil_cracked.png",
+				"anvil_"..anvil[1].."_side.png^anvil_cracked.png"}
+			postfix = "_cracked"
+		end
+		minetest.register_node("anvil:"..anvil[1].."_anvil"..postfix, {
+			description = anvil[2] .. " Anvil",
+			tiles = ttiles,
+			drawtype = "nodebox",
+			paramtype = "light",
+			paramtype2 = "facedir",
+			node_box = {
+				type = "fixed",
+				fixed = {
+					{-0.5,-0.5,-0.3,0.5,-0.4,0.3},
+					{-0.35,-0.4,-0.25,0.35,-0.3,0.25},
+					{-0.3,-0.3,-0.15,0.3,-0.1,0.15},
+					{-0.35,-0.1,-0.2,0.35,0.1,0.2},
+				},
+			},
+			selection_box = {
+				type = "fixed",
+				fixed = {
+					{-0.5,-0.5,-0.3,0.5,-0.4,0.3},
+					{-0.35,-0.4,-0.25,0.35,-0.3,0.25},
+					{-0.3,-0.3,-0.15,0.3,-0.1,0.15},
+					{-0.35,-0.1,-0.2,0.35,0.1,0.2},
+				},
+			},
+			groups = {oddly_breakable_by_hand=2, cracky=3, dig_immediate=1},
+			sounds = default.node_sound_stone_defaults(),
+			can_dig = function(pos,player)
+				local meta = minetest.env:get_meta(pos);
+				local inv = meta:get_inventory()
+				if inv:is_empty("src1") and inv:is_empty("src2") and inv:is_empty("hammer")
+					and inv:is_empty("output") and inv:is_empty("flux") then
+					return true
+				end
+				return false
+			end,
+			on_construct = function(pos)
+				local meta = minetest.env:get_meta(pos)
+				meta:set_string("formspec", "invsize[8,7;]"..
+						"button[0.5,0.25;2,1;buttonForge;Forge]"..
+						"list[current_name;src1;2.9,0.25;1,1;]"..
+						"image[3.69,0.22;0.54,1.5;anvil_arrow.png]"..
+						"list[current_name;src2;4.1,0.25;1,1;]"..
+						"button[5.5,0.25;2,1;buttonWeld;Weld]"..
+						"list[current_name;hammer;1,1.5;1,1;]"..
+						"list[current_name;output;3.5,1.5;1,1;]"..
+						"list[current_name;flux;6,1.5;1,1;]"..
+						"list[current_player;main;0,3;8,4;]")
+				meta:set_string("infotext", anvil[2].." Anvil")
+				if i == 1 then
+					meta:set_int("durability", anvil[4])
+				else
+					meta:set_int("durability", anvil[4]/4)
+				end
+				meta:set_int("max_durability", anvil[4])
+				local inv = meta:get_inventory()
+				inv:set_size("src1", 1)
+				inv:set_size("src2", 1)
+				inv:set_size("hammer", 1)
+				inv:set_size("output", 1)
+				inv:set_size("flux", 1)
+			end,
+			on_receive_fields = function(pos, formname, fields, sender)
+				local meta = minetest.env:get_meta(pos)
+				local inv = meta:get_inventory()
+		
+				local src1, src2 = inv:get_stack("src1", 1), inv:get_stack("src2", 1)
+				local hammer, flux = inv:get_stack("hammer", 1), inv:get_stack("flux", 1)
+				local output = inv:get_stack("output", 1)
+				if string.sub(hammer:get_name(), 12, 17) == "hammer" then
+					if fields["buttonForge"] then
+						for _, recipe in ipairs(realtest.registered_anvil_recipes) do
+							if recipe.type == "forge" and recipe.item1 == src1:get_name() and recipe.item2 == src2:get_name() and
+								anvil[3] >= recipe.level and
+								minetest.registered_items[hammer:get_name()].groups["anvil_level"] >= recipe.level then
+								if inv:room_for_item("output", recipe.output) then
+									if recipe.rmitem1 then
+										src1:take_item()
+										inv:set_stack("src1", 1, src1)
+									end
+									if recipe.item2 ~= "" and recipe.rmitem2 then
+										src2:take_item()
+										inv:set_stack("src2", 1, src2)
+									end
+									output:add_item(recipe.output)
+									inv:set_stack("output", 1, output)
+									hammer:add_wear(65535/30)
+									inv:set_stack("hammer", 1, hammer)
+									meta:set_int("durability", meta:get_int("durability") - 1)
+									if i == 1 and meta:get_int("durability") / meta:get_int("max_durability") <= 1/4 then
+										hacky_swap_node(pos, "anvil:"..anvil[1].."_anvil_cracked")
+										minetest.sound_play("default_dug_node",	{pos = pos})
+									end
+									if meta:get_int("durability") <= 0 then
+										for _, name in ipairs({"src1", "src2", "hammer", "output", "flux"}) do
+											if not inv:is_empty(name) then
+												minetest.env:add_item(pos, 
+												{name=inv:get_stack(name, 1):get_name(),
+												 count=inv:get_stack(name, 1):get_count(),
+												 wear=inv:get_stack(name, 1):get_wear(),
+												 metadata=inv:get_stack(name, 1):get_metadata()})
+											end
+										end
+										minetest.env:remove_node(pos)
+										minetest.sound_play("default_dug_node",	{pos = pos})
+									end
+								end
+								return
+							end
+						end 
+					elseif fields["buttonWeld"] then
+						if flux:get_name() == "minerals:flux" then
+							for _, recipe in ipairs(realtest.registered_anvil_recipes) do
+								if recipe.type == "weld" and recipe.item1 == src1:get_name() and recipe.item2 == src2:get_name() and
+							 		anvil[3] >= recipe.level and
+							 		minetest.registered_items[hammer:get_name()].groups["anvil_level"] >= recipe.level then
+									if inv:room_for_item("output", recipe.output) then
+										if recipe.rmitem1 then
+											src1:take_item()
+											inv:set_stack("src1", 1, src1)
+										end
+										if recipe.item2 ~= "" and recipe.rmitem2 then
+											src2:take_item()
+											inv:set_stack("src2", 1, src2)
+										end
+										output:add_item(recipe.output)
+										inv:set_stack("output", 1, output)
+										flux:take_item()
+										inv:set_stack("flux", 1, flux)
+										hammer:add_wear(65535/60)
+										inv:set_stack("hammer", 1, hammer)
+										meta:set_int("durability", meta:get_int("durability") - 1)
+										if i == 1 and meta:get_int("durability") / meta:get_int("max_durability") <= 1/4 then
+											hacky_swap_node(pos, "anvil:"..anvil[1].."_anvil_cracked")
+											minetest.sound_play("default_dug_node",	{pos = pos})
+										end
+										if meta:get_int("durability") <= 0 then
+											for _, name in ipairs({"src1", "src2", "hammer", "output", "flux"}) do
+												if not inv:is_empty(name) then
+													minetest.env:add_item(pos, 
+												{name=inv:get_stack(name, 1):get_name(),
+												 count=inv:get_stack(name, 1):get_count(),
+												 wear=inv:get_stack(name, 1):get_wear(),
+												 metadata=inv:get_stack(name, 1):get_metadata()})
+												end
+											end
+											minetest.env:remove_node(pos)
+											minetest.sound_play("default_dug_node",	{pos = pos})
+										end
+									end
+									return
+								end
+							end 
+						end
+					end
+				end
+			end,
+		})
+	end
+end

mods/bonfire/depends.txt

@@ -1 +1,2 @@
-default
+default
+helper_functions

mods/bonfire/init.lua

@@ -89,20 +89,6 @@ minetest.register_node("bonfire:self_active", {
 	end,
 })
 
-function hacky_swap_node(pos,name)
-	local node = minetest.env:get_node(pos)
-	local meta = minetest.env:get_meta(pos)
-	local meta0 = meta:to_table()
-	if node.name == name then
-		return
-	end
-	node.name = name
-	local meta0 = meta:to_table()
-	minetest.env:set_node(pos,node)
-	meta = minetest.env:get_meta(pos)
-	meta:from_table(meta0)
-end
-
 minetest.register_abm({
 	nodenames = {"bonfire:self","bonfire:self_active"},
 	interval = 1.0,

mods/default/init.lua

@@ -16,24 +16,6 @@ realtest = {}
 dofile(minetest.get_modpath("default").."/mapgen.lua")
 dofile(minetest.get_modpath("default").."/leafdecay.lua")
 
-table.contains = function(t, v)
-	for _, i in ipairs(t) do
-		if i == v then
-			return true
-		end
-	end
-	return false
-end
-
-table.get_index = function(t, v)
-	for j, i in ipairs(t) do
-		if i == v then
-			return j
-		end
-	end
-	return false
-end
-
 --
 -- Tool definition
 --

mods/furnace/depends.txt

@@ -1 +1,2 @@
-default
+default
+helper_functions

mods/furnace/init.lua

@@ -122,20 +122,6 @@ minetest.register_node("furnace:self_active", {
 	end,
 })
 
-function hacky_swap_node(pos,name)
-	local node = minetest.env:get_node(pos)
-	local meta = minetest.env:get_meta(pos)
-	local meta0 = meta:to_table()
-	if node.name == name then
-		return
-	end
-	node.name = name
-	local meta0 = meta:to_table()
-	minetest.env:set_node(pos,node)
-	meta = minetest.env:get_meta(pos)
-	meta:from_table(meta0)
-end
-
 minetest.register_abm({
 	nodenames = {"furnace:self","furnace:self_active"},
 	interval = 1.0,
@@ -156,7 +142,11 @@ minetest.register_abm({
 				local name, size = v[1], v[2]
 				for n = 1,size do
 					if not inv:is_empty(name) then
-						minetest.env:add_item(pos, inv:get_stack(name, n):get_name() .. " " .. inv:get_stack(name, n):get_count())
+						minetest.env:add_item(pos, 
+							{name=inv:get_stack(name, 1):get_name(),
+							 count=inv:get_stack(name, 1):get_count(),
+							 wear=inv:get_stack(name, 1):get_wear(),
+							 metadata=inv:get_stack(name, n):get_metadata()})
 					end
 				end
 			end

mods/helper_functions/init.lua

@@ -0,0 +1,31 @@
+table.contains = function(t, v)
+	for _, i in ipairs(t) do
+		if i == v then
+			return true
+		end
+	end
+	return false
+end
+
+table.get_index = function(t, v)
+	for j, i in ipairs(t) do
+		if i == v then
+			return j
+		end
+	end
+	return false
+end
+
+function hacky_swap_node(pos,name)
+	local node = minetest.env:get_node(pos)
+	local meta = minetest.env:get_meta(pos)
+	local meta0 = meta:to_table()
+	if node.name == name then
+		return
+	end
+	node.name = name
+	local meta0 = meta:to_table()
+	minetest.env:set_node(pos,node)
+	meta = minetest.env:get_meta(pos)
+	meta:from_table(meta0)
+end