1
0
mirror of https://github.com/mt-mods/moretrees.git synced 2024-12-24 01:30:24 +01:00

make trees spawn as saplings only at mapgen time

...rather than using an abm to do so (abms are still used to grow them from
the spawned saplints)
This commit is contained in:
Vanessa Ezekowitz 2013-01-18 21:35:39 -05:00
parent a275fd876f
commit 59a6323ceb

130
init.lua
View File

@ -3,8 +3,8 @@
-- This mod adds more types of trees to the game
-- at present, they consist of jungle trees and conifers
--
-- Much of the code here came from cisoun's conifers mod and bas080's
-- jungle trees mod.
-- Much of the node definitions here came from cisoun's conifers mod and
-- bas080's jungle trees mod.
--
-- Brought together into one mod and made L-systems compatible by Vanessa
-- Ezekowitz. Thrown together on 2013-01-09 :-)
@ -16,18 +16,18 @@
-- snow biomes mod uses this code to make biomes:
--
-- local perlin1 = env:get_perlin(112,3, 0.5, 150)
-- local test = perlin1:get2d({x=pos.x, y=pos.z})
-- if smooth and (test > 0.73 or (test > 0.43 and math.random(0,29) > (0.73 - test) * 100 )) then
-- in_biome = true
-- elseif not smooth and test > 0.53 then
-- in_biome = true
-- end
--
-- local perlin1 = env:get_perlin(112,3, 0.5, 150)
-- local test = perlin1:get2d({x=pos.x, y=pos.z})
-- if smooth and (test > 0.73 or (test > 0.43 and math.random(0,29) > (0.73 - test) * 100 )) then
-- in_biome = true
-- elseif not smooth and test > 0.53 then
-- in_biome = true
-- end
--
-- We'll just save this for later use ;-)
--
local DEBUG = false
moretrees = {}
-- Jungletree init stuff:
@ -41,7 +41,7 @@ local JT_RADIUS = 15
local JT_WATER_RADIUS = 15
local JT_WATER_COUNT = 10
local jungletree_seed_diff = plantlife_seed_diff
local jungletree_seed_diff = plantslib.plantlife_seed_diff
-- Conifers init stuff:
@ -51,14 +51,6 @@ local CONIFERS_SPAWN_SAPLING_CHANCE = 100
local CONIFERS_GROW_SAPLING_INTERVAL = 100
local CONIFERS_GROW_SAPLING_CHANCE = 10
--local CONIFERS_TRUNK_MINHEIGHT = 7
--local CONIFERS_TRUNK_MAXHEIGHT = 25
--local CONIFERS_LEAVES_MINHEIGHT = 2
--local CONIFERS_LEAVES_MAXHEIGHT = 6
--local CONIFERS_LEAVES_MAXRADIUS = 5
--local CONIFERS_LEAVES_NARROWRADIUS = 3 -- For narrow typed conifers.
local CONIFERS_DISTANCE = 9 -- how far apart should conifer saplings spawn?
local CONIFERS_ALTITUDE = 25
@ -66,59 +58,48 @@ local CONIFERS_REMOVE_TREES = false -- Remove trees above CONIFERS_ALTITUDE?
local CONIFERS_RTREES_INTERVAL = 360
local CONIFERS_RTREES_CHANCE = 10
local conifers_seed_diff = plantlife_seed_diff+30
local conifers_seed_diff = plantslib.plantlife_seed_diff + 30
-- Spawning functions
spawn_on_surfaces(
JT_SPAWN_INTERVAL, -- ABM interval parameter
"jungletree:sapling", -- We want to spawn a sapling
JT_RADIUS, -- Keep this much room around saplings
JT_SPAWN_CHANCE, -- ABM chance parameter
"default:dirt_with_grass", -- must grow on grass only
{"jungletree:sapling","default:jungletree"}, -- avoid spawning near these
jungletree_seed_diff, -- duh? :-)
5, -- minimum light needed
nil, -- maximim (default, 14)
{"default:dirt_with_grass"}, -- must have grass..
8, -- in all 8 of the surrounding nodes
nil, -- we don't care about facedir
nil, -- or water depth
-5, -- must be 5m below sea level or higher
10, -- but no higher than 15m
{"default:water_source"}, -- Jungle trees must be near water
-- generate_on_surfaces = function(splant, sradius, ssurface, savoid,
-- seed_diff, lightmin, lightmax, nneighbors, ocount, facedir,
-- depthmax, altitudemin, altitudemax,sbiome,sbiomesize,
-- sbiomecount,tempmin,tempmax)
plantslib:generate_on_surfaces(
"jungletree:sapling", -- We want to spawn a sapling
JT_RADIUS, -- Keep this much room around saplings
"default:dirt_with_grass", -- must grow on grass only
{"jungletree:sapling","default:jungletree"}, -- avoid spawning near these
jungletree_seed_diff, -- duh? :-)
{"default:dirt_with_grass"}, -- must have grass..
8, -- in all 8 of the surrounding nodes
nil, -- we don't care about facedir
nil, -- or water depth
-5, -- must be 5m below sea level or higher
10, -- but no higher than 10m
{"default:water_source"}, -- Jungle trees must be near water
JT_WATER_RADIUS, -- within this radius of it (default 25)
JT_WATER_COUNT, -- with this many water nodes in the area
1, -- air size area of 1 (+/- 1 node in X and Z directions)
9 -- there must be 9 air nodes in the area
JT_WATER_COUNT -- with this many water nodes in the area
)
spawn_on_surfaces(
CONIFERS_SPAWN_SAPLING_INTERVAL,
plantslib:generate_on_surfaces(
"conifers:sapling",
CONIFERS_DISTANCE,
CONIFERS_SPAWN_SAPLING_CHANCE,
"default:dirt_with_grass",
{"conifers:sapling", "conifers:trunk"},
conifers_seed_diff,
nil,
nil,
conifers_seed_diff,
{"default:dirt_with_grass"},
8,
nil,
nil,
CONIFERS_ALTITUDE,
nil,
nil,
nil,
nil,
1,
9
)
CONIFERS_ALTITUDE
)
-- growing functions
grow_plants(
plantslib:grow_plants(
JT_GROW_INTERVAL,
JT_GROW_CHANCE,
"jungletree:sapling",
@ -130,11 +111,11 @@ grow_plants(
nil,
nil,
nil,
"grow_jungletree",
"moretrees:grow_jungletree",
jungletree_seed_diff
)
grow_plants(
plantslib:grow_plants(
CONIFERS_GROW_SAPLING_INTERVAL,
CONIFERS_GROW_SAPLING_CHANCE,
"conifers:sapling",
@ -146,13 +127,13 @@ grow_plants(
nil,
nil,
nil,
"grow_conifer",
"moretrees:grow_conifer",
conifers_seed_diff
)
-- L-System Tree definitions
jungle_tree={
local jungle_tree={
axiom=nil,
rules_a=nil,
rules_b=nil,
@ -169,15 +150,15 @@ jungle_tree={
fruit="vines:vine"
}
jt_axiom1 = "FFFA"
jt_rules_a1 = "FFF[&&-FBf[&&&Ff]^^^Ff][&&+FBFf[&&&FFf]^^^Ff][&&---FBFf[&&&Ff]^^^Ff][&&+++FBFf[&&&Ff]^^^Ff]F/A"
jt_rules_b1 = "[-Ff&f][+Ff&f]B"
local jt_axiom1 = "FFFA"
local jt_rules_a1 = "FFF[&&-FBf[&&&Ff]^^^Ff][&&+FBFf[&&&FFf]^^^Ff][&&---FBFf[&&&Ff]^^^Ff][&&+++FBFf[&&&Ff]^^^Ff]F/A"
local jt_rules_b1 = "[-Ff&f][+Ff&f]B"
jt_axiom2 = "FFFFFA"
jt_rules_a2 = "FFFFF[&&-FFFBF[&&&FFff]^^^FFf][&&+FFFBFF[&&&FFff]^^^FFf][&&---FFFBFF[&&&FFff]^^^FFf][&&+++FFFBFF[&&&FFff]^^^FFf]FF/A"
jt_rules_b2 = "[-FFf&ff][+FFf&ff]B"
local jt_axiom2 = "FFFFFA"
local jt_rules_a2 = "FFFFF[&&-FFFBF[&&&FFff]^^^FFf][&&+FFFBFF[&&&FFff]^^^FFf][&&---FFFBFF[&&&FFff]^^^FFf][&&+++FFFBFF[&&&FFff]^^^FFf]FF/A"
local jt_rules_b2 = "[-FFf&ff][+FFf&ff]B"
conifer_tree={
local conifer_tree={
axiom="FFFAF[&&-F][&&+F][&&---F][&&+++F]Fff",
rules_a=nil,
rules_b=nil,
@ -189,15 +170,15 @@ conifer_tree={
thin_trunks=true
}
ct_rules_a1 = "FF[FF][&&-FBF][&&+FBF][&&---FBF][&&+++FBF]F/A"
ct_rules_b1 = "[-FBf][+FBf]"
local ct_rules_a1 = "FF[FF][&&-FBF][&&+FBF][&&---FBF][&&+++FBF]F/A"
local ct_rules_b1 = "[-FBf][+FBf]"
ct_rules_a2 = "FF[FF][&&-FBF][&&+FBF][&&---FBF][&&+++FBF]F/A"
ct_rules_b2 = "[-fB][+fB]"
local ct_rules_a2 = "FF[FF][&&-FBF][&&+FBF][&&---FBF][&&+++FBF]F/A"
local ct_rules_b2 = "[-fB][+fB]"
-- Code that actually spawns the trees!
function grow_jungletree(pos, noise)
function moretrees:grow_jungletree(pos, noise)
local r1 = math.random(2)
local r2 = math.random(3)
if r1 == 1 then
@ -235,7 +216,7 @@ function grow_jungletree(pos, noise)
minetest.env:spawn_tree(pos,jungle_tree)
end
function grow_conifer(pos, noise)
function moretrees:grow_conifer(pos, noise)
if math.random(2) == 1 then
conifer_tree["leaves"]="conifers:leaves"
else
@ -449,3 +430,6 @@ minetest.register_node(":conifers:sapling", {
sounds = default.node_sound_defaults(),
})
dofile(minetest.get_modpath("moretrees").."/crafts.lua")
print("[Moretrees] Loaded (2013-01-18)")