Pinetree (by sfan5, from mg mapgen) lua generation and sapling ABM. Add checks for ignore to other trees

This commit is contained in:
paramat 2014-12-04 03:47:46 +00:00 committed by PilzAdam
parent 75dfcdb1e7
commit 69614dc20d
2 changed files with 182 additions and 21 deletions

View File

@ -114,7 +114,7 @@ minetest.register_node("default:dirt_with_snow", {
description = "Dirt with Snow", description = "Dirt with Snow",
tiles = {"default_snow.png", "default_dirt.png", "default_dirt.png^default_snow_side.png"}, tiles = {"default_snow.png", "default_dirt.png", "default_dirt.png^default_snow_side.png"},
is_ground_content = true, is_ground_content = true,
groups = {crumbly=3}, groups = {crumbly=3,soil=1},
drop = 'default:dirt', drop = 'default:dirt',
sounds = default.node_sound_dirt_defaults({ sounds = default.node_sound_dirt_defaults({
footstep = {name="default_snow_footstep", gain=0.25}, footstep = {name="default_snow_footstep", gain=0.25},

View File

@ -17,6 +17,8 @@ local function can_grow(pos)
return true return true
end end
-- Sapling ABMs
minetest.register_abm({ minetest.register_abm({
nodenames = {"default:sapling"}, nodenames = {"default:sapling"},
interval = 10, interval = 10,
@ -26,14 +28,15 @@ minetest.register_abm({
return return
end end
minetest.log("action", "A sapling grows into a tree at "..minetest.pos_to_string(pos)) minetest.log("action", "A sapling grows into a tree at "..
minetest.pos_to_string(pos))
default.grow_tree(pos, random(1, 4) == 1) default.grow_tree(pos, random(1, 4) == 1)
end end
}) })
minetest.register_abm({ minetest.register_abm({
nodenames = {"default:junglesapling"}, nodenames = {"default:junglesapling"},
interval = 10, interval = 11,
chance = 50, chance = 50,
action = function(pos, node) action = function(pos, node)
if not can_grow(pos) then if not can_grow(pos) then
@ -46,18 +49,36 @@ minetest.register_abm({
end end
}) })
minetest.register_abm({
nodenames = {"default:pine_sapling"},
interval = 12,
chance = 50,
action = function(pos, node)
if not can_grow(pos) then
return
end
local c_air = minetest.get_content_id("air") minetest.log("action", "A pine sapling grows into a tree at "..
local c_apple = minetest.get_content_id("default:apple") minetest.pos_to_string(pos))
default.grow_pinetree(pos)
end
})
-- Appletree, jungletree function
local function add_trunk_and_leaves(data, a, pos, tree_cid, leaves_cid, local function add_trunk_and_leaves(data, a, pos, tree_cid, leaves_cid,
height, size, iters, is_apple_tree) height, size, iters, is_apple_tree)
local x, y, z = pos.x, pos.y, pos.z local x, y, z = pos.x, pos.y, pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_apple = minetest.get_content_id("default:apple")
-- Trunk -- Trunk
for y_dist = 0, height - 1 do for y_dist = 0, height - 1 do
local vi = a:index(x, y + y_dist, z) local vi = a:index(x, y + y_dist, z)
if y_dist == 0 or data[vi] == c_air or data[vi] == leaves_cid then local node_id = data[vi]
if y_dist == 0 or node_id == c_air or node_id == c_ignore
or node_id == leaves_cid then
data[vi] = tree_cid data[vi] = tree_cid
end end
end end
@ -67,7 +88,7 @@ local function add_trunk_and_leaves(data, a, pos, tree_cid, leaves_cid,
for y_dist = -size, 1 do for y_dist = -size, 1 do
local vi = a:index(x - 1, y + height + y_dist, z + z_dist) local vi = a:index(x - 1, y + height + y_dist, z + z_dist)
for x_dist = -1, 1 do for x_dist = -1, 1 do
if data[vi] == c_air then if data[vi] == c_air or data[vi] == c_ignore then
if is_apple_tree and random(1, 8) == 1 then if is_apple_tree and random(1, 8) == 1 then
data[vi] = c_apple data[vi] = c_apple
else else
@ -89,7 +110,7 @@ local function add_trunk_and_leaves(data, a, pos, tree_cid, leaves_cid,
for yi = 0, 1 do for yi = 0, 1 do
for zi = 0, 1 do for zi = 0, 1 do
local vi = a:index(clust_x + xi, clust_y + yi, clust_z + zi) local vi = a:index(clust_x + xi, clust_y + yi, clust_z + zi)
if data[vi] == c_air then if data[vi] == c_air or data[vi] == c_ignore then
if is_apple_tree and random(1, 8) == 1 then if is_apple_tree and random(1, 8) == 1 then
data[vi] = c_apple data[vi] = c_apple
else else
@ -102,9 +123,7 @@ local function add_trunk_and_leaves(data, a, pos, tree_cid, leaves_cid,
end end
end end
-- Appletree
local c_tree = minetest.get_content_id("default:tree")
local c_leaves = minetest.get_content_id("default:leaves")
function default.grow_tree(pos, is_apple_tree, bad) function default.grow_tree(pos, is_apple_tree, bad)
--[[ --[[
@ -118,6 +137,8 @@ function default.grow_tree(pos, is_apple_tree, bad)
local x, y, z = pos.x, pos.y, pos.z local x, y, z = pos.x, pos.y, pos.z
local height = random(4, 5) local height = random(4, 5)
local c_tree = minetest.get_content_id("default:tree")
local c_leaves = minetest.get_content_id("default:leaves")
local vm = minetest.get_voxel_manip() local vm = minetest.get_voxel_manip()
local minp, maxp = vm:read_from_map( local minp, maxp = vm:read_from_map(
@ -134,12 +155,11 @@ function default.grow_tree(pos, is_apple_tree, bad)
vm:update_map() vm:update_map()
end end
local c_jungletree = minetest.get_content_id("default:jungletree") -- Jungletree
local c_jungleleaves = minetest.get_content_id("default:jungleleaves")
function default.grow_jungletree(pos, bad) function default.grow_jungletree(pos, bad)
--[[ --[[
NOTE: Tree-placing code is currently duplicated in the engine NOTE: Jungletree-placing code is currently duplicated in the engine
and in games that have saplings; both are deprecated but not and in games that have saplings; both are deprecated but not
replaced yet replaced yet
--]] --]]
@ -149,11 +169,16 @@ function default.grow_jungletree(pos, bad)
local x, y, z = pos.x, pos.y, pos.z local x, y, z = pos.x, pos.y, pos.z
local height = random(8, 12) local height = random(8, 12)
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_jungletree = minetest.get_content_id("default:jungletree")
local c_jungleleaves = minetest.get_content_id("default:jungleleaves")
local vm = minetest.get_voxel_manip() local vm = minetest.get_voxel_manip()
local minp, maxp = vm:read_from_map( local minp, maxp = vm:read_from_map(
{x = pos.x - 3, y = pos.y - 1, z = pos.z - 3}, {x = pos.x - 3, y = pos.y - 1, z = pos.z - 3},
{x = pos.x + 3, y = pos.y + height + 1, z = pos.z + 3}) {x = pos.x + 3, y = pos.y + height + 1, z = pos.z + 3}
)
local a = VoxelArea:new({MinEdge = minp, MaxEdge = maxp}) local a = VoxelArea:new({MinEdge = minp, MaxEdge = maxp})
local data = vm:get_data() local data = vm:get_data()
@ -165,9 +190,9 @@ function default.grow_jungletree(pos, bad)
local vi_2 = a:index(x - 1, y, z + z_dist) local vi_2 = a:index(x - 1, y, z + z_dist)
for x_dist = -1, 1 do for x_dist = -1, 1 do
if random(1, 3) >= 2 then if random(1, 3) >= 2 then
if data[vi_1] == c_air then if data[vi_1] == c_air or data[vi_1] == c_ignore then
data[vi_1] = c_jungletree data[vi_1] = c_jungletree
elseif data[vi_2] == c_air then elseif data[vi_2] == c_air or data[vi_2] == c_ignore then
data[vi_2] = c_jungletree data[vi_2] = c_jungletree
end end
end end
@ -181,3 +206,139 @@ function default.grow_jungletree(pos, bad)
vm:update_map() vm:update_map()
end end
-- Pinetree from mg mapgen mod, design by sfan5, pointy top added by paramat
local function add_pine_needles(data, vi, c_air, c_ignore, c_snow, c_pine_needles)
if data[vi] == c_air or data[vi] == c_ignore or data[vi] == c_snow then
data[vi] = c_pine_needles
end
end
local function add_snow(data, vi, c_air, c_ignore, c_snow)
if data[vi] == c_air or data[vi] == c_ignore then
data[vi] = c_snow
end
end
function default.grow_pinetree(pos)
local x, y, z = pos.x, pos.y, pos.z
local maxy = y + random(9, 13) -- Trunk top
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_pinetree = minetest.get_content_id("default:pinetree")
local c_pine_needles = minetest.get_content_id("default:pine_needles")
local c_snow = minetest.get_content_id("default:snow")
local c_snowblock = minetest.get_content_id("default:snowblock")
local c_dirtsnow = minetest.get_content_id("default:dirt_with_snow")
local vm = minetest.get_voxel_manip()
local minp, maxp = vm:read_from_map(
{x = x - 3, y = y - 1, z = z - 3},
{x = x + 3, y = maxy + 3, z = z + 3}
)
local a = VoxelArea:new({MinEdge = minp, MaxEdge = maxp})
local data = vm:get_data()
-- Scan for snow nodes near sapling
local snow = false
for yy = y - 1, y + 1 do
for zz = z - 1, z + 1 do
local vi = a:index(x - 1, yy, zz)
for xx = x - 1, x + 1 do
local nodid = data[vi]
if nodid == c_snow
or nodid == c_snowblock
or nodid == c_dirtsnow then
snow = true
end
vi = vi + 1
end
end
end
-- Upper branches layer
local dev = 3
for yy = maxy - 1, maxy + 1 do
for zz = z - dev, z + dev do
local vi = a:index(x - dev, yy, zz)
local via = a:index(x - dev, yy + 1, zz)
for xx = x - dev, x + dev do
if random() < 0.95 - dev * 0.05 then
add_pine_needles(data, vi, c_air, c_ignore, c_snow,
c_pine_needles)
if snow then
add_snow(data, via, c_air, c_ignore, c_snow)
end
end
vi = vi + 1
via = via + 1
end
end
dev = dev - 1
end
-- Centre top nodes
add_pine_needles(data, a:index(x, maxy + 1, z), c_air, c_ignore, c_snow,
c_pine_needles)
add_pine_needles(data, a:index(x, maxy + 2, z), c_air, c_ignore, c_snow,
c_pine_needles) -- Paramat added a pointy top node
if snow then
add_snow(data, a:index(x, maxy + 3, z), c_air, c_ignore, c_snow)
end
-- Lower branches layer
local my = 0
for i = 1, 20 do -- Random 2x2 squares of needles
local xi = x + random(-3, 2)
local yy = maxy + random(-6, -5)
local zi = z + random(-3, 2)
if yy > my then
my = yy
end
for zz = zi, zi+1 do
local vi = a:index(xi, yy, zz)
local via = a:index(xi, yy + 1, zz)
for xx = xi, xi + 1 do
add_pine_needles(data, vi, c_air, c_ignore, c_snow,
c_pine_needles)
if snow then
add_snow(data, via, c_air, c_ignore, c_snow)
end
vi = vi + 1
via = via + 1
end
end
end
local dev = 2
for yy = my + 1, my + 2 do
for zz = z - dev, z + dev do
local vi = a:index(x - dev, yy, zz)
local via = a:index(x - dev, yy + 1, zz)
for xx = x - dev, x + dev do
if random() < 0.95 - dev * 0.05 then
add_pine_needles(data, vi, c_air, c_ignore, c_snow,
c_pine_needles)
if snow then
add_snow(data, via, c_air, c_ignore, c_snow)
end
end
vi = vi + 1
via = via + 1
end
end
dev = dev - 1
end
-- Trunk
for yy = y, maxy do
local vi = a:index(x, yy, z)
data[vi] = c_pinetree
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
end