builtin/falling.lua

   1 -- Minetest: builtin/item.lua
   2
   3 --
   4 -- Falling nodes
   5 --
   6
   7
   8 --
   9 -- Falling stuff
  10 --
  11
  12 minetest.register_entity("__builtin:falling_node", {
  13         initial_properties = {
  14                 physical = true,
  15                 collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
  16                 visual = "wielditem",
  17                 textures = {},
  18                 visual_size = {x=0.667, y=0.667},
  19         },
  20
  21         nodename = "",
  22
  23         set_node = function(self, nodename)
  24                 self.nodename = nodename
  25                 local stack = ItemStack(nodename)
  26                 local itemtable = stack:to_table()
  27                 local itemname = nil
  28                 if itemtable then
  29                         itemname = stack:to_table().name
  30                 end
  31                 local item_texture = nil
  32                 local item_type = ""
  33                 if minetest.registered_items[itemname] then
  34                         item_texture = minetest.registered_items[itemname].inventory_image
  35                         item_type = minetest.registered_items[itemname].type
  36                 end
  37                 prop = {
  38                         is_visible = true,
  39                         textures = {nodename},
  40                 }
  41                 self.object:set_properties(prop)
  42         end,
  43
  44         get_staticdata = function(self)
  45                 return self.nodename
  46         end,
  47
  48         on_activate = function(self, staticdata)
  49                 self.nodename = staticdata
  50                 self.object:set_armor_groups({immortal=1})
  51                 --self.object:setacceleration({x=0, y=-10, z=0})
  52                 self:set_node(self.nodename)
  53         end,
  54
  55         on_step = function(self, dtime)
  56                 -- Set gravity
  57                 self.object:setacceleration({x=0, y=-10, z=0})
  58                 -- Turn to actual sand when collides to ground or just move
  59                 local pos = self.object:getpos()
  60                 local bcp = {x=pos.x, y=pos.y-0.7, z=pos.z} -- Position of bottom center point
  61                 local bcn = minetest.env:get_node(bcp)
  62                 -- Note: walkable is in the node definition, not in item groups
  63                 if minetest.registered_nodes[bcn.name] and
  64                                 minetest.registered_nodes[bcn.name].walkable then
  65                         local np = {x=bcp.x, y=bcp.y+1, z=bcp.z}
  66                         -- Check what's here
  67                         local n2 = minetest.env:get_node(np)
  68                         -- If it's not air or liquid, remove node and replace it with
  69                         -- it's drops
  70                         if n2.name ~= "air" and (not minetest.registered_nodes[n2.name] or
  71                                         minetest.registered_nodes[n2.name].liquidtype == "none") then
  72                                 local drops = minetest.get_node_drops(n2.name, "")
  73                                 minetest.env:remove_node(np)
  74                                 -- Add dropped items
  75                                 local _, dropped_item
  76                                 for _, dropped_item in ipairs(drops) do
  77                                         minetest.env:add_item(np, dropped_item)
  78                                 end
  79                                 -- Run script hook
  80                                 local _, callback
  81                                 for _, callback in ipairs(minetest.registered_on_dignodes) do
  82                                         callback(np, n2, nil)
  83                                 end
  84                         end
  85                         -- Create node and remove entity
  86                         minetest.env:add_node(np, {name=self.nodename})
  87                         self.object:remove()
  88                 else
  89                         -- Do nothing
  90                 end
  91         end
  92 })
  93
  94 function spawn_falling_node(p, nodename)
  95         obj = minetest.env:add_entity(p, "__builtin:falling_node")
  96         obj:get_luaentity():set_node(nodename)
  97 end
  98
  99 --
 100 -- Some common functions
 101 --
 102
 103 function nodeupdate_single(p)
 104         n = minetest.env:get_node(p)
 105         if minetest.get_node_group(n.name, "falling_node") ~= 0 then
 106                 p_bottom = {x=p.x, y=p.y-1, z=p.z}
 107                 n_bottom = minetest.env:get_node(p_bottom)
 108                 -- Note: walkable is in the node definition, not in item groups
 109                 if minetest.registered_nodes[n_bottom.name] and
 110                                 not minetest.registered_nodes[n_bottom.name].walkable then
 111                         minetest.env:remove_node(p)
 112                         spawn_falling_node(p, n.name)
 113                         nodeupdate(p)
 114                 end
 115         end
 116 end
 117
 118 function nodeupdate(p)
 119         for x = -1,1 do
 120         for y = -1,1 do
 121         for z = -1,1 do
 122                 p2 = {x=p.x+x, y=p.y+y, z=p.z+z}
 123                 nodeupdate_single(p2)
 124         end
 125         end
 126         end
 127 end
 128
 129 --
 130 -- Global callbacks
 131 --
 132
 133 function on_placenode(p, node)
 134         nodeupdate(p)
 135 end
 136 minetest.register_on_placenode(on_placenode)
 137
 138 function on_dignode(p, node)
 139         nodeupdate(p)
 140 end
 141 minetest.register_on_dignode(on_dignode)