pipeworks/compat.lua
2013-07-08 11:58:27 -04:00

125 lines
3.3 KiB
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)