462 lines
14 KiB
Lua
462 lines
14 KiB
Lua
throwing = {}
|
|
|
|
throwing.arrows = {}
|
|
|
|
throwing.target_object = 1
|
|
throwing.target_node = 2
|
|
throwing.target_both = 3
|
|
|
|
throwing.modname = minetest.get_current_modname()
|
|
local S = minetest.get_translator("throwing")
|
|
local use_toolranks = minetest.get_modpath("toolranks") and minetest.settings:get_bool("throwing.toolranks", true)
|
|
|
|
--------- Arrows functions ---------
|
|
function throwing.is_arrow(itemstack)
|
|
return throwing.arrows[ItemStack(itemstack):get_name()]
|
|
end
|
|
|
|
function throwing.spawn_arrow_entity(pos, arrow, player)
|
|
if throwing.is_arrow(arrow) then
|
|
return minetest.add_entity(pos, arrow.."_entity")
|
|
elseif minetest.registered_items[arrow].throwing_entity then
|
|
if type(minetest.registered_items[arrow].throwing_entity) == "string" then
|
|
return minetest.add_entity(pos, minetest.registered_items[arrow].throwing_entity)
|
|
else -- Type is a function
|
|
return minetest.registered_items[arrow].throwing_entity(pos, player)
|
|
end
|
|
else
|
|
return minetest.add_entity(pos, "__builtin:item", arrow)
|
|
end
|
|
end
|
|
|
|
local function apply_realistic_acceleration(obj, mass)
|
|
if not minetest.settings:get_bool("throwing.realistic_trajectory", false) then
|
|
return
|
|
end
|
|
|
|
local vertical_acceleration = tonumber(minetest.settings:get("throwing.vertical_acceleration")) or -10
|
|
local friction_coef = tonumber(minetest.settings:get("throwing.frictional_coefficient")) or -3
|
|
|
|
local velocity = obj:get_velocity()
|
|
obj:set_acceleration({
|
|
x = friction_coef * velocity.x / mass,
|
|
y = friction_coef * velocity.y / mass + vertical_acceleration,
|
|
z = friction_coef * velocity.z / mass
|
|
})
|
|
end
|
|
|
|
local function shoot_arrow(def, toolranks_data, player, bow_index, throw_itself, new_stack)
|
|
local inventory = player:get_inventory()
|
|
local arrow_index
|
|
if throw_itself then
|
|
arrow_index = bow_index
|
|
else
|
|
if bow_index >= player:get_inventory():get_size("main") then
|
|
return false
|
|
end
|
|
arrow_index = bow_index + 1
|
|
end
|
|
local arrow_stack = inventory:get_stack("main", arrow_index)
|
|
local arrow = arrow_stack:get_name()
|
|
|
|
local playerpos = player:get_pos()
|
|
local pos = {x=playerpos.x,y=playerpos.y+1.5,z=playerpos.z}
|
|
local obj = (def.spawn_arrow_entity or throwing.spawn_arrow_entity)(pos, arrow, player)
|
|
|
|
local luaentity = obj:get_luaentity()
|
|
|
|
-- Set custom data in the entity
|
|
luaentity.player = player:get_player_name()
|
|
if not luaentity.item then
|
|
luaentity.item = arrow
|
|
end
|
|
luaentity.data = {}
|
|
luaentity.timer = 0
|
|
luaentity.toolranks = toolranks_data -- May be nil if toolranks is disabled
|
|
|
|
if luaentity.on_throw then
|
|
if luaentity:on_throw(pos, player, arrow_stack, arrow_index, luaentity.data) == false then
|
|
obj:remove()
|
|
return false
|
|
end
|
|
end
|
|
|
|
local dir = player:get_look_dir()
|
|
local vertical_acceleration = tonumber(minetest.settings:get("throwing.vertical_acceleration")) or -10
|
|
local velocity_factor = tonumber(minetest.settings:get("throwing.velocity_factor")) or 19
|
|
local velocity_mode = minetest.settings:get("throwing.velocity_mode") or "strength"
|
|
|
|
local velocity
|
|
if velocity_mode == "simple" then
|
|
velocity = velocity_factor
|
|
elseif velocity_mode == "momentum" then
|
|
velocity = def.strength * velocity_factor / luaentity.mass
|
|
else
|
|
velocity = def.strength * velocity_factor
|
|
end
|
|
|
|
obj:set_velocity({
|
|
x = dir.x * velocity,
|
|
y = dir.y * velocity,
|
|
z = dir.z * velocity
|
|
})
|
|
obj:set_acceleration({x = 0, y = vertical_acceleration, z = 0})
|
|
obj:set_yaw(player:get_look_horizontal()-math.pi/2)
|
|
|
|
apply_realistic_acceleration(obj, luaentity.mass)
|
|
|
|
if luaentity.on_throw_sound ~= "" then
|
|
minetest.sound_play(luaentity.on_throw_sound or "throwing_sound", {pos=playerpos, gain = 0.5})
|
|
end
|
|
|
|
if not minetest.settings:get_bool("creative_mode") then
|
|
inventory:set_stack("main", arrow_index, new_stack)
|
|
end
|
|
|
|
return true
|
|
end
|
|
|
|
function throwing.arrow_step(self, dtime)
|
|
if not self.timer or not self.player then
|
|
self.object:remove()
|
|
return
|
|
end
|
|
|
|
self.timer = self.timer + dtime
|
|
local pos = self.object:get_pos()
|
|
local node = minetest.get_node(pos)
|
|
|
|
local logging = function(message, level)
|
|
minetest.log(level or "action", "[throwing] Arrow "..(self.item or self.name).." throwed by player "..self.player.." "..tostring(self.timer).."s ago "..message)
|
|
end
|
|
|
|
local hit = function(pos1, node1, obj)
|
|
if obj then
|
|
if obj:is_player() then
|
|
if obj:get_player_name() == self.player then -- Avoid hitting the hitter
|
|
return false
|
|
end
|
|
end
|
|
end
|
|
|
|
local player = minetest.get_player_by_name(self.player)
|
|
if not player then -- Possible if the player disconnected
|
|
return
|
|
end
|
|
|
|
local function hit_failed()
|
|
if not minetest.settings:get_bool("creative_mode") and self.item then
|
|
player:get_inventory():add_item("main", self.item)
|
|
end
|
|
if self.on_hit_fails then
|
|
self:on_hit_fails(pos1, player, self.data)
|
|
end
|
|
end
|
|
|
|
if not self.last_pos then
|
|
logging("hitted a node during its first call to the step function")
|
|
hit_failed()
|
|
return
|
|
end
|
|
|
|
if node1 and minetest.is_protected(pos1, self.player) and not self.allow_protected then -- Forbid hitting nodes in protected areas
|
|
minetest.record_protection_violation(pos1, self.player)
|
|
logging("hitted a node into a protected area")
|
|
return
|
|
end
|
|
|
|
if self.on_hit then
|
|
local ret, reason = self:on_hit(pos1, self.last_pos, node1, obj, player, self.data)
|
|
if ret == false then
|
|
if reason then
|
|
logging(": on_hit function failed for reason: "..reason)
|
|
else
|
|
logging(": on_hit function failed")
|
|
end
|
|
|
|
hit_failed()
|
|
return
|
|
end
|
|
end
|
|
|
|
if self.on_hit_sound then
|
|
minetest.sound_play(self.on_hit_sound, {pos = pos1, gain = 0.8})
|
|
end
|
|
|
|
local identifier
|
|
if node1 then
|
|
identifier = "node " .. node1.name
|
|
elseif obj then
|
|
if obj:get_luaentity() then
|
|
identifier = "luaentity " .. obj:get_luaentity().name
|
|
elseif obj:is_player() then
|
|
identifier = "player " .. obj:get_player_name()
|
|
else
|
|
identifier = "unknown object"
|
|
end
|
|
end
|
|
if identifier then
|
|
logging("collided with " .. identifier .. " at " .. minetest.pos_to_string(pos1) .. ")")
|
|
end
|
|
|
|
-- Toolranks support: update bow uses
|
|
if self.toolranks then
|
|
local inventory = player:get_inventory()
|
|
-- Check that the player did not move the bow
|
|
local current_stack = inventory:get_stack("main", self.toolranks.index)
|
|
if current_stack:get_name() == self.toolranks.name then
|
|
local new_itemstack = toolranks.new_afteruse(current_stack, player, nil, {wear = self.toolranks.wear})
|
|
inventory:set_stack("main", self.toolranks.index, new_itemstack)
|
|
end
|
|
end
|
|
end
|
|
|
|
-- Collision with a node
|
|
if node.name == "ignore" then
|
|
self.object:remove()
|
|
logging("reached ignore. Removing.")
|
|
return
|
|
elseif (minetest.registered_items[node.name] or {}).drawtype ~= "airlike" then
|
|
if self.target ~= throwing.target_object then -- throwing.target_both, nil, throwing.target_node, or any invalid value
|
|
if hit(pos, node, nil) ~= false then
|
|
self.object:remove()
|
|
end
|
|
else
|
|
self.object:remove()
|
|
end
|
|
return
|
|
end
|
|
|
|
-- Collision with an object
|
|
local objs = minetest.get_objects_inside_radius(pos, 1)
|
|
for k, obj in pairs(objs) do
|
|
if obj:get_luaentity() then
|
|
if obj:get_luaentity().name ~= self.name and obj:get_luaentity().name ~= "__builtin:item" then
|
|
if self.target ~= throwing.target_node then -- throwing.target_both, nil, throwing.target_object, or any invalid value
|
|
if hit(pos, nil, obj) ~= false then
|
|
self.object:remove()
|
|
end
|
|
else
|
|
self.object:remove()
|
|
end
|
|
end
|
|
else
|
|
if self.target ~= throwing.target_node then -- throwing.target_both, nil, throwing.target_object, or any invalid value
|
|
if hit(pos, nil, obj) ~= false then
|
|
self.object:remove()
|
|
end
|
|
else
|
|
self.object:remove()
|
|
end
|
|
end
|
|
end
|
|
|
|
-- Support for shining items using wielded light
|
|
if minetest.global_exists("wielded_light") and self.object then
|
|
wielded_light.update_light_by_item(self.item, self.object:get_pos())
|
|
end
|
|
|
|
apply_realistic_acceleration(self.object, self.mass) -- Physics: air friction
|
|
|
|
self.last_pos = pos -- Used by the build arrow
|
|
end
|
|
|
|
-- Backwards compatibility
|
|
function throwing.make_arrow_def(def)
|
|
def.on_step = throwing.arrow_step
|
|
return def
|
|
end
|
|
|
|
--[[
|
|
on_hit(pos, last_pos, node, object, hitter)
|
|
Either node or object is nil, depending whether the arrow collided with an object (luaentity or player) or with a node.
|
|
No log message is needed in this function (a generic log message is automatically emitted), except on error or warning.
|
|
Should return false or false, reason on failure.
|
|
|
|
on_throw(pos, hitter)
|
|
Unlike on_hit, it is optional.
|
|
]]
|
|
function throwing.register_arrow(name, def)
|
|
throwing.arrows[name] = true
|
|
|
|
local registration_name = name
|
|
if name:sub(1,9) == "throwing:" then
|
|
registration_name = ":"..name
|
|
end
|
|
|
|
if not def.groups then
|
|
def.groups = {}
|
|
end
|
|
if not def.groups.dig_immediate then
|
|
def.groups.dig_immediate = 3
|
|
end
|
|
|
|
def.inventory_image = def.tiles[1]
|
|
def.on_place = function(itemstack, placer, pointed_thing)
|
|
if minetest.settings:get_bool("throwing.allow_arrow_placing") and pointed_thing.above then
|
|
local playername = placer:get_player_name()
|
|
if not minetest.is_protected(pointed_thing.above, playername) then
|
|
minetest.log("action", "Player "..playername.." placed arrow "..name.." at "..minetest.pos_to_string(pointed_thing.above))
|
|
minetest.set_node(pointed_thing.above, {name = name})
|
|
itemstack:take_item()
|
|
return itemstack
|
|
else
|
|
minetest.log("warning", "Player "..playername.." tried to place arrow "..name.." into a protected area at "..minetest.pos_to_string(pointed_thing.above))
|
|
minetest.record_protection_violation(pointed_thing.above, playername)
|
|
return itemstack
|
|
end
|
|
else
|
|
return itemstack
|
|
end
|
|
end
|
|
def.drawtype = "nodebox"
|
|
def.paramtype = "light"
|
|
def.node_box = {
|
|
type = "fixed",
|
|
fixed = {
|
|
-- Shaft
|
|
{-6.5/17, -1.5/17, -1.5/17, 6.5/17, 1.5/17, 1.5/17},
|
|
-- Spitze
|
|
{-4.5/17, 2.5/17, 2.5/17, -3.5/17, -2.5/17, -2.5/17},
|
|
{-8.5/17, 0.5/17, 0.5/17, -6.5/17, -0.5/17, -0.5/17},
|
|
-- Federn
|
|
{6.5/17, 1.5/17, 1.5/17, 7.5/17, 2.5/17, 2.5/17},
|
|
{7.5/17, -2.5/17, 2.5/17, 6.5/17, -1.5/17, 1.5/17},
|
|
{7.5/17, 2.5/17, -2.5/17, 6.5/17, 1.5/17, -1.5/17},
|
|
{6.5/17, -1.5/17, -1.5/17, 7.5/17, -2.5/17, -2.5/17},
|
|
|
|
{7.5/17, 2.5/17, 2.5/17, 8.5/17, 3.5/17, 3.5/17},
|
|
{8.5/17, -3.5/17, 3.5/17, 7.5/17, -2.5/17, 2.5/17},
|
|
{8.5/17, 3.5/17, -3.5/17, 7.5/17, 2.5/17, -2.5/17},
|
|
{7.5/17, -2.5/17, -2.5/17, 8.5/17, -3.5/17, -3.5/17},
|
|
}
|
|
}
|
|
minetest.register_node(registration_name, def)
|
|
|
|
minetest.register_entity(registration_name.."_entity", {
|
|
physical = false,
|
|
visual = "wielditem",
|
|
visual_size = {x = 0.125, y = 0.125},
|
|
textures = {name},
|
|
collisionbox = {0, 0, 0, 0, 0, 0},
|
|
on_hit = def.on_hit,
|
|
on_hit_sound = def.on_hit_sound,
|
|
on_throw_sound = def.on_throw_sound,
|
|
on_throw = def.on_throw,
|
|
allow_protected = def.allow_protected,
|
|
target = def.target,
|
|
on_hit_fails = def.on_hit_fails,
|
|
on_step = throwing.arrow_step,
|
|
item = name,
|
|
mass = def.mass or 1,
|
|
})
|
|
end
|
|
|
|
|
|
---------- Bows -----------
|
|
if use_toolranks and minetest.get_modpath("toolranks_extras") and toolranks_extras.register_tool_type then
|
|
toolranks_extras.register_tool_type("bow", S("bow"), S("Arrows thrown"))
|
|
end
|
|
|
|
function throwing.register_bow(name, def)
|
|
local enable_toolranks = use_toolranks and not def.no_toolranks
|
|
|
|
def.name = name
|
|
|
|
if not def.allow_shot then
|
|
def.allow_shot = function(player, itemstack, index)
|
|
if index >= player:get_inventory():get_size("main") and not def.throw_itself then
|
|
return false
|
|
end
|
|
return throwing.is_arrow(itemstack) or def.throw_itself
|
|
end
|
|
end
|
|
|
|
if not def.inventory_image then
|
|
def.inventory_image = def.texture
|
|
end
|
|
|
|
if not def.strength then
|
|
def.strength = 20
|
|
end
|
|
|
|
def.on_use = function(itemstack, user, pointed_thing)
|
|
-- Cooldown
|
|
local meta = itemstack:get_meta()
|
|
local cooldown = def.cooldown or tonumber(minetest.settings:get("throwing.bow_cooldown")) or 0.2
|
|
|
|
if cooldown > 0 and meta:get_int("cooldown") > os.time()
|
|
or meta:get_int("delay") > os.time() then
|
|
return
|
|
end
|
|
|
|
local bow_index = user:get_wield_index()
|
|
local arrow_index = (def.throw_itself and bow_index) or bow_index+1
|
|
local res, new_stack = def.allow_shot(user, user:get_inventory():get_stack("main", arrow_index), arrow_index, false)
|
|
if not res then
|
|
return (def.throw_itself and new_stack) or itemstack
|
|
end
|
|
|
|
-- Sound
|
|
if def.sound then
|
|
minetest.sound_play(def.sound, {to_player=user:get_player_name()})
|
|
end
|
|
|
|
meta:set_int("delay", os.time() + (def.delay or 0))
|
|
minetest.after(def.delay or 0, function()
|
|
-- Re-check that the arrow can be thrown. Overwrite the new_stack
|
|
local old_new_stack = new_stack
|
|
|
|
local arrow_stack = user:get_inventory():get_stack("main", arrow_index)
|
|
|
|
res, new_stack = def.allow_shot(user, arrow_stack, arrow_index, true)
|
|
if not res then
|
|
return
|
|
end
|
|
|
|
if not new_stack then
|
|
new_stack = old_new_stack
|
|
end
|
|
if not new_stack then
|
|
arrow_stack:take_item()
|
|
new_stack = arrow_stack
|
|
end
|
|
|
|
-- Shoot arrow
|
|
local uses = 65535 / (def.uses or 50)
|
|
local toolranks_data
|
|
if enable_toolranks then
|
|
toolranks_data = {
|
|
name = itemstack:get_name(),
|
|
index = bow_index,
|
|
wear = uses
|
|
}
|
|
end
|
|
if shoot_arrow(def, toolranks_data, user, bow_index, def.throw_itself, new_stack) then
|
|
if not minetest.settings:get_bool("creative_mode") then
|
|
itemstack:add_wear(uses)
|
|
end
|
|
end
|
|
|
|
|
|
if def.throw_itself then
|
|
-- This is a bug. If we return ItemStack(nil), the player punches the entity,
|
|
-- and if the entity is a __builtin:item, it gets back to his inventory.
|
|
minetest.after(0.1, function()
|
|
user:get_inventory():remove_item("main", itemstack)
|
|
end)
|
|
elseif cooldown > 0 then
|
|
meta:set_int("cooldown", os.time() + cooldown)
|
|
end
|
|
user:get_inventory():set_stack("main", bow_index, itemstack)
|
|
end)
|
|
return itemstack
|
|
end
|
|
|
|
if enable_toolranks then
|
|
def.original_description = def.original_description or def.description
|
|
def.description = toolranks.create_description(def.description)
|
|
end
|
|
|
|
minetest.register_tool(name, def)
|
|
end
|