sixam/minetest
Template
2
0
Fork 0
mirror of https://github.com/luanti-org/minetest_game.git synced 2025-05-20 14:23:16 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Readd apples on generate

Browse source 
Generate apples the same way grass is generated.
This commit is contained in:
Casimir 2013-03-10 20:57:59 +01:00
parent 0d924e7e4d
commit 7c117271c8
1 changed files with 49 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
mods/default/mapgen.lua
View file

@ -190,6 +190,7 @@ minetest.register_on_generated(function(minp, maxp, seed)
end
end
end
-- Generate papyrus
local perlin1 = minetest.env:get_perlin(354, 3, 0.7, 100)
-- Assume X and Z lengths are equal
@ -215,6 +216,7 @@ minetest.register_on_generated(function(minp, maxp, seed)
end
end
end
-- Generate cactuses
local perlin1 = minetest.env:get_perlin(230, 3, 0.6, 100)
-- Assume X and Z lengths are equal
@ -248,6 +250,7 @@ minetest.register_on_generated(function(minp, maxp, seed)
end
end
end
-- Generate grass
local perlin1 = minetest.env:get_perlin(329, 3, 0.6, 100)
-- Assume X and Z lengths are equal
@ -296,6 +299,52 @@ minetest.register_on_generated(function(minp, maxp, seed)
end
end
end
-- Generate apples
local perlin1 = minetest.env:get_perlin(115, 3, 0.6, 100)
-- Assume X and Z lengths are equal
local divlen = 16
local divs = (maxp.x-minp.x)/divlen+1;
for divx=0,divs-1 do
for divz=0,divs-1 do
local x0 = minp.x + math.floor((divx+0)*divlen)
local z0 = minp.z + math.floor((divz+0)*divlen)
local x1 = minp.x + math.floor((divx+1)*divlen)
local z1 = minp.z + math.floor((divz+1)*divlen)
-- Determine apple amount from perlin noise
local apple_amount = math.floor(perlin1:get2d({x=x0, y=z0})^3 * 9)
-- Find random positions for apples based on this random
local pr = PseudoRandom(seed+1)
for i=0,apple_amount do
local x = pr:next(x0, x1)
local z = pr:next(z0, z1)
-- Find ground level (0...15)
local ground_y = nil
for y=30,0,-1 do
if minetest.env:get_node({x=x,y=y,z=z}).name ~= "air" then
ground_y = y
break
end
end
if ground_y then
local p = {x=x,y=ground_y,z=z}
local nn = minetest.env:get_node(p).name
if nn == "default:leaves" then
-- Find lowest leaves
local leaves_y = nil
for y=ground_y,0,-1 do
if minetest.env:get_node({x=x,y=y,z=z}).name ~= "default:leaves" then
leaves_y = y+1
break
end
end
minetest.env:set_node({x=x,y=leaves_y,z=z},{name="default:apple"})
end
end
end
end
end
end
-- Generate nyan cats