mtcontrib/plantlife_modpack
1
0
Fork 2
mirror of https://github.com/mt-mods/plantlife_modpack.git synced 2024-12-25 18:10:19 +01:00
Code Issues Releases Wiki Activity

added some code to further trim the number of nodes that have to be checked.

Browse Source 
This causes trees to be just a tad more sparse than intended, but greatly
speeds up the map generator.

Worst case drops from thousands of nodes to test per tree type to a 5-15 nodes
per tree type.
This commit is contained in:
Vanessa Ezekowitz 2013-01-21 23:41:02 -05:00
parent 07f426ae45
commit a8491ae232
1 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
plants_lib/init.lua
View File

@ -63,6 +63,7 @@ function plantslib:search_for_surfaces(minp, maxp, biome, funct_or_model)
if biome.temp_min == nil then biome.temp_min = 1 end
if biome.temp_max == nil then biome.temp_max = -1 end
if biome.rarity == nil then biome.rarity = 50 end
if biome.max_count == nil then biome.max_count = 5 end
plantslib:dbg("Started checking generated mapblock volume...")
local searchnodes = minetest.env:find_nodes_in_area(minp, maxp, biome.surface)
@ -91,12 +92,16 @@ function plantslib:search_for_surfaces(minp, maxp, biome, funct_or_model)
end
end
if num_in_biome_nodes > 0 then
plantslib:dbg("Found "..num_in_biome_nodes.." surface nodes of type "..biome.surface.." in 5x5x5 mapblock volume at {"..dump(minp)..":"..dump(maxp).."} to check.")
for i in ipairs(in_biome_nodes) do
local pos = in_biome_nodes[i]
for i = 1,biome.max_count do
local tries = 0
local spawned = false
while tries < 2 and not planted do
local pos = in_biome_nodes[math.random(1, num_in_biome_nodes)]
local p_top = { x = pos.x, y = pos.y + 1, z = pos.z }
if minetest.env:find_node_near(p_top, biome.avoid_radius + math.random(-1.5,1.5), biome.avoid_nodes) == nil then
spawned = true
if type(funct_or_model) == "table" then
plantslib:dbg("Spawn tree at {"..dump(pos).."}")
minetest.env:spawn_tree(pos, funct_or_model)
@ -105,6 +110,15 @@ function plantslib:search_for_surfaces(minp, maxp, biome, funct_or_model)
plantslib:dbg("Call function: "..funct_or_model.."("..dump(pos)..")")
assert(loadstring(funct_or_model.."("..dump(pos)..")"))()
end
else
tries = tries + 1
spawned = false
plantslib:dbg("Couldn't spawn a tree at {"..dump(pos).."} -- trying again elsewhere")
end
end
if tries == 2 and spawned == false then
plantslib:dbg("Unable to spawn that tree. Giving up on it.")
end
end
end
end