limit the upgrade slot to one item per slot, as more are ignored anyway

Tim

2015-02-05 6ef34388329902bdf08922a21169232c79b9c2a4

 technic/machines/register/common.lua

@@ -1,4 +1,6 @@

local S = technic.getter

function technic.handle_machine_upgrades(meta)
   -- Get the names of the upgrades
   local inv = meta:get_inventory()
@@ -35,23 +37,24 @@
end


function technic.send_items(pos, x_velocity, z_velocity)
function technic.send_items(pos, x_velocity, z_velocity, output_name)
   -- Send items on their way in the pipe system.
   if output_name == nil then
      output_name = "dst"
   end
	
   local meta = minetest.get_meta(pos) 
   local inv = meta:get_inventory()
   local i = 0
   for _, stack in ipairs(inv:get_list("dst")) do
   for _, stack in ipairs(inv:get_list(output_name)) 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=x_velocity, y=0, z=z_velocity})
            item1:setacceleration({x=0, y=0, z=0})
            technic.tube_inject_item(pos, pos, vector.new(x_velocity, 0, z_velocity), item0)
            stack:take_item(1)
            inv:set_stack("dst", i, stack)
            inv:set_stack(output_name, i, stack)
            return
         end
      end
@@ -65,21 +68,25 @@
   if meta:get_int("cook_time") < result.time / speed then
      return
   end
   local result = minetest.get_craft_result({method = "cooking", width = 1, items = inv:get_list("src")})
   local result
   local afterfuel
   result, afterfuel = minetest.get_craft_result({method = "cooking", width = 1, items = inv:get_list("src")})

   if result and result.item then
      meta:set_int("cook_time", 0)
      -- check if there's room for output in "dst" list
      if inv:room_for_item("dst", result.item) then
         srcstack = inv:get_stack("src", 1)
         srcstack:take_item()
         inv:set_stack("src", 1, srcstack)
         inv:set_stack("src", 1, afterfuel.items[1])
         inv:add_item("dst", result.item)
      end
   end
end

function technic.handle_machine_pipeworks(pos, tube_upgrade)
function technic.handle_machine_pipeworks(pos, tube_upgrade, send_function)
   if send_function == nil then
      send_function = technic.send_items
   end
	
   local node = minetest.get_node(pos)
   local meta = minetest.get_meta(pos)
   local inv = meta:get_inventory()
@@ -94,18 +101,60 @@
   if node.param2 == 0 then pos1.x = pos1.x + 1  x_velocity =  1 end

   local output_tube_connected = false
   local meta1 = minetest.get_meta(pos1) 
   if meta1:get_int("tubelike") == 1 then
   local node1 = minetest.get_node(pos1) 
   if minetest.get_item_group(node1.name, "tubedevice") > 0 then
      output_tube_connected = true
   end
   tube_time = meta:get_int("tube_time")
   tube_time = tube_time + tube_upgrade
   if tube_time > 3 then
   local tube_time = meta:get_int("tube_time") + tube_upgrade
   if tube_time >= 2 then
      tube_time = 0
      if output_tube_connected then
         technic.send_items(pos, x_velocity, z_velocity)
         send_function(pos, x_velocity, z_velocity)
      end
   end
   meta:set_int("tube_time", tube_time)
end


function technic.machine_can_dig(pos, player)
   local meta = minetest.get_meta(pos)
   local inv = meta:get_inventory()
   if not inv:is_empty("src") or not inv:is_empty("dst") or
      not inv:is_empty("upgrade1") or not inv:is_empty("upgrade2") then
      if player then
         minetest.chat_send_player(player:get_player_name(),
            S("Machine cannot be removed because it is not empty"))
      end
      return false
   else
      return true
   end
end

local function inv_change(pos, player, count, from_list, to_list)
   if minetest.is_protected(pos, player:get_player_name()) then
      minetest.chat_send_player(player:get_player_name(),
         S("Inventory move disallowed due to protection"))
      return 0
   end
   if to_list == "upgrade1" or to_list == "upgrade2" then
      -- only place a single item into it, if it's empty
      local empty = minetest.get_meta(pos):get_inventory():is_empty(to_list)
      return empty and 1 or 0
   end
   return count
end

function technic.machine_inventory_put(pos, listname, index, stack, player)
   return inv_change(pos, player, stack:get_count(), nil, listname)
end

function technic.machine_inventory_take(pos, listname, index, stack, player)
   return inv_change(pos, player, stack:get_count(), listname, nil)
end

function technic.machine_inventory_move(pos, from_list, from_index,
      to_list, to_index, count, player)
   return inv_change(pos, player, count, from_list, to_list)
end