minetest-mm/mods/plantlife_modpack/vines/init.lua
2024-12-19 12:55:40 +01:00

523 lines
14 KiB
Lua

vines = {
name = 'vines',
recipes = {}
}
local enable_vines = minetest.settings:get_bool("vines_enable_vines", true)
local enable_rope = minetest.settings:get_bool("vines_enable_rope", true)
local enable_roots = minetest.settings:get_bool("vines_enable_roots", true)
local enable_standard = minetest.settings:get_bool("vines_enable_standard", true)
local enable_side = minetest.settings:get_bool("vines_enable_side", true)
local enable_jungle = minetest.settings:get_bool("vines_enable_jungle", true)
local enable_willow = minetest.settings:get_bool("vines_enable_willow", true)
local rarity_roots = tonumber(minetest.settings:get("vines_rarity_roots")) or 0.5
local default_rarity = 0.2
local rarity_standard = tonumber(minetest.settings:get("vines_rarity_standard")) or default_rarity
local rarity_side = tonumber(minetest.settings:get("vines_rarity_side")) or default_rarity
local rarity_jungle = tonumber(minetest.settings:get("vines_rarity_jungle")) or default_rarity
local rarity_willow = tonumber(minetest.settings:get("vines_rarity_willow")) or default_rarity
local growth_min = tonumber(minetest.settings:get("vines_growth_min")) or 180
local growth_max = tonumber(minetest.settings:get("vines_growth_max")) or 360
-- support for i18n
local S = minetest.get_translator("vines")
local dids = {}
local spawn_funcs = {}
local function find_open_side(pos) -- copied from biome_lib
if minetest.get_node({ x=pos.x-1, y=pos.y, z=pos.z }).name == "air" then
return {newpos = { x=pos.x-1, y=pos.y, z=pos.z }, facedir = 2}
end
if minetest.get_node({ x=pos.x+1, y=pos.y, z=pos.z }).name == "air" then
return {newpos = { x=pos.x+1, y=pos.y, z=pos.z }, facedir = 3}
end
if minetest.get_node({ x=pos.x, y=pos.y, z=pos.z-1 }).name == "air" then
return {newpos = { x=pos.x, y=pos.y, z=pos.z-1 }, facedir = 4}
end
if minetest.get_node({ x=pos.x, y=pos.y, z=pos.z+1 }).name == "air" then
return {newpos = { x=pos.x, y=pos.y, z=pos.z+1 }, facedir = 5}
end
return nil
end
-- ITEMS
if enable_vines ~= false then
minetest.register_craftitem("vines:vines", {
description = S("Vines"),
inventory_image = "vines_item.png",
groups = {vines = 1, flammable = 2}
})
end
-- FUNCTIONS
local function on_dig(pos, node, player)
if not player or minetest.is_protected(pos, player:get_player_name()) then
return
end
local vine_name_end = node.name:gsub("_middle", "_end")
local drop_item = "vines:vines"
if enable_vines == false then
drop_item = vine_name_end
end
local wielded_item = minetest.is_player(player) and player:get_wielded_item()
if wielded_item then
local node_def = minetest.registered_nodes[node.name]
local dig_params = minetest.get_dig_params(
node_def.groups,
wielded_item:get_tool_capabilities(),
wielded_item:get_wear()
)
if dig_params.wear then
wielded_item:add_wear(dig_params.wear)
player:set_wielded_item(wielded_item)
end
if wielded_item:get_name() == 'vines:shears' then
drop_item = vine_name_end
end
end
local break_pos = {x = pos.x, y = pos.y, z = pos.z}
while minetest.get_item_group(minetest.get_node(break_pos).name, "vines") > 0 do
minetest.remove_node(break_pos)
minetest.handle_node_drops(break_pos, {drop_item}, player)
break_pos.y = break_pos.y - 1
end
end
local function ensure_vine_end(pos, oldnode)
local np = {x = pos.x, y = pos.y + 1, z = pos.z}
local nn = minetest.get_node(np)
local vine_name_end = oldnode.name:gsub("_middle", "_end")
if minetest.get_item_group(nn.name, "vines") > 0 then
minetest.swap_node(np, { name = vine_name_end, param2 = oldnode.param2 })
minetest.registered_items[vine_name_end].on_construct(np, minetest.get_node(np))
end
end
vines.register_vine = function( name, defs, def )
local groups = {vines = 1, snappy = 3, flammable = 2}
local vine_name_end = 'vines:' .. name .. '_end'
local vine_name_middle = 'vines:' .. name .. '_middle'
local vine_image_end = "vines_" .. name .. "_end.png"
local vine_image_middle = "vines_" .. name .. "_middle.png"
local spawn_plants = function(pos)
local param2 = 0
if def.spawn_on_bottom then -- spawn under e.g. leaves
local newpos = vector.new(pos.x, pos.y - 1, pos.z)
if minetest.get_node(pos).name ~= "air" and minetest.get_node(newpos).name == "air" then
-- (1) prevent floating vines; (2) is there even space?
pos = newpos
else
return
end
elseif def.spawn_on_side then
local onside = find_open_side(pos)
if onside then
pos = onside.newpos
param2 = onside.facedir
else
return
end
end
local max_length = math.random(defs.average_length)
local current_length = 1
-- print("Generate " .. name .. " at " .. minetest.pos_to_string(pos))
if minetest.get_node({ x=pos.x, y=pos.y - 1, z=pos.z }).name == 'air' then
while minetest.get_node({ x=pos.x, y=pos.y - 1, z=pos.z }).name == 'air' and current_length < max_length do
minetest.set_node(pos, { name = vine_name_middle, param2 = param2 })
pos.y = pos.y - 1
current_length = current_length + 1
end
minetest.set_node(pos, { name = vine_name_end, param2 = param2 })
end
end
local selection_box = {type = "wallmounted",}
local drawtype = 'signlike'
-- different properties for bottom and side vines.
if not def.spawn_on_side then
selection_box = {
type = "fixed", fixed = { -0.4, -1/2, -0.4, 0.4, 1/2, 0.4 }
}
drawtype = 'plantlike'
end
minetest.register_node(vine_name_end, {
description = defs.description,
walkable = false,
climbable = true,
wield_image = vine_image_end,
drop = {},
sunlight_propagates = true,
paramtype = "light",
paramtype2 = "wallmounted",
buildable_to = false,
tiles = {vine_image_end .. (drawtype == "plantlike" and "^[transformR180" or "")},
drawtype = drawtype,
inventory_image = vine_image_end,
groups = groups,
sounds = default.node_sound_leaves_defaults(),
selection_box = selection_box,
on_construct = function(pos)
local timer = minetest.get_node_timer(pos)
timer:start(math.random(growth_min, growth_max))
end,
on_timer = function(pos)
local node = minetest.get_node(pos)
local bottom = {x = pos.x, y = pos.y - 1, z = pos.z}
local bottom_node = minetest.get_node( bottom )
if bottom_node.name == "air" then
if math.random(defs.average_length) ~= 1 then
minetest.swap_node(pos, {
name = vine_name_middle, param2 = node.param2})
minetest.set_node(bottom, {
name = node.name, param2 = node.param2})
local timer = minetest.get_node_timer(bottom_node)
timer:start(math.random(growth_min, growth_max))
end
end
end,
on_dig = on_dig,
after_destruct = function(pos, oldnode)
ensure_vine_end(pos, oldnode)
end,
})
minetest.register_node( vine_name_middle, {
description = S("Matured") .. " " .. defs.description,
walkable = false,
climbable = true,
drop = {},
sunlight_propagates = true,
paramtype = "light",
paramtype2 = "wallmounted",
buildable_to = false,
tiles = {vine_image_middle},
wield_image = vine_image_middle,
drawtype = drawtype,
inventory_image = vine_image_middle,
groups = groups,
sounds = default.node_sound_leaves_defaults(),
selection_box = selection_box,
on_dig = on_dig,
after_destruct = function(pos, oldnode)
ensure_vine_end(pos, oldnode)
end,
})
minetest.register_decoration({
name = "vines:" .. name,
decoration = {"air"},
fill_ratio = def.rarity,
y_min = -16,
y_max = 48,
place_on = def.place_on,
deco_type = "simple",
flags = "all_floors, all_ceilings"
})
dids[#dids + 1] = {name = name, spawn_func = spawn_plants}
end
minetest.register_on_mods_loaded(function()
for idx, def in ipairs(dids) do
local did = minetest.get_decoration_id("vines:" .. def.name)
dids[idx] = did
spawn_funcs[did] = def.spawn_func
end
minetest.set_gen_notify("decoration", dids)
end)
minetest.register_on_generated(function(minp, maxp, blockseed)
local g = minetest.get_mapgen_object("gennotify")
for _, did in ipairs(dids) do
local deco_locations = g["decoration#" .. did]
if deco_locations then
local func = spawn_funcs[did]
for _, pos in pairs(deco_locations) do
func(pos)
end
end
end
end)
-- ALIASES
-- used to remove the old vine nodes and give room for the new.
minetest.register_alias( 'vines:root', 'air' )
minetest.register_alias( 'vines:root_rotten', 'air' )
minetest.register_alias( 'vines:vine', 'air' )
minetest.register_alias( 'vines:vine_rotten', 'air' )
minetest.register_alias( 'vines:side', 'air' )
minetest.register_alias( 'vines:side_rotten', 'air' )
minetest.register_alias( 'vines:jungle', 'air' )
minetest.register_alias( 'vines:jungle_rotten', 'air' )
minetest.register_alias( 'vines:willow', 'air' )
minetest.register_alias( 'vines:willow_rotten', 'air' )
-- ROPE
if enable_rope ~= false then
minetest.register_craft({
output = 'vines:rope_block',
recipe = {
{'group:vines', 'group:vines', 'group:vines'},
{'group:vines', 'group:wood', 'group:vines'},
{'group:vines', 'group:vines', 'group:vines'},
}
})
if minetest.get_modpath("moreblocks") then
minetest.register_craft({
output = 'vines:rope_block',
recipe = {
{'moreblocks:rope', 'moreblocks:rope', 'moreblocks:rope'},
{'moreblocks:rope', 'group:wood', 'moreblocks:rope'},
{'moreblocks:rope', 'moreblocks:rope', 'moreblocks:rope'},
}
})
end
minetest.register_node("vines:rope_block", {
description = S("Rope"),
sunlight_propagates = true,
paramtype = "light",
tiles = {
"default_wood.png^vines_rope.png",
"default_wood.png^vines_rope.png",
"default_wood.png",
"default_wood.png",
"default_wood.png^vines_rope.png",
"default_wood.png^vines_rope.png",
},
groups = {flammable = 2, choppy = 2, oddly_breakable_by_hand = 1},
after_place_node = function(pos)
local p = {x = pos.x, y = pos.y - 1, z = pos.z}
local n = minetest.get_node(p)
if n.name == "air" then
minetest.add_node(p, {name = "vines:rope_end"})
end
end,
after_dig_node = function(pos, node, digger)
local p = {x = pos.x, y = pos.y - 1, z = pos.z}
local n = minetest.get_node(p)
while n.name == 'vines:rope' or n.name == 'vines:rope_end' do
minetest.remove_node(p)
p = {x = p.x, y = p.y - 1, z = p.z}
n = minetest.get_node(p)
end
end
})
minetest.register_node("vines:rope", {
description = S("Rope"),
walkable = false,
climbable = true,
sunlight_propagates = true,
paramtype = "light",
drop = {},
tiles = {"vines_rope.png"},
drawtype = "plantlike",
groups = {flammable = 2, not_in_creative_inventory = 1},
sounds = default.node_sound_leaves_defaults(),
selection_box = {
type = "fixed",
fixed = {-1/7, -1/2, -1/7, 1/7, 1/2, 1/7},
},
})
minetest.register_node("vines:rope_end", {
description = S("Rope"),
walkable = false,
climbable = true,
sunlight_propagates = true,
paramtype = "light",
drop = {},
tiles = {"vines_rope_end.png"},
drawtype = "plantlike",
groups = {flammable = 2, not_in_creative_inventory = 1},
sounds = default.node_sound_leaves_defaults(),
after_place_node = function(pos)
local yesh = {x = pos.x, y = pos.y - 1, z = pos.z}
minetest.add_node(yesh, {name = "vines:rope"})
end,
selection_box = {
type = "fixed",
fixed = {-1/7, -1/2, -1/7, 1/7, 1/2, 1/7},
},
on_construct = function(pos)
local timer = minetest.get_node_timer(pos)
timer:start(1)
end,
on_timer = function( pos, elapsed )
local p = {x = pos.x, y = pos.y - 1, z = pos.z}
local n = minetest.get_node(p)
if n.name == "air" then
minetest.set_node(pos, {name = "vines:rope"})
minetest.add_node(p, {name = "vines:rope_end"})
else
local timer = minetest.get_node_timer(pos)
timer:start(1)
end
end
})
end
-- SHEARS
minetest.register_tool("vines:shears", {
description = S("Shears"),
inventory_image = "vines_shears.png",
wield_image = "vines_shears.png",
stack_max = 1,
max_drop_level = 3,
tool_capabilities = {
full_punch_interval = 1.0,
max_drop_level = 1,
groupcaps = {
snappy = {times = {[3] = 0.2}, uses = 60, maxlevel = 3},
}
},
})
minetest.register_craft({
output = 'vines:shears',
recipe = {
{'', 'default:steel_ingot', ''},
{'group:stick', 'group:wood', 'default:steel_ingot'},
{'', '', 'group:stick'}
}
})
-- ROOT VINES
if enable_roots ~= false then
vines.register_vine('root',
{description = S("Roots"), average_length = 9}, {
place_on = {
"default:dirt_with_grass",
"default:dirt"
},
spawn_on_bottom = true,
rarity = rarity_roots,
})
else
minetest.register_alias('vines:root_middle', 'air')
minetest.register_alias('vines:root_end', 'air')
end
-- STANDARD VINES
if enable_standard ~= false then
vines.register_vine('vine',
{description = S("Vines"), average_length = 5}, {
place_on = {
"default:jungleleaves",
"moretrees:jungletree_leaves_red",
"moretrees:jungletree_leaves_yellow",
"moretrees:jungletree_leaves_green"
},
spawn_on_bottom = true,
rarity = rarity_standard,
})
else
minetest.register_alias('vines:vine_middle', 'air')
minetest.register_alias('vines:vine_end', 'air')
end
-- SIDE VINES
if enable_side ~= false then
vines.register_vine('side',
{description = S("Vines"), average_length = 6}, {
place_on = {
"default:jungleleaves",
"moretrees:jungletree_leaves_red",
"moretrees:jungletree_leaves_yellow",
"moretrees:jungletree_leaves_green"
},
spawn_on_side = true,
rarity = rarity_side,
})
else
minetest.register_alias('vines:side_middle', 'air')
minetest.register_alias('vines:side_end', 'air')
end
-- JUNGLE VINES
if enable_jungle ~= false then
vines.register_vine("jungle",
{description = S("Jungle Vines"), average_length = 7}, {
place_on = {
"default:jungletree",
"moretrees:jungletree_trunk"
},
spawn_on_side = true,
rarity = rarity_jungle,
})
else
minetest.register_alias('vines:jungle_middle', 'air')
minetest.register_alias('vines:jungle_end', 'air')
end
-- WILLOW VINES (Note from 2024-06: Broken for years now, integration w/ new moretrees spawn mechanic needed)
if enable_willow ~= false then
vines.register_vine("willow",
{description = S("Willow Vines"), average_length = 9}, {
spawn_on_side = true,
place_on = {"moretrees:willow_leaves"},
rarity = rarity_willow,
})
else
minetest.register_alias('vines:willow_middle', 'air')
minetest.register_alias('vines:willow_end', 'air')
end