From 83f78aea2f3da57a638b48a5bb6f022693bcab8f Mon Sep 17 00:00:00 2001
From: LeMagnesium <mg.minetest@gmail.com>
Date: Sat, 8 Nov 2014 18:42:51 +0100
Subject: [PATCH] (Forgot the new files for builtin_falling)

Sorry, I did a fail :s...
---
 mods/builtin_falling/func.lua      | 201 +++++++++++++++++++++++++
 mods/builtin_falling/rewirting.lua | 234 +++++++++++++++++++++++++++++
 2 files changed, 435 insertions(+)
 create mode 100644 mods/builtin_falling/func.lua
 create mode 100644 mods/builtin_falling/rewirting.lua

diff --git a/mods/builtin_falling/func.lua b/mods/builtin_falling/func.lua
new file mode 100644
index 00000000..7a9944cc
--- /dev/null
+++ b/mods/builtin_falling/func.lua
@@ -0,0 +1,201 @@
+
+function spawn_falling_node(p, node, owners)
+	obj = minetest.add_entity(p, "__builtin:falling_node")
+	obj:get_luaentity():set_node(node)
+	obj:get_luaentity():set_owner(owners)
+end
+
+function drop_attached_node(p)
+	local nn = minetest.get_node(p).name
+	minetest.remove_node(p)
+	for _,item in ipairs(minetest.get_node_drops(nn, "")) do
+		local pos = {
+			x = p.x + math.random()/2 - 0.25,
+			y = p.y + math.random()/2 - 0.25,
+			z = p.z + math.random()/2 - 0.25,
+		}
+		minetest.add_item(pos, item)
+	end
+end
+
+function check_attached_node(p, n)
+	local def = minetest.registered_nodes[n.name]
+	local d = {x=0, y=0, z=0}
+	if def.paramtype2 == "wallmounted" then
+		if n.param2 == 0 then
+			d.y = 1
+		elseif n.param2 == 1 then
+			d.y = -1
+		elseif n.param2 == 2 then
+			d.x = 1
+		elseif n.param2 == 3 then
+			d.x = -1
+		elseif n.param2 == 4 then
+			d.z = 1
+		elseif n.param2 == 5 then
+			d.z = -1
+		end
+	else
+		d.y = -1
+	end
+	local p2 = {x=p.x+d.x, y=p.y+d.y, z=p.z+d.z}
+	local nn = minetest.get_node(p2).name
+	local def2 = minetest.registered_nodes[nn]
+	if def2 and not def2.walkable then
+		return false
+	end
+	return true
+end
+
+--
+-- Some common functions
+--
+
+function nodeupdate_single(p, delay)
+	n = minetest.get_node(p)
+	if minetest.get_item_group(n.name, "falling_node") ~= 0 then
+		p_bottom = {x=p.x, y=p.y-1, z=p.z}
+		n_bottom = minetest.get_node(p_bottom)
+		-- Note: walkable is in the node definition, not in item groups
+		if minetest.registered_nodes[n_bottom.name] and
+				(minetest.get_item_group(n.name, "float") == 0 or
+					minetest.registered_nodes[n_bottom.name].liquidtype == "none") and
+				(n.name ~= n_bottom.name or (minetest.registered_nodes[n_bottom.name].leveled and
+					minetest.get_node_level(p_bottom) < minetest.get_node_max_level(p_bottom))) and
+				(not minetest.registered_nodes[n_bottom.name].walkable or
+					minetest.registered_nodes[n_bottom.name].buildable_to) then
+			if delay then
+				minetest.after(0.1, nodeupdate_single, {x=p.x, y=p.y, z=p.z}, false)
+			else
+				n.level = minetest.get_node_level(p)
+				local meta = minetest.get_meta(p)
+				--print('get owner '.. meta:get_string("owner"))
+				spawn_falling_node(p, n, meta:get_string("owner"))
+				minetest.remove_node(p)
+				nodeupdate(p)
+			end
+		end
+	end
+
+	if minetest.get_item_group(n.name, "attached_node") ~= 0 then
+		if not check_attached_node(p, n) then
+			drop_attached_node(p)
+			nodeupdate(p)
+		end
+	end
+end
+
+function nodeupdate(p, delay)
+	-- Round p to prevent falling entities to get stuck
+	p.x = math.floor(p.x+0.5)
+	p.y = math.floor(p.y+0.5)
+	p.z = math.floor(p.z+0.5)
+
+	for x = -1,1 do
+	for y = -1,1 do
+	for z = -1,1 do
+		nodeupdate_single({x=p.x+x, y=p.y+y, z=p.z+z}, delay or not (x==0 and y==0 and z==0))
+	end
+	end
+	end
+end
+
+--
+-- Global callbacks
+--
+
+function on_placenode(p, node)
+	nodeupdate(p)
+end
+minetest.register_on_placenode(on_placenode)
+
+function on_dignode(p, node)
+	nodeupdate(p)
+end
+minetest.register_on_dignode(on_dignode)
+
+--
+-- Rewirte of all item you need
+--
+function add_falling_protect_item(named)
+	minetest.override_item(named, {
+	   on_place = function(itemstack, placer, pointed_thing)
+		  if not pointed_thing.type == "node" then
+			 return itemstack
+		  end
+		  local pn = placer:get_player_name()
+		  if minetest.is_protected(pointed_thing.above, pn) then
+			 return itemstack
+		  end
+		  minetest.env:add_node(pointed_thing.above, {name=itemstack:get_name()})
+		  local meta = minetest.env:get_meta(pointed_thing.above)
+		  meta:set_string("owner", pn)
+		  nodeupdate(pointed_thing.above)
+		  if not minetest.setting_getbool("creative_mode") then
+			 itemstack:take_item()
+		  end
+		  return itemstack
+	   end
+	})
+end
+
+--
+-- Protected Area
+--
+
+function is_protected_area(p, zone, name)
+	for x= -zone, zone do
+		for y= -zone, zone do
+			for z= -zone, zone do
+				local pos = {x=p.x+x,y=p.y+y,z=p.z+z}
+				if minetest.is_protected(pos,name) then
+					return true
+				end
+			end
+		end
+	end
+	return false
+end
+
+--
+-- rewirte of bukket
+--
+
+function add_protected_bukket_liquid(nameofbukket,liquidsourcename)
+	minetest.override_item(nameofbukket, {
+	on_place = function(itemstack, user, pointed_thing)
+			-- Must be pointing to node
+			if pointed_thing.type ~= "node" then
+				return
+			end
+			-- Check if pointing to a buildable node
+			n = minetest.env:get_node(pointed_thing.under)
+			
+			if is_protected_area(pointed_thing.under, 7 ,user:get_player_name()) then
+				minetest.chat_send_player(user:get_player_name(),"You cant place here - Too short of a protected area.")
+				if minetest.is_protected(pointed_thing.under,user:get_player_name()) then
+					minetest.log("action", user:get_player_name().. " try use "..nameofbukket.." at protected pos ".. minetest.pos_to_string(pointed_thing.under))
+				end
+				return itemstack
+			end
+			
+			if minetest.registered_nodes[n.name].buildable_to then
+				-- buildable; replace the node
+				minetest.log("action", user:get_player_name().. " use "..nameofbukket.." at  ".. minetest.pos_to_string(pointed_thing.under))
+				minetest.env:add_node(pointed_thing.under, {name=liquidsourcename})
+			else
+				-- not buildable to; place the liquid above
+				-- check if the node above can be replaced
+				n = minetest.env:get_node(pointed_thing.above)
+				if minetest.registered_nodes[n.name].buildable_to then
+					minetest.log("action", user:get_player_name().. " use "..nameofbukket.."  at  ".. minetest.pos_to_string(pointed_thing.above))
+					minetest.env:add_node(pointed_thing.above, {name=liquidsourcename})
+				else
+					-- do not remove the bucket with the liquid
+					return
+				end
+			end
+			return {name="bucket:bucket_empty"}
+		end
+	})
+end
diff --git a/mods/builtin_falling/rewirting.lua b/mods/builtin_falling/rewirting.lua
new file mode 100644
index 00000000..730bb86f
--- /dev/null
+++ b/mods/builtin_falling/rewirting.lua
@@ -0,0 +1,234 @@
+
+--
+-- Falling stuff custom for protected area
+--
+minetest.register_entity(":__builtin:falling_node", {
+	initial_properties = {
+		physical = true,
+		collide_with_objects = false,
+		collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
+		visual = "wielditem",
+		textures = {},
+		visual_size = {x=0.667, y=0.667},
+		owner = "falling",
+	},
+
+	node = {},
+
+	set_node = function(self, node)
+		self.node = node
+		local stack = ItemStack(node.name)
+		local itemtable = stack:to_table()
+		local itemname = nil
+		if itemtable then
+			itemname = stack:to_table().name
+		end
+		local item_texture = nil
+		local item_type = ""
+		if minetest.registered_items[itemname] then
+			item_texture = minetest.registered_items[itemname].inventory_image
+			item_type = minetest.registered_items[itemname].type
+		end
+		prop = {
+			is_visible = true,
+			textures = {node.name},
+		}
+		self.object:set_properties(prop)
+	end,
+	
+	set_owner = function(self, owner)
+		if owner ~= nil then
+			self.owner = "falling"
+		else
+			self.owner = owner
+		end
+	end,
+
+	get_staticdata = function(self)
+		return self.node.name
+	end,
+
+	on_activate = function(self, staticdata)
+		self.object:set_armor_groups({immortal=1})
+		self:set_node({name=staticdata})
+	end,
+
+	on_step = function(self, dtime)
+		-- Set gravity
+		self.object:setacceleration({x=0, y=-10, z=0})
+		-- Turn to actual sand when collides to ground or just move
+		local pos = self.object:getpos()
+		local bcp = {x=pos.x, y=pos.y-0.7, z=pos.z} -- Position of bottom center point
+		local bcn = minetest.get_node(bcp)
+		local bcd = minetest.registered_nodes[bcn.name]
+		-- Note: walkable is in the node definition, not in item groups
+		if 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 addlevel == nil 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 np = {x=bcp.x, y=bcp.y+1, z=bcp.z}
+			-- Check what's here
+			local n2 = minetest.get_node(np)
+			-- If it's not air or liquid, remove node and replace it with
+			-- it's drops
+			if n2.name ~= "air" and (not minetest.registered_nodes[n2.name] or
+					minetest.registered_nodes[n2.name].liquidtype == "none") then
+				minetest.remove_node(np)
+				if minetest.registered_nodes[n2.name].buildable_to == false then
+					-- Add dropped items
+					local drops = minetest.get_node_drops(n2.name, "")
+					local _, dropped_item
+					for _, dropped_item in ipairs(drops) do
+						minetest.add_item(np, dropped_item)
+					end
+				end
+				-- Run script hook
+				local _, callback
+				for _, callback in ipairs(minetest.registered_on_dignodes) do
+					callback(np, n2, nil)
+				end
+			end
+			-- Create node and remove entity
+			if self.owner == nil or self.owner == "falling" and not minetest.is_protected(pos,"") then
+				minetest.add_node(np, self.node)
+			else
+				if not minetest.is_protected(pos,self.owner) then
+					minetest.log("action", self.owner
+					.. " falling node " .. self.node.name
+					.. " at"
+					.. minetest.pos_to_string(pos))
+					minetest.add_node(np, self.node)
+				else
+					minetest.log("action", self.owner
+					.. " try to falling node " .. self.node.name
+					.. " at protected position "
+					.. minetest.pos_to_string(pos))
+					minetest.add_item(np, self.node)
+				end
+			end
+			self.object:remove()
+			nodeupdate(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
+})
+
+minetest.override_item("default:lava_source", {
+	on_place = function(itemstack, placer, pointed_thing)
+		if not pointed_thing.type == "node" then
+				return itemstack
+		end
+		local pn = placer:get_player_name()
+		if minetest.is_protected(pointed_thing.above, pn) then
+			return itemstack
+		end
+		minetest.env:add_node(pointed_thing.above, {name=itemstack:get_name()})
+		local meta = minetest.env:get_meta(pointed_thing.above)
+		meta:set_string("owner", pn)
+		nodeupdate(pointed_thing.above)
+		if not minetest.setting_getbool("creative_mode") then
+						itemstack:take_item()
+		end
+		return itemstack
+	end,
+})
+
+minetest.override_item("default:lava_flowing", {
+	on_place = function(itemstack, placer, pointed_thing)
+		if not pointed_thing.type == "node" then
+				return itemstack
+		end
+		local pn = placer:get_player_name()
+		if minetest.is_protected(pointed_thing.above, pn) then
+			return itemstack
+		end
+		minetest.env:add_node(pointed_thing.above, {name=itemstack:get_name()})
+		local meta = minetest.env:get_meta(pointed_thing.above)
+		meta:set_string("owner", pn)
+		nodeupdate(pointed_thing.above)
+		if not minetest.setting_getbool("creative_mode") then
+						itemstack:take_item()
+		end
+		return itemstack
+	end,
+})
+
+if PROTECT_LAVA_REALTIME == 1 then
+	minetest.register_abm({
+		nodenames = {"default:lava_source","default:lava_flowing"},
+		neighbors = {"air"},
+		interval = 1,
+		chance = 1,
+		action = function(pos, node, active_object_count, active_object_count_wider)
+				local meta = minetest.env:get_meta(pos)		
+				if meta:get_string("owner") ~= nil and minetest.is_protected(pos, meta:get_string("owner")) then
+					minetest.add_node(pos,{name="air"})
+				end
+		end
+	})
+end
+
+if PROTECT_WATER_REALTIME == 1 then
+	minetest.register_abm({
+		nodenames = {"default:water_source","default:water_flowing"},
+		neighbors = {"air"},
+		interval = 1,
+		chance = 1,
+		action = function(pos, node, active_object_count, active_object_count_wider)
+				local meta = minetest.env:get_meta(pos)		
+				if meta:get_string("owner") ~= nil and minetest.is_protected(pos, meta:get_string("owner")) then
+					minetest.add_node(pos,{name="air"})
+				end
+		end
+	})
+end
+
+
+-- More slow >.<
+
+--local c_air = minetest.get_content_id("air")
+--minetest.register_abm({
+--	nodenames = {"default:lava_source","default:lava_flowing"},
+--	neighbors = {"air"},
+--	interval = 2,
+--	chance = 1,
+--	action = function(pos, node, active_object_count, active_object_count_wider)
+--			local vm = minetest.get_voxel_manip()
+--			local minp, maxp = vm:read_from_map({x = pos.x, y = pos.y , z = pos.z },
+--				{x = pos.x , y = pos.y , z = pos.z })
+--			local area = VoxelArea:new{MinEdge=minp, MaxEdge=maxp}
+--			local data = vm:get_data()
+--						local p_pos = area:index(pos.x, pos.y , pos.z)
+--						print ("pos:  , name :"..minetest.get_name_from_content_id(data[p_pos]))
+--						local meta = minetest.get_meta(area:position(p_pos))
+--						if minetest.get_name_from_content_id(data[p_pos])== "default:lava_source"  and meta:get_string("owner") ~= nil and minetest.is_protected(area:position(p_pos), meta:get_string("owner")) then
+--							data[p_pos] = c_air
+--						end	
+--			vm:set_data(data)
+--			vm:write_to_map()
+--			vm:update_map()
+--	end
+--})
+
+