FreeBlock/mods/MAPGEN/mcl_villages/foundation.lua

-------------------------------------------------------------------------------
-- function to fill empty space below baseplate when building on a hill
-------------------------------------------------------------------------------
function settlements.ground_lvm(pos, pr) -- role model: Wendelsteinkircherl, Brannenburg
	local c_dirt  = minetest.get_content_id("mcl_core:dirt")
	local c_stone = minetest.get_content_id("mcl_core:stone")
	--
	local p2 = vector.new(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>pr:next(2,4) then mat = c_stone end
		--minetest.swap_node(p2, {name="mcl_core:"..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, pr) -- role model: Wendelsteinkircherl, Brannenburg
	local p2 = vector.new(pos)
	local cnt = 0
	local mat = "mcl_core:dirt"
	p2.y = p2.y-1
	while true do
		cnt = cnt+1
		if cnt > 20 then break end
		if cnt>pr:next(2,4) then 
			mat = "mcl_core:stone" 
		end
		minetest.swap_node(p2, {name=mat})
		p2.y = p2.y-1
	end
end
-------------------------------------------------------------------------------
-- function clear space above baseplate 
-------------------------------------------------------------------------------
function settlements.terraform_lvm(settlement_info, pr)
  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, pr)
          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(settlement_info, pr)
  local fheight
  local fwidth
  local fdepth
  local schematic_data

  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, pr)
          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