mirror of
https://github.com/adrido/darkage.git
synced 2024-11-11 12:50:27 +01:00
Use minetest.register_ore to generate desert_stone_with iron
Also converted whitespaces to tab.
This commit is contained in:
addi
parent
14f1d1a8e0
commit
c448c65fdf
430
mapgen.lua
430
mapgen.lua
|
|
@ -8,248 +8,222 @@
|
||||||
--radius_y vertical radius of the stratus
|
--radius_y vertical radius of the stratus
|
||||||
--deep how deep can be from the ground
|
--deep how deep can be from the ground
|
||||||
local function generate_stratus(name, wherein, ceilin, ceil, minp, maxp, seed, stratus_chance, radius, radius_y, deep, height_min, height_max)
|
local function generate_stratus(name, wherein, ceilin, ceil, minp, maxp, seed, stratus_chance, radius, radius_y, deep, height_min, height_max)
|
||||||
if maxp.y < height_min or minp.y > height_max then
|
|
||||||
return
|
|
||||||
end
|
|
||||||
-- it will be only generate a stratus for every 100 m of area
|
|
||||||
local stratus_per_volume=1
|
|
||||||
local area=45
|
|
||||||
local y_min = math.max(minp.y, height_min)
|
|
||||||
local y_max = math.min(maxp.y, height_max)
|
|
||||||
local volume = ((maxp.x-minp.x+1)/area)*((y_max-y_min+1)/area)*((maxp.z-minp.z+1)/area)
|
|
||||||
local pr = PseudoRandom(seed)
|
|
||||||
local blocks = math.floor(stratus_per_volume*volume)
|
|
||||||
print(" <<"..dump(name)..">>");
|
|
||||||
if blocks == 0 then
|
|
||||||
blocks = 1
|
|
||||||
end
|
|
||||||
print(" blocks: "..dump(blocks).." in vol: "..dump(volume).." ("..dump(maxp.x-minp.x+1)..","..dump(y_max-y_min+1)..","..dump(maxp.z-minp.z+1)..")")
|
|
||||||
for i=1,blocks do
|
|
||||||
local x = pr:next(1,stratus_chance)
|
|
||||||
if x == 1 then
|
|
||||||
-- TODO deep
|
|
||||||
local y0=y_max-radius_y+1
|
|
||||||
if y0 < y_min then
|
|
||||||
y0=y_min
|
|
||||||
else
|
|
||||||
y0=pr:next(y_min, y0)
|
|
||||||
end
|
|
||||||
local x0 = maxp.x-radius+1
|
|
||||||
if x0 < minp.x then
|
|
||||||
x0 = minp.x
|
|
||||||
else
|
|
||||||
x0 = pr:next(minp.x, x0)
|
|
||||||
end
|
|
||||||
local z0 = maxp.z-radius+1
|
|
||||||
if z0 < minp.z then
|
|
||||||
x0 = minp.z
|
|
||||||
else
|
|
||||||
z0 = pr:next(minp.z, z0)
|
|
||||||
end
|
|
||||||
local p0 = {x=x0, y=y0, z=z0}
|
|
||||||
local n = minetest.env:get_node(p0).name
|
|
||||||
local i = 0
|
|
||||||
--print(" upper node "..n)
|
|
||||||
x = 0
|
|
||||||
for k, v in ipairs(ceilin) do
|
|
||||||
if n == v then
|
|
||||||
x = 1
|
|
||||||
break
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if x == 1 then
|
|
||||||
-- search for the node to replace
|
|
||||||
--print(" Searching nodes to replace from "..dump(y0-1).." to "..dump(y_min))
|
|
||||||
for y1=y0-1,y_min,-1 do
|
|
||||||
p0.y=y1
|
|
||||||
n = minetest.env:get_node(p0).name
|
|
||||||
x = 0
|
|
||||||
for k, v in ipairs(wherein) do
|
|
||||||
if n == v then
|
|
||||||
x = 1
|
|
||||||
break
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if x == 1 then
|
|
||||||
y0=y1-deep
|
|
||||||
if y0 < y_min then
|
|
||||||
y0 = y_min
|
|
||||||
end
|
|
||||||
break
|
|
||||||
end
|
|
||||||
end
|
|
||||||
local rx=pr:next(radius/2,radius)+1
|
|
||||||
local rz=pr:next(radius/2,radius)+1
|
|
||||||
local ry=pr:next(radius_y/2,radius_y)+1
|
|
||||||
--print(" area of generation ("..dump(rx)..","..dump(rz)..","..dump(ry)..")")
|
|
||||||
for x1=0,rx do
|
|
||||||
rz = rz + 3 - pr:next(1,6)
|
|
||||||
if rz < 1 then
|
|
||||||
rz = 1
|
|
||||||
end
|
|
||||||
for z1=pr:next(1,3),rz do
|
|
||||||
local ry0=ry+ pr:next(1,3)
|
|
||||||
for y1=pr:next(1,3),ry0 do
|
|
||||||
local x2 = x0+x1
|
|
||||||
local y2 = y0+y1
|
|
||||||
local z2 = z0+z1
|
|
||||||
local p2 = {x=x2, y=y2, z=z2}
|
|
||||||
n = minetest.env:get_node(p2).name
|
|
||||||
x = 0
|
|
||||||
for k, v in ipairs(wherein) do
|
|
||||||
if n == v then
|
|
||||||
x = 1
|
|
||||||
break
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if x == 1 then
|
|
||||||
if ceil == nil then
|
|
||||||
minetest.env:set_node(p2, {name=name})
|
|
||||||
i = i +1
|
|
||||||
else
|
|
||||||
local p3 = {p2.x,p2.y+1,p2}
|
|
||||||
if minetest.env:get_node(p3).name == ceil then
|
|
||||||
minetest.env:set_node(p2, {name=name})
|
|
||||||
i = i +1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
print(" generated "..dump(i).." blocks in ("..dump(x0)..","..dump(y0)..","..dump(z0)..")")
|
|
||||||
end
|
|
||||||
|
|
||||||
end
|
|
||||||
end
|
|
||||||
--print("generate_ore done")
|
|
||||||
end
|
|
||||||
|
|
||||||
local function generate_claylike(name, minp, maxp, seed, chance, minh, maxh, dirt)
|
|
||||||
if maxp.y >= maxh+1 and minp.y <= minh-1 then
|
|
||||||
local pr = PseudoRandom(seed)
|
|
||||||
local divlen = 4
|
|
||||||
local divs = (maxp.x-minp.x)/divlen+1;
|
|
||||||
for yy=minh,maxh do
|
|
||||||
local x = pr:next(1,chance)
|
|
||||||
if x == 1 then
|
|
||||||
for divx=0+1,divs-1-1 do
|
|
||||||
for divz=0+1,divs-1-1 do
|
|
||||||
local cx = minp.x + math.floor((divx+0.5)*divlen)
|
|
||||||
local cz = minp.z + math.floor((divz+0.5)*divlen)
|
|
||||||
local up = minetest.env:get_node({x=cx,y=yy,z=cz}).name
|
|
||||||
local down = minetest.env:get_node({x=cx,y=yy-1,z=cz}).name
|
|
||||||
if ( up == "default:water_source" or up == "air" ) and
|
|
||||||
( down == "default:sand" or (dirt == 1 and (down == "default:dirt" or down == "default:dirt_with_grass" ))) then
|
|
||||||
local is_shallow = true
|
|
||||||
local num_water_around = 0
|
|
||||||
if minetest.env:get_node({x=cx-divlen*2,y=yy,z=cz}).name == "default:water_source" then
|
|
||||||
num_water_around = num_water_around + 1 end
|
|
||||||
if minetest.env:get_node({x=cx+divlen*2,y=yy,z=cz}).name == "default:water_source" then
|
|
||||||
num_water_around = num_water_around + 1 end
|
|
||||||
if minetest.env:get_node({x=cx,y=yy,z=cz-divlen*2}).name == "default:water_source" then
|
|
||||||
num_water_around = num_water_around + 1 end
|
|
||||||
if minetest.env:get_node({x=cx,y=yy,z=cz+divlen*2}).name == "default:water_source" then
|
|
||||||
num_water_around = num_water_around + 1 end
|
|
||||||
if num_water_around >= 3 then
|
|
||||||
is_shallow = false
|
|
||||||
end
|
|
||||||
if is_shallow then
|
|
||||||
for x1=-divlen,divlen do
|
|
||||||
for z1=-divlen,divlen do
|
|
||||||
local p={x=cx+x1,y=yy-1,z=cz+z1}
|
|
||||||
down = minetest.env:get_node(p).name
|
|
||||||
if down == "default:sand" or (dirt == 1 and (down == "default:dirt" or down == "default:dirt_with_grass")) then
|
|
||||||
minetest.env:set_node(p, {name=name})
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
local function generate_ore(name, wherein, minp, maxp, seed, chunks_per_volume, chunk_size, ore_per_chunk, height_min, height_max)
|
|
||||||
if maxp.y < height_min or minp.y > height_max then
|
if maxp.y < height_min or minp.y > height_max then
|
||||||
return
|
return
|
||||||
end
|
end
|
||||||
|
-- it will be only generate a stratus for every 100 m of area
|
||||||
|
local stratus_per_volume=1
|
||||||
|
local area=45
|
||||||
local y_min = math.max(minp.y, height_min)
|
local y_min = math.max(minp.y, height_min)
|
||||||
local y_max = math.min(maxp.y, height_max)
|
local y_max = math.min(maxp.y, height_max)
|
||||||
local volume = (maxp.x-minp.x+1)*(y_max-y_min+1)*(maxp.z-minp.z+1)
|
local volume = ((maxp.x-minp.x+1)/area)*((y_max-y_min+1)/area)*((maxp.z-minp.z+1)/area)
|
||||||
local pr = PseudoRandom(seed)
|
local pr = PseudoRandom(seed)
|
||||||
local num_chunks = math.floor(chunks_per_volume * volume)
|
local blocks = math.floor(stratus_per_volume*volume)
|
||||||
local inverse_chance = math.floor(chunk_size*chunk_size*chunk_size / ore_per_chunk)
|
print(" <<"..dump(name)..">>");
|
||||||
--print("generate_ore num_chunks: "..dump(num_chunks))
|
if blocks == 0 then
|
||||||
for i=1,num_chunks do
|
blocks = 1
|
||||||
local y0 = pr:next(y_min, y_max-chunk_size+1)
|
end
|
||||||
if y0 >= height_min and y0 <= height_max then
|
print(" blocks: "..dump(blocks).." in vol: "..dump(volume).." ("..dump(maxp.x-minp.x+1)..","..dump(y_max-y_min+1)..","..dump(maxp.z-minp.z+1)..")")
|
||||||
local x0 = pr:next(minp.x, maxp.x-chunk_size+1)
|
for i=1,blocks do
|
||||||
local z0 = pr:next(minp.z, maxp.z-chunk_size+1)
|
local x = pr:next(1,stratus_chance)
|
||||||
|
if x == 1 then
|
||||||
|
-- TODO deep
|
||||||
|
local y0=y_max-radius_y+1
|
||||||
|
if y0 < y_min then
|
||||||
|
y0=y_min
|
||||||
|
else
|
||||||
|
y0=pr:next(y_min, y0)
|
||||||
|
end
|
||||||
|
local x0 = maxp.x-radius+1
|
||||||
|
if x0 < minp.x then
|
||||||
|
x0 = minp.x
|
||||||
|
else
|
||||||
|
x0 = pr:next(minp.x, x0)
|
||||||
|
end
|
||||||
|
local z0 = maxp.z-radius+1
|
||||||
|
if z0 < minp.z then
|
||||||
|
x0 = minp.z
|
||||||
|
else
|
||||||
|
z0 = pr:next(minp.z, z0)
|
||||||
|
end
|
||||||
local p0 = {x=x0, y=y0, z=z0}
|
local p0 = {x=x0, y=y0, z=z0}
|
||||||
for x1=0,chunk_size-1 do
|
local n = minetest.env:get_node(p0).name
|
||||||
for y1=0,chunk_size-1 do
|
local i = 0
|
||||||
for z1=0,chunk_size-1 do
|
--print(" upper node "..n)
|
||||||
if pr:next(1,inverse_chance) == 1 then
|
x = 0
|
||||||
local x2 = x0+x1
|
for k, v in ipairs(ceilin) do
|
||||||
local y2 = y0+y1
|
if n == v then
|
||||||
local z2 = z0+z1
|
x = 1
|
||||||
local p2 = {x=x2, y=y2, z=z2}
|
break
|
||||||
if minetest.env:get_node(p2).name == wherein then
|
|
||||||
minetest.env:set_node(p2, {name=name})
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
if x == 1 then
|
||||||
|
-- search for the node to replace
|
||||||
|
--print(" Searching nodes to replace from "..dump(y0-1).." to "..dump(y_min))
|
||||||
|
for y1=y0-1,y_min,-1 do
|
||||||
|
p0.y=y1
|
||||||
|
n = minetest.env:get_node(p0).name
|
||||||
|
x = 0
|
||||||
|
for k, v in ipairs(wherein) do
|
||||||
|
if n == v then
|
||||||
|
x = 1
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if x == 1 then
|
||||||
|
y0=y1-deep
|
||||||
|
if y0 < y_min then
|
||||||
|
y0 = y_min
|
||||||
|
end
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local rx=pr:next(radius/2,radius)+1
|
||||||
|
local rz=pr:next(radius/2,radius)+1
|
||||||
|
local ry=pr:next(radius_y/2,radius_y)+1
|
||||||
|
--print(" area of generation ("..dump(rx)..","..dump(rz)..","..dump(ry)..")")
|
||||||
|
for x1=0,rx do
|
||||||
|
rz = rz + 3 - pr:next(1,6)
|
||||||
|
if rz < 1 then
|
||||||
|
rz = 1
|
||||||
|
end
|
||||||
|
for z1=pr:next(1,3),rz do
|
||||||
|
local ry0=ry+ pr:next(1,3)
|
||||||
|
for y1=pr:next(1,3),ry0 do
|
||||||
|
local x2 = x0+x1
|
||||||
|
local y2 = y0+y1
|
||||||
|
local z2 = z0+z1
|
||||||
|
local p2 = {x=x2, y=y2, z=z2}
|
||||||
|
n = minetest.env:get_node(p2).name
|
||||||
|
x = 0
|
||||||
|
for k, v in ipairs(wherein) do
|
||||||
|
if n == v then
|
||||||
|
x = 1
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if x == 1 then
|
||||||
|
if ceil == nil then
|
||||||
|
minetest.env:set_node(p2, {name=name})
|
||||||
|
i = i +1
|
||||||
|
else
|
||||||
|
local p3 = {p2.x,p2.y+1,p2}
|
||||||
|
if minetest.env:get_node(p3).name == ceil then
|
||||||
|
minetest.env:set_node(p2, {name=name})
|
||||||
|
i = i +1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
print(" generated "..dump(i).." blocks in ("..dump(x0)..","..dump(y0)..","..dump(z0)..")")
|
||||||
end
|
end
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
--print("generate_ore done")
|
--print("generate_ore done")
|
||||||
end
|
end
|
||||||
|
|
||||||
|
local function generate_claylike(name, minp, maxp, seed, chance, minh, maxh, dirt)
|
||||||
|
if maxp.y >= maxh+1 and minp.y <= minh-1 then
|
||||||
|
local pr = PseudoRandom(seed)
|
||||||
|
local divlen = 4
|
||||||
|
local divs = (maxp.x-minp.x)/divlen+1;
|
||||||
|
for yy=minh,maxh do
|
||||||
|
local x = pr:next(1,chance)
|
||||||
|
if x == 1 then
|
||||||
|
for divx=0+1,divs-1-1 do
|
||||||
|
for divz=0+1,divs-1-1 do
|
||||||
|
local cx = minp.x + math.floor((divx+0.5)*divlen)
|
||||||
|
local cz = minp.z + math.floor((divz+0.5)*divlen)
|
||||||
|
local up = minetest.env:get_node({x=cx,y=yy,z=cz}).name
|
||||||
|
local down = minetest.env:get_node({x=cx,y=yy-1,z=cz}).name
|
||||||
|
if ( up == "default:water_source" or up == "air" ) and
|
||||||
|
( down == "default:sand" or (dirt == 1 and (down == "default:dirt" or down == "default:dirt_with_grass" ))) then
|
||||||
|
local is_shallow = true
|
||||||
|
local num_water_around = 0
|
||||||
|
if minetest.env:get_node({x=cx-divlen*2,y=yy,z=cz}).name == "default:water_source" then
|
||||||
|
num_water_around = num_water_around + 1 end
|
||||||
|
if minetest.env:get_node({x=cx+divlen*2,y=yy,z=cz}).name == "default:water_source" then
|
||||||
|
num_water_around = num_water_around + 1 end
|
||||||
|
if minetest.env:get_node({x=cx,y=yy,z=cz-divlen*2}).name == "default:water_source" then
|
||||||
|
num_water_around = num_water_around + 1 end
|
||||||
|
if minetest.env:get_node({x=cx,y=yy,z=cz+divlen*2}).name == "default:water_source" then
|
||||||
|
num_water_around = num_water_around + 1 end
|
||||||
|
if num_water_around >= 3 then
|
||||||
|
is_shallow = false
|
||||||
|
end
|
||||||
|
if is_shallow then
|
||||||
|
for x1=-divlen,divlen do
|
||||||
|
for z1=-divlen,divlen do
|
||||||
|
local p={x=cx+x1,y=yy-1,z=cz+z1}
|
||||||
|
down = minetest.env:get_node(p).name
|
||||||
|
if down == "default:sand" or (dirt == 1 and (down == "default:dirt" or down == "default:dirt_with_grass")) then
|
||||||
|
minetest.env:set_node(p, {name=name})
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Generate desert stone with iron in derset.
|
||||||
|
minetest.register_ore({
|
||||||
|
ore_type = "scatter",
|
||||||
|
ore = "darkage:desert_stone_with_iron",
|
||||||
|
wherein = "default:desert_stone",
|
||||||
|
clust_scarcity = 12 * 12 * 12,
|
||||||
|
clust_num_ores = 3,
|
||||||
|
clust_size = 2,
|
||||||
|
y_min = -1,
|
||||||
|
y_max = 200,
|
||||||
|
})
|
||||||
|
|
||||||
minetest.register_on_generated(function(minp, maxp, seed)
|
minetest.register_on_generated(function(minp, maxp, seed)
|
||||||
-- Generate stratus
|
-- Generate stratus
|
||||||
print("DARKAGE: Generate stratus");
|
print("DARKAGE: Generate stratus");
|
||||||
generate_ore("darkage:desert_stone_with_iron", "default:desert_stone", minp, maxp, seed+0, 1/7/7/7, 3, 5, -15, 40)
|
generate_claylike("darkage:mud", minp, maxp, seed+1, 4, 0, 2, 0)
|
||||||
generate_claylike("darkage:mud", minp, maxp, seed+1, 4, 0, 2, 0)
|
generate_claylike("darkage:silt", minp, maxp, seed+2, 4, -1, 1, 1)
|
||||||
generate_claylike("darkage:silt", minp, maxp, seed+2, 4, -1, 1, 1)
|
generate_stratus("darkage:chalk",
|
||||||
generate_stratus("darkage:chalk",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+3, 4, 25, 8, 0, -20, 50)
|
||||||
minp, maxp, seed+3, 4, 25, 8, 0, -20, 50)
|
generate_stratus("darkage:ors",
|
||||||
generate_stratus("darkage:ors",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air","default:water_source"}, nil,
|
||||||
{"default:stone","air","default:water_source"}, nil,
|
minp, maxp, seed+4, 4, 25, 7, 50, -200, 500)
|
||||||
minp, maxp, seed+4, 4, 25, 7, 50, -200, 500)
|
generate_stratus("darkage:shale",
|
||||||
generate_stratus("darkage:shale",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+5, 4, 23, 7, 50, -50, 20)
|
||||||
minp, maxp, seed+5, 4, 23, 7, 50, -50, 20)
|
generate_stratus("darkage:slate",
|
||||||
generate_stratus("darkage:slate",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+6, 6, 23, 5, 50, -500, 0)
|
||||||
minp, maxp, seed+6, 6, 23, 5, 50, -500, 0)
|
generate_stratus("darkage:schist",
|
||||||
generate_stratus("darkage:schist",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+7, 6, 19, 6, 50, -31000, -10)
|
||||||
minp, maxp, seed+7, 6, 19, 6, 50, -31000, -10)
|
generate_stratus("darkage:basalt",
|
||||||
generate_stratus("darkage:basalt",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+8, 5, 20, 5, 20, -31000, -50)
|
||||||
minp, maxp, seed+8, 5, 20, 5, 20, -31000, -50)
|
generate_stratus("darkage:marble",
|
||||||
generate_stratus("darkage:marble",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+9, 4, 25, 6, 50, -31000, -75)
|
||||||
minp, maxp, seed+9, 4, 25, 6, 50, -31000, -75)
|
generate_stratus("darkage:serpentine",
|
||||||
generate_stratus("darkage:serpentine",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+10, 4, 28, 8, 50, -31000, -350)
|
||||||
minp, maxp, seed+10, 4, 28, 8, 50, -31000, -350)
|
generate_stratus("darkage:gneiss",
|
||||||
generate_stratus("darkage:gneiss",
|
{"default:stone"},
|
||||||
{"default:stone"},
|
{"default:stone","air"}, nil,
|
||||||
{"default:stone","air"}, nil,
|
minp, maxp, seed+11, 4, 15, 5, 50, -31000, -250)
|
||||||
minp, maxp, seed+11, 4, 15, 5, 50, -31000, -250)
|
|
||||||
end)
|
end)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user