Add ME Chest (#1)

Allows the player to interact with items stored in a ME drive.
This commit is contained in:
octacian 2017-02-09 07:37:14 -08:00
parent b3fe7b432c
commit 888367b4f6
7 changed files with 189 additions and 0 deletions

@ -68,6 +68,7 @@ function microexpansion.register_cell(itemstring, def)
minetest.register_craftitem(BASENAME..":"..itemstring, { minetest.register_craftitem(BASENAME..":"..itemstring, {
description = def.description, description = def.description,
inventory_image = BASENAME.."_"..def.inventory_image..".png", inventory_image = BASENAME.."_"..def.inventory_image..".png",
groups = {microexpansion_cell = 1},
microexpansion = { microexpansion = {
drive = { drive = {
capacity = def.capacity or 5000, capacity = def.capacity or 5000,
@ -83,3 +84,11 @@ function microexpansion.register_cell(itemstring, def)
end end
end end
end end
-- [function] Get cell size
function microexpansion.get_cell_size(name)
local item = minetest.registered_craftitems[name]
if item then
return item.microexpansion.drive.capacity
end
end

1
depends.txt Normal file

@ -0,0 +1 @@
default

@ -15,3 +15,6 @@ dofile(modpath.."/api.lua")
-- Load storage devices -- Load storage devices
dofile(modpath.."/storage.lua") dofile(modpath.."/storage.lua")
-- Load machines
dofile(modpath.."/machines.lua")

176
machines.lua Normal file

@ -0,0 +1,176 @@
-- microexpansion/machines.lua
-- [me chest] Get formspec
local function chest_formspec(start_id, listname, page_max, query)
local list
local page_number = ""
local query = query or ""
if not listname then
list = "label[3,2;" .. minetest.colorize("red", "No cell!") .. "]"
else
list = "list[current_name;" .. listname .. ";0,0.3;8,4;" .. (start_id - 1) .. "]"
end
if page_max then
page_number = "label[6.05,4.5;" .. math.floor((start_id / 32)) + 1 ..
"/" .. page_max .."]"
end
return "size[9,10]" ..
default.gui_bg ..
default.gui_bg_img ..
default.gui_slots ..
list ..
"list[current_name;cells;8,1.8;1,1;]" ..
"list[current_player;main;0,5.5;8,1;]" ..
"list[current_player;main;0,6.73;8,3;8]" ..
"button[5.4,4.35;0.8,0.9;prev;<]" ..
"button[7.25,4.35;0.8,0.9;next;>]" ..
"field[0.3,4.6;2.2,1;filter;;" .. query .. "]" ..
"button[2.1,4.5;0.8,0.5;search;?]" ..
"button[2.75,4.5;0.8,0.5;clear;X]" ..
"tooltip[search;Search]" ..
"tooltip[clear;Reset]" ..
"listring[current_name;main]" ..
"listring[current_player;main]" ..
"field_close_on_enter[filter;false]" ..
page_number ..
default.get_hotbar_bg(0,5.50)
end
-- [me chest] Register node
minetest.register_node("microexpansion:chest", {
description = "ME Chest\nCan interact with items in ME storage cells",
tiles = {
"microexpansion_chest_top.png",
"microexpansion_chest_top.png",
"microexpansion_chest_side.png",
"microexpansion_chest_side.png",
"microexpansion_chest_side.png",
"microexpansion_chest_front.png",
},
is_ground_content = false,
groups = { cracky = 1 },
paramtype = "light",
paramtype2 = "facedir",
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", chest_formspec(1))
meta:set_string("inv_name", "none")
meta:set_int("page", 1)
local inv = meta:get_inventory()
inv:set_size("cells", 1)
end,
can_dig = function(pos, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return inv:is_empty("main")
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname == "main" then
return stack:get_count()
elseif listname == "cells" then
if minetest.get_item_group(stack:get_name(), "microexpansion_cell") ~= 0 then
return 1
else
return 0
end
else
return 0
end
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname == "main" then
local inv = minetest.get_meta(pos):get_inventory()
inv:remove_item(listname, stack)
inv:add_item(listname, stack)
elseif listname == "cells" then
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local items = minetest.deserialize(stack:get_meta():get_string("items"))
local size = microexpansion.get_cell_size(stack:get_name())
local page_max = math.floor(size / 32) + 1
inv:set_size("main", size)
if items then
inv:set_list("main", items)
end
meta:set_string("inv_name", "main")
meta:set_string("formspec", chest_formspec(1, "main", page_max))
end
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
local inv = minetest.get_meta(pos):get_inventory()
if listname == "search" then
inv:remove_item("main", stack)
end
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
if listname == "cells" then
local t = minetest.get_us_time()
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local tab = {}
local new_stack = inv:get_stack(listname, 1)
local item_meta = new_stack:get_meta()
for i = 1, inv:get_size("main") do
if inv:get_stack("main", i):get_name() ~= "" then
tab[#tab + 1] = inv:get_stack("main", i):to_string()
end
end
item_meta:set_string("items", minetest.serialize(tab))
inv:set_stack(listname, 1, new_stack)
inv:set_size("main", 0)
meta:set_int("page", 1)
meta:set_string("formspec", chest_formspec(1))
return new_stack:get_count()
end
return stack:get_count()
end,
on_receive_fields = function(pos, formname, fields, sender)
local meta = minetest.get_meta(pos)
local page = meta:get_int("page")
local inv_name = meta:get_string("inv_name")
local inv = meta:get_inventory()
local page_max = math.floor(inv:get_size("main") / 32) + 1
local cell_stack = inv:get_stack("cells", 1)
if inv_name == "none" then
return
end
if fields.next then
if page + 32 > inv:get_size(inv_name) then
return
end
meta:set_int("page", page + 32)
meta:set_string("formspec", chest_formspec(page + 32, inv_name, page_max))
elseif fields.prev then
if page - 32 < 1 then
return
end
meta:set_int("page", page - 32)
meta:set_string("formspec", chest_formspec(page - 32, inv_name, page_max))
elseif fields.search or fields.key_enter_field == "filter" then
inv:set_size("search", 0)
if fields.filter == "" then
meta:set_int("page", 1)
meta:set_string("inv_name", "main")
meta:set_string("formspec", chest_formspec(1, "main", page_max))
else
local tab = {}
for i = 1, microexpansion.get_cell_size(cell_stack:get_name()) do
local match = inv:get_stack("main", i):get_name():find(fields.filter)
if match then
tab[#tab + 1] = inv:get_stack("main", i)
end
end
inv:set_list("search", tab)
meta:set_int("page", 1)
meta:set_string("inv_name", "search")
meta:set_string("formspec", chest_formspec(1, "search", page_max, fields.filter))
end
elseif fields.clear then
inv:set_size("search", 0)
meta:set_int("page", 1)
meta:set_string("inv_name", "main")
meta:set_string("formspec", chest_formspec(1, "main", page_max))
end
end,
})

Binary file not shown.

After

Width:  |  Height:  |  Size: 331 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 292 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 338 B