technic/wrench/init.lua

--[[
	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.
	supported_nodes
		This table stores all nodes that are compatible with the wrench mod.
		Syntax:
			[<node name>] = {
				name = "wrench:<temporary node name>",
				lists = {"<inventory list name>"},
				metas = {{string="<meta name>"},{int="<meta name>"},{float="<meta name>"}},
				owner_protection[optional] = 1,
				store_meta_always[optional] = 1,
			}
			<temporary node name> - can be anything as long as it is unique
			[optional] - parameters do not have to be included
			owner_protection - nodes that are protected by owner requirements (Ex. locked chests)
			store_meta_always - when nodes are broken this ensures metadata and inventory is always stored (Ex. active state for machines)
--]]
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"}},
	owner_protection=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	owner_protection=1,
},
["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"}},
	owner_protection=1,
},
["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"}},
	owner_protection=1,
	},
["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"}},
	owner_protection=1,
},
["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"}},
	owner_protection=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
["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"}},
	store_meta_always=1,
},
}
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"}},
		owner_protection=1,
	}
end
for i=0,8,1 do
	if i==0 then i="" end
	supported_nodes["technic:battery_box"..i] = {
		name="wrench:technic_battery_box"..i,
		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"}},
		store_meta_always=1,
	}
	supported_nodes["technic:mv_battery_box"..i] = {
		name="wrench:technic_mv_battery_box"..i,
		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"}},
		store_meta_always=1,
	}
	supported_nodes["technic:hv_battery_box"..i] = {
		name="wrench:technic_hv_battery_box"..i,
		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"}},
		store_meta_always=1,
	}
end

local function convert_to_original_name(name)
	for key,value in pairs(supported_nodes) do
		if name == value.name then return key end
	end
end

for name,info in pairs(supported_nodes) do
	local olddef = minetest.registered_nodes[name]
	if olddef ~= nil then
		local newdef = {}
		for key,value in pairs(olddef) do
			newdef[key] = value
		end
		newdef.stack_max = 1
		newdef.description = newdef.description.." with items"
		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)
			minetest.set_node(pos, {name = convert_to_original_name(itemstack:get_name()),
												param2 = minetest.get_node(pos).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
				local temp = nil
				for i=1,#metas,1 do
					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)
	end
end

minetest.register_tool("wrench:wrench", {
	description = "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)
		if not placer:is_player() then return end
		local pos = pointed_thing.under
		if pos == nil then return end
		local name = minetest.get_node(pos).name
		local support = supported_nodes[name]
		if support == nil then return end
		local meta = minetest.get_meta(pos)
		if support.owner_protection ~= nil then
			local owner = meta:get_string("owner")
			if owner ~= nil then
				if owner ~= placer:get_player_name() then
					minetest.log("action", placer:get_player_name()..
					" tried to destroy a locked chest belonging to "..
					owner.." at "..
					minetest.pos_to_string(pos))
					return
				end
			end
		end
		
		local lists = support.lists
		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()
			end
			list_str[lists[i]] = 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)}
			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 and support.store_meta_always == nil 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
		return itemstack
	end,
})

minetest.register_craft({
	output = "wrench:wrench",
	recipe = {
	{"default:steel_ingot","","default:steel_ingot"},
	{"","default:steel_ingot",""},
	{"","default:steel_ingot",""},
	},
})