mirror of
https://github.com/joe7575/lumberjack.git
synced 2024-08-19 04:14:07 +02:00
290 lines
8.8 KiB
Lua
290 lines
8.8 KiB
Lua
--[[
|
|
|
|
lumberjack
|
|
==========
|
|
|
|
Copyright (C) 2018 Joachim Stolberg
|
|
|
|
LGPLv2.1+
|
|
See LICENSE.txt for more information
|
|
|
|
Mod to completely cut trees by destroying only one block.
|
|
This mod allows to destroy the bottom of the tree and the whole tree is felled
|
|
and moved to the players inventory.
|
|
|
|
To distinguish between "grown" trees and placed tree nodes, the attribute
|
|
'node.param1' is used to identify placed nodes.
|
|
|
|
The number of necessary lumberjack points has to be configured via 'settingtypes.txt'
|
|
|
|
]]--
|
|
|
|
lumberjack = {}
|
|
|
|
local MY_PARAM1_VAL = 7 -- to identify placed nodes
|
|
|
|
-- Necessary number of points for dug trees and placed sapling to get lumberjack privs
|
|
local LUMBERJACK_TREE_POINTS = tonumber(minetest.setting_get("lumberjack_points")) or 400
|
|
local LUMBERJACK_SAPL_POINTS = LUMBERJACK_TREE_POINTS / 6
|
|
|
|
local lTrees = {} -- List of registered tree items
|
|
|
|
--
|
|
-- Check if used tool is some kind of axe
|
|
--
|
|
local function chopper_tool(digger)
|
|
local tool = digger:get_wielded_item()
|
|
if tool then
|
|
local caps = tool:get_tool_capabilities()
|
|
return caps.groupcaps and caps.groupcaps.choppy
|
|
end
|
|
return false
|
|
end
|
|
|
|
--
|
|
-- tool wearing
|
|
--
|
|
local function add_wear(digger, node, num_nodes)
|
|
local tool = digger:get_wielded_item()
|
|
if tool then
|
|
local caps = tool:get_tool_capabilities()
|
|
if caps.groupcaps and caps.groupcaps.choppy then
|
|
local uses = caps.groupcaps.choppy.uses or 10
|
|
-- local maxlevel = caps.groupcaps.choppy.maxlevel or 1
|
|
-- local choppy = lTrees[node.name].choppy or 1
|
|
-- local leveldiff = choppy - maxlevel
|
|
-- if leveldiff == 1 then
|
|
-- uses = uses * 3
|
|
-- elseif leveldiff == 2 then
|
|
-- uses = uses * 9
|
|
-- end
|
|
uses = uses * 9
|
|
tool:add_wear(65535 * num_nodes / uses)
|
|
digger:set_wielded_item(tool)
|
|
end
|
|
end
|
|
end
|
|
|
|
--
|
|
-- Remove all treen nodes in the given range
|
|
--
|
|
local function remove_level(pos1, pos2, name)
|
|
local cnt = 0
|
|
for _,pos in ipairs(minetest.find_nodes_in_area(pos1, pos2, name)) do
|
|
minetest.remove_node(pos)
|
|
cnt = cnt + 1
|
|
end
|
|
return cnt
|
|
end
|
|
|
|
--
|
|
-- Check for tree node on the next higher level
|
|
--
|
|
local function is_top_tree_node(pos, name)
|
|
local pos1 = {x=pos.x-1, y=pos.y+1, z=pos.z-1}
|
|
local pos2 = {x=pos.x+1, y=pos.y+1, z=pos.z+1}
|
|
for _,pos in ipairs(minetest.find_nodes_in_area(pos1, pos2, name)) do
|
|
return false
|
|
end
|
|
return true
|
|
end
|
|
|
|
|
|
local function check_points(player)
|
|
local points = tonumber(player:get_attribute("lumberjack_tree_points") or LUMBERJACK_TREE_POINTS)
|
|
points = points + tonumber(player:get_attribute("lumberjack_sapl_points") or LUMBERJACK_SAPL_POINTS)
|
|
|
|
if points > 0 then
|
|
return false
|
|
elseif points == 0 then
|
|
local privs = minetest.get_player_privs(player:get_player_name())
|
|
privs.lumberjack = true
|
|
minetest.set_player_privs(player:get_player_name(), privs)
|
|
player:set_attribute("lumberjack_tree_points", "-1")
|
|
player:set_attribute("lumberjack_sapl_points", "-1")
|
|
minetest.chat_send_player(player:get_player_name(), "You got lumberjack privs now")
|
|
minetest.log("action", player:get_player_name().." got lumberjack privs")
|
|
end
|
|
return true
|
|
end
|
|
|
|
--
|
|
-- Maintain lumberjack points and grant lumberjack privs if level is reached
|
|
--
|
|
local function needed_points(digger)
|
|
local points = tonumber(digger:get_attribute("lumberjack_tree_points") or LUMBERJACK_TREE_POINTS)
|
|
if points > 0 then
|
|
digger:set_attribute("lumberjack_tree_points", tostring(points - 1))
|
|
end
|
|
if points == 0 then
|
|
return check_points(digger)
|
|
end
|
|
return false
|
|
end
|
|
|
|
local function after_place_sapling(pos, placer)
|
|
local points = tonumber(placer:get_attribute("lumberjack_sapl_points") or LUMBERJACK_SAPL_POINTS)
|
|
if points > 0 then
|
|
placer:set_attribute("lumberjack_sapl_points", tostring(points - 1))
|
|
end
|
|
if points == 0 then
|
|
check_points(placer)
|
|
end
|
|
end
|
|
|
|
--
|
|
-- Remove the complete tree and return the number of removed items
|
|
--
|
|
local function remove_tree(pos, radius, name)
|
|
local level = 1
|
|
local num_nodes = 0
|
|
while true do
|
|
local pos1 = {x=pos.x-radius, y=pos.y+level, z=pos.z-radius}
|
|
local pos2 = {x=pos.x+radius, y=pos.y+level, z=pos.z+radius}
|
|
local cnt = remove_level(pos1, pos2, name)
|
|
if cnt == 0 then break end
|
|
num_nodes = num_nodes + cnt
|
|
level = level + 1
|
|
end
|
|
return num_nodes
|
|
end
|
|
|
|
|
|
--
|
|
-- Add tree items to the players inventory
|
|
--
|
|
local function add_to_inventory(digger, name, len)
|
|
local inv = digger:get_inventory()
|
|
local items = ItemStack(name .. " " .. len)
|
|
if inv and items and inv:room_for_item("main", items) then
|
|
inv:add_item("main", items)
|
|
end
|
|
end
|
|
|
|
--
|
|
-- Remove the complete tree if the digged node belongs to a tree
|
|
--
|
|
local function after_dig_node(pos, oldnode, oldmetadata, digger)
|
|
if not digger or digger:get_player_control().sneak then return end
|
|
-- Player placed node?
|
|
if oldnode.param1 ~= 0 then return end
|
|
-- Or root nodes?
|
|
local height_min = lTrees[oldnode.name].height_min or 3
|
|
local test_pos = {x=pos.x, y=pos.y+height_min-1, z=pos.z}
|
|
if minetest.get_node(test_pos).name ~= oldnode.name then return end
|
|
-- Fell the tree
|
|
local radius = lTrees[oldnode.name].radius or 0
|
|
local num_nodes = remove_tree(pos, radius, oldnode.name)
|
|
add_to_inventory(digger, oldnode.name, num_nodes)
|
|
add_wear(digger, oldnode, num_nodes)
|
|
minetest.log("action", digger:get_player_name().." fells "..oldnode.name..
|
|
" ("..num_nodes.." items)".." at "..minetest.pos_to_string(pos))
|
|
minetest.sound_play("tree_falling", {pos = pos, max_hear_distance = 16})
|
|
end
|
|
|
|
--
|
|
-- Mark node as "player placed"
|
|
--
|
|
local function on_construct(pos)
|
|
local node = minetest.get_node(pos)
|
|
if node then
|
|
minetest.swap_node(pos, {name=node.name, param1=MY_PARAM1_VAL, param2=node.param2})
|
|
end
|
|
end
|
|
|
|
local function can_dig(pos, digger)
|
|
if not digger then
|
|
return true
|
|
end
|
|
if minetest.is_protected(pos, digger:get_player_name()) then
|
|
return false
|
|
end
|
|
if minetest.check_player_privs(digger:get_player_name(), "lumberjack") and chopper_tool(digger) then
|
|
return true
|
|
end
|
|
local node = minetest.get_node(pos)
|
|
if node.param1 ~= 0 then
|
|
return true
|
|
end
|
|
if is_top_tree_node(pos, node.name) or needed_points(digger) then
|
|
return true
|
|
end
|
|
minetest.chat_send_player(digger:get_player_name(), "[Lumberjack Mod] From the top, please")
|
|
return false
|
|
end
|
|
|
|
minetest.register_privilege("lumberjack",
|
|
{description = "Gives you the rights to fell a tree at once",
|
|
give_to_singleplayer = true})
|
|
|
|
|
|
--
|
|
-- Register the tree node to the lumberjack mod.
|
|
-- 'radius' the the range (+x/-x/+z/-z), where all available tree nodes will be removed-
|
|
-- 'stem_height_min' is the minimum number of tree nodes, to be a valid stem (and not the a root)-
|
|
--
|
|
function lumberjack.register_tree(tree_name, sapling_name, radius, stem_height_min)
|
|
|
|
-- check tree attributes
|
|
local data = minetest.registered_nodes[tree_name]
|
|
if data == nil then
|
|
error("[lumberjack] "..tree_name.." is no valid item")
|
|
end
|
|
if data.after_dig_node then
|
|
error("[lumberjack] "..tree_name.." has already an 'after_dig_node' function")
|
|
end
|
|
if data.on_construct then
|
|
error("[lumberjack] "..tree_name.." has already an 'on_construct' function")
|
|
end
|
|
if data.can_dig then
|
|
error("[lumberjack] "..tree_name.." has already a 'can_dig' function")
|
|
end
|
|
if not data.groups.choppy then
|
|
error("[lumberjack] "..tree_name.." has no 'choppy' property")
|
|
end
|
|
|
|
-- check saplung attributes
|
|
if minetest.registered_nodes[sapling_name].after_place_node then
|
|
error("[lumberjack] "..sapling_name.." has already an 'after_place_node' function")
|
|
end
|
|
|
|
minetest.override_item(tree_name, {
|
|
after_dig_node = after_dig_node,
|
|
on_construct = on_construct,
|
|
can_dig = can_dig,
|
|
})
|
|
minetest.override_item(sapling_name, {
|
|
after_place_node = after_place_sapling
|
|
})
|
|
|
|
lTrees[tree_name] = {radius=radius, height_min=stem_height_min, choppy=data.groups.choppy}
|
|
end
|
|
|
|
lumberjack.register_tree("default:tree", "default:sapling", 1, 2)
|
|
lumberjack.register_tree("default:jungletree", "default:junglesapling", 1, 5)
|
|
lumberjack.register_tree("default:acacia_tree", "default:acacia_sapling", 2, 3)
|
|
lumberjack.register_tree("default:aspen_tree", "default:aspen_sapling", 0, 5)
|
|
lumberjack.register_tree("default:pine_tree", "default:pine_sapling", 0, 3)
|
|
|
|
if minetest.get_modpath("ethereal") and ethereal ~= nil then
|
|
lumberjack.register_tree("ethereal:palm_trunk", "ethereal:palm_sapling", 1, 3)
|
|
lumberjack.register_tree("ethereal:mushroom_trunk", "ethereal:mushroom_sapling", 1, 3)
|
|
lumberjack.register_tree("ethereal:birch_trunk", "ethereal:birch_sapling", 0, 3)
|
|
lumberjack.register_tree("ethereal:banana_trunk", "ethereal:banana_tree_sapling", 1, 3)
|
|
lumberjack.register_tree("ethereal:willow_trunk", "ethereal:willow_sapling", 4, 3)
|
|
lumberjack.register_tree("ethereal:frost_tree", "ethereal:frost_tree_sapling", 1, 3)
|
|
end
|
|
|
|
|
|
--"moretrees:beech_trunk"
|
|
--"moretrees:apple_tree_trunk"
|
|
--"moretrees:oak_trunk"
|
|
--"moretrees:sequoia_trunk"
|
|
--"moretrees:birch_trunk"
|
|
--"moretrees:palm_trunk"
|
|
--"moretrees:spruce_trunk"
|
|
--"moretrees:pine_trunk"
|
|
--"moretrees:willow_trunk"
|
|
--"moretrees:rubber_tree_trunk"
|
|
--"moretrees:jungletree_trunk"
|
|
--"moretrees:fir_trunk" |