8275091347
Make the injector's mode button lag-resistant. Display the mode on the button, as is done with other machines' toggle buttons. Describe the modes using the same words that are now used to distinguish the corresponding pipeworks objects. Expand name to "self-contained injector", now that the pipeworks objects are also called "injector". Show injector item image along with the item name at the head of the form.
115 lines
3.4 KiB
Lua
115 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',''},
|
|
}
|
|
})
|
|
|
|
local function set_injector_formspec(meta)
|
|
local is_stack = meta:get_string("mode") == "whole stacks"
|
|
meta:set_string("formspec",
|
|
"invsize[8,9;]"..
|
|
"item_image[0,0;1,1;technic:injector]"..
|
|
"label[1,0;"..S("Self-Contained Injector").."]"..
|
|
(is_stack and
|
|
"button[0,1;2,1;mode_item;"..S("Stackwise").."]" or
|
|
"button[0,1;2,1;mode_stack;"..S("Itemwise").."]")..
|
|
"list[current_name;main;0,2;8,2;]"..
|
|
"list[current_player;main;0,5;8,4;]")
|
|
end
|
|
|
|
minetest.register_node("technic:injector", {
|
|
description = S("Self-Contained 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 = {snappy=2, choppy=2, oddly_breakable_by_hand=2, tubedevice=1},
|
|
tube = {connect_sides={bottom=1}},
|
|
sounds = default.node_sound_wood_defaults(),
|
|
on_construct = function(pos)
|
|
local meta = minetest.env:get_meta(pos)
|
|
meta:set_string("infotext", S("Self-Contained Injector"))
|
|
local inv = meta:get_inventory()
|
|
inv:set_size("main", 8*4)
|
|
meta:set_string("mode","single items")
|
|
set_injector_formspec(meta)
|
|
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)
|
|
if fields.mode_item then meta:set_string("mode", "single items") end
|
|
if fields.mode_stack then meta:set_string("mode", "whole stacks") end
|
|
set_injector_formspec(meta)
|
|
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,
|
|
})
|
|
|