riesenpilz/mapgen.lua

295 lines
10 KiB
Lua
Raw Normal View History

2013-08-23 17:34:54 +02:00
local c_air = minetest.get_content_id("air")
local c_stone = minetest.get_content_id("default:stone")
local c_gr = minetest.get_content_id("default:dirt_with_grass")
local c_dirt = minetest.get_content_id("default:dirt")
local c_sand = minetest.get_content_id("default:sand")
local c_desert_sand = minetest.get_content_id("default:desert_sand")
local c_tree = minetest.get_content_id("default:tree")
local c_leaves = minetest.get_content_id("default:leaves")
local c_apple = minetest.get_content_id("default:apple")
2013-10-11 13:36:24 +02:00
local c_jungletree = minetest.get_content_id("default:jungletree")
local c_jungleleaves = minetest.get_content_id("default:jungleleaves")
local c_junglegrass = minetest.get_content_id("default:junglegrass")
2013-08-23 17:34:54 +02:00
local c_cactus = minetest.get_content_id("default:cactus")
local c_papyrus = minetest.get_content_id("default:papyrus")
local c_dry_shrub = minetest.get_content_id("default:dry_shrub")
local c_ground = minetest.get_content_id("riesenpilz:ground")
local c_riesenpilz_brown = minetest.get_content_id("riesenpilz:brown")
local c_riesenpilz_red = minetest.get_content_id("riesenpilz:red")
local c_riesenpilz_fly_agaric = minetest.get_content_id("riesenpilz:fly_agaric")
local c_riesenpilz_lavashroom = minetest.get_content_id("riesenpilz:lavashroom")
local c_riesenpilz_glowshroom = minetest.get_content_id("riesenpilz:glowshroom")
2013-10-11 13:36:24 +02:00
local c_riesenpilz_parasol = minetest.get_content_id("riesenpilz:parasol")
2013-08-23 17:34:54 +02:00
local function find_grond(a,list)
for _,nam in ipairs(list) do
if a == nam then
return true
2013-05-10 20:08:50 +02:00
end
end
2013-08-23 17:34:54 +02:00
return false
2013-05-10 20:08:50 +02:00
end
2013-06-11 19:25:16 +02:00
2013-08-23 17:34:54 +02:00
2013-06-11 19:25:16 +02:00
function riesenpilz_circle(nam, pos, radius, chance)
for i = -radius, radius, 1 do
for j = -radius, radius, 1 do
if math.floor( math.sqrt(i^2+j^2) +0.5) == radius
2013-08-23 17:34:54 +02:00
and data[area:index(pos.x+i, pos.y, pos.z+j)] == c_air
and pr:next(1,chance) == 1
and data[area:index(pos.x+i, pos.y-1, pos.z+j)] == c_ground then
data[area:index(pos.x+i, pos.y, pos.z+j)] = nam
2013-06-11 19:25:16 +02:00
end
end
end
end
2013-08-23 17:34:54 +02:00
local function say_info(info)
local info = "[riesenpilz] "..info
print(info)
minetest.chat_send_all(info)
2013-04-24 20:53:20 +02:00
end
2013-10-11 13:36:24 +02:00
local riesenpilz_rarity = riesenpilz.mapgen_rarity
local riesenpilz_size = riesenpilz.mapgen_size
local nosmooth_rarity = -(riesenpilz_rarity/50)+1
local perlin_scale = riesenpilz_size*100/riesenpilz_rarity
local smooth_rarity_full = nosmooth_rarity+perlin_scale/(20*riesenpilz_size)
local smooth_rarity_ran = nosmooth_rarity-perlin_scale/(40*riesenpilz_size)
local smooth_rarity_dif = (smooth_rarity_full-smooth_rarity_ran)*100-1
2013-08-23 17:34:54 +02:00
local GROUND = {c_gr, c_sand, c_dirt, c_desert_sand}
--local USUAL_STUFF = {"default:leaves","default:apple","default:tree","default:cactus","default:papyrus"}
2013-04-24 20:53:20 +02:00
minetest.register_on_generated(function(minp, maxp, seed)
2013-08-23 17:34:54 +02:00
if maxp.y <= 0
or minp.y >= 150 then --avoid generation in the sky
return
end
local x0,z0,x1,z1 = minp.x,minp.z,maxp.x,maxp.z -- Assume X and Z lengths are equal
local env = minetest.env --Should make things a bit faster.
2013-10-11 13:36:24 +02:00
local perlin1 = env:get_perlin(51,3, 0.5, perlin_scale) --Get map specific perlin
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
--[[if not (perlin1:get2d({x=x0, y=z0}) > 0.53) and not (perlin1:get2d({x=x1, y=z1}) > 0.53)
and not (perlin1:get2d({x=x0, y=z1}) > 0.53) and not (perlin1:get2d({x=x1, y=z0}) > 0.53)
and not (perlin1:get2d({x=(x1-x0)/2, y=(z1-z0)/2}) > 0.53) then]]
if not riesenpilz.always_generate
2013-10-11 13:36:24 +02:00
and not ( perlin1:get2d( {x=x0, y=z0} ) > nosmooth_rarity ) --top left
and not ( perlin1:get2d( { x = x0 + ( (x1-x0)/2), y=z0 } ) > nosmooth_rarity )--top middle
and not (perlin1:get2d({x=x1, y=z1}) > nosmooth_rarity) --bottom right
and not (perlin1:get2d({x=x1, y=z0+((z1-z0)/2)}) > nosmooth_rarity) --right middle
and not (perlin1:get2d({x=x0, y=z1}) > nosmooth_rarity) --bottom left
and not (perlin1:get2d({x=x1, y=z0}) > nosmooth_rarity) --top right
and not (perlin1:get2d({x=x0+((x1-x0)/2), y=z1}) > nosmooth_rarity) --left middle
and not (perlin1:get2d({x=(x1-x0)/2, y=(z1-z0)/2}) > nosmooth_rarity) --middle
and not (perlin1:get2d({x=x0, y=z1+((z1-z0)/2)}) > nosmooth_rarity) then --bottom middle
2013-08-23 17:34:54 +02:00
print("[riesenpilz] abort")
return
end
if riesenpilz.info then
say_info("tries to generate at: x=["..minp.x.."; "..maxp.x.."]; y=["..minp.y.."; "..maxp.y.."]; z=["..minp.z.."; "..maxp.z.."]")
t1 = os.clock()
end
local divs = (maxp.x-minp.x);
local num = 1
local tab = {}
pr = PseudoRandom(seed+68)
local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
data = vm:get_data()
area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
for p_pos in area:iterp(minp, maxp) do --remove tree stuff
local d_p_pos = data[p_pos]
2013-10-11 13:36:24 +02:00
for _,nam in ipairs({c_tree, c_leaves, c_apple, c_jungletree, c_jungleleaves, c_junglegrass}) do
2013-08-23 17:34:54 +02:00
if d_p_pos == nam then
data[p_pos] = c_air
break
end
end
end
--[[remove usual stuff
2013-04-24 20:53:20 +02:00
local trees = env:find_nodes_in_area(minp, maxp, USUAL_STUFF)
for i,v in pairs(trees) do
env:remove_node(v)
2013-08-23 17:34:54 +02:00
end]]
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
local smooth = riesenpilz.smooth
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
for j=0,divs do
for i=0,divs do
local x,z = x0+i,z0+j
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
--Check if we are in a "riesenpilz biome"
local in_biome = false
local test = perlin1:get2d({x=x, y=z})
--smooth mapgen
if riesenpilz.always_generate then
in_biome = true
2013-10-11 13:36:24 +02:00
elseif smooth
and (
test > smooth_rarity_full
or (
test > smooth_rarity_ran
and pr:next(0,smooth_rarity_dif) > (smooth_rarity_full - test) * 100
)
) then
2013-08-23 17:34:54 +02:00
in_biome = true
2013-10-11 13:36:24 +02:00
elseif (not smooth)
and test > nosmooth_rarity then
2013-08-23 17:34:54 +02:00
in_biome = true
end
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
if in_biome then
2013-04-24 20:53:20 +02:00
2013-08-23 17:34:54 +02:00
for b = minp.y,maxp.y,1 do --remove usual stuff
local p_pos = area:index(x, b, z)
local d_p_pos = data[p_pos]
for _,nam in ipairs({c_cactus, c_papyrus}) do
if d_p_pos == nam then
data[p_pos] = c_air
2013-04-24 20:53:20 +02:00
break
end
end
2013-08-23 17:34:54 +02:00
end
local ground_y = nil --Definition des Bodens:
-- for y=maxp.y,0,-1 do
for y=maxp.y,1,-1 do
if find_grond(data[area:index(x, y, z)], GROUND) then
ground_y = y
break
end
end
if ground_y then
local p_ground = area:index(x, ground_y, z)
local p_boden = area:index(x, ground_y+1, z)
local d_p_ground = data[p_ground]
local d_p_boden = data[p_boden]
data[p_ground] = c_ground
for i = -1,-5,-1 do
local p_pos = area:index(x, ground_y+i, z)
local d_p_pos = data[p_pos]
if d_p_pos == c_desert_sand then
data[p_pos] = c_dirt
else
break
2013-04-24 20:53:20 +02:00
end
end
2013-08-23 17:34:54 +02:00
local boden = {x=x,y=ground_y+1,z=z}
if pr:next(1,15) == 1 then
data[p_boden] = c_dry_shrub
elseif pr:next(1,80) == 1 then
riesenpilz_circle(c_riesenpilz_brown, boden, pr:next(3,4), 3)
2013-10-11 13:36:24 +02:00
elseif pr:next(1,85) == 1 then
riesenpilz_circle(c_riesenpilz_parasol, boden, pr:next(3,5), 3)
2013-08-23 17:34:54 +02:00
elseif pr:next(1,90) == 1 then
riesenpilz_circle(c_riesenpilz_red, boden, pr:next(4,5), 3)
elseif pr:next(1,100) == 1 then
riesenpilz_circle(c_riesenpilz_fly_agaric, boden, 4, 3)
elseif pr:next(1,4000) == 1 then
riesenpilz_circle(c_riesenpilz_lavashroom, boden, pr:next(5,6), 3)
elseif pr:next(1,5000) == 1 then
riesenpilz_circle(c_riesenpilz_glowshroom, boden, 3, 3)
--[[elseif pr:next(1,80) == 1 then
env:add_node(boden, {name="riesenpilz:brown"})
elseif pr:next(1,90) == 1 then
env:add_node(boden, {name="riesenpilz:red"})
elseif pr:next(1,100) == 1 then
env:add_node(boden, {name="riesenpilz:fly_agaric"})
elseif pr:next(1,4000) == 1 then
env:add_node(boden, {name="riesenpilz:lavashroom"})
elseif pr:next(1,5000) == 1 then
env:add_node(boden, {name="riesenpilz:glowshroom"})]]
elseif pr:next(1,380) == 1 then
tab[num] = {1, boden}
num = num+1
elseif pr:next(1,340) == 10 then
tab[num] = {2, boden}
num = num+1
elseif pr:next(1,390) == 20 then
tab[num] = {3, boden}
num = num+1
elseif pr:next(1,6000) == 2 and pr:next(1,200) == 15 then
tab[num] = {4, boden}
num = num+1
end
2013-04-24 20:53:20 +02:00
end
end
end
end
2013-08-23 17:34:54 +02:00
vm:set_data(data)
--vm:set_lighting({day=0, night=0})
vm:calc_lighting()
vm:update_liquids()
vm:write_to_map()
if riesenpilz.info then
say_info(string.format("ground generated after: %.2fs", os.clock() - t1))
t1 = os.clock()
end
for _,v in ipairs(tab) do
local p = v[2]
if v[1] == 1 then
riesenpilz_hybridpilz(p)
elseif v[1] == 2 then
riesenpilz_brauner_minecraftpilz(p)
elseif v[1] == 3 then
riesenpilz_minecraft_fliegenpilz(p)
elseif v[1] == 4 then
riesenpilz_lavashroom(p)
end
end
if riesenpilz.info then
say_info(string.format("giant shrooms generated after: %.2fs", os.clock() - t1))
end
end)
--[[ if maxp.y < -10 then
2013-05-10 20:08:50 +02:00
local x0,z0,x1,z1 = minp.x,minp.z,maxp.x,maxp.z -- Assume X and Z lengths are equal
local env = minetest.env --Should make things a bit faster.
local perlin1 = env:get_perlin(11,3, 0.5, 200) --Get map specific perlin
2013-08-23 17:34:54 +02:00
--[if not (perlin1:get2d({x=x0, y=z0}) > 0.53) and not (perlin1:get2d({x=x1, y=z1}) > 0.53)
2013-05-10 20:08:50 +02:00
and not (perlin1:get2d({x=x0, y=z1}) > 0.53) and not (perlin1:get2d({x=x1, y=z0}) > 0.53)
2013-08-23 17:34:54 +02:00
and not (perlin1:get2d({x=(x1-x0)/2, y=(z1-z0)/2}) > 0.53) then]
2013-05-10 20:08:50 +02:00
if not ( perlin1:get2d( {x=x0, y=z0} ) > 0.53 ) --top left
and not ( perlin1:get2d( { x = x0 + ( (x1-x0)/2), y=z0 } ) > 0.53 )--top middle
and not (perlin1:get2d({x=x1, y=z1}) > 0.53) --bottom right
and not (perlin1:get2d({x=x1, y=z0+((z1-z0)/2)}) > 0.53) --right middle
and not (perlin1:get2d({x=x0, y=z1}) > 0.53) --bottom left
and not (perlin1:get2d({x=x1, y=z0}) > 0.53) --top right
and not (perlin1:get2d({x=x0+((x1-x0)/2), y=z1}) > 0.53) --left middle
and not (perlin1:get2d({x=(x1-x0)/2, y=(z1-z0)/2}) > 0.53) --middle
and not (perlin1:get2d({x=x0, y=z1+((z1-z0)/2)}) > 0.53) then --bottom middle
print("abortsumpf")
return
end
local divs = (maxp.x-minp.x);
local pr = PseudoRandom(seed+68)
for j=0,divs do
for i=0,divs do
local x,z = x0+i,z0+j
for y=minp.y,maxp.y,1 do
local pos = {x=x, y=y, z=z}
if env:get_node(pos).name == "air"
and env:get_node({x=x, y=y-1, z=z}).name == "default:stone"
and pr:next(1,40) == 33
and env:find_node_near(pos, 4, "group:igniter")
and not env:find_node_near(pos, 3, "group:igniter") then
env:add_node(pos, {name="riesenpilz:lavashroom"})
end
end
end
end
end
2013-08-23 17:34:54 +02:00
end)]]