80 lines
3.1 KiB
Lua

local S = unified_inventory.gettext
local F = unified_inventory.fgettext
local has_stamina = minetest.global_exists("stamina")
-- Backup to inject code
unified_inventory_plus.craft_all = unified_inventory.pages["craft"].get_formspec
local function onload()
unified_inventory.pages["craft"] = {
get_formspec = function(player, perplayer_formspec)
local formspecy = perplayer_formspec.formspec_y
local formspec = unified_inventory_plus.craft_all(player, perplayer_formspec).formspec
formspec = formspec.."button[5.15, "..(formspecy + 1.18)..";0.8,0.6;craft_craftall;"..S("All").."]"
return {formspec=formspec}
end,
}
end
onload()
-- I don t get what is this width (for instance 3 to craft a sandstone and not 2), so I determine it by comparing the result
local function infer_width(list, expected)
if not expected or expected:is_empty() then return nil end
local width = nil
for i = 1,3 do
local result, remaining_stack = minetest.get_craft_result({ method = "normal", width = i, items = list})
if result.item:to_string() == expected:to_string() then width = i break end
end
if width == nil then minetest.log("warning", "[unified_inventory_plus] Can't infer recipe width for "..expected:to_string()) end
return width
end
-- Craft max possible items and put the result in the main inventory
local function craft_craftall(player, formname, fields)
local player_inv = player:get_inventory()
assert(player_inv)
local craft_list = player_inv:get_list("craft")
local craft_width = infer_width(craft_list, player_inv:get_stack("craftpreview", 1))
if craft_width == nil then return end
-- Check the inventory room
local tmp_result, tmp_inv = minetest.get_craft_result({ method = "normal", width = craft_width, items = craft_list})
local room_left = room_left_for_item(player_inv:get_list("main"), tmp_result.item)
if room_left == 0 then return end
-- While there are ingredients & room, craft !
local expected_type_name = tmp_result.item:get_name()
local no_stack_limit = minetest.get_player_privs(player:get_player_name()).creative and not tmp_result.item:get_stack_max() == 1
local nb_res, result, decremented_input = 0, tmp_result, tmp_inv
while not tmp_result.item:is_empty() and tmp_result.item:get_name() == expected_type_name and (no_stack_limit or nb_res + tmp_result.item:get_count() <= room_left) do
nb_res = nb_res + tmp_result.item:get_count()
decremented_input = tmp_inv
tmp_result, tmp_inv = minetest.get_craft_result(decremented_input)
if has_stamina and stamina.exhaust_player then
stamina.exhaust_player(player, stamina.settings.exhaust_craft, stamina.exhaustion_reasons.craft)
end
end
-- Put a single stack for creative players and split the result for non creatives
place_item_in_stacks(player, "main", result.item:get_name(), nb_res)
player_inv:set_list("craft", decremented_input.items)
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
--if not formname:match("craft") then return end
for k, v in pairs(fields) do
if k:match("craft_craftall") then
craft_craftall(player, formname, fields)
return
end
end
end)