From fbcceb8ffe288d63e0de57810d018dc231c5cba3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Imre=20P=C3=A9ntek?= <pentek.imre@gmail.com>
Date: Thu, 4 May 2023 12:40:06 +0200
Subject: [PATCH] make the bags being dumped into the bones block on death
 (configurable)

---
 bags_death.lua   | 79 ++++++++++++++++++++++++++++++++++++++++++++++++
 init.lua         |  3 ++
 settingtypes.txt |  4 +++
 3 files changed, 86 insertions(+)
 create mode 100644 bags_death.lua

diff --git a/bags_death.lua b/bags_death.lua
new file mode 100644
index 0000000..c4117d9
--- /dev/null
+++ b/bags_death.lua
@@ -0,0 +1,79 @@
+local ui = unified_inventory
+
+local function drop(pos, itemstack)
+	local obj = minetest.add_item(pos, itemstack:take_item(itemstack:get_count()))
+	if obj then
+		obj:set_velocity({
+			x = math.random(-10, 10) / 9,
+			y = 5,
+			z = math.random(-10, 10) / 9,
+		})
+	end
+end
+
+local function add_to_bones(bones_inv,stk,pos)
+	if bones_inv and bones_inv:room_for_item("main", stk) then
+		bones_inv:add_item("main", stk)
+	else
+		drop(pos, stk)
+	end
+end
+
+minetest.register_on_dieplayer(function(player)
+	local bones_mode = minetest.settings:get("bones_mode")
+	if bones_mode ~= "bones" and bones_mode ~= "drop" and bones_mode ~= "keep" then
+		bones_mode = "bones"
+	end
+	local player_name=player:get_player_name()
+
+	if bones_mode == "keep" or minetest.is_creative_enabled(player_name) then
+		return
+	end
+
+	local pos = player:get_pos()
+
+	minetest.after(1, function()
+		local bones_meta = nil
+		local player_meta = player:get_meta()
+		local maxp = vector.add(pos, 16)
+		local minp = vector.subtract(pos, 16)
+		local bones = minetest.find_nodes_in_area(minp, maxp, {"bones:bones"})
+		local name = player_name
+
+		for _, p in pairs(bones) do
+			local m = minetest.get_meta(p)
+			if m:get_string("owner") == name then
+				bones_meta = m
+				break
+			end
+		end
+		local bones_inv = nil
+		if bones_meta then
+			bones_inv = bones_meta:get_inventory()
+		end
+		local player_inv = player:get_inventory()
+		for i = 1, 4 do
+			local x = minetest.get_inventory({
+					type = "detached",
+					name = player:get_player_name() .. "_bags"
+				}):get_stack("bag" .. i, 1)
+			add_to_bones(bones_inv,x,pos)
+			local def = x:get_definition()
+			if(def.groups.bagslots)then
+				local list_name = "bag" .. i .. "contents"
+				local size = player_inv:get_size(list_name)
+				for si = 1, size do
+					local stk = player_inv:get_stack(list_name, si)
+					player_inv:set_stack(list_name, 0, nil)
+					add_to_bones(bones_inv,stk,pos)
+				end
+				minetest.get_inventory({
+						type = "detached",
+						name = player:get_player_name() .. "_bags"
+					}):set_stack("bag" .. i, 1, nil)
+				player_meta:set_string("unified_inventory:bags", nil)
+				player_inv:set_size(list_name, 0)
+			end
+		end
+	end)
+end)
diff --git a/init.lua b/init.lua
index 4a09b32..2cdae60 100644
--- a/init.lua
+++ b/init.lua
@@ -190,6 +190,9 @@ dofile(modpath.."/register.lua")
 
 if minetest.settings:get_bool("unified_inventory_bags") ~= false then
 	dofile(modpath.."/bags.lua")
+	if minetest.settings:get_bool("unified_inventory_keep_bags_on_death") == false then
+		dofile(modpath.."/bags_death.lua")
+	end
 end
 
 dofile(modpath.."/item_names.lua")
diff --git a/settingtypes.txt b/settingtypes.txt
index 5ab7f84..61001b5 100644
--- a/settingtypes.txt
+++ b/settingtypes.txt
@@ -6,6 +6,10 @@ unified_inventory_lite (Lite mode) bool false
 #inventory storage size.
 unified_inventory_bags (Enable bags) bool true
 
+#If enabled, bags and their contents will be inserted into bones and/or
+#dropped on death
+unified_inventory_keep_bags_on_death (Enable bags) bool true
+
 #If enabled, the trash slot can be used by those without both creative
 #and the give privilege.
 unified_inventory_trash (Enable trash) bool true