functions.lua

local S = core.get_translator("bones")

function bones.stacks_to_strings(inventory)
	for _,list in pairs(inventory) do
		for i, stack in ipairs(list) do
			list[i] = stack:to_string()
		end
	end
	return inventory
end

function bones.strings_to_stacks(inventory)
	for _,list in pairs(inventory) do
		for i, str in ipairs(list) do
			list[i] = ItemStack(str)
		end
	end
	return inventory
end

function bones.can_collect(name, owner, elapsed)
	if bones.sharing and elapsed >= bones.share_time then
		return true
	end
	if owner == "" or owner == name or core.check_player_privs(name, "protection_bypass") then
		return true
	end
	return false
end

function bones.collect_bones(pos, player, owner, items, punched)
	local name = player:get_player_name()
	-- Move as many items as possible to the player's inventory
	local empty
	if owner == name and not punched then
		empty = bones.restore_all_items(player, items)
	else
		empty = bones.add_all_items(player, items)
	end
	-- Remove bones if they have been emptied
	local pos_str = core.pos_to_string(pos)
	if empty then
		local player_inv = player:get_inventory()
		if player_inv:room_for_item("main", "bones:bones") then
			player_inv:add_item("main", "bones:bones")
		else
			core.add_item(pos, "bones:bones")
		end
		if owner ~= name then
			core.chat_send_player(name, S("You collected @1's bones at @2.", owner, pos_str))
			core.log("action", name.." removes "..owner.."'s bones at "..pos_str)
		else
			core.log("action", name.." removes their bones at "..pos_str)
		end
		core.sound_play("bones_dug", {gain = 0.8}, true)
		return true
	end
	-- Log the bone-taking
	if owner ~= name then
		core.log("action", name.." takes items from "..owner.."'s bones at "..pos_str)
	else
		core.log("action", name.." takes items from their bones at "..pos_str)
	end
	return false
end

function bones.pickup_bones(pos, items, infotext, player)
	-- Pick up bones with items stored inside
	local name = player:get_player_name()
	local player_inv = player:get_inventory()
	local has_room = false
	for _,stack in ipairs(player_inv:get_list("main")) do
		if stack:is_empty() then
			has_room = true
			break
		end
	end
	if not has_room then
		core.chat_send_player(name, S("You don't have room in your inventory for these bones."))
		return
	end
	items = core.encode_base64(core.compress(core.serialize(bones.stacks_to_strings(items))), "deflate")
	if #items > 65000 then
		core.chat_send_player(name, S("These bones are too heavy to pick up."))
		return
	end
	local stack = ItemStack("bones:bones")
	local meta = stack:get_meta()
	meta:set_string("items", items)
	meta:set_string("description", infotext)
	player_inv:add_item("main", stack)
	core.sound_play("bones_dug", {gain = 0.8}, true)
	core.log("action", name.." picks up bones at "..core.pos_to_string(pos))
	return true
end