pipeworks/compat.lua

function clone_node(name)
	node2={}
	node=minetest.registered_nodes[name]
	for k,v in pairs(node) do
		node2[k]=v
	end
	return node2
end

furnace=clone_node("default:furnace")
	furnace.groups.tubedevice=1
	furnace.groups.tubedevice_receiver=1
	furnace.tube={insert_object = function(pos,node,stack,direction)
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			if direction.y==1 then
				return inv:add_item("fuel",stack)
			else
				return inv:add_item("src",stack)
			end
		end,
	can_insert=function(pos,node,stack,direction)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		if direction.y==1 then
			return inv:room_for_item("fuel",stack)
		elseif direction.y==-1 then
			return inv:room_for_item("src",stack)
		else
			return 0
	end
	end,
	input_inventory="dst"}
	furnace.after_place_node= function(pos)
		tube_scanforobjects(pos)
	end
	furnace.after_dig_node = function(pos)
		tube_scanforobjects(pos)
	end

minetest.register_node(":default:furnace",furnace)

furnace=clone_node("default:furnace_active")
	furnace.groups.tubedevice=1
	furnace.groups.tubedevice_receiver=1
	furnace.tube={insert_object=function(pos,node,stack,direction)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		if direction.y==1 then
			return inv:add_item("fuel",stack)
		else
			return inv:add_item("src",stack)
		end
	end,
	can_insert=function(pos,node,stack,direction)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		if direction.y==1 then
			return inv:room_for_item("fuel",stack)
		elseif direction.y==-1 then
			return inv:room_for_item("src",stack)
		else
			return 0
		end
	end,
	input_inventory="dst"}
	furnace.after_place_node= function(pos)
		tube_scanforobjects(pos)
	end
	furnace.after_dig_node = function(pos)
		tube_scanforobjects(pos)
	end
	minetest.register_node(":default:furnace_active",furnace)


chest=clone_node("default:chest")
	chest.groups.tubedevice=1
	chest.groups.tubedevice_receiver=1
	chest.tube={insert_object = function(pos,node,stack,direction)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		return inv:add_item("main",stack)
	end,
	can_insert=function(pos,node,stack,direction)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		return inv:room_for_item("main",stack)
	end,
	input_inventory="main"}
	chest.after_place_node = function(pos)
		tube_scanforobjects(pos)
	end
	chest.after_dig_node = function(pos)
		tube_scanforobjects(pos)
	end

minetest.register_node(":default:chest",chest)


chest_locked=clone_node("default:chest_locked")
	chest_locked.groups.tubedevice=1
	chest_locked.groups.tubedevice_receiver=1
	chest_locked.tube={insert_object = function(pos,node,stack,direction)
		local meta=minetest.env:get_meta(pos)
		local inv=meta:get_inventory()
		return inv:add_item("main",stack)
	end,
	can_insert=function(pos,node,stack,direction)
		local meta=minetest.env:get_meta(pos)
		local inv=meta:get_inventory()
		return inv:room_for_item("main",stack)
	end}
  local old_after_place = minetest.registered_nodes["default:chest_locked"].after_place_node;
	chest_locked.after_place_node = function(pos, placer)
		tube_scanforobjects(pos)
    old_after_place(pos, placer)
	end
	chest_locked.after_dig_node = function(pos)
		tube_scanforobjects(pos)
	end

minetest.register_node(":default:chest_locked",chest_locked)