117 lines
3.2 KiB
Lua
117 lines
3.2 KiB
Lua
-- Ziggurat ziggurat.lua
|
|
-- Copyright Duane Robertson (duane@duanerobertson.com), 2017
|
|
-- Distributed under the LGPLv2.1 (https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html)
|
|
|
|
|
|
local max_depth = 31000
|
|
local ziggurat_rarity = 20 -- 20
|
|
local biome_rarity = 5 -- 5
|
|
|
|
-- ziggurat stone
|
|
newnode = zigg_mod.clone_node("default:mossy_cobble")
|
|
newnode.description = "Temple Stone"
|
|
newnode.tiles = {'zigg_ziggurat_stone.png'}
|
|
newnode.groups.ziggurat = 1
|
|
newnode.drop = 'default:stick'
|
|
minetest.register_node("zigg:ziggurat_1", newnode)
|
|
|
|
|
|
local ziggurat_biomes = {}
|
|
for _, i in pairs({"rainforest"}) do
|
|
ziggurat_biomes[i] = true
|
|
end
|
|
|
|
local ziggurat_noise_1 = {offset = 0, scale = 1, seed = -6012, spread = {x = 20, y = 10, z = 20}, octaves = 6, persist = 1, lacunarity = 2}
|
|
|
|
|
|
zigg_mod.ziggurat = function(minp, maxp, data, area, biomemap, biome_ids, node, heightmap)
|
|
if not (minp and maxp and data and area and node and type(data) == 'table') then
|
|
return
|
|
end
|
|
|
|
if math.random(ziggurat_rarity) ~= 1 then
|
|
return
|
|
end
|
|
|
|
if biomemap then
|
|
local biome = biome_ids[biomemap[3240]]
|
|
if not (zigg_mod.ziggurats_everywhere or ziggurat_biomes[biome]) then
|
|
return
|
|
end
|
|
elseif math.random(biome_rarity) ~= 1 then
|
|
return
|
|
end
|
|
|
|
|
|
local min_y = 80
|
|
local index = 0
|
|
for z = minp.z, maxp.z do
|
|
local dz = z - minp.z
|
|
for x = minp.x, maxp.x do
|
|
local dx = x - minp.x
|
|
index = index + 1
|
|
if dz > 8 and dz < 72 and dx > 8 and dx < 72 and heightmap[index] - minp.y < 0 then
|
|
return
|
|
elseif heightmap[index] - minp.y < min_y then
|
|
min_y = heightmap[index] - minp.y
|
|
end
|
|
end
|
|
end
|
|
if min_y >= 72 or heightmap[3240] >= 72 then
|
|
return
|
|
end
|
|
|
|
local base_height = math.min(min_y, 35)
|
|
|
|
local csize = vector.add(vector.subtract(maxp, minp), 1)
|
|
local map_max = {x = csize.x, y = csize.y, z = csize.z}
|
|
local map_min = {x = minp.x, y = minp.y, z = minp.z}
|
|
|
|
local ziggurat_1 = minetest.get_perlin_map(ziggurat_noise_1, map_max):get3dMap_flat(map_min)
|
|
if not ziggurat_1 then
|
|
return
|
|
end
|
|
|
|
local write = true
|
|
local p2write = false
|
|
|
|
index = 0
|
|
local index3d = 0
|
|
for z = minp.z, maxp.z do
|
|
local dz = z - minp.z
|
|
for x = minp.x, maxp.x do
|
|
local dx = x - minp.x
|
|
index = index + 1
|
|
index3d = math.floor((z - minp.z) / 5) * (csize.y) * csize.x + math.floor((x - minp.x) / 5) + 1
|
|
local ivm = area:index(x, minp.y, z)
|
|
|
|
for y = minp.y, maxp.y do
|
|
local dy = y - minp.y
|
|
|
|
if dy >= base_height + 3 and dy <= base_height + 37 - math.max(math.abs(dx - 40), math.abs(dz - 40)) and ziggurat_1[index3d] > 0 then
|
|
if data[ivm - area.ystride] == node['zigg:ziggurat_1'] and math.random(50) == 1 then
|
|
if minetest.registered_items['booty:coffer'] then
|
|
data[ivm] = node['booty:coffer']
|
|
else
|
|
data[ivm] = node['default:chest']
|
|
end
|
|
else
|
|
data[ivm] = node['air']
|
|
end
|
|
elseif dy >= base_height + 3 and dy <= base_height + 37 - math.max(math.abs(dx - 40), math.abs(dz - 40)) then
|
|
data[ivm] = node['zigg:ziggurat_1']
|
|
elseif dy >= base_height and dy <= base_height + 40 - math.max(math.abs(dx - 40), math.abs(dz - 40)) then
|
|
data[ivm] = node['default:sandstone_block']
|
|
end
|
|
|
|
ivm = ivm + area.ystride
|
|
if dy % 5 == 0 then
|
|
index3d = index3d + csize.x
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
return write, p2write
|
|
end
|