Browse Source

Version MFF.

master
sys4-fr 3 years ago
parent
commit
57754a1be5
  1. 0
      README.txt
  2. 0
      depends.txt
  3. 66
      init.lua
  4. 0
      license.txt

0
README.txt

0
depends.txt

66
init.lua

@ -2,10 +2,10 @@
local COORD = false -- Print tower co-ordinates to terminal (cheat)
local XMIN = -1024 -- Area for random spawn
local XMAX = 1024
local ZMIN = -1024
local ZMAX = 1024
local XMIN = 1000 -- Area for the meru mountain spawn
local XMAX = 1000
local ZMIN = 14000
local ZMAX = 14000
local BASRAD = 64 -- Average radius at y = -32
local HEIGHT = 2048 -- Approximate height measured from y = -32
@ -55,14 +55,18 @@ local np_biome = {
-- Stuff
local cxmin = math.floor((XMIN + 32) / 80) -- limits in chunk co-ordinates
local czmin = math.floor((ZMIN + 32) / 80)
local cxmax = math.floor((XMAX + 32) / 80)
local czmax = math.floor((ZMAX + 32) / 80)
local cxav = (cxmin + cxmax) / 2 -- spawn area midpoint in chunk co-ordinates
local czav = (czmin + czmax) / 2
local xnom = (cxmax - cxmin) / 4 -- noise multipliers
local znom = (czmax - czmin) / 4
local xmid = (XMIN + XMAX) / 2
local zmid = (ZMIN + ZMAX) / 2
local xrad = xmid - XMIN
local zrad = zmid - ZMIN
local merux -- The position of the mountain is calculated on first mapgen
local meruz
local merux_min
local merux_max
local meruz_min
local meruz_max
-- Nodes
@ -93,24 +97,26 @@ local nobj_biome = nil
-- On generated function
minetest.register_on_generated(function(minp, maxp, seed)
if maxp.x < XMIN or minp.x > XMAX
or maxp.z < ZMIN or minp.z > ZMAX then
return
if not merux and not meruz then -- on first mapgen
local persist = math.sqrt(1.25) - 0.5 -- golden ratio - 1, solves the equation x²+x+1 = 2
local locnoise = minetest.get_perlin(5839090, 3, persist, 1)
local noisex = locnoise:get2d({x = 31, y = 23}) / 2
local noisez = locnoise:get2d({x = 17, y = 11}) / 2
merux = math.floor(xmid + noisex * xrad + 0.5)
meruz = math.floor(zmid + noisez * zrad + 0.5)
merux_min = merux - BASRAD
merux_max = merux + BASRAD
meruz_min = meruz - BASRAD
meruz_max = meruz + BASRAD
if COORD then
print ("[meru] at x " .. merux .. " z " .. meruz)
end
end
local locnoise = minetest.get_perlin(5839090, 2, 0.5, 3)
local noisex = locnoise:get2d({x = 31, y = 23})
local noisez = locnoise:get2d({x = 17, y = 11})
local cx = cxav + math.floor(noisex * xnom) -- chunk co ordinates
local cz = czav + math.floor(noisez * znom)
local merux = 80 * cx + 8
local meruz = 80 * cz + 8
if COORD then
print ("[meru] at x " .. merux .. " z " .. meruz)
end
if minp.x < merux - 120 or minp.x > merux + 40
or minp.z < meruz - 120 or minp.z > meruz + 40
or minp.y < -32 or minp.y > HEIGHT * 1.2 then
if minp.x > merux_max or maxp.x < merux_min or minp.z > meruz_max or maxp.z < meruz_min then
return
end
@ -126,8 +132,8 @@ minetest.register_on_generated(function(minp, maxp, seed)
local area = VoxelArea:new{MinEdge = emin, MaxEdge = emax}
local data = vm:get_data()
local c_stone = minetest.get_content_id("meru:stone")
local c_destone = minetest.get_content_id("meru:destone")
local c_stone = minetest.get_content_id("default:stone")
local c_destone = minetest.get_content_id("default:desert_stone")
local sidelen = x1 - x0 + 1
local chulens3d = {x = sidelen, y = sidelen, z = sidelen}

0
license.txt

Loading…
Cancel
Save