VoxeLibre/mods/ITEMS/mcl_anvils/init.lua

local MAX_NAME_LENGTH = 30
local MAX_WEAR = 65535
local SAME_TOOL_REPAIR_BOOST = math.ceil(MAX_WEAR * 0.05) -- 5%
local MATERIAL_TOOL_REPAIR_BOOST = math.ceil(MAX_WEAR * 0.25) -- 25%

local function get_anvil_formspec(set_name)
	if not set_name then
		set_name = ""
	end
	return "size[9,8.75]"..
	"background[-0.19,-0.25;9.41,9.49;mcl_anvils_inventory.png]"..
	mcl_vars.inventory_header..
	"list[current_player;main;0,4.5;9,3;9]"..
	"list[current_player;main;0,7.74;9,1;]"..
	"list[context;input;1,2.5;1,1;]"..
	"list[context;input;4,2.5;1,1;1]"..
	"list[context;output;8,2.5;1,1;]"..
	"field[3.25,1;4,1;name;;"..minetest.formspec_escape(set_name).."]"..
	"button[7,0.7;2,1;name_button;Set Name]"..
	"listring[context;output]"..
	"listring[current_player;main]"..
	"listring[context;input]"..
	"listring[current_player;main]"
end

-- Update the inventory slots of an anvil node.
-- meta: Metadata of anvil node
local function update_anvil_slots(meta)
	local inv = meta:get_inventory()
	local new_name = meta:get_string("set_name")
	local input1, input2, output
	input1 = inv:get_stack("input", 1)
	input2 = inv:get_stack("input", 2)
	output = inv:get_stack("output", 1)
	local new_output, name_item
	local check_rename = false

	-- Both input slots occupied
	if (not input1:is_empty() and not input2:is_empty()) then
		-- Repair, if tool
		local def1 = input1:get_definition()
		local def2 = input2:get_definition()

		-- Repair calculation helper.
		-- Adds the “inverse” values of wear1 and wear2.
		-- Then adds a boost health value directly.
		-- Returns the resulting (capped) wear.
		local function calculate_repair(wear1, wear2, boost)
			local new_health = (MAX_WEAR - wear1) + (MAX_WEAR - wear2)
			if boost then
				new_health = new_health + boost
			end
			return math.max(0, math.min(MAX_WEAR, MAX_WEAR - new_health))
		end

		-- Same tool twice
		if input1:get_name() == input2:get_name() and def1.type == "tool" then
			-- Add tool health together plus a small bonus
			-- TODO: Combine tool enchantments
			local new_wear = calculate_repair(input1:get_wear(), input2:get_wear(), SAME_TOOL_REPAIR_BOOST)
			input1:set_wear(new_wear)
			name_item = input1
		-- Tool + repair item
		else
			-- Any tool can have a repair item. This may be defined in the tool's item definition
			-- as an itemstring in the field `_repair_material`. Only if this field is set, the
			-- tool can be repaired with a material item.
			-- Example: Iron Pickaxe + Iron Ingot. `_repair_material = mcl_core:iron_ingot`

			-- Big repair bonus
			-- TODO: Combine tool enchantments
			local tool, tooldef, material
			if def1.type == "tool" and def1._repair_material then
				tool = input1
				tooldef = def1
				material = input2
			elseif def2.type == "tool" and def2._repair_material then
				tool = input2
				tooldef = def2
				material = input1
			end
			if tool and material then
				local has_correct_material = false
				if string.sub(tooldef._repair_material, 1, 6) == "group:" then
					has_correct_material = minetest.get_item_group(material:get_name(), string.sub(tooldef._repair_material, 7)) ~= 0
				elseif material:get_name() == tooldef._repair_material then
					has_correct_material = true
				end
				if has_correct_material then
					local new_wear = calculate_repair(tool:get_wear(), MAX_WEAR, MATERIAL_TOOL_REPAIR_BOOST)
					tool:set_wear(new_wear)
					name_item = tool
				else
					new_output = ""
				end
			else
				new_output = ""
			end
		end
	-- Exactly 1 input slot occupied
	elseif (not input1:is_empty() and input2:is_empty()) or (input1:is_empty() and not input2:is_empty()) then
		-- Just rename item
		if new_name == nil then
			new_name = ""
		end
		if input1:is_empty() then
			name_item = input2
		else
			name_item = input1
		end
	else
		new_output = ""
	end

	-- Rename handling
	if name_item then
		-- No renaming allowed with group no_rename=1
		if minetest.get_item_group(name_item:get_name(), "no_rename") == 1 then
			new_output = ""
		else
			local meta = name_item:get_meta()
			-- Limit name length
			new_name = string.sub(new_name, 1, MAX_NAME_LENGTH)
			-- Rename item
			meta:set_string("description", new_name)
			-- Double-save the name internally, too
			meta:set_string("name", new_name)
			new_output = name_item
		end
	end

	-- Set the new output slot
	if new_output ~= nil then
		inv:set_stack("output", 1, new_output)
	end
