mff/riesenpilz
1
0
Fork 0
forked from mtcontrib/riesenpilz
Code Issues Pull Requests Releases Wiki Activity

https://cdn.mediacru.sh/h/h14UwyFN0Pwy.png why?

Browse Source
This commit is contained in:
HybridDog 2014-12-14 13:59:35 +01:00
parent fc65638a9d
commit 1032336db9
2 changed files with 46 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
init.lua
View File

@ -13,13 +13,16 @@ local function r_area(manip, width, height, pos)
return VoxelArea:new({MinEdge=emerged_pos1, MaxEdge=emerged_pos2})
end
riesenpilz.vm_update = true
local function set_vm_data(manip, nodes, pos, t1, name)
manip:set_data(nodes)
manip:write_to_map()
riesenpilz.inform("a "..name.." mushroom grew at ("..pos.x.."|"..pos.y.."|"..pos.z..")", 3, t1)
local t1 = os.clock()
manip:update_map()
riesenpilz.inform("map updated", 3, t1)
if riesenpilz.vm_update then
local t1 = os.clock()
manip:update_map()
riesenpilz.inform("map updated", 3, t1)
end
end
--Growing Functions

43
mapgen.lua
View File

@ -52,6 +52,18 @@ local function find_ground(a,list)
end
local function fix_light(minp, maxp)
local manip = minetest.get_voxel_manip()
local emerged_pos1, emerged_pos2 = manip:read_from_map(minp, maxp)
local area = VoxelArea:new({MinEdge=emerged_pos1, MaxEdge=emerged_pos2})
local nodes = manip:get_data()
manip:set_data(nodes)
manip:write_to_map()
manip:update_map()
end
local data, area
function riesenpilz_circle(nam, pos, radius, chance)
for _,p in pairs(vector.circle(radius)) do
if pr:next(1,chance) == 1 then
@ -94,9 +106,25 @@ minetest.register_on_generated(function(minp, maxp, seed)
local env = minetest.env --Should make things a bit faster.
local perlin1 = env:get_perlin(51,3, 0.5, perlin_scale) --Get map specific perlin
if not riesenpilz.always_generate then
local biome_allowed
for x = x0, x1, 16 do
for z = z0, z1, 16 do
if perlin1:get2d({x=x, y=z}) > nosmooth_rarity then
biome_allowed = true
break
end
end
end
if not biome_allowed then
return
end
end
--[[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]]
and not (perlin1:get2d({x=(x1-x0)/2, y=(z1-z0)/2}) > 0.53) then
if not riesenpilz.always_generate
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
@ -108,7 +136,7 @@ minetest.register_on_generated(function(minp, maxp, seed)
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
return
end
end]]
local t1 = os.clock()
riesenpilz.inform("tries to generate a giant mushroom biome at: x=["..minp.x.."; "..maxp.x.."]; y=["..minp.y.."; "..maxp.y.."]; z=["..minp.z.."; "..maxp.z.."]", 2)
@ -251,10 +279,14 @@ minetest.register_on_generated(function(minp, maxp, seed)
end
end
vm:set_data(data)
vm:update_liquids()
vm:write_to_map()
riesenpilz.inform("ground finished", 2, t1)
local t2 = os.clock()
local single_map_update = #tab > 3
if single_map_update then
riesenpilz.vm_update = false
end
for _,v in pairs(tab) do
local p = v[2]
local m = v[1]
@ -270,7 +302,12 @@ minetest.register_on_generated(function(minp, maxp, seed)
riesenpilz_parasol(p)
end
end
if single_map_update then
riesenpilz.vm_update = true
fix_light(minp, maxp)
end
riesenpilz.inform("giant shrooms generated", 2, t2)
riesenpilz.inform("done", 1, t1)
end)
--[[ if maxp.y < -10 then