1 files changed, 162 insertions, 0 deletions
diff --git a/wrench/init.lua b/wrench/init.lua
new file mode 100644
index 0000000..76605c4
--- /dev/null
+++ b/wrench/init.lua
@@ -0,0 +1,162 @@
+--[[
+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]
+	if not def or not def.metas or not def.metas[metaname] then
+		return nil
+	end
+	return def.metas[metaname]
+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 = minetest.deserialize(itemstack:get_metadata())
+	minetest.set_node(pos, {name = data.name, param2 = node.param2})
+	local lists = data.lists
+	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
+	for listname, list in pairs(lists) do
+		inv:set_list(listname, list)
+	end
+	itemstack:take_item()
+	return itemstack
+end
+
+for name, info in pairs(wrench.registered_nodes) do
+	local olddef = minetest.registered_nodes[name]
+	if olddef then
+		local newdef = {}
+		for key, value in pairs(olddef) do
+			newdef[key] = value
+		end
+		newdef.stack_max = 1
+		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 = restore
+		minetest.register_node(":"..get_pickup_name(name), newdef)
+	end
+end
+
+minetest.register_tool("wrench:wrench", {
+	description = S("Wrench"),
+	inventory_image = "technic_wrench.png",
+	tool_capabilities = {
+		full_punch_interval = 0.9,
+		max_drop_level = 0,
+		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}
+		},
+		damage_groups = {fleshy=1},
+	},
+	on_place = function(itemstack, placer, pointed_thing)
+		local pos = pointed_thing.under
+		if not placer or not pos then
+			return
+		end
+		if minetest.is_protected(pos, placer:get_player_name()) then
+			minetest.record_protection_violation(pos, placer:get_player_name())
+			return
+		end
+		local name = minetest.get_node(pos).name
+		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 def.owned then
+			local owner = meta:get_string("owner")
+			if owner and owner ~= placer:get_player_name() then
+				minetest.log("action", placer:get_player_name()..
+					" tried to pick up a owned node belonging to "..
+					owner.." at "..
+					minetest.pos_to_string(pos))
+				return
+			end
+		end
+
+		local metadata = {}
+		metadata.name = name
+		metadata.version = LATEST_SERIALIZATION_VERSION
+
+		local inv = meta:get_inventory()
+		local lists = {}
+		for _, listname in pairs(def.lists or {}) do
+			if not inv:is_empty(listname) then
+				empty = false
+			end
+			local list = inv:get_list(listname)
+			for i, stack in pairs(list) do
+				list[i] = stack:to_string()
+			end
+			lists[listname] = list
+		end
+		metadata.lists = lists
+		
+		local metas = {}
+		for name, meta_type in pairs(def.metas or {}) do
+			if meta_type == wrench.META_TYPE_INT then
+				metas[name] = meta:get_int(name)
+			elseif meta_type == wrench.META_TYPE_FLOAT then
+				metas[name] = meta:get_float(name)
+			elseif meta_type == wrench.META_TYPE_STRING then
+				metas[name] = meta:get_string(name)
+			end
+		end
+		metadata.metas = metas
+		
+		stack:set_metadata(minetest.serialize(metadata))
+		minetest.remove_node(pos)
+		itemstack:add_wear(65535 / 20)
+		player_inv:add_item("main", stack)
+		return itemstack
+	end,
+})