forked from minetest-mods/technic
121 lines
3.4 KiB
Lua
121 lines
3.4 KiB
Lua
|
|
local S = technic.getter
|
|
|
|
local function inject_items (pos)
|
|
local meta=minetest.env:get_meta(pos)
|
|
local inv = meta:get_inventory()
|
|
local mode=meta:get_string("mode")
|
|
if mode=="single items" then
|
|
local i=0
|
|
for _,stack in ipairs(inv:get_list("main")) do
|
|
i=i+1
|
|
if stack then
|
|
local item0=stack:to_table()
|
|
if item0 then
|
|
item0["count"]="1"
|
|
local item1=pipeworks.tube_item({x=pos.x,y=pos.y,z=pos.z},item0)
|
|
item1:get_luaentity().start_pos = {x=pos.x,y=pos.y,z=pos.z}
|
|
item1:setvelocity({x=0, y=-1, z=0})
|
|
item1:setacceleration({x=0, y=0, z=0})
|
|
stack:take_item(1);
|
|
inv:set_stack("main", i, stack)
|
|
return
|
|
end
|
|
end
|
|
end
|
|
end
|
|
if mode=="whole stacks" then
|
|
local i=0
|
|
for _,stack in ipairs(inv:get_list("main")) do
|
|
i=i+1
|
|
if stack then
|
|
local item0=stack:to_table()
|
|
if item0 then
|
|
local item1=pipeworks.tube_item({x=pos.x,y=pos.y,z=pos.z},item0)
|
|
item1:get_luaentity().start_pos = {x=pos.x,y=pos.y,z=pos.z}
|
|
item1:setvelocity({x=0, y=-1, z=0})
|
|
item1:setacceleration({x=0, y=0, z=0})
|
|
stack:clear()
|
|
inv:set_stack("main", i, stack)
|
|
return
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
minetest.register_craft({
|
|
output = 'technic:injector 1',
|
|
recipe = {
|
|
{'', 'technic:control_logic_unit',''},
|
|
{'', 'default:chest',''},
|
|
{'', 'pipeworks:tube_1',''},
|
|
}
|
|
})
|
|
|
|
minetest.register_node("technic:injector", {
|
|
description = S("Injector"),
|
|
tiles = {"technic_injector_top.png", "technic_injector_bottom.png", "technic_injector_side.png",
|
|
"technic_injector_side.png", "technic_injector_side.png", "technic_injector_side.png"},
|
|
groups = chest_groups1,
|
|
tube = tubes_properties,
|
|
sounds = default.node_sound_wood_defaults(),
|
|
on_construct = function(pos)
|
|
local meta = minetest.env:get_meta(pos)
|
|
meta:set_string("formspec",
|
|
"invsize[8,9;]"..
|
|
"label[0,0;"..S("Injector").."]"..
|
|
"button[0,1;.8,.8;mode;]"..
|
|
"label[.8,1;Mode: single items]"..
|
|
"list[current_name;main;0,2;8,2;]"..
|
|
"list[current_player;main;0,5;8,4;]")
|
|
meta:set_string("infotext", S("Injector"))
|
|
local inv = meta:get_inventory()
|
|
inv:set_size("main", 8*4)
|
|
meta:set_string("mode","single items")
|
|
end,
|
|
can_dig = function(pos,player)
|
|
local meta = minetest.env:get_meta(pos);
|
|
local inv = meta:get_inventory()
|
|
return inv:is_empty("main")
|
|
end,
|
|
on_receive_fields = function(pos, formanme, fields, sender)
|
|
local meta = minetest.env:get_meta(pos)
|
|
local mode=meta:get_string("mode")
|
|
if fields.mode then
|
|
if mode == "single items" then
|
|
mode = "whole stacks"
|
|
else
|
|
mode = "single items"
|
|
end
|
|
meta:set_string("mode", mode)
|
|
end
|
|
meta:set_string("formspec",
|
|
"invsize[8,9;]"..
|
|
"label[0,0;"..S("Injector").."]"..
|
|
"button[0,1;.8,.8;mode;]"..
|
|
"label[.8,1;Mode: "..mode.."]"..
|
|
"list[current_name;main;0,2;8,2;]"..
|
|
"list[current_player;main;0,5;8,4;]")
|
|
end,
|
|
allow_metadata_inventory_put = technic.machine_inventory_put,
|
|
allow_metadata_inventory_take = technic.machine_inventory_take,
|
|
allow_metadata_inventory_move = technic.machine_inventory_move,
|
|
})
|
|
|
|
minetest.register_abm({
|
|
nodenames = {"technic:injector"},
|
|
interval = 1,
|
|
chance = 1,
|
|
action = function(pos, node, active_object_count, active_object_count_wider)
|
|
local pos1={}
|
|
pos1.x = pos.x
|
|
pos1.y = pos.y-1
|
|
pos1.z = pos.z
|
|
local meta=minetest.env:get_meta(pos1)
|
|
if meta:get_int("tubelike")==1 then inject_items (pos) end
|
|
end,
|
|
})
|
|
|