holostorage/nodes/common.lua

187 lines
4.7 KiB
Lua
Raw Normal View History

2018-04-08 14:11:39 +00:00
-- holostorage commons
2018-04-08 14:11:39 +00:00
holostorage.helpers = {}
2018-04-08 14:11:39 +00:00
function holostorage.helpers.swap_node(pos, noded)
local node = minetest.get_node(pos)
if type(noded) ~= "table" then
noded = {name = noded}
end
if node.name == noded.name then
return false
end
minetest.swap_node(pos, noded)
return true
end
2018-04-08 14:11:39 +00:00
function holostorage.helpers.grid_refresh(pos, n, controller)
local node = minetest.get_node(pos)
2018-04-08 09:39:06 +00:00
local meta = minetest.get_meta(pos)
local nodedef = minetest.registered_nodes[node.name]
2018-04-08 09:39:06 +00:00
local prev = meta:get_string("controller")
meta:set_string("infotext", ("%s Active"):format(nodedef.description))
meta:set_string("controller", minetest.pos_to_string(controller))
if not prev or prev == "" then
minetest.get_node_timer(pos):start(0.02)
end
2018-04-08 14:11:39 +00:00
if nodedef.holostorage_enabled_name then
node.name = nodedef.holostorage_enabled_name
holostorage.helpers.swap_node(pos, node)
end
end
2018-04-08 12:06:49 +00:00
2018-04-08 14:11:39 +00:00
function holostorage.front(pos, fd)
2018-04-09 09:23:30 +00:00
local back = minetest.facedir_to_dir(fd)
local front = {}
for i, v in pairs(back) do
front[i] = v
end
2018-04-08 12:06:49 +00:00
front.x = front.x * -1 + pos.x
front.y = front.y * -1 + pos.y
front.z = front.z * -1 + pos.z
return front
end
function holostorage.stack_list(pos)
local invs = holostorage.get_all_inventories(pos)
if not invs then return {} end
local tabl = {}
for _,diskptr in pairs(invs) do
local invref = holostorage.server_inventory.cache[diskptr]
local inv_n = "main"
local inv_p
if diskptr:find("chest/") then
inv_p, inv_n = diskptr:match("chest/(.*)/([%a_]+)")
local pos1 = minetest.string_to_pos(inv_p)
local meta = minetest.get_meta(pos1)
invref = meta:get_inventory()
end
if invref then
local stacks = invref:get_list(inv_n)
for _,stack in pairs(stacks) do
if not stack:is_empty() then
table.insert(tabl, stack)
end
end
end
end
--table.sort( tabl, sort_by_stack_name )
return tabl
end
-- Storage Devices
function holostorage.insert_stack(pos, stack)
local invs = holostorage.get_all_inventories(pos)
if not invs then return {} end
local tabl = {}
local success = false
local leftover
for _,diskptr in pairs(invs) do
local invref = holostorage.server_inventory.cache[diskptr]
local inv_n = "main"
local inv_p
if diskptr:find("chest/") then
inv_p, inv_n = diskptr:match("chest/(.*)/([%a_]+)")
local pos1 = minetest.string_to_pos(inv_p)
local meta = minetest.get_meta(pos1)
invref = meta:get_inventory()
end
if invref then
if invref:room_for_item(inv_n, stack) then
leftover = invref:add_item(inv_n, stack)
success = true
break
end
end
end
return success, leftover
end
function holostorage.take_stack(pos, stack)
local invs = holostorage.get_all_inventories(pos)
if not invs then return {} end
local tabl = {}
local stack_ret
local success = false
for _,diskptr in pairs(invs) do
local invref = holostorage.server_inventory.cache[diskptr]
local inv_n = "main"
local inv_p
if diskptr:find("chest/") then
inv_p, inv_n = diskptr:match("chest/(.*)/([%a_]+)")
local pos1 = minetest.string_to_pos(inv_p)
local meta = minetest.get_meta(pos1)
invref = meta:get_inventory()
end
if invref then
local list = invref:get_list(inv_n)
for i, stacki in pairs(list) do
if stacki:get_name() == stack:get_name() and stacki:get_wear() == stack:get_wear() then
success = true
if stack:get_count() >= stacki:get_count() then
stack:set_count(stacki:get_count())
stacki:clear()
else
stacki:set_count(stacki:get_count() - stack:get_count())
end
stack_ret = stack
list[i] = stacki
break
end
end
invref:set_list(inv_n, list)
end
end
return success, stack_ret
end
function holostorage.get_all_inventories(pos)
local node = minetest.get_node(pos)
if minetest.get_item_group(node.name, "holostorage_storage") == 0 then return nil end
local inventories = {}
if minetest.get_item_group(node.name, "disk_drive") ~= 0 then
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local drives = inv:get_list("main")
for i, v in pairs(drives) do
if not v:is_empty() then
local meta = v:get_meta()
local tag = meta:get_string("storage_tag")
if tag and tag ~= "" then
inventories[#inventories + 1] = tag
end
end
end
else
local meta = minetest.get_meta(pos)
local inv_p = meta:get_string("inv_pos")
if inv_p and inv_p ~= "" then
local inv_n = meta:get_string("inv_name")
local pos1 = minetest.string_to_pos(inv_p)
local meta1 = minetest.get_meta(pos1)
local inv = meta1:get_inventory()
if inv and inv:get_list(inv_n) then
inventories[#inventories + 1] = "chest/"..inv_p.."/"..inv_n
end
end
end
return inventories
end