first commit
This commit is contained in:
MisterE
@@ -0,0 +1,289 @@
|
||||
-- forces the map into singlenode mode, don't do this if this is just a "realm".
|
||||
luamap.set_singlenode()
|
||||
-- creates a terrain noise
|
||||
luamap.register_noise("terrain",{
|
||||
type = "3d",
|
||||
np_vals = {
|
||||
offset = 0,
|
||||
scale = 1,
|
||||
spread = {x=1000, y=1000, z=1000},
|
||||
seed = 5900033,
|
||||
octaves = 10,
|
||||
persist = 0.8,
|
||||
lacunarity = 1.6,
|
||||
flags = ""
|
||||
},
|
||||
|
||||
})
|
||||
luamap.register_noise("mountains",{
|
||||
type = "2d",
|
||||
np_vals = {
|
||||
offset = 0,
|
||||
scale = 1,
|
||||
spread = {x=150, y=130, z=130},
|
||||
seed = 3452345,
|
||||
octaves = 5,
|
||||
persist = 0.6,
|
||||
lacunarity = 2,
|
||||
flags = "absvalue"
|
||||
},
|
||||
|
||||
})
|
||||
|
||||
luamap.register_noise("dunes",{
|
||||
type = "2d",
|
||||
np_vals = {
|
||||
offset = 0,
|
||||
scale = 1,
|
||||
spread = {x=40, y=20, z=300},
|
||||
seed = 22345234,
|
||||
octaves = 2,
|
||||
persist = 0.6,
|
||||
lacunarity = 2,
|
||||
flags = "absvalue"
|
||||
},
|
||||
|
||||
})
|
||||
|
||||
luamap.register_noise("hills",{
|
||||
type = "2d",
|
||||
np_vals = {
|
||||
offset = 0,
|
||||
scale = 1,
|
||||
spread = {x=100, y=50, z=100},
|
||||
seed = 1345123,
|
||||
octaves = 3,
|
||||
persist = 0.5,
|
||||
lacunarity = 1.8,
|
||||
flags = "absvalue"
|
||||
},
|
||||
|
||||
})
|
||||
|
||||
luamap.register_noise("canyons",{
|
||||
type = "3d",
|
||||
np_vals = {
|
||||
offset = 0,
|
||||
scale = 1,
|
||||
spread = {x=30, y=100, z=30},
|
||||
seed = 48545,
|
||||
octaves = 4,
|
||||
persist = 0.5,
|
||||
lacunarity = 1.8,
|
||||
flags = "absvalue"
|
||||
},
|
||||
|
||||
})
|
||||
|
||||
luamap.register_noise("canyon_top",{
|
||||
type = "2d",
|
||||
np_vals = {
|
||||
offset = 0,
|
||||
scale = 1,
|
||||
spread = {x=100, y=100, z=100},
|
||||
seed = 134512,
|
||||
octaves = 3,
|
||||
persist = 0.5,
|
||||
lacunarity = 1.8,
|
||||
flags = "absvalue"
|
||||
},
|
||||
})
|
||||
|
||||
|
||||
local function cid(nodename)
|
||||
return minetest.get_content_id(nodename)
|
||||
end
|
||||
|
||||
local stone = cid("default:stone")
|
||||
local water = cid("default:water_source")
|
||||
local desert_sand = cid("default:desert_sand")
|
||||
local air = cid("air")
|
||||
local dirt = cid("default:dirt")
|
||||
local sand = cid("default:sand")
|
||||
local dirt_with_grass = cid("default:dirt_with_grass")
|
||||
local desert_sandstone = cid("default:desert_sandstone")
|
||||
local dry_dirt_with_dry_grass = cid("default:dry_dirt_with_dry_grass")
|
||||
local dry_dirt = cid("default:dry_dirt")
|
||||
local desert_sandstone = cid("default:desert_sandstone")
|
||||
local dirt_with_snow = cid("default:dirt_with_snow")
|
||||
local dirt_with_coniferous_litter = cid("default:dirt_with_coniferous_litter")
|
||||
|
||||
|
||||
local old_logic = luamap.logic
|
||||
|
||||
function luamap.logic(noise_vals,x,y,z,seed,original_content)
|
||||
|
||||
-- get any terrain defined in another mod
|
||||
local content = old_logic(noise_vals,x,y,z,seed,original_content)
|
||||
local o_y = y -- original y before modification
|
||||
|
||||
local r = 500
|
||||
local biomeoffset = 250
|
||||
local e = 2.71828
|
||||
local lake_water_level = 37
|
||||
local mountains = noise_vals.mountains
|
||||
local desertdunes = noise_vals.dunes
|
||||
local hills = noise_vals.hills
|
||||
local canyons = noise_vals.canyons
|
||||
local canyon_top = noise_vals.canyon_top
|
||||
local biome_depth = math.abs(noise_vals.terrain*6) + 1
|
||||
local mtnareaspread = 100
|
||||
local dsrtareaspread = 140
|
||||
local lkareaspread = 110
|
||||
local hillareaspread = 140
|
||||
local islandspread = 30
|
||||
local canyspread = 120
|
||||
local canyon_top_level = 12
|
||||
|
||||
|
||||
-- gausian bumps in a quadrant
|
||||
local mountain_mix = (e^(-((((x-biomeoffset)^2)+((z-biomeoffset)^2))/(2*mtnareaspread^2))))
|
||||
local desert_mix = (e^(-(((((-x)-biomeoffset)^2)+((z-biomeoffset)^2))/(2*dsrtareaspread^2))))
|
||||
|
||||
local not_desert = -(desert_mix-1)
|
||||
|
||||
--gausian bump in the center
|
||||
local lakes_mix = (e^(-((((x)^2)+((z)^2))/(2*lkareaspread^2))))
|
||||
local isle_mix = (e^(-((((x)^2)+((z)^2))/(2*islandspread^2))))
|
||||
|
||||
local hills_mix = (e^(-(((((-x)-biomeoffset)^2)+(((-z)-biomeoffset)^2))/(2*hillareaspread^2))))
|
||||
local canyon_mix = (e^(-(((((x)-biomeoffset)^2)+(((-z)-biomeoffset)^2))/(2*canyspread^2))))
|
||||
|
||||
-- add to y to lower the level, subtract to raise the level
|
||||
|
||||
-- fill the lake first before modifying the land coords
|
||||
|
||||
-- mix in the mountians
|
||||
y=y-mountain_mix*mountains*100
|
||||
|
||||
-- make the lake by subtracting height in the center
|
||||
y = y + lakes_mix * 25
|
||||
-- add the island in the center
|
||||
y = y - isle_mix * 12
|
||||
-- mix in the dunes
|
||||
y=y-desert_mix*desertdunes*10
|
||||
|
||||
-- mix in the hills
|
||||
y=y-hills_mix*hills*20
|
||||
-- mix in the small detail terrain but not in the desert
|
||||
y=y-noise_vals.terrain*not_desert*5
|
||||
|
||||
|
||||
local biome = "grass"
|
||||
if canyon_mix + biome_depth * canyon_mix > .15 then
|
||||
biome = "canyon"
|
||||
elseif mountain_mix + biome_depth * mountain_mix > .15 then
|
||||
if o_y - biome_depth > 80 then
|
||||
biome = "pine_and_snow"
|
||||
else
|
||||
biome = "pine"
|
||||
end
|
||||
elseif hills_mix + biome_depth * hills_mix > .15 then
|
||||
biome = "deciduous"
|
||||
-- elseif desert_mix + biome_depth * desert_mix > .15 then
|
||||
-- biome = "desert"
|
||||
end
|
||||
if desert_mix > .2*desertdunes and desert_mix>.08 and y > desertdunes*5 then
|
||||
biome = "desert"
|
||||
end
|
||||
|
||||
|
||||
-- add water using original y for flat water surface
|
||||
if o_y>0 and (10*o_y)^2 < (r^2-x^2-z^2) then
|
||||
|
||||
-- fill the lake
|
||||
if lakes_mix > .1 and o_y < lake_water_level then
|
||||
content = water
|
||||
biome = "lake"
|
||||
end
|
||||
|
||||
|
||||
end
|
||||
|
||||
-- canyons
|
||||
c_y = o_y - (canyon_top*10 + canyon_top_level)
|
||||
|
||||
if c_y>0 and (10*c_y)^2 < (r^2-x^2-z^2) or
|
||||
c_y<=0 and (c_y>((x^2)/(2*r))+((z^2)/(2*r))-(r/2)) then
|
||||
|
||||
if canyon_mix > .6* canyon_top and -- keep it from overflowing
|
||||
canyons > 0 and canyons < .3 then
|
||||
content = desert_sandstone
|
||||
end
|
||||
end
|
||||
|
||||
-- stone and biomes
|
||||
|
||||
if y>0 and (10*y)^2 < (r^2-x^2-z^2) or
|
||||
y<=0 and (y>((x^2)/(2*r))+((z^2)/(2*r))-(r/2)) then
|
||||
|
||||
content = stone
|
||||
|
||||
if y > 0 then
|
||||
-- lake
|
||||
if biome == "lake" and (10*(y+biome_depth))^2 > (r^2-x^2-z^2) then
|
||||
content = sand
|
||||
end
|
||||
|
||||
-- desert
|
||||
if desert_mix > .2*desertdunes and desert_mix>.08 and y > desertdunes*5 then
|
||||
content = desert_sand
|
||||
-- other biomes
|
||||
elseif (10*(y+biome_depth))^2 > (r^2-x^2-z^2) then
|
||||
-- top nodes
|
||||
if (10*(y+1))^2 > (r^2-x^2-z^2) then
|
||||
if biome == "grass" then
|
||||
content = dirt_with_grass
|
||||
end
|
||||
if biome == "canyon" then
|
||||
content = dry_dirt_with_dry_grass
|
||||
end
|
||||
if biome == "pine_and_snow" then
|
||||
content = dirt_with_snow
|
||||
end
|
||||
if biome == "pine" then
|
||||
content = dirt_with_coniferous_litter
|
||||
end
|
||||
if biome == "deciduous" then
|
||||
content = dirt_with_grass
|
||||
end
|
||||
if biome == "desert" then
|
||||
content = desert_sand
|
||||
end
|
||||
|
||||
else
|
||||
|
||||
-- under nodes
|
||||
content = dirt
|
||||
|
||||
if biome == "canyon" then
|
||||
content = dry_dirt
|
||||
end
|
||||
if biome == "desert" then
|
||||
content = desert_sand
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
end
|
||||
return content
|
||||
end
|
||||
|
||||
minetest.register_on_joinplayer(function(player)
|
||||
minetest.chat_send_player(player:get_player_name(),"MisterE's Adventure Map Creator mod is overriding mapgen. Use /emerge_map to load the entire map (it will take a while)")
|
||||
end)
|
||||
|
||||
minetest.register_chatcommand("emerge_map", {
|
||||
description = "Emerge the entire adventure map island",
|
||||
privs = {server=true},
|
||||
func = function(name, param)
|
||||
local minp = vector.new(-500,-30,-500)
|
||||
local maxp = vector.new(500, 50, 500)
|
||||
minetest.emerge_area(minp, maxp)
|
||||
minetest.chat_send_player(name, "Adventure map emerged! Have fun creating!")
|
||||
end
|
||||
})
|
||||
Reference in New Issue
Block a user