end

-- Drop input items of anvil at pos with metadata meta
local function drop_anvil_items(pos, meta)
	local inv = meta:get_inventory()
	for i=1, inv:get_size("input") do
		local stack = inv:get_stack("input", i)
		if not stack:is_empty() then
			local p = {x=pos.x+math.random(0, 10)/10-0.5, y=pos.y, z=pos.z+math.random(0, 10)/10-0.5}
			minetest.add_item(p, stack)
		end
	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"},
	paramtype = "light",
	sunlight_propagates = true,
	is_ground_content = false,
	paramtype2 = "facedir",
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-8/16, 2/16, -5/16, 8/16, 8/16, 5/16}, --  top
			{-5/16, -4/16, -2/16, 5/16, 5/16, 2/16}, -- middle
			{-8/16, -8/16, -5/16, 8/16, -4/16, 5/16}, -- base
		}
	},
	sounds = mcl_sounds.node_sound_metal_defaults(),
	_mcl_blast_resistance = 6000,
	_mcl_hardness = 5,

	after_dig_node = function(pos, oldnode, oldmetadata, digger)
		local meta = minetest.get_meta(pos) 
		local meta2 = meta 
		meta:from_table(oldmetadata)
		drop_anvil_items(pos, meta)
		meta:from_table(meta2:to_table())
	end,
	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		if listname == "output" then
			return 0
		else
			return stack:get_count()
		end
	end,
	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		if to_list == "output" then
			return 0
		elseif from_list == "output" and to_list == "input" then
			local meta = minetest.get_meta(pos)
			local inv = meta:get_inventory()
			if inv:get_stack(to_list, to_index):is_empty() then
				return count
			else
				return 0
			end
		else
			return count
		end
	end,
	on_metadata_inventory_put = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		update_anvil_slots(meta)
	end,
	on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		local meta = minetest.get_meta(pos)
		if from_list == "output" and to_list == "input" then
			local inv = meta:get_inventory()
			inv:set_stack("output", 1, "")
			for i=1, inv:get_size("input") do
				if i ~= to_index then
					inv:set_stack("input", i, "")
				end
			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)
		if listname == "output" then
			local inv = meta:get_inventory()
			local input1 = inv:get_stack("input", 1)
			local input2 = inv:get_stack("input", 2)
			if not input1:is_empty() and not input2:is_empty() then
				-- Both slots occupied: Repair mode. Only take 1 item from each stack
				input1:take_item()
				input2:take_item()
				inv:set_stack("input", 1, input1)
				inv:set_stack("input", 2, input2)
			else
				-- Otherwise: Rename mode: Clear all input slots as the whole stack is renamed.
				inv:set_list("input", {"", ""})
			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)
		local inv = meta:get_inventory()
		inv:set_size("input", 2)
		inv:set_size("output", 1)
		local form = "size[9,8.75]"..
		"background[-0.19,-0.25;9.41,9.49;mcl_anvils_inventory.png]"..
		mcl_vars.inventory_header..
		"list[current_player;main;0,4.5;9,3;9]"..
		"list[current_player;main;0,7.74;9,1;]"..
		"list[context;input;1,2.5;1,1;]"..
		"list[context;input;4,2.5;1,1;1]"..
		"list[context;output;8,2.5;1,1;]"..
		"field[3.25,1;4,1;name;;]"..
		"button[7,0.7;2,1;name_button;Set Name]"..
		"listring[context;output]"..
		"listring[current_player;main]"..
		"listring[context;input]"..
		"listring[current_player;main]"
		meta:set_string("formspec", form)
	end,
	on_receive_fields = function(pos, formname, fields, sender)
		if fields.name_button then
			local set_name
			if fields.name == nil then
				set_name = ""
			else
				set_name = fields.name
			end
			local meta = minetest.get_meta(pos)
			-- Limit name length
			set_name = string.sub(set_name, 1, MAX_NAME_LENGTH)
			meta:set_string("set_name", set_name)
			update_anvil_slots(meta)
			meta:set_string("formspec", get_anvil_formspec(set_name))
		end
	end,
}
if minetest.get_modpath("screwdriver") then
	anvildef.on_rotate = screwdriver.rotate_simple
