forked from Mirrorlandia_minetest/minetest
353 lines
11 KiB
Lua
353 lines
11 KiB
Lua
local F = minetest.formspec_escape
|
|
local S = minetest.get_translator("chest_of_everything")
|
|
|
|
local detached_inventories = {}
|
|
|
|
-- Per-player lists (indexed by player name)
|
|
local current_pages = {} -- current page number
|
|
local current_max_pages = {} -- current max. page number
|
|
local current_searches = {} -- current search string
|
|
|
|
local SLOTS_W = 10
|
|
local SLOTS_H = 5
|
|
local SLOTS = SLOTS_W * SLOTS_H
|
|
|
|
-- This determines how the items are sorted
|
|
-- "by_type": Sort by item type (tool/craftitem/node/"chest_of_everything" items), then alphabetically by itemstring
|
|
-- "abc": Alphabetically by itemstring
|
|
local SORT_MODE = "by_type"
|
|
|
|
local all_items_list -- cached list of all items
|
|
|
|
-- Create detached inventories
|
|
local function add_detached_inventories(player)
|
|
local name = player:get_player_name()
|
|
local inv_items = minetest.create_detached_inventory("chest_of_everything_items_"..name, {
|
|
allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
|
|
return 0
|
|
end,
|
|
allow_put = function(inv, listname, index, stack, player)
|
|
return 0
|
|
end,
|
|
allow_take = function(inv, listname, index, stack, player)
|
|
return -1
|
|
end,
|
|
}, name)
|
|
local inv_trash = minetest.create_detached_inventory("chest_of_everything_trash_"..name, {
|
|
allow_take = function(inv, listname, index, stack, player)
|
|
return 0
|
|
end,
|
|
allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
|
|
return 0
|
|
end,
|
|
on_put = function(inv, listname, index, stack, player)
|
|
inv:set_list(listname, {})
|
|
end,
|
|
}, name)
|
|
inv_trash:set_size("main", 1)
|
|
detached_inventories[name] = { items = inv_items, trash = inv_trash }
|
|
end
|
|
|
|
local sort_items_by_type = function(item1, item2)
|
|
--[[ Sort items in this order:
|
|
* Bag of Everything
|
|
* Chest of Everything
|
|
* Test tools
|
|
* Other tools
|
|
* Craftitems
|
|
* Other items
|
|
* Items from the 'broken' mod
|
|
* Dummy items ]]
|
|
local def1 = minetest.registered_items[item1]
|
|
local def2 = minetest.registered_items[item2]
|
|
local tool1 = def1.type == "tool"
|
|
local tool2 = def2.type == "tool"
|
|
local testtool1 = minetest.get_item_group(item1, "testtool") == 1
|
|
local testtool2 = minetest.get_item_group(item2, "testtool") == 1
|
|
local dummy1 = minetest.get_item_group(item1, "dummy") == 1
|
|
local dummy2 = minetest.get_item_group(item2, "dummy") == 1
|
|
local broken1 = def1.mod_origin == "broken"
|
|
local broken2 = def2.mod_origin == "broken"
|
|
local craftitem1 = def1.type == "craft"
|
|
local craftitem2 = def2.type == "craft"
|
|
if item1 == "chest_of_everything:bag" then
|
|
return true
|
|
elseif item2 == "chest_of_everything:bag" then
|
|
return false
|
|
elseif item1 == "chest_of_everything:chest" then
|
|
return true
|
|
elseif item2 == "chest_of_everything:chest" then
|
|
return false
|
|
elseif dummy1 and not dummy2 then
|
|
return false
|
|
elseif not dummy1 and dummy2 then
|
|
return true
|
|
elseif broken1 and not broken2 then
|
|
return false
|
|
elseif not broken1 and broken2 then
|
|
return true
|
|
elseif testtool1 and not testtool2 then
|
|
return true
|
|
elseif not testtool1 and testtool2 then
|
|
return false
|
|
elseif tool1 and not tool2 then
|
|
return true
|
|
elseif not tool1 and tool2 then
|
|
return false
|
|
elseif craftitem1 and not craftitem2 then
|
|
return true
|
|
elseif not craftitem1 and craftitem2 then
|
|
return false
|
|
else
|
|
return item1 < item2
|
|
end
|
|
end
|
|
|
|
local sort_items_alphabetically = function(item1, item2)
|
|
return item1 < item2
|
|
end
|
|
|
|
local collect_items = function(filter, lang_code)
|
|
local items = {}
|
|
if filter then
|
|
filter = string.trim(filter)
|
|
filter = string.lower(filter) -- to make sure the search is case-insensitive
|
|
end
|
|
for itemstring, def in pairs(minetest.registered_items) do
|
|
if itemstring ~= "" and itemstring ~= "unknown" and itemstring ~= "ignore" then
|
|
if filter and lang_code then
|
|
local desc = ItemStack(itemstring):get_description()
|
|
local matches
|
|
-- First, try to match original description
|
|
if desc ~= "" then
|
|
local ldesc = string.lower(desc)
|
|
matches = string.match(ldesc, filter) ~= nil
|
|
-- Second, try to match translated description
|
|
if not matches then
|
|
local tdesc = minetest.get_translated_string(lang_code, desc)
|
|
if tdesc ~= "" then
|
|
tdesc = string.lower(tdesc)
|
|
matches = string.match(tdesc, filter) ~= nil
|
|
end
|
|
end
|
|
-- Third, try to match translated short description
|
|
if not matches then
|
|
local sdesc = ItemStack(itemstring):get_short_description()
|
|
if sdesc ~= "" then
|
|
sdesc = minetest.get_translated_string(lang_code, sdesc)
|
|
sdesc = string.lower(sdesc)
|
|
matches = string.match(sdesc, filter) ~= nil
|
|
end
|
|
end
|
|
|
|
end
|
|
-- Fourth, try to match itemstring
|
|
if not matches then
|
|
matches = string.match(itemstring, filter) ~= nil
|
|
end
|
|
|
|
-- If item was matched, add to item list
|
|
if matches then
|
|
table.insert(items, itemstring)
|
|
end
|
|
else
|
|
table.insert(items, itemstring)
|
|
end
|
|
end
|
|
end
|
|
local compare
|
|
if SORT_MODE == "by_type" then
|
|
compare = sort_items_by_type
|
|
elseif SORT_MODE == "abc" then
|
|
compare = sort_items_alphabetically
|
|
end
|
|
table.sort(items, compare)
|
|
|
|
return items
|
|
end
|
|
|
|
local function update_inventory(name)
|
|
local search = current_searches[name] or ""
|
|
local items
|
|
if search == "" then
|
|
items = all_items_list
|
|
else
|
|
local lang_code = minetest.get_player_information(name).lang_code
|
|
items = collect_items(search, lang_code)
|
|
end
|
|
local max_page = math.ceil(#items / SLOTS)
|
|
current_max_pages[name] = max_page
|
|
|
|
local inv = detached_inventories[name].items
|
|
inv:set_size("main", #items)
|
|
inv:set_list("main", items)
|
|
if not current_pages[name] then
|
|
current_pages[name] = 1
|
|
end
|
|
if current_pages[name] > max_page then
|
|
current_pages[name] = max_page
|
|
end
|
|
if current_pages[name] < 1 then
|
|
current_pages[name] = 1
|
|
end
|
|
end
|
|
|
|
local function get_formspec(page, name)
|
|
local start = 0 + (page-1)*SLOTS
|
|
if not name then
|
|
return ""
|
|
end
|
|
local player = minetest.get_player_by_name(name)
|
|
local playerinvsize = player:get_inventory():get_size("main")
|
|
local hotbarsize = player:hud_get_hotbar_itemcount()
|
|
local pinv_w, pinv_h, pinv_x
|
|
pinv_w = hotbarsize
|
|
pinv_h = math.ceil(playerinvsize / pinv_w)
|
|
pinv_w = math.min(pinv_w, 10)
|
|
pinv_h = math.min(pinv_w, 4)
|
|
pinv_x = 0
|
|
if pinv_w < 9 then
|
|
pinv_x = 1
|
|
end
|
|
|
|
local pagestr = ""
|
|
local max_page = current_max_pages[name]
|
|
if max_page > 1 then
|
|
pagestr = "button[0,5.45;1,1;chest_of_everything_prev;"..F(S("<")).."]"..
|
|
"button[1,5.45;1,1;chest_of_everything_next;"..F(S(">")).."]"..
|
|
"label[0,5.1;"..F(S("Page: @1/@2", page, max_page)).."]"
|
|
end
|
|
|
|
local search_text = current_searches[name] or ""
|
|
|
|
local inventory_list
|
|
if current_max_pages[name] > 0 then
|
|
inventory_list = "list[detached:chest_of_everything_items_"..name..";main;0,0;"..SLOTS_W..","..SLOTS_H..";"..start.."]"
|
|
else
|
|
inventory_list = "label[2.5,2.5;"..F(S("No items found.")).."]"
|
|
if search_text ~= "" then
|
|
inventory_list = inventory_list .. "button[2.5,3.25;3,0.8;search_button_reset_big;"..F(S("Reset search")).."]"
|
|
end
|
|
end
|
|
|
|
return "size[10,10.5]"..
|
|
inventory_list ..
|
|
"list[current_player;main;"..pinv_x..",6.75;"..pinv_w..","..pinv_h..";]" ..
|
|
"label[9,5.1;"..F(S("Trash:")).."]" ..
|
|
"list[detached:chest_of_everything_trash_"..name..";main;9,5.5;1,1]" ..
|
|
"field[2.2,5.75;4,1;search;;"..F(search_text).."]" ..
|
|
"field_close_on_enter[search;false]" ..
|
|
"button[6,5.45;1.6,1;search_button_start;"..F(S("Search")).."]" ..
|
|
"button[7.6,5.45;0.8,1;search_button_reset;"..F(S("X")).."]" ..
|
|
"tooltip[search_button_reset;"..F(S("Reset search")).."]" ..
|
|
pagestr ..
|
|
"listring[detached:chest_of_everything_items_"..name..";main]"..
|
|
"listring[current_player;main]"..
|
|
"listring[detached:chest_of_everything_trash_"..name..";main]"
|
|
end
|
|
|
|
local show_formspec = function(name)
|
|
local page = current_pages[name]
|
|
local form = get_formspec(page, name)
|
|
minetest.show_formspec(name, "chest_of_everything:getitem", form)
|
|
return true
|
|
end
|
|
|
|
minetest.register_on_player_receive_fields(function(player, formname, fields)
|
|
if formname ~= "chest_of_everything:getitem" then
|
|
return
|
|
end
|
|
local name = player:get_player_name()
|
|
local page = current_pages[name]
|
|
local old_page = page
|
|
-- Next page or previous page
|
|
if fields.chest_of_everything_next or fields.chest_of_everything_prev then
|
|
if fields.chest_of_everything_next then
|
|
page = page + 1
|
|
elseif fields.chest_of_everything_prev then
|
|
page = page - 1
|
|
end
|
|
-- Handle page change
|
|
if page < 1 then
|
|
page = 1
|
|
end
|
|
local max_page = current_max_pages[name]
|
|
if page > max_page then
|
|
page = max_page
|
|
end
|
|
if page ~= old_page then
|
|
current_pages[name] = page
|
|
show_formspec(name)
|
|
end
|
|
return
|
|
-- Search
|
|
elseif (fields.search_button_start or (fields.key_enter and fields.key_enter_field == "search")) and fields.search then
|
|
current_searches[name] = fields.search
|
|
update_inventory(name)
|
|
show_formspec(name, fields.search)
|
|
return
|
|
-- Reset search
|
|
elseif (fields.search_button_reset or fields.search_button_reset_big) then
|
|
current_searches[name] = ""
|
|
update_inventory(name)
|
|
show_formspec(name)
|
|
return
|
|
end
|
|
end)
|
|
|
|
minetest.register_tool("chest_of_everything:bag", {
|
|
description = S("Bag of Everything") .. "\n" ..
|
|
S("Grants access to all items"),
|
|
inventory_image = "chest_of_everything_bag.png",
|
|
wield_image = "chest_of_everything_bag.png",
|
|
groups = { disable_repair = 1 },
|
|
on_use = function(itemstack, user)
|
|
if user and user:is_player() then
|
|
local name = user:get_player_name()
|
|
show_formspec(name)
|
|
end
|
|
end,
|
|
})
|
|
|
|
minetest.register_node("chest_of_everything:chest", {
|
|
description = S("Chest of Everything") .. "\n" ..
|
|
S("Grants access to all items"),
|
|
tiles ={"chest_of_everything_chest.png^[sheet:2x2:0,0", "chest_of_everything_chest.png^[sheet:2x2:0,0",
|
|
"chest_of_everything_chest.png^[sheet:2x2:1,0", "chest_of_everything_chest.png^[sheet:2x2:1,0",
|
|
"chest_of_everything_chest.png^[sheet:2x2:1,0", "chest_of_everything_chest.png^[sheet:2x2:0,1"},
|
|
paramtype2 = "4dir",
|
|
groups = { dig_immediate=2, choppy=3 },
|
|
is_ground_content = false,
|
|
on_construct = function(pos)
|
|
local meta = minetest.get_meta(pos)
|
|
meta:set_string("infotext", S("Chest of Everything"))
|
|
end,
|
|
on_rightclick = function(pos, node, clicker)
|
|
if clicker and clicker:is_player() then
|
|
local name = clicker:get_player_name()
|
|
show_formspec(name)
|
|
end
|
|
end,
|
|
})
|
|
|
|
|
|
minetest.register_on_mods_loaded(function()
|
|
all_items_list = collect_items()
|
|
end)
|
|
|
|
minetest.register_on_joinplayer(function(player)
|
|
local name = player:get_player_name()
|
|
current_searches[name] = ""
|
|
current_pages[name] = 1
|
|
current_max_pages[name] = 0
|
|
add_detached_inventories(player)
|
|
update_inventory(name)
|
|
end)
|
|
|
|
minetest.register_on_leaveplayer(function(player)
|
|
local name = player:get_player_name()
|
|
current_pages[name] = nil
|
|
current_max_pages[name] = nil
|
|
current_searches[name] = nil
|
|
end)
|