From 88f42539bb378ec25410967634c1e3ae274473a3 Mon Sep 17 00:00:00 2001
From: dokutan <54861821+dokutan@users.noreply.github.com>
Date: Sun, 03 May 2020 19:53:43 +0200
Subject: [PATCH] Fix error caused by locked chest recipes (#548)

---
 wrench/init.lua |  285 ++++++++++++++++++++++++--------------------------------
 1 files changed, 124 insertions(+), 161 deletions(-)

diff --git a/wrench/init.lua b/wrench/init.lua
index a64a81a..adb80c9 100644
--- a/wrench/init.lua
+++ b/wrench/init.lua
@@ -1,120 +1,91 @@
---[""] = {name="", lists={}, metas={}},
-local supported_nodes = {
-["default:chest"] = {name="wrench:default_chest", lists={"main"}, metas={}},
-["default:chest_locked"] = {name="wrench:default_chest_locked", lists={"main"}, metas={{string="owner"},{string="infotext"}}},
-["default:furnace"] = {name="wrench:default_furnace", lists={"fuel", "src", "dst"}, metas={{string="infotext"},{float="fuel_totaltime"},{float="fuel_time"},{float="src_totaltime"},{float="src_time"}}},
-["default:furnace_active"] = {name="wrench:default_furnace", lists={"fuel", "src", "dst"}, metas={{string="infotext"},{float="fuel_totaltime"},{float="fuel_time"},{float="src_totaltime"},{float="src_time"}}},
-["default:sign_wall"] = {name="wrench:default_sing_wall", lists={}, metas={{string="infotext"},{string="text"}}},
-["technic:iron_chest"] = {name="wrench:technic_iron_chest", lists={"main"}, metas={}},
-["technic:iron_locked_chest"] = {name="wrench:technic_iron_locked_chest", lists={"main"}, metas={{string="infotext"},{string="owner"}}},
-["technic:copper_chest"] = {name="wrench:technic_copper_chest", lists={"main"}, metas={}},
-["technic:copper_locked_chest"] = {name="wrench:technic_copper_locked_chest", lists={"main"}, metas={{string="infotext"},{string="owner"}}},
-["technic:silver_chest"] = {name="wrench:technic_silver_chest", lists={"main"}, metas={{string="infotext"},{string="formspec"}}},
-["technic:silver_locked_chest"] = {name="wrench:technic_silver_locked_chest", lists={"main"}, metas={{string="infotext"},{string="owner"},{string="formspec"}}},
-["technic:gold_chest"] = {name="wrench:technic_gold_chest", lists={"main"}, metas={{string="infotext"},{string="formspec"}}},
-["technic:gold_locked_chest"] = {name="wrench:technic_gold_locked_chest", lists={"main"}, metas={{string="infotext"},{string="owner"},{string="formspec"}}},
-["technic:mithril_chest"] = {name="wrench:technic_mithril_chest", lists={"main"}, metas={{string="infotext"},{string="formspec"}}},
-["technic:mithril_locked_chest"] = {name="wrench:technic_mithril_locked_chest", lists={"main"}, metas={{string="infotext"},{string="owner"},{string="formspec"}}},
-["technic:battery_box"] = {name="wrench:technic_battery_box", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="LV_EU_demand"},{int="LV_EU_supply"},{int="LV_EU_input"},{int="internal_EU_charge"},{float="last_side_shown"}}},
-["technic:mv_battery_box"] = {name="wrench:technic_mv_battery_box", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="MV_EU_demand"},{int="MV_EU_supply"},{int="MV_EU_input"},{int="internal_EU_charge"},{float="last_side_shown"}}},
-["technic:hv_battery_box"] = {name="wrench:technic_hv_battery_box", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="HV_EU_demand"},{int="HV_EU_supply"},{int="HV_EU_input"},{int="internal_EU_charge"},{float="last_side_shown"}}},
-["technic:electric_furnace"] = {name="wrench:technic_electric_furnace", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:electric_furnace_active"] = {name="wrench:technic_electric_furnace_active", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:mv_electric_furnace"] = {name="wrench:technic_mv_electric_furnace", lists={"src", "dst", "upgrade1", "upgrade2"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="MV_EU_demand"},{int="MV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:mv_electric_furnace_active"] = {name="wrench:technic_mv_electric_furnace_active", lists={"src", "dst", "upgrade1", "upgrade2"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="MV_EU_demand"},{int="MV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:coal_alloy_furnace"] = {name="wrench:technic_coal_alloy_furnace", lists={"fuel", "src", "src2", "dst"}, metas={{string="infotext"},{float="fuel_totaltime"},{float="fuel_time"},{float="src_totaltime"},{float="src_time"}}},
-["technic:coal_alloy_furnace_active"] = {name="wrench:technic_coal_alloy_furnace_active", lists={"fuel", "src", "src2", "dst"}, metas={{string="infotext"},{float="fuel_totaltime"},{float="fuel_time"},{float="src_totaltime"},{float="src_time"}}},
-["technic:alloy_furnace"] = {name="wrench:technic_alloy_furnace", lists={"src", "src2", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:alloy_furnace_active"] = {name="wrench:technic_alloy_furnace_active", lists={"src", "src2", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:mv_alloy_furnace"] = {name="wrench:technic_mv_alloy_furnace", lists={"src", "src2", "dst", "upgrade1", "upgrade2"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="MV_EU_demand"},{int="MV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:mv_alloy_furnace_active"] = {name="wrench:technic_mv_alloy_furnace_active", lists={"src", "src2", "dst", "upgrade1", "upgrade2"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="MV_EU_demand"},{int="MV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:tool_workshop"] = {name="wrench:technic_tool_workshop", lists={"src"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"}}},
-["technic:grinder"] = {name="wrench:technic_grinder", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:grinder_active"] = {name="wrench:technic_grinder_active", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:mv_grinder"] = {name="wrench:technic_mv_grinder", lists={"src", "dst", "upgrade1", "upgrade2"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="MV_EU_demand"},{int="MV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:mv_grinder_active"] = {name="wrench:technic_mv_grinder_active", lists={"src", "dst", "upgrade1", "upgrade2"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="MV_EU_demand"},{int="MV_EU_input"},{int="tube_time"},{int="src_time"}}},
-["technic:extractor"] = {name="wrench:technic_extractor", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:extractor_active"] = {name="wrench:technic_extractor_active", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:compressor"] = {name="wrench:technic_compressor", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:compressor_active"] = {name="wrench:technic_compressor_active", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"}}},
-["technic:cnc"] = {name="wrench:technic_cnc", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"},{string="cnc_product"}}},
-["technic:cnc_active"] = {name="wrench:technic_cnc_active", lists={"src", "dst"}, metas={{string="infotext"},{string="formspec"},{int="state"},{int="LV_EU_demand"},{int="LV_EU_input"},{int="src_time"},{string="cnc_product"}}},
-}
-local chest_mark_colors = {
-    {'_black','Black'},
-    {'_blue','Blue'}, 
-    {'_brown','Brown'},
-    {'_cyan','Cyan'},
-    {'_dark_green','Dark Green'},
-    {'_dark_grey','Dark Grey'},
-    {'_green','Green'},
-    {'_grey','Grey'},
-    {'_magenta','Magenta'},
-    {'_orange','Orange'},
-    {'_pink','Pink'},
-    {'_red','Red'},
-    {'_violet','Violet'},
-    {'_white','White'},
-    {'_yellow','Yellow'},
-    {'','None'}
-}
-for i=1,15,1 do
-	supported_nodes["technic:gold_chest"..chest_mark_colors[i][1]] = {name="wrench:technic_gold_chest"..chest_mark_colors[i][1], lists={"main"}, metas={{string="infotext"},{string="formspec"}}}
-	supported_nodes["technic:gold_locked_chest"..chest_mark_colors[i][1]] = {name="wrench:technic_gold_locked_chest"..chest_mark_colors[i][1], lists={"main"}, metas={{string="infotext"},{string="owner"},{string="formspec"}}}
+--[[
+Wrench mod
+
+Adds a wrench that allows the player to pickup nodes that contain an inventory
+with items or metadata that needs perserving.
+The wrench has the same tool capability as the normal hand.
+To pickup a node simply right click on it. If the node contains a formspec,
+you will need to shift+right click instead.
+Because it enables arbitrary nesting of chests, and so allows the player
+to carry an unlimited amount of material at once, this wrench is not
+available to survival-mode players.
+--]]
+
+local LATEST_SERIALIZATION_VERSION = 1
+
+wrench = {}
+
+local modpath = minetest.get_modpath(minetest.get_current_modname())
+dofile(modpath.."/support.lua")
+dofile(modpath.."/technic.lua")
+
+-- Boilerplate to support localized strings if intllib mod is installed.
+local S = rawget(_G, "intllib") and intllib.Getter() or function(s) return s end
+
+local function get_meta_type(name, metaname)
+	local def = wrench.registered_nodes[name]
+	return def and def.metas and def.metas[metaname] or nil
 end
 
-local function convert_to_original_name(name)
-	for key,value in pairs(supported_nodes) do
-		if name == value.name then return key end
+local function get_pickup_name(name)
+	return "wrench:picked_up_"..(name:gsub(":", "_"))
+end
+
+local function restore(pos, placer, itemstack)
+	local name = itemstack:get_name()
+	local node = minetest.get_node(pos)
+	local meta = minetest.get_meta(pos)
+	local inv = meta:get_inventory()
+	local data = itemstack:get_meta():get_string("data")
+	data = (data ~= "" and data) or	itemstack:get_metadata()
+	data = minetest.deserialize(data)
+	if not data then
+		minetest.remove_node(pos)
+		minetest.log("error", placer:get_player_name().." wanted to place "..
+				name.." at "..minetest.pos_to_string(pos)..
+				", but it had no data.")
+		minetest.log("verbose", "itemstack: "..itemstack:to_string())
+		return true
 	end
+	minetest.set_node(pos, {name = data.name, param2 = node.param2})
+	for name, value in pairs(data.metas) do
+		local meta_type = get_meta_type(data.name, name)
+		if meta_type == wrench.META_TYPE_INT then
+			meta:set_int(name, value)
+		elseif meta_type == wrench.META_TYPE_FLOAT then
+			meta:set_float(name, value)
+		elseif meta_type == wrench.META_TYPE_STRING then
+			meta:set_string(name, value)
+		end
+	end
+	local lists = data.lists
+	for listname, list in pairs(lists) do
+		inv:set_list(listname, list)
+	end
+	itemstack:take_item()
+	return itemstack
 end
 
-for name,info in pairs(supported_nodes) do
+for name, info in pairs(wrench.registered_nodes) do
 	local olddef = minetest.registered_nodes[name]
-	if olddef ~= nil then
+	if olddef then
 		local newdef = {}
-		for key,value in pairs(olddef) do
+		for key, value in pairs(olddef) do
 			newdef[key] = value
 		end
 		newdef.stack_max = 1
-		newdef.description = newdef.description.." with items"
+		newdef.description = S("%s with items"):format(newdef.description)
 		newdef.groups = {}
 		newdef.groups.not_in_creative_inventory = 1
 		newdef.on_construct = nil
 		newdef.on_destruct = nil
-		newdef.after_place_node = function(pos, placer, itemstack)
-			local node = minetest.get_node(pos)
-			local item = convert_to_original_name(itemstack:get_name())
-			minetest.set_node(pos, {name = item, param2 = node.param2})
-			minetest.after(0.5, function(pos, placer, itemstack)
-				local meta = minetest.get_meta(pos)
-				local inv = meta:get_inventory()
-				local data = minetest.deserialize(itemstack:get_metadata())
-				local lists = data.lists
-				for listname,list in pairs(lists) do
-					inv:set_list(listname, list)
-				end
-				local metas = data.metas
-				for i=1,#metas,1 do
-					local temp = metas[i]
-					if temp.string ~= nil then
-						meta:set_string(temp.string, temp.value)
-					end
-					if temp.int ~= nil then
-						meta:set_int(temp.int, temp.value)
-					end
-					if temp.float ~= nil then
-						meta:set_float(temp.float, temp.value)
-					end
-				end
-			end, pos, placer, itemstack)
-		end
-		minetest.register_node(info.name, newdef)
+		newdef.after_place_node = restore
+		minetest.register_node(":"..get_pickup_name(name), newdef)
 	end
 end
 
 minetest.register_tool("wrench:wrench", {
-	description = "Wrench",
+	description = S("Wrench"),
 	inventory_image = "technic_wrench.png",
 	tool_capabilities = {
 		full_punch_interval = 0.9,
@@ -122,83 +93,75 @@
 		groupcaps = {
 			crumbly = {times={[2]=3.00, [3]=0.70}, uses=0, maxlevel=1},
 			snappy = {times={[3]=0.40}, uses=0, maxlevel=1},
-			oddly_breakable_by_hand = {times={[1]=7.00,[2]=4.00,[3]=1.40}, uses=0, maxlevel=3}
+			oddly_breakable_by_hand = {times={[1]=7.00,[2]=4.00,[3]=1.40},
+						uses=0, maxlevel=3}
 		},
 		damage_groups = {fleshy=1},
 	},
 	on_place = function(itemstack, placer, pointed_thing)
-		if not placer:is_player() then return end
 		local pos = pointed_thing.under
-		if pos == nil then return end
+		if not placer or not pos then
+			return
+		end
+		local player_name = placer:get_player_name()
+		if minetest.is_protected(pos, player_name) then
+			minetest.record_protection_violation(pos, player_name)
+			return
+		end
 		local name = minetest.get_node(pos).name
-		local support = supported_nodes[name]
-		if support == nil then return end
+		local def = wrench.registered_nodes[name]
+		if not def then
+			return
+		end
+
+		local stack = ItemStack(get_pickup_name(name))
+		local player_inv = placer:get_inventory()
+		if not player_inv:room_for_item("main", stack) then
+			return
+		end
 		local meta = minetest.get_meta(pos)
-		if name:find("_locked") ~= nil then
-			if meta:get_string("owner") ~= nil then
-				if meta:get_string("owner") ~= placer:get_player_name() then
-					minetest.log("action", placer:get_player_name()..
-					" tried to destroy a locked chest belonging to "..
-					meta:get_string("owner").." at "..
+		if def.owned and not minetest.check_player_privs(placer, "protection_bypass") then
+			local owner = meta:get_string("owner")
+			if owner and owner ~= player_name then
+				minetest.log("action", player_name..
+					" tried to pick up an owned node belonging to "..
+					owner.." at "..
 					minetest.pos_to_string(pos))
-					return
-				end
+				return
 			end
 		end
-		
-		local lists = support.lists
+
+		local metadata = {}
+		metadata.name = name
+		metadata.version = LATEST_SERIALIZATION_VERSION
+
 		local inv = meta:get_inventory()
-		local empty = true
-		local metadata_str = {}
-		local list_str = {}
-		for i=1,#lists,1 do
-			if not inv:is_empty(lists[i]) then empty = false end
-			local list = inv:get_list(lists[i])
-			for j=1,#list,1 do
-				list[j] = list[j]:to_string()
+		local lists = {}
+		for _, listname in pairs(def.lists or {}) do
+			local list = inv:get_list(listname)
+			for i, stack in pairs(list) do
+				list[i] = stack:to_string()
 			end
-			list_str[lists[i]] = list
+			lists[listname] = list
 		end
-		metadata_str.lists = list_str
-		
-		local metas = support.metas
-		local meta_str = {}
-		for i=1,#metas,1 do
-			local temp = metas[i]
-			if temp.string ~= nil then
-				meta_str[i] = {string = temp.string, value = meta:get_string(temp.string)}
-			end
-			if temp.int ~= nil then
-				meta_str[i] = {int = temp.int, value = meta:get_int(temp.int)}
-			end
-			if temp.float ~= nil then
-				meta_str[i] = {float = temp.float, value = meta:get_float(temp.float)}
+		metadata.lists = lists
+
+		local item_meta = stack:get_meta()
+		metadata.metas = {}
+		for name, meta_type in pairs(def.metas or {}) do
+			if meta_type == wrench.META_TYPE_INT then
+				metadata.metas[name] = meta:get_int(name)
+			elseif meta_type == wrench.META_TYPE_FLOAT then
+				metadata.metas[name] = meta:get_float(name)
+			elseif meta_type == wrench.META_TYPE_STRING then
+				metadata.metas[name] = meta:get_string(name)
 			end
 		end
-		metadata_str.metas = meta_str
-		
-		inv = placer:get_inventory()
-		local stack = {name = name}
-		if inv:room_for_item("main", stack) then
-			minetest.remove_node(pos)
-			itemstack:add_wear(65535/20)
-			if empty and #lists > 0 then
-				inv:add_item("main", stack)
-			else
-				stack.name = supported_nodes[name].name
-				stack.metadata = minetest.serialize(metadata_str)
-				inv:add_item("main", stack)
-			end
-		end
+
+		item_meta:set_string("data", minetest.serialize(metadata))
+		minetest.remove_node(pos)
+		itemstack:add_wear(65535 / 20)
+		player_inv:add_item("main", stack)
 		return itemstack
 	end,
 })
-
-minetest.register_craft({
-	output = "wrench:wrench",
-	recipe = {
-	{"default:iron_lump","","default:iron_lump"},
-	{"","default:iron_lump",""},
-	{"","default:iron_lump",""},
-	},
-})
\ No newline at end of file

--
Gitblit v1.8.0