techpack/techpack_warehouse/common.lua
2020-08-14 09:01:32 +02:00

340 lines
10 KiB
Lua

--[[
TechPack Warehouse
==================
Copyright (C) 2019 Joachim Stolberg
LGPLv2.1+
See LICENSE.txt for more information
common.lua
]]--
--- for lazy programmers
local S = function(pos) if pos then return minetest.pos_to_string(pos) end end
local P = minetest.string_to_pos
local M = minetest.get_meta
local STANDBY_TICKS = 4
local COUNTDOWN_TICKS = 2
local CYCLE_TIME = 2
local Cache = {}
techpack_warehouse.Box = {}
techpack_warehouse.Turn180 = {F="B", L="R", B="F", R="L", U="D", D="U"}
local function formspec(self, pos, meta)
return "size[10,9]"..
default.gui_bg..
default.gui_bg_img..
default.gui_slots..
"image_button[0,0;1,1;techpack_warehouse_arrow_inv.png;shift;;true;false;]"..
"list[context;shift;1,0;7,1;]"..
"image_button[9,0;1,1;techpack_warehouse_arrow_inv.png;shift;;true;false;]"..
"image_button[8,0;1,1;".. self:get_state_button_image(meta) ..";state_button;]"..
"image_button[0,1.4;1,1;techpack_warehouse_filter_inv.png;filter;;true;false;]"..
"list[context;filter;1,1.4;8,1;]"..
"image_button[9,1.4;1,1;techpack_warehouse_filter_inv.png;filter;;true;false;]"..
"image_button[0,2.5;1,1;techpack_warehouse_inventory_inv.png;storage;;true;false;]"..
"list[context;main;1,2.5;8,1;]"..
"image_button[9,2.5;1,1;techpack_warehouse_inventory_inv.png;storage;;true;false;]"..
"image_button[0,3.6;1,1;techpack_warehouse_input_inv.png;input;;true;false;]"..
"list[context;input;1,3.6;8,1;]"..
"image_button[9,3.6;1,1;techpack_warehouse_input_inv.png;input;;true;false;]"..
"tooltip[shift;Pass-through storage for unconfigured items (turn on/off)]"..
"tooltip[filter;Filter: To configure the 8 storages]"..
"tooltip[storage;Storage: All items will be stored here]"..
"tooltip[input;Input: Put items will be moved to the storage, if configured]"..
"list[current_player;main;1,5.3;8,4;]"..
"listring[context;shift]"..
"listring[current_player;main]"..
"listring[context;input]"
end
local function move_to_main(pos, index)
local inv = M(pos):get_inventory()
local main_stack = inv:get_stack("main", index)
local inp_stack = inv:get_stack("input", index)
if inp_stack:get_name() ~= "" then
local stack = ItemStack(inp_stack:get_name())
stack:set_count(inp_stack:get_count() + main_stack:get_count())
inp_stack:clear()
inv:set_stack("main", index, stack)
inv:set_stack("input", index, inp_stack)
end
end
local function move_to_player_inv(player_name, pos, index)
local node_inv = M(pos):get_inventory()
local main_stack = node_inv:get_stack("main", index)
local player_inv = minetest.get_inventory({type="player", name=player_name})
local num = main_stack:get_count()
if num > 99 then
num = 99
end
local leftover = player_inv:add_item("main", ItemStack(main_stack:get_name().." "..num))
main_stack:set_count(main_stack:get_count() - num + leftover:get_count())
node_inv:set_stack("main", index, main_stack)
end
function techpack_warehouse.tiles(background_img)
return {
-- up, down, right, left, back, front
'tubelib_pusher1.png^tubelib_addons3_node_frame4.png',
'tubelib_pusher1.png^tubelib_addons3_node_frame4.png',
background_img..'^techpack_warehouse_box_side.png',
background_img..'^techpack_warehouse_box_side.png',
background_img..'^techpack_warehouse_box_back.png',
background_img..'^techpack_warehouse_box_front.png',
}
end
function techpack_warehouse.tiles_active(background_img)
return {
-- up, down, right, left, back, front
{
image = "tubelib_addons3_pusher_active.png",
backface_culling = false,
animation = {
type = "vertical_frames",
aspect_w = 32,
aspect_h = 32,
length = 2.0,
},
},
{
image = "tubelib_addons3_pusher_active.png",
backface_culling = false,
animation = {
type = "vertical_frames",
aspect_w = 32,
aspect_h = 32,
length = 2.0,
},
},
background_img..'^techpack_warehouse_box_side.png',
background_img..'^techpack_warehouse_box_side.png',
background_img..'^techpack_warehouse_box_back.png',
background_img..'^techpack_warehouse_box_front.png',
}
end
function techpack_warehouse.tiles_defect(background_img)
return {
-- up, down, right, left, back, front
'tubelib_pusher1.png^tubelib_addons3_node_frame4.png',
'tubelib_pusher1.png^tubelib_addons3_node_frame4.png',
background_img..'^techpack_warehouse_box_side.png^tubelib_defect.png',
background_img..'^techpack_warehouse_box_side.png^tubelib_defect.png',
background_img..'^techpack_warehouse_box_back.png^tubelib_defect.png',
background_img..'^techpack_warehouse_box_front.png^tubelib_defect.png',
}
end
function techpack_warehouse.Box:new(attr)
local o = {
node_name = attr.node_name,
description = attr.description,
inv_size = attr.inv_size,
background_img = attr.background_img,
}
o.State = tubelib.NodeStates:new({
node_name_passive = attr.node_name,
node_name_active = attr.node_name.."_active",
node_name_defect = attr.node_name.."_defect",
infotext_name = attr.description,
cycle_time = CYCLE_TIME,
standby_ticks = STANDBY_TICKS,
has_item_meter = true,
aging_factor = 50,
formspec_func = formspec,
})
setmetatable(o, self)
self.__index = self
return o
end
function techpack_warehouse.numbers_to_shift(self, meta, item)
-- check cache
local number = meta:get_string("tubelib_number")
local item_name = item:get_name()
if not Cache[number] then
local inv = meta:get_inventory()
Cache[number] = {}
for idx,items in ipairs(inv:get_list("filter")) do
Cache[number][idx] = items:get_name()
end
end
-- determine number to shift
local num_items = item:get_count()
local inv_size = meta:get_int("inv_size")
local inv = meta:get_inventory()
for idx, name in ipairs(Cache[number]) do
if item_name == name then
local stack_size = inv:get_stack("main", idx):get_count()
if stack_size == self.inv_size then -- full?
Cache[number][idx] = "" -- delete for searching
elseif (stack_size + num_items) > self.inv_size then -- limit will be reached?
inv:set_stack("main", idx, ItemStack({name = item_name, count = self.inv_size}))
Cache[number][idx] = "" -- delete for searching
-- search with the rest for further slots
num_items = num_items - (self.inv_size - stack_size)
else
inv:set_stack("main", idx, ItemStack({name = item_name, count = stack_size + num_items}))
return 0
end
end
end
return num_items
end
function techpack_warehouse.allow_metadata_inventory_put(self, pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then
return 0
elseif stack:get_wear() ~= 0 then
return 0
elseif stack:get_stack_max() == 1 then
return 0
end
local inv = M(pos):get_inventory()
local main_stack = inv:get_stack("main", index)
local item_name = inv:get_stack("filter", index):get_name()
if listname == "input" and item_name == stack:get_name() then
return math.min(stack:get_count(), self.inv_size - main_stack:get_count())
elseif listname == "filter" and item_name == main_stack:get_name() then
local number = M(pos):get_string("tubelib_number")
Cache[number] = nil
return 1
elseif listname == "shift" then
return stack:get_count()
end
return 0
end
function techpack_warehouse.on_metadata_inventory_put(pos, listname, index, stack, player)
if listname == "input" then
local number = M(pos):get_string("tubelib_number")
Cache[number] = nil
minetest.after(0.5, move_to_main, pos, index)
end
end
function techpack_warehouse.allow_metadata_inventory_take(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then
return 0
end
local inv = M(pos):get_inventory()
local main_stack = inv:get_stack("main", index)
local number = M(pos):get_string("tubelib_number")
if listname == "main" then
Cache[number] = nil
minetest.after(0.1, move_to_player_inv, player:get_player_name(), pos, index)
return 0
elseif listname == "filter" and main_stack:is_empty() then
Cache[number] = nil
return 1
elseif listname == "shift" then
Cache[number] = nil
return stack:get_count()
end
return 0
end
function techpack_warehouse.allow_metadata_inventory_move(pos, listname, index, stack, player)
return 0
end
function techpack_warehouse.on_receive_fields(self, pos, formname, fields, player)
if minetest.is_protected(pos, player:get_player_name()) then
return
end
local number = M(pos):get_string("tubelib_number")
Cache[number] = nil
self.State:state_button_event(pos, fields)
end
function techpack_warehouse.after_place_node(self, pos, placer, itemstack)
local meta = M(pos)
local number = tubelib.add_node(pos, self.node_name)
self.State:node_init(pos, number)
meta:set_string("player_name", placer:get_player_name())
local inv = meta:get_inventory()
inv:set_size('shift', 7)
inv:set_size('filter', 8)
inv:set_size('main', 8)
inv:set_size('input', 8)
end
function techpack_warehouse.on_timer(self, pos, elapsed)
if tubelib.data_not_corrupted(pos) then
local meta = M(pos)
local inv = meta:get_inventory()
if not inv:is_empty("shift") then
--local number = meta:get_string("tubelib_number")
local player_name = meta:get_string("player_name")
local offs = meta:get_int("offs")
local push_dir = meta:get_string("push_dir")
if push_dir == "" then push_dir = "L" end
meta:set_int("offs", offs + 1)
for i = 0,7 do
local idx = ((i + offs) % 8) + 1
local stack = inv:get_stack("shift", idx)
if stack:get_count() > 0 then
if tubelib.push_items(pos, push_dir, stack, player_name) then
-- The effort is needed here for the case the
-- pusher pushes into its own chest.
local num = stack:get_count()
stack = inv:get_stack("shift", idx)
stack:take_item(num)
inv:set_stack("shift", idx, stack)
self.State:keep_running(pos, meta, COUNTDOWN_TICKS)
break
else
self.State:blocked(pos, meta)
end
end
end
else
self.State:idle(pos, meta)
end
return self.State:is_active(meta)
end
return false
end
function techpack_warehouse.can_dig(self, pos)
local inv = M(pos):get_inventory()
return inv:is_empty("main") and inv:is_empty("shift")
end
function techpack_warehouse.on_dig_node(self, pos, node, digger)
tubelib.remove_node(pos)
if node.name == self.node_name then -- not for defect nodes
self.State:on_dig_node(pos, node, digger)
end
end
function techpack_warehouse.get_num_items(meta, index)
index = index and tonumber(index)
if index < 1 then index = 1 end
if index > 8 then index = 8 end
local inv = meta:get_inventory()
return inv:get_stack("main", index):get_count()
end