125 lines
5.2 KiB
Lua

--- For working with inventories.
-- @module Inventory
-- @usage local Inventory = require('stdlib/entity/inventory')
local Inventory = {_module_name = 'Inventory'}
setmetatable(Inventory, {__index = require('stdlib/core')})
local Is = require('stdlib/utils/is')
--- Copies the contents of source inventory to destination inventory by using @{Concepts.SimpleItemStack}.
-- @tparam LuaInventory src the source inventory
-- @tparam LuaInventory dest the destination inventory
-- @tparam[opt=false] boolean clear clear the contents of the source inventory
-- @treturn {Concepts.SimpleItemStack,...} an array of left over items that could not be inserted into the destination
function Inventory.copy_as_simple_stacks(src, dest, clear)
Is.Assert(src, 'missing source inventory')
Is.Assert(dest, 'missing destination inventory')
local left_over = {}
for i = 1, #src do
local stack = src[i]
if stack and stack.valid and stack.valid_for_read then
local simple_stack = {
name = stack.name,
count = stack.count,
health = stack.health or 1,
durability = stack.durability
}
-- ammo is a special case field, accessing it on non-ammo itemstacks causes an exception
simple_stack.ammo = stack.prototype.magazine_size and stack.ammo
--Insert simple stack into inventory, add to left_over if not all were inserted.
simple_stack.count = simple_stack.count - dest.insert(simple_stack)
if simple_stack.count > 0 then
table.insert(left_over, simple_stack)
end
end
end
if clear then
src.clear()
end
return left_over
end
-- Remove all items inside an entity and return an array of SimpleItemStacks removed
-- @param entity: The entity object to remove items from
-- @return table: a table of SimpleItemStacks or nil if empty
-- local function get_all_items_inside(entity, existing_stacks)
-- local item_stacks = existing_stacks or {}
-- --Inserters need to check held_stack
-- if entity.type == "inserter" then
-- local stack = entity.held_stack
-- if stack.valid_for_read then
-- item_stacks[#item_stacks+1] = {name=stack.name, count=stack.count, health=stack.health}
-- stack.clear()
-- end
-- --Entities with transport lines only need to check each line individually
-- elseif transport_types[entity.type] then
-- for i=1, transport_types[entity.type] do
-- local lane = entity.get_transport_line(i)
-- for name, count in pairs(lane.get_contents()) do
-- local cur_stack = {name=name, count=count, health=1}
-- item_stacks[#item_stacks+1] = cur_stack
-- lane.remove_item(cur_stack)
-- end
-- end
-- else
-- --Loop through regular inventories
-- for _, inv in pairs(defines.inventory) do
-- local inventory = entity.get_inventory(inv)
-- if inventory and inventory.valid then
-- if inventory.get_item_count() > 0 then
-- for i=1, #inventory do
-- if inventory[i].valid_for_read then
-- local stack = inventory[i]
-- item_stacks[#item_stacks+1] = {name=stack.name, count=stack.count, health=stack.health or 1}
-- stack.clear()
-- end
-- end
-- end
-- end
-- end
-- end
-- return (item_stacks[1] and item_stacks) or {}
-- end
--- Given a function, apply it to each slot in the given inventory.
-- Passes the index of a slot as the second argument to the given function.
-- <p>Iteration is aborted if the applied function returns true for any element during iteration.
-- @tparam LuaInventory inventory the inventory to iterate
-- @tparam function func the function to apply to values
-- @param[opt] ... additional arguments passed to the function
-- @treturn ?|nil|LuaItemStack the slot where the iteration was aborted **OR** nil if not aborted
function Inventory.each(inventory, func, ...)
local index
for i = 1, #inventory do
if func(inventory[i], i, ...) then
index = i
break
end
end
return index and inventory[index]
end
--- Given a function, apply it to each slot in the given inventory.
-- Passes the index of a slot as the second argument to the given function.
-- <p>Iteration is aborted if the applied function returns true for any element during iteration.
-- <p>Iteration is performed from last to first in order to support dynamically sized inventories.
-- @tparam LuaInventory inventory the inventory to iterate
-- @tparam function func the function to apply to values
-- @param[opt] ... additional arguments passed to the function
-- @treturn ?|nil|LuaItemStack the slot where the iteration was aborted **OR** nil if not aborted
function Inventory.each_reverse(inventory, func, ...)
local index
for i = #inventory, 1, -1 do
if func(inventory[i], i, ...) then
index = i
break
end
end
return index and inventory[index]
end
return Inventory