From c6016c2053f7952d6f0b7e296a48ce847e29a178 Mon Sep 17 00:00:00 2001
From: Wuzzy <almikes@aol.com>
Date: Sun, 26 Nov 2017 15:05:45 +0100
Subject: [PATCH] Add MC-like falling nodes

---
 .../mcl_falling_nodes/description.txt         |   1 +
 mods/ENTITIES/mcl_falling_nodes/init.lua      | 126 ++++++++++++++++++
 mods/ENTITIES/mcl_falling_nodes/mod.conf      |   1 +
 3 files changed, 128 insertions(+)
 create mode 100644 mods/ENTITIES/mcl_falling_nodes/description.txt
 create mode 100644 mods/ENTITIES/mcl_falling_nodes/init.lua
 create mode 100644 mods/ENTITIES/mcl_falling_nodes/mod.conf

diff --git a/mods/ENTITIES/mcl_falling_nodes/description.txt b/mods/ENTITIES/mcl_falling_nodes/description.txt
new file mode 100644
index 000000000..8b436bf28
--- /dev/null
+++ b/mods/ENTITIES/mcl_falling_nodes/description.txt
@@ -0,0 +1 @@
+Falling node entities, Minecraft-style
diff --git a/mods/ENTITIES/mcl_falling_nodes/init.lua b/mods/ENTITIES/mcl_falling_nodes/init.lua
new file mode 100644
index 000000000..7ddcd2fd2
--- /dev/null
+++ b/mods/ENTITIES/mcl_falling_nodes/init.lua
@@ -0,0 +1,126 @@
+minetest.register_entity(":__builtin:falling_node", {
+	initial_properties = {
+		visual = "wielditem",
+		visual_size = {x = 0.667, y = 0.667},
+		textures = {},
+		physical = true,
+		is_visible = false,
+		collide_with_objects = false,
+		collisionbox = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
+	},
+
+	node = {},
+	meta = {},
+
+	set_node = function(self, node, meta)
+		self.node = node
+		self.meta = meta or {}
+		self.object:set_properties({
+			is_visible = true,
+			textures = {node.name},
+		})
+	end,
+
+	get_staticdata = function(self)
+		local ds = {
+			node = self.node,
+			meta = self.meta,
+		}
+		return minetest.serialize(ds)
+	end,
+
+	on_activate = function(self, staticdata)
+		self.object:set_armor_groups({immortal = 1})
+		
+		local ds = minetest.deserialize(staticdata)
+		if ds and ds.node then
+			self:set_node(ds.node, ds.meta)
+		elseif ds then
+			self:set_node(ds)
+		elseif staticdata ~= "" then
+			self:set_node({name = staticdata})
+		end
+	end,
+
+	on_step = function(self, dtime)
+		-- Set gravity
+		local acceleration = self.object:getacceleration()
+		if not vector.equals(acceleration, {x = 0, y = -10, z = 0}) then
+			self.object:setacceleration({x = 0, y = -10, z = 0})
+		end
+		-- Turn to actual node when colliding with ground, or continue to move
+		local pos = self.object:getpos()
+
+		-- Portal check
+		local np = {x = pos.x, y = pos.y + 0.3, z = pos.z}
+		local n2 = minetest.get_node(np)
+		if n2.name == "mcl_portals:portal_end" then
+			-- TODO: Teleport falling node. 
+			self.object:remove()
+			return
+		end
+
+		-- Position of bottom center point
+		local bcp = {x = pos.x, y = pos.y - 0.7, z = pos.z}
+		-- Avoid bugs caused by an unloaded node below
+		local bcn = minetest.get_node_or_nil(bcp)
+		local bcd = bcn and minetest.registered_nodes[bcn.name]
+
+		-- TODO: At this point, we did 2 get_nodes in 1 tick.
+		-- Figure out how to improve that (if it is a problem).
+
+		if bcn and (not bcd or bcd.walkable or
+				(minetest.get_item_group(self.node.name, "float") ~= 0 and
+				bcd.liquidtype ~= "none")) then
+			if bcd and bcd.leveled and
+					bcn.name == self.node.name then
+				local addlevel = self.node.level
+				if not addlevel or addlevel <= 0 then
+					addlevel = bcd.leveled
+				end
+				if minetest.add_node_level(bcp, addlevel) == 0 then
+					self.object:remove()
+					return
+				end
+			elseif bcd and bcd.buildable_to and
+					(minetest.get_item_group(self.node.name, "float") == 0 or
+					bcd.liquidtype == "none") then
+				minetest.remove_node(bcp)
+				return
+			end
+			local nd = minetest.registered_nodes[n2.name]
+			if n2.name == "mcl_portals:portal_end" then
+				-- TODO: Teleport falling node. 
+
+			elseif nd and nd.buildable_to == true then
+				-- Replace destination node if it's buildable to
+				minetest.remove_node(np)
+				-- Run script hook
+				for _, callback in pairs(minetest.registered_on_dignodes) do
+					callback(np, n2)
+				end
+				if minetest.registered_nodes[self.node.name] then
+					minetest.add_node(np, self.node)
+					if self.meta then
+						local meta = minetest.get_meta(np)
+						meta:from_table(self.meta)
+					end
+				end
+			else
+				-- Drop the *falling node* as an item if the destination node is NOT buildable to
+				local drops = minetest.get_node_drops(self.node.name, "")
+				for _, dropped_item in pairs(drops) do
+					minetest.add_item(np, dropped_item)
+				end
+			end
+			self.object:remove()
+			minetest.check_for_falling(np)
+			return
+		end
+		local vel = self.object:getvelocity()
+		if vector.equals(vel, {x = 0, y = 0, z = 0}) then
+			local npos = self.object:getpos()
+			self.object:setpos(vector.round(npos))
+		end
+	end
+})
diff --git a/mods/ENTITIES/mcl_falling_nodes/mod.conf b/mods/ENTITIES/mcl_falling_nodes/mod.conf
new file mode 100644
index 000000000..032b75023
--- /dev/null
+++ b/mods/ENTITIES/mcl_falling_nodes/mod.conf
@@ -0,0 +1 @@
+name = mcl_falling_nodes