xwall.lua

   1 -- Code by Sokomine (https://github.com/Sokomine/xconnected)
   2 -- License : GPLv3
   3 -- Optimized by kilbith
   4
   5 local xwall_get_candidate = {}
   6 local profiles = {
   7         {0, "_c0", 0}, {1, "_c1", 1}, {2, "_c1", 0}, {4, "_c1", 3},
   8         {8, "_c1", 2}, {5, "_ln", 1}, {10, "_ln", 0}, {3, "_c2", 0},
   9         {6, "_c2", 3}, {12, "_c2", 2}, {9, "_c2", 1}, {7, "_c3", 3},
  10         {11, "_c3", 0}, {13, "_c3", 1}, {14, "_c3", 2}, {15, "_c4", 1}
  11 }
  12
  13 for _, p in pairs(profiles) do
  14         local p1, p2, p3 = p[1], p[2], p[3]
  15         xwall_get_candidate[p1] = {p2, p3}
  16 end
  17
  18 local directions = {
  19         {x = 1, y = 0, z = 0}, {x = 0, y = 0, z = 1},
  20         {x = -1, y = 0, z = 0}, {x = 0, y = 0, z = -1}
  21 }
  22
  23 local xwall_update_one_node = function(pos, name, digged)
  24         if not pos or not name or not minetest.registered_nodes[name] then
  25                 return end
  26
  27         local candidates = {0, 0, 0, 0}
  28         local pow2 = {1, 2, 4, 8}
  29         local id = 0
  30
  31         for i = 1, #directions do
  32                 local dir = directions[i]
  33                 local node = minetest.get_node({x=pos.x + dir.x, y=pos.y, z=pos.z + dir.z})
  34
  35                 if node and node.name and minetest.registered_nodes[node.name] then
  36                         local ndef = minetest.registered_nodes[node.name]
  37                         if ndef.drop == name or (ndef.groups and ndef.groups.xwall) then
  38                                 candidates[i] = node.name
  39                                 id = id + pow2[i]
  40                         end
  41                         if ndef.walkable ~= false and ndef.drawtype ~= "nodebox" then
  42                                 candidates[i] = 0
  43                                 id = id + pow2[i]
  44                         end
  45                 end
  46         end
  47
  48         if digged then return candidates end
  49
  50         local newnode = xwall_get_candidate[id]
  51         if newnode and newnode[1] then
  52                 local newname = string.sub(name, 1, string.len(name) -3)..newnode[1]
  53                 if newname and minetest.registered_nodes[newname] then
  54                         minetest.swap_node(pos, {name=newname, param2=newnode[2]})
  55                 elseif newnode[1] == '_c0' and not minetest.registered_nodes[newname] then
  56                         minetest.swap_node(pos, {name=name, param2=0})
  57                 end
  58         end
  59
  60         return candidates
  61 end
  62
  63 local xwall_update = function(pos, name, active, has_been_digged)
  64         if not pos or not name or not minetest.registered_nodes[name] then
  65                 return end
  66
  67         local c = xwall_update_one_node(pos, name, has_been_digged)
  68         for j = 1, #directions do
  69                 local dir2 = directions[j]
  70                 if c[j] ~= 0 and c[j] ~= "ignore" then
  71                         xwall_update_one_node({x=pos.x + dir2.x, y=pos.y, z=pos.z + dir2.z}, c[j], false)
  72                 end
  73         end
  74 end
  75
  76 local xwall_register = function(name, def, node_box_data, selection_box_data)
  77         for k, v in pairs(node_box_data) do
  78                 def.drawtype = "nodebox"
  79                 def.paramtype = "light"
  80                 def.paramtype2 = "facedir"
  81                 def.drop = name.."_ln"
  82                 def.node_box = {
  83                         type = "fixed",
  84                         fixed = node_box_data[k]
  85                 }
  86                 def.selection_box = {
  87                         type = "fixed",
  88                         fixed = selection_box_data[k]
  89                 }
  90
  91                 if not def.tiles then
  92                         def.tiles = def.textures
  93                 end
  94                 if not def.groups then
  95                         def.groups = {xwall=1, cracky=3}
  96                 else
  97                         def.groups.xwall = 1
  98                 end
  99
 100                 local newdef = minetest.deserialize(minetest.serialize(def))
 101                 if k == "ln" then
 102                         newdef.on_construct = function(pos)
 103                                 return xwall_update(pos, name.."_ln", true, nil)
 104                         end
 105                 else
 106                         newdef.groups.not_in_creative_inventory = 1
 107                 end
 108                 newdef.after_dig_node = function(pos, oldnode, oldmetadata, digger)
 109                         return xwall_update(pos, name.."_ln", true, true)
 110                 end
 111
 112                 minetest.register_node(name.."_"..k, newdef)
 113         end
 114 end
 115
 116 local xwall_construct_node_box_data = function(node_box_list, center_node_box_list, node_box_line)
 117         local res = {}
 118         res.c0, res.c1, res.c2, res.c3, res.c4 = {}, {}, {}, {}, {}
 119         local pos0, pos1, pos2, pos3, pos4 = #res.c0, #res.c1, #res.c2, #res.c3, #res.c4
 120
 121         for _, v in pairs(node_box_list) do
 122                 pos1 = pos1 + 1
 123                 pos2 = pos2 + 1
 124                 pos3 = pos3 + 1
 125                 pos4 = pos4 + 1
 126                 res.c1[pos1] = v
 127                 res.c2[pos2] = v
 128                 res.c3[pos3] = v
 129                 res.c4[pos4] = v
 130         end
 131
 132         for _, v in pairs(node_box_list) do
 133                 pos2 = pos2 + 1
 134                 pos3 = pos3 + 1
 135                 pos4 = pos4 + 1
 136                 res.c2[pos2] = {v[3], v[2], v[1], v[6], v[5], v[4]}
 137                 res.c3[pos3] = {v[3], v[2], v[1], v[6], v[5], v[4]}
 138                 res.c4[pos4] = {v[3], v[2], v[1], v[6], v[5], v[4]}
 139         end
 140
 141         for _, v in pairs(node_box_list) do
 142                 pos3 = pos3 + 1
 143                 pos4 = pos4 + 1
 144                 res.c3[pos3] = {v[4], v[2], v[3]-0.5, v[1], v[5], v[6]-0.5}
 145                 res.c4[pos4] = {v[4], v[2], v[3]-0.5, v[1], v[5], v[6]-0.5}
 146         end
 147
 148         for _, v in pairs(node_box_list) do
 149                 pos4 = pos4 + 1
 150                 res.c4[pos4] = {v[3]-0.5, v[2], v[4], v[6]-0.5, v[5], v[1]}
 151         end
 152
 153         for _, v in pairs(center_node_box_list) do
 154                 pos0 = pos0 + 1
 155                 pos1 = pos1 + 1
 156                 pos2 = pos2 + 1
 157                 pos3 = pos3 + 1
 158                 pos4 = pos4 + 1
 159                 res.c0[pos0] = v
 160                 res.c1[pos1] = v
 161                 res.c2[pos2] = v
 162                 res.c3[pos3] = v
 163                 res.c4[pos4] = v
 164         end
 165
 166         if #res.c0 < 1 then
 167                 res.c0 = nil
 168         end
 169
 170         res.ln = node_box_line
 171         return res
 172 end
 173
 174 local xwall_register_wall = function(name, tiles, def)
 175         local node_box_data = xwall_construct_node_box_data(
 176                 {{ -3/16, -0.5, 0,  3/16, 5/16, 0.5 }},
 177                 {{ -4/16, -0.5, -4/16, 4/16, 0.5, 4/16 }},
 178                 {{ -3/16, -0.5, -0.5, 3/16, 5/16, 0.5 }}
 179         )
 180         local selection_box_data = xwall_construct_node_box_data(
 181                 {{ -0.2, -0.5, 0, 0.2, 5/16, 0.5 }},
 182                 {{ -0.25, -0.5, -0.25, 0.25, 0.5, 0.25 }},
 183                 {{ -0.2, -0.5, -0.5, 0.2, 5/16, 0.5 }}
 184         )
 185
 186         if def then return end
 187         def = {
 188                 description = string.upper(string.sub(name, 8, 8))..string.sub(name, 9, -6).." "..
 189                                 string.upper(string.sub(name, -4, -4))..string.sub(name, -3),
 190                 textures = {tiles, tiles, tiles, tiles},
 191                 sounds = xdecor.stone,
 192                 groups = {cracky=3, stone=1, pane=1},
 193                 collision_box = {
 194                         type = "fixed",
 195                         fixed = {-0.5, -0.5, -0.25, 0.5, 1, 0.25}
 196                 }
 197         }
 198         xwall_register(name, def, node_box_data, selection_box_data)
 199 end
 200
 201 xwall_register_wall("xdecor:cobble_wall", "default_cobble.png")
 202 xwall_register_wall("xdecor:mossycobble_wall", "default_mossycobble.png")