basic_machines-cd2025/mesecon_doors.lua

-- make doors open/close with signal
local function door_signal_overwrite(name)
	local table = minetest.registered_nodes[name]; if not table then return end
	local table2 = {}
	for i,v in pairs(table) do
		table2[i] = v
	end
	
	-- this will make door toggle whenever its used
	table2.mesecons = {effector = {
		action_on  =  function (pos,node,ttl)
			if ttl<0 then return end
			local meta = minetest.get_meta(pos);local name = meta:get_string("doors_owner");
			-- create virtual player
			local clicker = {}; 
			function clicker:get_player_name() return name end; -- define method get_player_name() returning owner name so that we can call on_rightclick function in door
			table.on_rightclick(pos, node, clicker)
			--minetest.swap_node(pos, {name = "protector:trapdoor", param1 = node.param1, param2 = node.param2})
		end
		}
	};
	
	 minetest.register_node(":"..name, table2)
end 

minetest.after(0,function()
	door_signal_overwrite("doors:door_wood_a");door_signal_overwrite("doors:door_wood_b");
	door_signal_overwrite("doors:door_steel_a");door_signal_overwrite("doors:door_steel_b");
	door_signal_overwrite("doors:trapdoor");door_signal_overwrite("doors:trapdoor_open");
	door_signal_overwrite("doors:trapdoor_steel");door_signal_overwrite("doors:trapdoor_steel_open");
	
	end
);

local function make_it_noclip(name)
	
	local table = minetest.registered_nodes[name]; if not table then return end
	local table2 = {}
	for i,v in pairs(table) do
		table2[i] = v
	end
	table2.walkable = false; -- cant be walked on
	minetest.register_node(":"..name, table2)
end 

minetest.after(0,function()
	make_it_noclip("doors:trapdoor_open");
	make_it_noclip("doors:trapdoor_steel_open");
end);



local function make_it_nondiggable_but_removable(name, dropname)
	
	local table = minetest.registered_nodes[name]; if not table then return end
	local table2 = {}
	for i,v in pairs(table) do
		table2[i] = v
	end
	table2.groups.level = 99; -- cant be digged, but it can be removed by owner or if not protected
	table2.on_punch = function(pos, node, puncher, pointed_thing) -- remove node if owner repeatedly punches it 3x
		local pname = puncher:get_player_name();
		local meta = minetest.get_meta(pos);
		local owner = meta:get_string("doors_owner")
		if pname==owner or not minetest.is_protected(pos,pname) then -- can be dug by owner or if unprotected
			local t0 = meta:get_int("punchtime");local count = meta:get_int("punchcount");
			local t = minetest.get_gametime();
			
			if t-t0<2 then count = (count +1 ) % 3 else count =  0 end

			if count == 1 then
				minetest.chat_send_player(pname, "#steel door: punch me one more time to remove me");
			end
			if count == 2 then -- remove steel door and drop it
				minetest.set_node(pos, {name = "air"});
				local stack = ItemStack(dropname);minetest.add_item(pos,stack)
			end
			
			meta:set_int("punchcount",count);meta:set_int("punchtime",t);
			--minetest.chat_send_all("punch by "..name .. " count " .. count)
		end
	end
	minetest.register_node(":"..name, table2)
end 

minetest.after(0,function()
	make_it_nondiggable_but_removable("doors:door_steel_a","doors:door_steel");
	make_it_nondiggable_but_removable("doors:door_steel_b","doors:door_steel");
	
	make_it_nondiggable_but_removable("doors:trapdoor_steel","doors:trapdoor_steel");
	make_it_nondiggable_but_removable("doors:trapdoor_steel_open","doors:trapdoor_steel");
end);




-- make protected trapdoor open close and when open make it unwalkable

 local function trapdoor_open_overwrite()
	local name = "protector:trapdoor_open";
	local table = minetest.registered_nodes[name]; if not table then return end
	local table2 = {}
	for i,v in pairs(table) do
		table2[i] = v
	end
	table2.walkable = false; -- opened trapdoor cant be walked on
	
	table2.mesecons = {effector = {
		action_off  =  function (pos,node,ttl)
			if ttl<0 then return end
				minetest.swap_node(pos, {name = "protector:trapdoor", param1 = node.param1, param2 = node.param2})
			end
		}
	};
	minetest.register_node(":"..name, table2)
end 

minetest.after(0,trapdoor_open_overwrite);

 local function trapdoor_close_overwrite()
	local name = "protector:trapdoor";
	local table = minetest.registered_nodes[name]; if not table then return end
	local table2 = {}
	for i,v in pairs(table) do
		table2[i] = v
	end
	
	table2.mesecons = {effector = {
		action_on  =  function (pos,node,ttl)
			if ttl<0 then return end
				minetest.swap_node(pos, {name = "protector:trapdoor_open", param1 = node.param1, param2 = node.param2})
			end
		}
	};
	minetest.register_node(":"..name, table2)
end 

minetest.after(0,trapdoor_close_overwrite);