From 64207baa4563db90fa80ed23f3b8f41f96f0260d Mon Sep 17 00:00:00 2001 From: RealBadAngel <mk@realbadangel.pl> Date: Thu, 09 May 2013 16:02:02 +0200 Subject: [PATCH] Add HV battery box --- technic/injector.lua | 117 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 117 insertions(+), 0 deletions(-) diff --git a/technic/injector.lua b/technic/injector.lua new file mode 100644 index 0000000..c493744 --- /dev/null +++ b/technic/injector.lua @@ -0,0 +1,117 @@ +minetest.register_craftitem("technic:injector", { + description = "Injector", + stack_max = 99, +}) + +minetest.register_craft({ + output = 'technic:injector 1', + recipe = { + {'', 'technic:control_logic_unit',''}, + {'', 'default:chest',''}, + {'', 'pipeworks:tube_000000',''}, + } +}) + +minetest.register_node("technic:injector", { + description = "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;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", "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 + local mode=meta:set_string("mode",mode) + end + meta:set_string("formspec", + "invsize[8,9;]".. + "label[0,0;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, +}) + +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, +}) + +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=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=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 -- Gitblit v1.8.0