mods/elidragon_plot/init.lua

   1 local plot = {}
   2
   3 minetest.register_on_generated(function(minp, maxp)
   4         local config = assert(plot.config)
   5
   6         local mgconfig = config.mapgen
   7
   8         if not mgconfig then
   9                 return
  10         end
  11
  12         local min_y, max_y = mgconfig.min_y, mgconfig.max_y
  13
  14         if maxp.y < min_y or minp.y > max_y then
  15                 return
  16         end
  17
  18         local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
  19         local data = vm:get_data()
  20         local area = VoxelArea:new({MinEdge = emin, MaxEdge = emax})
  21
  22         local void_layer = mgconfig.void_layer
  23
  24         if void_layer then
  25                 for idx in area:iter(minp.x, math.max(minp.y, void_layer.min_y), minp.z, maxp.x, math.min(maxp.y, void_layer.max_y), mapx.z) do
  26                         data[idx] = void_layer.c_void
  27                 end
  28         end
  29
  30         local function do_multiples(low, high, base, add, func)
  31                 for p = math.ceil(low / base), math.floor(high / base) do
  32                         func(p * base + add)
  33                 end
  34         end
  35
  36         local function do_borders(low, high, base, road, func)
  37                 do_multiples(low - road, high - road, base,  road, func)
  38                 do_multiples(low + road, high + road, base, -road, func)
  39         end
  40
  41         min_y, max_y = math.max(minp.y, min_y), math.min(maxp.y, max_y)
  42
  43         local gap, road_width = config.gap, config.road_width
  44         local road_width_half = road_width / 2
  45
  46         do_borders(minp.x, maxp.x, gap, road_width_half, function(x)
  47                 do_multiples(minp.z - gap + road_width_half, maxp.z - road_width_half, gap, road_width_half, function(start_z)
  48                         for idx in area:iter(x, min_y, math.max(minp.z, start_z), x, max_y, math.min(maxp.z, start_z + gap - road_width)) do
  49                                 data[idx] = mgconfig.c_border
  50                         end
  51                 end)
  52         end)
  53
  54         do_borders(minp.z, maxp.z, gap, road_width_half, function(z)
  55                 do_multiples(minp.x - gap + road_width_half, maxp.x - road_width_half, gap, road_width_half, function(start_x)
  56                         for idx in area:iter(math.max(minp.x, start_x), min_y, z, math.min(maxp.x, start_x + gap - road_width), max_y, z) do
  57                                 data[idx] = mgconfig.c_border
  58                         end
  59                 end)
  60         end)
  61
  62         vm:set_data(data)
  63         vm:calc_lighting()
  64         vm:update_liquids()
  65         vm:write_to_map()
  66
  67         local road_schem = mgconfig.road_schem
  68
  69         if road_schem and min_y == mgconfig.min_y then
  70                 do_multiples(minp.x, maxp.x, gap, 0, function(x)
  71                         do_multiples(minp.z, maxp.z, gap, 0, function(z)
  72                                 elidragon.schems.add(vector.new(x + road_width_half, min_y + mgconfig.road_schem_offset, z - road_width_half + 1), road_schem)
  73                                 elidragon.schems.add(vector.new(x - road_width_half + 1, min_y + mgconfig.road_schem_offset, z + road_width_half), road_schem .. "_flipped")
  74                         end)
  75                 end)
  76         end
  77 end)
  78
  79 elidragon.plot = plot