end

local anvildef0 = table.copy(anvildef)
anvildef0.description = "Anvil"
anvildef0._doc_items_longdesc =
[[The anvil allows you to repair tools and armor, and to give names to items. It has a limited durability, however. The anvil is able to fall and very heavy. Don't let it fall on your head! It crushes (nearly) everything under its weight and hurts everyone on its way down.]]
anvildef0._doc_items_usagehelp =
"To use an anvil, rightclick it. An anvil has 2 input slots (on the left) and one output slot.".."\n"..
"To rename items, put an item stack in one of the item slots while keeping the other input slot empty. Enter a name, hit “Set Name” and take the renamed item from the output slot.".."\n"..
"There are two possibilities to repair tools (and armor):".."\n"..
"• Tool + Tool: Place two tools of the same type in the input slots. The “health” of the repaired tool is the sum of the “health” of both input tools, plus a 5% bonus.".."\n"..
"• Tool + Material: Some tools can also be repaired by combining them with an item that it's made of. For example, iron pickaxes can be repaired with iron ingots. This repairs the tool by 25%.".."\n"..
"Armor counts as a tool. It is possible to repair and rename a tool in a single step.".."\n\n"..
"The anvil has limited durability and 3 damage levels: undamaged, slightly damaged and very damaged. Each time you repair or rename something, there is a 12% chance the anvil gets damaged. If a very damaged anvil is damaged again, it is destroyed."

local anvildef1 = table.copy(anvildef)
anvildef1.description = "Slightly Damaged Anvil"
anvildef1._doc_items_create_entry = false
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._doc_items_create_entry = false
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"}

minetest.register_node("mcl_anvils:anvil", anvildef0)
minetest.register_node("mcl_anvils:anvil_damage_1", anvildef1)
minetest.register_node("mcl_anvils:anvil_damage_2", anvildef2)

minetest.register_craft({
	output = "mcl_anvils:anvil",
	recipe = {
		{ "mcl_core:ironblock", "mcl_core:ironblock", "mcl_core:ironblock" },
		{ "", "mcl_core:iron_ingot", "" },
		{ "mcl_core:iron_ingot", "mcl_core:iron_ingot", "mcl_core:iron_ingot" },
	}
})

if minetest.get_modpath("doc") then
	doc.add_entry_alias("nodes", "mcl_anvils:anvil", "nodes", "mcl_anvils:anvil_damage_1")
	doc.add_entry_alias("nodes", "mcl_anvils:anvil", "nodes", "mcl_anvils:anvil_damage_2")
end

dofile(minetest.get_modpath(minetest.get_current_modname()).."/falling_anvil.lua")