settlements/foundation.lua

-------------------------------------------------------------------------------
-- function to fill empty space below baseplate when building on a hill
-------------------------------------------------------------------------------
function settlements.ground_lvm(pos) -- role model: Wendelsteinkircherl, Brannenburg
  local c_dirt  = minetest.get_content_id("default:dirt")
  local c_stone = minetest.get_content_id("default:stone")
  --
  local p2 = settlements.shallowCopy(pos)
  local cnt = 0
  local mat = c_dirt
  p2.y = p2.y-1
  while true do
    cnt = cnt+1
    if cnt > 20 then break end
    if cnt>math.random(2,4) then mat = c_stone end
    --minetest.swap_node(p2, {name="default:"..mat})
    local vi = va:index(p2.x, p2.y, p2.z)
    data[vi] = mat
    p2.y = p2.y-1
  end
--  return data
end
-------------------------------------------------------------------------------
-- function to fill empty space below baseplate when building on a hill
-------------------------------------------------------------------------------
function settlements.ground(pos) -- role model: Wendelsteinkircherl, Brannenburg
  local p2 = settlements.shallowCopy(pos)
  local cnt = 0
  local mat = "default:dirt"
  p2.y = p2.y-1
  while true do
    cnt = cnt+1
    if cnt > 20 then break end
    if cnt>math.random(2,4) 
    then 
      mat = "default:stone" 
    end
    minetest.swap_node(p2, {name=mat})
    p2.y = p2.y-1
  end
end
-------------------------------------------------------------------------------
-- function clear space above baseplate 
-------------------------------------------------------------------------------
function settlements.terraform_lvm()
  local c_air = minetest.get_content_id("air")
  local fheight
  local fwidth
  local fdepth


  for i, built_house in ipairs(settlement_info) do
    -- pick right schematic_info to current built_house
    for j, schem in ipairs(schematic_table) do
      if settlement_info[i]["name"] == schem["name"]
      then
        schematic_data = schem
        break
      end
    end
    local pos = settlement_info[i]["pos"] 
    if settlement_info[i]["rotat"] == "0" or settlement_info[i]["rotat"] == "180" 
    then
      fwidth = schematic_data["hwidth"]
      fdepth = schematic_data["hdepth"]
    else
      fwidth = schematic_data["hdepth"]
      fdepth = schematic_data["hwidth"]
    end
    fheight = schematic_data["hheight"] * 3 -- remove trees and leaves above
    --
    -- now that every info is available -> create platform and clear space above
    --
    for zi = 0,fdepth-1 do
      for yi = 0,fheight do
        for xi = 0,fwidth-1 do
          if yi == 0 then
            local p = {x=pos.x+xi, y=pos.y, z=pos.z+zi}
            settlements.ground_lvm(p)
          else
            --break --todo
            -- write ground
            local vi = va:index(pos.x+xi, pos.y+yi, pos.z+zi)
            if data[vi] ~= c_air
            --local node = minetest.get_node_or_nil({x=p5.x+xi, y=p5.y+yi, z=p5.z+zi})
            --if node then
            --if node.name ~= "air"
            then
              --minetest.swap_node({x=pos.x+xi, y=pos.y+yi, z=pos.z+zi},{name="air"}) 
              data[vi] = c_air
            end
          end
        end
      end
    end

  end
end
-------------------------------------------------------------------------------
-- function clear space above baseplate 
-------------------------------------------------------------------------------
function settlements.terraform()
  local fheight
  local fwidth
  local fdepth

  for i, built_house in ipairs(settlement_info) do
    -- pick right schematic_info to current built_house
    for j, schem in ipairs(schematic_table) do
      if settlement_info[i]["name"] == schem["name"]
      then
        schematic_data = schem
        break
      end
    end
    local pos = settlement_info[i]["pos"] 
    if settlement_info[i]["rotat"] == "0" or settlement_info[i]["rotat"] == "180" 
    then
      fwidth = schematic_data["hwidth"]
      fdepth = schematic_data["hdepth"]
    else
      fwidth = schematic_data["hdepth"]
      fdepth = schematic_data["hwidth"]
    end
    --fheight = schematic_data["hheight"] * 3  -- remove trees and leaves above
    fheight = schematic_data["hheight"]  -- remove trees and leaves above
    --
    -- now that every info is available -> create platform and clear space above
    --
    for xi = 0,fwidth-1 do
      for zi = 0,fdepth-1 do
        for yi = 0,fheight *3 do
          if yi == 0 then
            local p = {x=pos.x+xi, y=pos.y, z=pos.z+zi}
            settlements.ground(p)
          else
            -- write ground
            local p = {x=pos.x+xi, y=pos.y+yi, z=pos.z+zi}
            minetest.forceload_block(p)
            local node = minetest.get_node_or_nil(p)
            if node then
              if node.name ~= "air"
              then
                minetest.swap_node(p,{name="air"}) 
              end
            end
          end
        end
      end
    end

  end
end