In quarry, skip past undiggable nodes

Zefram

2014-08-17 d0efa15b983f7a0a96e1a7abcdad713715dfeeeb

 technic/machines/other/injector.lua

@@ -1,78 +1,7 @@
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',''},
   }
})
local S = technic.getter

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 function inject_items (pos)
      local meta=minetest.env:get_meta(pos) 
      local inv = meta:get_inventory()
      local mode=meta:get_string("mode")
@@ -83,12 +12,9 @@
            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);
               item0["count"] = "1"
               technic.tube_inject_item(pos, pos, vector.new(0, -1, 0), item0)
               stack:take_item(1)
               inv:set_stack("main", i, stack)
               return
               end
@@ -102,10 +28,7 @@
            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})
               technic.tube_inject_item(pos, pos, vector.new(0, -1, 0), item0)
               stack:clear()
               inv:set_stack("main", i, stack)
               return
@@ -115,3 +38,70 @@
      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 = vector.add(pos, vector.new(0, -1, 0))
      local node1 = minetest.get_node(pos1) 
      if minetest.get_item_group(node1.name, "tubedevice") > 0 then
         inject_items(pos)
      end
   end,
})