builtin/falling.lua

   1 -- Minetest: builtin/item.lua
   2
   3 --
   4 -- Falling stuff
   5 --
   6
   7 minetest.register_entity("__builtin:falling_node", {
   8         initial_properties = {
   9                 physical = true,
  10                 collide_with_objects = false,
  11                 collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
  12                 visual = "wielditem",
  13                 textures = {},
  14                 visual_size = {x=0.667, y=0.667},
  15         },
  16
  17         node = {},
  18
  19         set_node = function(self, node)
  20                 self.node = node
  21                 local stack = ItemStack(node.name)
  22                 local itemtable = stack:to_table()
  23                 local itemname = nil
  24                 if itemtable then
  25                         itemname = stack:to_table().name
  26                 end
  27                 local item_texture = nil
  28                 local item_type = ""
  29                 if minetest.registered_items[itemname] then
  30                         item_texture = minetest.registered_items[itemname].inventory_image
  31                         item_type = minetest.registered_items[itemname].type
  32                 end
  33                 prop = {
  34                         is_visible = true,
  35                         textures = {node.name},
  36                 }
  37                 self.object:set_properties(prop)
  38         end,
  39
  40         get_staticdata = function(self)
  41                 return self.node.name
  42         end,
  43
  44         on_activate = function(self, staticdata)
  45                 self.object:set_armor_groups({immortal=1})
  46                 --self.object:setacceleration({x=0, y=-10, z=0})
  47                 self:set_node({name=staticdata})
  48         end,
  49
  50         on_step = function(self, dtime)
  51                 -- Set gravity
  52                 self.object:setacceleration({x=0, y=-10, z=0})
  53                 -- Turn to actual sand when collides to ground or just move
  54                 local pos = self.object:getpos()
  55                 local bcp = {x=pos.x, y=pos.y-0.7, z=pos.z} -- Position of bottom center point
  56                 local bcn = minetest.get_node(bcp)
  57                 -- Note: walkable is in the node definition, not in item groups
  58                 if minetest.registered_nodes[bcn.name] and
  59                                 minetest.registered_nodes[bcn.name].walkable or
  60                                 (minetest.get_node_group(self.node.name, "float") ~= 0 and minetest.registered_nodes[bcn.name].liquidtype ~= "none")
  61                         then
  62                         if minetest.registered_nodes[bcn.name].leveled and bcn.name == self.node.name then
  63                                 local addlevel = self.node.level
  64                                 if addlevel == nil or addlevel <= 0 then addlevel = minetest.registered_nodes[bcn.name].leveled end
  65                                 if minetest.env:add_node_level(bcp, addlevel) == 0 then
  66                                         self.object:remove()
  67                                         return
  68                                 end
  69                         elseif minetest.registered_nodes[bcn.name].buildable_to and (minetest.get_node_group(self.node.name, "float") == 0 or minetest.registered_nodes[bcn.name].liquidtype == "none") then
  70                                 minetest.remove_node(bcp)
  71                                 return
  72                         end
  73                         local np = {x=bcp.x, y=bcp.y+1, z=bcp.z}
  74                         -- Check what's here
  75                         local n2 = minetest.get_node(np)
  76                         -- If it's not air or liquid, remove node and replace it with
  77                         -- it's drops
  78                         if n2.name ~= "air" and (not minetest.registered_nodes[n2.name] or
  79                                         minetest.registered_nodes[n2.name].liquidtype == "none") then
  80                                 local drops = minetest.get_node_drops(n2.name, "")
  81                                 minetest.remove_node(np)
  82                                 -- Add dropped items
  83                                 local _, dropped_item
  84                                 for _, dropped_item in ipairs(drops) do
  85                                         minetest.add_item(np, dropped_item)
  86                                 end
  87                                 -- Run script hook
  88                                 local _, callback
  89                                 for _, callback in ipairs(minetest.registered_on_dignodes) do
  90                                         callback(np, n2, nil)
  91                                 end
  92                         end
  93                         -- Create node and remove entity
  94                         minetest.add_node(np, self.node)
  95                         self.object:remove()
  96                         nodeupdate(np)
  97                 else
  98                         -- Do nothing
  99                 end
 100         end
 101 })
 102
 103 function spawn_falling_node(p, node)
 104         obj = minetest.add_entity(p, "__builtin:falling_node")
 105         obj:get_luaentity():set_node(node)
 106 end
 107
 108 function drop_attached_node(p)
 109         local nn = minetest.get_node(p).name
 110         minetest.remove_node(p)
 111         for _,item in ipairs(minetest.get_node_drops(nn, "")) do
 112                 local pos = {
 113                         x = p.x + math.random()/2 - 0.25,
 114                         y = p.y + math.random()/2 - 0.25,
 115                         z = p.z + math.random()/2 - 0.25,
 116                 }
 117                 minetest.add_item(pos, item)
 118         end
 119 end
 120
 121 function check_attached_node(p, n)
 122         local def = minetest.registered_nodes[n.name]
 123         local d = {x=0, y=0, z=0}
 124         if def.paramtype2 == "wallmounted" then
 125                 if n.param2 == 0 then
 126                         d.y = 1
 127                 elseif n.param2 == 1 then
 128                         d.y = -1
 129                 elseif n.param2 == 2 then
 130                         d.x = 1
 131                 elseif n.param2 == 3 then
 132                         d.x = -1
 133                 elseif n.param2 == 4 then
 134                         d.z = 1
 135                 elseif n.param2 == 5 then
 136                         d.z = -1
 137                 end
 138         else
 139                 d.y = -1
 140         end
 141         local p2 = {x=p.x+d.x, y=p.y+d.y, z=p.z+d.z}
 142         local nn = minetest.get_node(p2).name
 143         local def2 = minetest.registered_nodes[nn]
 144         if def2 and not def2.walkable then
 145                 return false
 146         end
 147         return true
 148 end
 149
 150 --
 151 -- Some common functions
 152 --
 153
 154 function nodeupdate_single(p, delay)
 155         n = minetest.get_node(p)
 156         if minetest.get_node_group(n.name, "falling_node") ~= 0 then
 157                 p_bottom = {x=p.x, y=p.y-1, z=p.z}
 158                 n_bottom = minetest.get_node(p_bottom)
 159                 -- Note: walkable is in the node definition, not in item groups
 160                 if minetest.registered_nodes[n_bottom.name] and
 161                                 (minetest.get_node_group(n.name, "float") == 0 or minetest.registered_nodes[n_bottom.name].liquidtype == "none") and
 162                                 (n.name ~= n_bottom.name or (minetest.registered_nodes[n_bottom.name].leveled and minetest.env:get_node_level(p_bottom) < minetest.env:get_node_max_level(p_bottom))) and
 163                                 (not minetest.registered_nodes[n_bottom.name].walkable or
 164                                         minetest.registered_nodes[n_bottom.name].buildable_to) then
 165                         if delay then
 166                                 minetest.after(0.1, nodeupdate_single, {x=p.x, y=p.y, z=p.z}, false)
 167                         else
 168                                 n.level = minetest.env:get_node_level(p)
 169                                 minetest.remove_node(p)
 170                                 spawn_falling_node(p, n)
 171                                 nodeupdate(p)
 172                         end
 173                 end
 174         end
 175
 176         if minetest.get_node_group(n.name, "attached_node") ~= 0 then
 177                 if not check_attached_node(p, n) then
 178                         drop_attached_node(p)
 179                         nodeupdate(p)
 180                 end
 181         end
 182 end
 183
 184 function nodeupdate(p, delay)
 185         -- Round p to prevent falling entities to get stuck
 186         p.x = math.floor(p.x+0.5)
 187         p.y = math.floor(p.y+0.5)
 188         p.z = math.floor(p.z+0.5)
 189
 190         for x = -1,1 do
 191         for y = -1,1 do
 192         for z = -1,1 do
 193                 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))
 194         end
 195         end
 196         end
 197 end
 198
 199 --
 200 -- Global callbacks
 201 --
 202
 203 function on_placenode(p, node)
 204         nodeupdate(p)
 205 end
 206 minetest.register_on_placenode(on_placenode)
 207
 208 function on_dignode(p, node)
 209         nodeupdate(p)
 210 end
 211 minetest.register_on_dignode(on_dignode)