Add the mesechest

moremesecons_mesechest/depends.txt

@@ -0,0 +1 @@
+default

moremesecons_mesechest/init.lua

@@ -0,0 +1,141 @@
+local function mesechest_get_output_rules(node)
+	local rules = {{x=-1, y=0, z=0},
+			{x=0, y=0, z=-1},
+			{x=0, y=0, z=1}}
+	for i = 0, node.param2 do
+		rules = mesecon.rotate_rules_left(rules)
+	end
+	return rules
+end
+
+
+local open_chests = {}
+
+
+--[[
+default.register_chest prefixes chest names with "default:"
+and registers an LBM. Hack: override functions used by
+default.register_chest
+]]
+local old_register_lbm = minetest.register_lbm
+minetest.register_lbm = function() end
+
+local old_register_node = minetest.register_node
+minetest.register_node = function(name, def)
+	name = string.gsub(name, "default:", "")
+
+	def.drop = def.drop and string.gsub(def.drop, "default:", "")
+
+	local old_on_blast = def.on_blast
+	def.on_blast = function(pos)
+		local drops = old_on_blast(pos)
+		drops[#drops] = name
+		return drops
+	end
+
+	local old_on_construct = def.on_construct
+	def.on_construct = function(pos)
+		old_on_construct(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("infotext", string.gsub(meta:get_string("infotext"), "Chest", "Mese Chest"))
+	end
+	if def.after_place_node then
+		local old_after_place_node = def.after_place_node
+		def.after_place_node = function(pos, placer)
+			old_after_place_node(pos, placer)
+			local meta = minetest.get_meta(pos)
+			meta:set_string("infotext", string.gsub(meta:get_string("infotext"), "Chest", "Mese Chest"))
+		end
+	end
+
+	-- Mesecons functions
+	local old_on_metadata_inventory_move = def.on_metadata_inventory_put
+	def.on_metadata_inventory_put = function(pos, ...)
+		old_on_metadata_inventory_move(pos, ...)
+		mesecon.receptor_on(pos, {mesechest_get_output_rules(minetest.get_node(pos))[2]})
+		minetest.after(1, function(pos)
+			mesecon.receptor_off(pos, {mesechest_get_output_rules(minetest.get_node(pos))[2]})
+		end, pos)
+	end
+
+	local old_on_metadata_inventory_take = def.on_metadata_inventory_take
+	def.on_metadata_inventory_take = function(pos, ...)
+		old_on_metadata_inventory_take(pos, ...)
+		mesecon.receptor_on(pos, {mesechest_get_output_rules(minetest.get_node(pos))[3]})
+		minetest.after(1, function(pos)
+			mesecon.receptor_off(pos, {mesechest_get_output_rules(minetest.get_node(pos))[3]})
+		end, pos)
+	end
+
+	local old_on_rightclick = def.on_rightclick
+	def.on_rightclick = function(pos, node, clicker, ...)
+		if old_on_rightclick(pos, node, clicker, ...) == nil then
+			mesecon.receptor_on(pos, {mesechest_get_output_rules(node)[1]})
+			open_chests[clicker:get_player_name()] = pos
+		end
+	end
+
+	old_register_node(name, def)
+end
+
+-- Get the on_player_receive_fields function. That's a huge hack
+for i, f in ipairs(minetest.registered_on_player_receive_fields) do
+	local serialized = minetest.serialize(f)
+	if string.find(serialized, "default:chest") then
+		minetest.registered_on_player_receive_fields[i] = function(player, formname, fields)
+			if f(player, formname, fields) == true then
+				local pn = player:get_player_name()
+				mesecon.receptor_off(open_chests[pn], {mesechest_get_output_rules(minetest.get_node(open_chests[pn]))[1]})
+				open_chests[pn] = nil
+			end
+		end
+		break
+	end
+end
+
+-- This function is permanently overwritten
+local old_swap_node = minetest.swap_node
+minetest.swap_node = function(pos, node)
+	if node.name == "default:moremesecons_mesechest:mesechest" then
+		node.name = "moremesecons_mesechest:mesechest"
+	elseif node.name == "default:moremesecons_mesechest:mesechest_open" then
+		node.name = "moremesecons_mesechest:mesechest_open"
+	elseif node.name == "default:moremesecons_mesechest:mesechest_locked" then
+		node.name = "moremesecons_mesechest:mesechest_locked"
+	elseif node.name == "default:moremesecons_mesechest:mesechest_locked_open" then
+		node.name = "moremesecons_mesechest:mesechest_locked_open"
+	end
+	old_swap_node(pos, node)
+end
+
+default.register_chest("moremesecons_mesechest:mesechest", {
+	description = "Mese Chest",
+	tiles = { "default_chest_wood.png" },
+	sounds = default.node_sound_wood_defaults(),
+	sound_open = "default_chest_open",
+	sound_close = "default_chest_close",
+	groups = {choppy = 2, oddly_breakable_by_hand = 2},
+	mesecons = {
+		receptor = {
+			rules = mesechest_get_output_rules
+		}
+	}
+})
+
+default.register_chest("moremesecons_mesechest:mesechest_locked", {
+	description = "Locked Mese Chest",
+	tiles = { "default_chest_wood_locked.png" },
+	sounds = default.node_sound_wood_defaults(),
+	sound_open = "default_chest_open",
+	sound_close = "default_chest_close",
+	groups = {choppy = 2, oddly_breakable_by_hand = 2},
+	protected = true,
+	mesecons = {
+		receptor = {
+			rules = mesechest_get_output_rules
+		}
+	}
+})
+
+minetest.register_lbm = old_register_lbm
+minetest.register_node = old_register_node