From bc119f4eb03d2a85437cd1188fbd19b3236f016a Mon Sep 17 00:00:00 2001
From: LeMagnesium <mg.minetest@gmail.com>
Date: Fri, 15 May 2015 15:23:28 +0200
Subject: [PATCH 1/2] Forbidden recursive destruction of beds' parts

 - Whenever a part of a bed is destroyed, it uses a variable as a flag to indicate
   to the second part not to destroy it again
---
 mods/beds/api.lua | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/mods/beds/api.lua b/mods/beds/api.lua
index 6b72814d..82d2db70 100644
--- a/mods/beds/api.lua
+++ b/mods/beds/api.lua
@@ -1,3 +1,6 @@
+-- Variable used to stop recursive destruction
+local do_not_destruct = false
+
 function beds.register_bed(name, def)
 	minetest.register_node(name .. "_bottom", {
 		description = def.description,
@@ -35,14 +38,14 @@ function beds.register_bed(name, def)
 			end
 			minetest.set_node(p, {name = n.name:gsub("%_bottom", "_top"), param2 = n.param2})
 			return false
-		end,	
+		end,
 		on_destruct = function(pos)
 			local n = minetest.get_node_or_nil(pos)
 			if not n then return end
 			local dir = minetest.facedir_to_dir(n.param2)
 			local p = vector.add(pos, dir)
 			local n2 = minetest.get_node(p)
-			if minetest.get_item_group(n2.name, "bed") == 2 and n.param2 == n2.param2 then
+			if minetest.get_item_group(n2.name, "bed") == 2 and n.param2 == n2.param2 and not do_not_destruct then
 				minetest.remove_node(p)
 			end
 		end,
@@ -95,6 +98,22 @@ function beds.register_bed(name, def)
 			type = "fixed",
 			fixed = def.nodebox.top,
 		},
+		selection_box = {
+			type = "fixed",
+			fixed = {0, 0, 0, 0, 0, 0},
+		},
+		on_destruct = function(pos)
+			local n = minetest.get_node_or_nil(pos)
+			if not n then return end
+			local dir = minetest.facedir_to_dir(n.param2)
+			local p = vector.subtract(pos,dir)
+			local n2 = minetest.get_node(p)
+			if minetest.get_item_group(n2.name, "bed") == 1 and n.param2 == n2.param2 then
+				do_not_destruct = true
+				minetest.remove_node(p)
+				do_not_destruct = false
+			end
+		end,
 	})
 
 	minetest.register_alias(name, name .. "_bottom")

From c79bfeef3312719e1d6e76883e52975b7f2cb039 Mon Sep 17 00:00:00 2001
From: LeMagnesium <mg.minetest@gmail.com>
Date: Wed, 27 May 2015 11:31:12 +0200
Subject: [PATCH 2/2] Turned beds' on_destruct callback as a public function

 - All calls to beds' `on_destruct` now use `beds.destruct_beds(pos, reverse)`
   with pos the part's position and reverse a boolean to signify to the function
   which bedgroup to look for and which vector method to use
 - Improved drop of beds (top parts now drop bottom parts, aka. beds)
 - Bed bottoms are made unreachable, but also insensitive to fire
---
 mods/beds/api.lua       | 26 ++++----------------------
 mods/beds/functions.lua | 12 ++++++++++++
 2 files changed, 16 insertions(+), 22 deletions(-)

diff --git a/mods/beds/api.lua b/mods/beds/api.lua
index 82d2db70..6ce3e7d8 100644
--- a/mods/beds/api.lua
+++ b/mods/beds/api.lua
@@ -1,6 +1,3 @@
--- Variable used to stop recursive destruction
-local do_not_destruct = false
-
 function beds.register_bed(name, def)
 	minetest.register_node(name .. "_bottom", {
 		description = def.description,
@@ -40,14 +37,7 @@ function beds.register_bed(name, def)
 			return false
 		end,
 		on_destruct = function(pos)
-			local n = minetest.get_node_or_nil(pos)
-			if not n then return end
-			local dir = minetest.facedir_to_dir(n.param2)
-			local p = vector.add(pos, dir)
-			local n2 = minetest.get_node(p)
-			if minetest.get_item_group(n2.name, "bed") == 2 and n.param2 == n2.param2 and not do_not_destruct then
-				minetest.remove_node(p)
-			end
+			beds.destroy_bed(pos, false)
 		end,
 		on_rightclick = function(pos, node, clicker)
 			beds.on_rightclick(pos, clicker)
@@ -92,7 +82,7 @@ function beds.register_bed(name, def)
 		paramtype2 = "facedir",
 		is_ground_content = false,
 		pointable = false,
-		groups = {snappy = 1, choppy = 2, oddly_breakable_by_hand = 2, flammable = 3, bed = 2},
+		groups = {bed = 2},
 		sounds = default.node_sound_wood_defaults(),
 		node_box = {
 			type = "fixed",
@@ -103,17 +93,9 @@ function beds.register_bed(name, def)
 			fixed = {0, 0, 0, 0, 0, 0},
 		},
 		on_destruct = function(pos)
-			local n = minetest.get_node_or_nil(pos)
-			if not n then return end
-			local dir = minetest.facedir_to_dir(n.param2)
-			local p = vector.subtract(pos,dir)
-			local n2 = minetest.get_node(p)
-			if minetest.get_item_group(n2.name, "bed") == 1 and n.param2 == n2.param2 then
-				do_not_destruct = true
-				minetest.remove_node(p)
-				do_not_destruct = false
-			end
+			beds.destroy_bed(pos, true)
 		end,
+		drop = name .. "_bottom",
 	})
 
 	minetest.register_alias(name, name .. "_bottom")
diff --git a/mods/beds/functions.lua b/mods/beds/functions.lua
index 5b2f5406..ce4ad6b3 100644
--- a/mods/beds/functions.lua
+++ b/mods/beds/functions.lua
@@ -7,6 +7,7 @@ if enable_respawn == nil then
 end
 
 
+
 -- helper functions
 
 local function get_look_yaw(pos)
@@ -174,6 +175,17 @@ function beds.on_rightclick(pos, player)
 	end
 end
 
+function beds.destroy_bed(pos, reverse)
+	local n = minetest.get_node_or_nil(pos)
+	if not n then return end
+	local dir = minetest.facedir_to_dir(n.param2)
+	local p = vector.add(pos, dir)
+	local n2 = minetest.get_node(p)
+	if minetest.get_item_group(n2.name, "bed") == 2 then
+		minetest.remove_node(p)
+	end
+end
+
 
 -- callbacks