falling_ice.lua 5.63 KB
Newer Older
Chris N's avatar
Chris N committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
-- CaveRealms: falling icicles
-- borrowed from base MineTest game's falling.lua

--
-- Falling ice
--

minetest.register_entity("caverealms:falling_ice", {
	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},
	},

	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,

	get_staticdata = function(self)
		return self.node.name
	end,

	on_activate = function(self, staticdata)
		self.object:set_armor_groups({immortal=1})
		--self.object:setacceleration({x=0, y=-10, z=0})
		self:set_node({name=staticdata})
	end,

	on_step = function(self, dtime)
		-- Set gravity
		self.object:setacceleration({x=0, y=-10, z=0})
		-- Destroy 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]
		--check for players next to this and hurt them >:D
		local all_objects = minetest.get_objects_inside_radius(pos, 1)
		local _,obj
		for _,obj in ipairs(all_objects) do
			if obj:is_player() then
				obj:set_hp(obj:get_hp() - 8)
			end
Craig Robbins's avatar
Craig Robbins committed
66
		end
Chris N's avatar
Chris N committed
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105
		-- 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)
			-- remove node and replace it with it's drops
			local drops = minetest.get_node_drops(n2.name, "")
			minetest.remove_node(np)
			local _, dropped_item
			for _, dropped_item in ipairs(drops) do
				minetest.add_item(np, dropped_item)
			end
			-- Run script hook
			local _, callback
			for _, callback in ipairs(minetest.registered_on_dignodes) do
				callback(np, n2, nil)
			end
			-- remove entity
			--minetest.add_node(np, self.node)
			self.object:remove()
Craig Robbins's avatar
Craig Robbins committed
106
			caverealms:nodeupdate(np)
Chris N's avatar
Chris N committed
107 108 109 110 111 112
		else
			-- Do nothing
		end
	end
})

Craig Robbins's avatar
Craig Robbins committed
113
function caverealms:spawn_falling_node(p, node)
Chris N's avatar
Chris N committed
114 115 116 117
	obj = minetest.add_entity(p, "caverealms:falling_ice")
	obj:get_luaentity():set_node(node)
end

Craig Robbins's avatar
Craig Robbins committed
118
function caverealms:drop_attached_node(p)
Chris N's avatar
Chris N committed
119 120 121 122 123 124 125 126 127 128 129 130
	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

Craig Robbins's avatar
Craig Robbins committed
131
function caverealms:check_attached_node(p, n)
Chris N's avatar
Chris N committed
132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163
	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
--

Craig Robbins's avatar
Craig Robbins committed
164
function caverealms:nodeupdate_single(p, delay)
Chris N's avatar
Chris N committed
165 166 167 168 169 170 171 172 173 174 175 176 177
	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
Craig Robbins's avatar
Craig Robbins committed
178
				minetest.after(0.1, caverealms.nodeupdate_single, {x=p.x, y=p.y, z=p.z}, false)
Chris N's avatar
Chris N committed
179 180 181
			else
				n.level = minetest.env:get_node_level(p)
				minetest.remove_node(p)
Craig Robbins's avatar
Craig Robbins committed
182 183
				caverealms:spawn_falling_node(p, n)
				caverealms:nodeupdate(p)
Chris N's avatar
Chris N committed
184 185 186 187 188 189
			end
		end
	end

	if minetest.get_item_group(n.name, "attached_node") ~= 0 then
		if not check_attached_node(p, n) then
Craig Robbins's avatar
Craig Robbins committed
190 191
			caverealms:drop_attached_node(p)
			caverealms:nodeupdate(p)
Chris N's avatar
Chris N committed
192 193 194 195
		end
	end
end

Craig Robbins's avatar
Craig Robbins committed
196
function caverealms:nodeupdate(p, delay)
Chris N's avatar
Chris N committed
197 198 199 200 201 202 203 204
	-- 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
Craig Robbins's avatar
Craig Robbins committed
205
		caverealms: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))
Chris N's avatar
Chris N committed
206 207 208 209 210
	end
	end
	end
end