From 636b0f20df4fef3eef821c23ccc2f606828f5c6f Mon Sep 17 00:00:00 2001 From: Zefram <zefram@fysh.org> Date: Mon, 07 Jul 2014 15:15:05 +0200 Subject: [PATCH] Handheld prospecting tool --- technic/machines/other/injector.lua | 149 +++++++++++++++++++++++++------------------------ 1 files changed, 75 insertions(+), 74 deletions(-) diff --git a/technic/machines/other/injector.lua b/technic/machines/other/injector.lua index f59867c..c131470 100644 --- a/technic/machines/other/injector.lua +++ b/technic/machines/other/injector.lua @@ -1,80 +1,7 @@ local S = technic.getter -minetest.register_craft({ - output = 'technic:injector 1', - recipe = { - {'', 'technic:control_logic_unit',''}, - {'', 'default:chest',''}, - {'', 'pipeworks:tube_000000',''}, - } -}) - -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, -}) - -function inject_items (pos) +local function inject_items (pos) local meta=minetest.env:get_meta(pos) local inv = meta:get_inventory() local mode=meta:get_string("mode") @@ -117,3 +44,77 @@ 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 = {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("formspec", + "invsize[8,9;]".. + "label[0,0;"..S("Injector").."]".. + "button[0,1;.8,.8;mode;]".. + "label[.8,1;"..S("Mode: %s"):format("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;"..S("Mode: %s"):format(S(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, +}) + -- Gitblit v1.8.0