2021-05-28 00:34:58 +02:00
local S = minetest.get_translator ( minetest.get_current_modname ( ) )
2019-03-07 21:35:02 +01:00
2022-02-26 23:52:03 +01:00
local mod_target = minetest.get_modpath ( " mcl_target " )
2023-06-06 00:43:07 +02:00
local mod_campfire = minetest.get_modpath ( " mcl_campfires " )
2022-06-29 20:44:21 +02:00
local enable_pvp = minetest.settings : get_bool ( " enable_pvp " )
2022-02-26 23:52:03 +01:00
2021-05-23 01:06:34 +02:00
local math = math
local vector = vector
2018-05-08 00:38:00 +02:00
-- Time in seconds after which a stuck arrow is deleted
local ARROW_TIMEOUT = 60
2024-08-31 13:41:42 +02:00
2018-05-09 15:10:56 +02:00
-- Time after which stuck arrow is rechecked for being stuck
local STUCK_RECHECK_TIME = 5
local YAW_OFFSET = - math.pi / 2
2018-05-08 00:38:00 +02:00
2017-07-26 19:35:56 +02:00
local mod_awards = minetest.get_modpath ( " awards " ) and minetest.get_modpath ( " mcl_achievements " )
2018-05-09 15:10:56 +02:00
local mod_button = minetest.get_modpath ( " mesecons_button " )
2017-07-26 19:35:56 +02:00
2018-05-07 23:10:49 +02:00
minetest.register_craftitem ( " mcl_bows:arrow " , {
2019-03-07 21:35:02 +01:00
description = S ( " Arrow " ) ,
2020-02-19 04:54:17 +01:00
_tt_help = S ( " Ammunition " ) .. " \n " .. S ( " Damage from bow: 1-10 " ) .. " \n " .. S ( " Damage from dispenser: 3 " ) ,
2019-03-07 21:35:02 +01:00
_doc_items_longdesc = S ( " Arrows are ammunition for bows and dispensers. " ) .. " \n " ..
S ( " An arrow fired from a bow has a regular damage of 1-9. At full charge, there's a 20% chance of a critical hit dealing 10 damage instead. An arrow fired from a dispenser always deals 3 damage. " ) .. " \n " ..
S ( " Arrows might get stuck on solid blocks and can be retrieved again. They are also capable of pushing wooden buttons. " ) ,
_doc_items_usagehelp = S ( " To use arrows as ammunition for a bow, just put them anywhere in your inventory, they will be used up automatically. To use arrows as ammunition for a dispenser, place them in the dispenser's inventory. To retrieve an arrow that sticks in a block, simply walk close to it. " ) ,
2018-05-07 23:10:49 +02:00
inventory_image = " mcl_bows_arrow_inv.png " ,
2021-10-15 21:00:37 +02:00
groups = { ammo = 1 , ammo_bow = 1 , ammo_bow_regular = 1 , ammo_crossbow = 1 } ,
2018-02-01 22:45:19 +01:00
_on_dispense = function ( itemstack , dispenserpos , droppos , dropnode , dropdir )
-- Shoot arrow
local shootpos = vector.add ( dispenserpos , vector.multiply ( dropdir , 0.51 ) )
2018-05-09 15:10:56 +02:00
local yaw = math.atan2 ( dropdir.z , dropdir.x ) + YAW_OFFSET
2018-05-07 23:10:49 +02:00
mcl_bows.shoot_arrow ( itemstack : get_name ( ) , shootpos , dropdir , yaw , nil , 19 , 3 )
2018-02-01 22:45:19 +01:00
end ,
2015-06-29 19:55:56 +02:00
} )
2024-05-23 00:54:39 +02:00
-- Destroy arrow entity self at pos and drops it as an item
local function spawn_item ( self , pos )
if not minetest.is_creative_enabled ( " " ) then
local item = minetest.add_item ( pos , " mcl_bows:arrow " )
2024-08-31 17:26:15 +02:00
item : set_velocity ( vector.zero ( ) )
2024-05-23 00:54:39 +02:00
item : set_yaw ( self.object : get_yaw ( ) )
end
mcl_burning.extinguish ( self.object )
self.object : remove ( )
end
2021-01-27 20:11:02 +01:00
2024-05-23 00:54:39 +02:00
local function stuck_arrow_on_step ( self , dtime )
self._stucktimer = self._stucktimer + dtime
self._stuckrechecktimer = self._stuckrechecktimer + dtime
if self._stucktimer > ARROW_TIMEOUT then
mcl_burning.extinguish ( self.object )
2024-08-31 17:51:28 +02:00
self._removed = true
2024-05-23 00:54:39 +02:00
self.object : remove ( )
return
end
2021-03-17 21:47:02 +01:00
2019-02-01 06:33:07 +01:00
local pos = self.object : get_pos ( )
2024-08-31 17:51:28 +02:00
if not pos then return end
2021-03-12 23:45:22 +01:00
2024-05-23 00:54:39 +02:00
-- Drop arrow as item when it is no longer stuck
-- FIXME: Arrows are a bit slow to react and continue to float in mid air for a few seconds.
if self._stuckrechecktimer > STUCK_RECHECK_TIME then
local stuckin_def
if self._stuckin then
stuckin_def = minetest.registered_nodes [ minetest.get_node ( self._stuckin ) . name ]
2021-03-12 23:45:22 +01:00
end
2024-05-23 00:54:39 +02:00
-- TODO: In MC, arrow just falls down without turning into an item
if stuckin_def and stuckin_def.walkable == false then
spawn_item ( self , pos )
return
2018-05-12 07:00:16 +02:00
end
2024-05-23 00:54:39 +02:00
self._stuckrechecktimer = 0
end
2018-05-12 07:00:16 +02:00
2024-05-23 00:54:39 +02:00
-- Pickup arrow if player is nearby (not in Creative Mode)
local objects = minetest.get_objects_inside_radius ( pos , 1 )
for _ , obj in ipairs ( objects ) do
if obj : is_player ( ) then
if self._collectable and not minetest.is_creative_enabled ( obj : get_player_name ( ) ) then
2024-09-08 04:54:32 +02:00
local arrow_item = self._arrow_item
if arrow_item and minetest.registered_items [ arrow_item ] and obj : get_inventory ( ) : room_for_item ( " main " , arrow_item ) then
obj : get_inventory ( ) : add_item ( " main " , arrow_item )
2024-05-23 00:54:39 +02:00
minetest.sound_play ( " item_drop_pickup " , {
pos = pos ,
max_hear_distance = 16 ,
gain = 1.0 ,
} , true )
2017-05-26 23:10:18 +02:00
end
end
2024-05-23 00:54:39 +02:00
mcl_burning.extinguish ( self.object )
self.object : remove ( )
return
2017-05-26 23:10:18 +02:00
end
2024-05-23 00:54:39 +02:00
end
end
2017-05-26 23:10:18 +02:00
2024-08-31 13:41:42 +02:00
local arrow_entity = {
2024-05-23 00:54:39 +02:00
physical = true ,
pointable = false ,
visual = " mesh " ,
mesh = " mcl_bows_arrow.obj " ,
visual_size = { x =- 1 , y = 1 } ,
textures = { " mcl_bows_arrow.png " } ,
collisionbox = { - 0.19 , - 0.125 , - 0.19 , 0.19 , 0.125 , 0.19 } ,
collide_with_objects = false ,
2024-09-02 03:41:21 +02:00
liquid_drag = true ,
2024-05-23 00:54:39 +02:00
_fire_damage_resistant = true ,
2019-03-08 22:31:26 +01:00
2024-05-23 00:54:39 +02:00
_save_fields = {
2024-08-31 17:09:20 +02:00
" last_pos " , " startpos " , " damage " , " is_critical " , " stuck " , " stuckin " , " stuckin_player " , " time_in_air " ,
2024-05-23 00:54:39 +02:00
} ,
2020-08-19 14:45:37 +02:00
2024-05-23 00:54:39 +02:00
_startpos = nil ,
_damage = 1 , -- Damage on impact
_is_critical = false , -- Whether this arrow would deal critical damage
_stuck = false , -- Whether arrow is stuck
_stucktimer = nil , -- Amount of time (in seconds) the arrow has been stuck so far
_stuckrechecktimer = nil , -- An additional timer for periodically re-checking the stuck status of an arrow
_stuckin = nil , --Position of node in which arow is stuck.
_shooter = nil , -- ObjectRef of player or mob who shot it
_is_arrow = true ,
_in_player = false ,
_blocked = false ,
_viscosity = 0 , -- Viscosity of node the arrow is currently in
_deflection_cooloff = 0 , -- Cooloff timer after an arrow deflection, to prevent many deflections in quick succession
2017-03-06 01:02:30 +01:00
2024-05-23 00:54:39 +02:00
_vl_projectile = {
survive_collision = true ,
2024-05-23 10:03:19 +02:00
sticks_in_players = true ,
2024-09-08 14:06:00 +02:00
damages_players = true ,
2024-05-23 10:03:19 +02:00
damage_groups = function ( self )
return { fleshy = self._damage }
end ,
2024-05-23 00:54:39 +02:00
behaviors = {
vl_projectile.collides_with_solids ,
2024-05-23 10:03:19 +02:00
vl_projectile.raycast_collides_with_entities ,
} ,
2024-09-02 03:51:08 +02:00
allow_punching = function ( self , entity_def , projectile_def , object )
local lua = object : get_luaentity ( )
2024-05-23 10:03:19 +02:00
if lua and lua.name == " mobs_mc:rover " then return false end
return true
end ,
sounds = {
2024-08-31 16:41:17 +02:00
on_entity_collision = function ( self , _ , _ , _ , obj )
2024-05-23 10:03:19 +02:00
if obj : is_player ( ) then
return { { name = " mcl_bows_hit_player " , gain = 0.1 } , { to_player = self._shooter : get_player_name ( ) } , true }
end
return { { name = " mcl_bows_hit_other " , gain = 0.3 } , { pos = self.object : get_pos ( ) , max_hear_distance = 16 } , true }
end
2024-05-23 00:54:39 +02:00
} ,
on_collide_with_solid = function ( self , pos , node , node_def )
local def = node_def
local vel = self.object : get_velocity ( )
local dpos = vector.round ( vector.new ( pos ) ) -- digital pos
2015-06-29 19:55:56 +02:00
2018-05-09 15:10:56 +02:00
-- Check for the node to which the arrow is pointing
local dir
2018-05-09 15:17:19 +02:00
if math.abs ( vel.y ) < 0.00001 then
2024-05-23 00:54:39 +02:00
if self._last_pos . y < pos.y then
2022-03-15 15:58:27 +01:00
dir = vector.new ( 0 , 1 , 0 )
2018-05-09 15:17:19 +02:00
else
2022-03-15 15:58:27 +01:00
dir = vector.new ( 0 , - 1 , 0 )
2018-05-09 15:17:19 +02:00
end
2018-05-09 15:10:56 +02:00
else
dir = minetest.facedir_to_dir ( minetest.dir_to_facedir ( minetest.yaw_to_dir ( self.object : get_yaw ( ) - YAW_OFFSET ) ) )
end
2018-05-09 18:04:34 +02:00
self._stuckin = vector.add ( dpos , dir )
2018-05-09 15:10:56 +02:00
local snode = minetest.get_node ( self._stuckin )
local sdef = minetest.registered_nodes [ snode.name ]
-- If node is non-walkable, unknown or ignore, don't make arrow stuck.
-- This causes a deflection in the engine.
if not sdef or sdef.walkable == false or snode.name == " ignore " then
self._stuckin = nil
2018-05-12 07:00:16 +02:00
if self._deflection_cooloff <= 0 then
-- Lose 1/3 of velocity on deflection
2018-05-12 15:10:34 +02:00
local newvel = vector.multiply ( vel , 0.6667 )
2018-05-09 15:10:56 +02:00
2018-05-12 15:10:34 +02:00
self.object : set_velocity ( newvel )
2018-05-12 07:00:16 +02:00
-- Reset deflection cooloff timer to prevent many deflections happening in quick succession
2018-05-12 15:10:34 +02:00
self._deflection_cooloff = 1.0
2018-05-12 07:00:16 +02:00
end
2024-05-23 00:54:39 +02:00
return
end
-- Node was walkable, make arrow stuck
self._stuck = true
self._stucktimer = 0
self._stuckrechecktimer = 0
2024-08-31 17:26:15 +02:00
self.object : set_velocity ( vector.zero ( ) )
self.object : set_acceleration ( vector.zero ( ) )
2018-05-09 15:10:56 +02:00
2024-05-23 00:54:39 +02:00
minetest.sound_play ( { name = " mcl_bows_hit_other " , gain = 0.3 } , { pos = self.object : get_pos ( ) , max_hear_distance = 16 } , true )
2018-05-09 15:10:56 +02:00
2024-05-23 00:54:39 +02:00
if mcl_burning.is_burning ( self.object ) and snode.name == " mcl_tnt:tnt " then
tnt.ignite ( self._stuckin )
end
-- Ignite Campfires
if mod_campfire and mcl_burning.is_burning ( self.object ) and minetest.get_item_group ( snode.name , " campfire " ) ~= 0 then
mcl_campfires.light_campfire ( self._stuckin )
end
2018-05-12 07:00:16 +02:00
2024-05-23 00:54:39 +02:00
-- Activate target
if mod_target and snode.name == " mcl_target:target_off " then
mcl_target.hit ( self._stuckin , 1 ) --10 redstone ticks
end
2020-12-08 16:07:49 +01:00
2024-05-23 00:54:39 +02:00
-- Push the button! Push, push, push the button!
if mod_button and minetest.get_item_group ( node.name , " button " ) > 0 and minetest.get_item_group ( node.name , " button_push_by_arrow " ) == 1 then
local bdir = minetest.wallmounted_to_dir ( node.param2 )
-- Check the button orientation
if vector.equals ( vector.add ( dpos , bdir ) , self._stuckin ) then
mesecon.push_button ( dpos , node )
2021-02-01 08:15:28 +01:00
end
2024-05-23 00:54:39 +02:00
end
end ,
on_collide_with_entity = function ( self , pos , obj )
local is_player = obj : is_player ( )
local lua = obj : get_luaentity ( )
2021-02-01 08:15:28 +01:00
2024-05-23 00:54:39 +02:00
-- Make sure collision is valid
if obj == self._shooter then
if self._time_in_air < 1.02 then return end
else
if not ( is_player or ( lua and ( lua.is_mob or lua._hittable_by_projectile ) ) ) then
return
end
end
if obj : get_hp ( ) > 0 then
-- Check if there is no solid node between arrow and object
2024-05-23 10:03:19 +02:00
-- TODO: remove. this code should never occur if vl_projectile is working correctly
2024-05-23 00:54:39 +02:00
local ray = minetest.raycast ( self.object : get_pos ( ) , obj : get_pos ( ) , true )
for pointed_thing in ray do
if pointed_thing.type == " object " and pointed_thing.ref == obj then
-- Target reached! We can proceed now.
break
elseif pointed_thing.type == " node " then
local nn = minetest.get_node ( minetest.get_pointed_thing_position ( pointed_thing ) ) . name
local def = minetest.registered_nodes [ nn ]
if ( not def ) or def.walkable then
-- There's a node in the way. Delete arrow without damage
mcl_burning.extinguish ( self.object )
self.object : remove ( )
return
end
end
end
if lua then
local entity_name = lua.name
-- Achievement for hitting skeleton, wither skeleton or stray (TODO) with an arrow at least 50 meters away
-- NOTE: Range has been reduced because mobs unload much earlier than that ... >_>
-- TODO: This achievement should be given for the kill, not just a hit
if self._shooter and self._shooter : is_player ( ) and vector.distance ( pos , self._startpos ) >= 20 then
if mod_awards and ( entity_name == " mobs_mc:skeleton " or entity_name == " mobs_mc:stray " or entity_name == " mobs_mc:witherskeleton " ) then
awards.unlock ( self._shooter : get_player_name ( ) , " mcl:snipeSkeleton " )
end
2018-05-12 07:00:16 +02:00
end
2018-05-09 18:04:34 +02:00
end
2018-05-08 14:35:15 +02:00
end
2024-05-23 00:54:39 +02:00
if not obj : is_player ( ) then
mcl_burning.extinguish ( self.object )
if self._piercing == 0 then
2024-08-31 00:40:01 +02:00
self._removed = true
2024-05-23 00:54:39 +02:00
self.object : remove ( )
end
2018-05-08 00:02:07 +02:00
end
2024-08-31 00:40:01 +02:00
2024-08-31 13:41:42 +02:00
-- Item definition entity collision hook
2024-08-31 00:40:01 +02:00
local item_def = minetest.registered_items [ self._arrow_item ]
local hook = item_def and item_def._on_collide_with_entity
if hook then hook ( self , pos , obj ) end
-- Because arrows are flagged to survive collisions to allow sticking into blocks, manually remove it now that it
-- has collided with an entity
self._removed = true
self.object : remove ( )
2024-05-23 00:54:39 +02:00
end
} ,
on_step = function ( self , dtime )
mcl_burning.tick ( self.object , dtime , self )
-- mcl_burning.tick may remove object immediately
if not self.object : get_pos ( ) then return end
2024-09-05 13:40:01 +02:00
self._time_in_air = ( self._time_in_air or 0 ) + dtime
2024-05-23 00:54:39 +02:00
2024-08-31 17:09:20 +02:00
-- Give the arrows a maximum flight time
if self._time_in_air > ARROW_TIMEOUT then
self._removed = true
self.object : remove ( )
end
2024-05-23 00:54:39 +02:00
local pos = self.object : get_pos ( )
2024-05-23 10:03:19 +02:00
--local dpos = vector.round(vector.new(pos)) -- digital pos
--local node = minetest.get_node(dpos)
2024-05-23 00:54:39 +02:00
if self._stuck then
return stuck_arrow_on_step ( self , dtime )
end
-- Add tracer
if self._damage >= 9 and self._in_player == false then
minetest.add_particlespawner ( {
amount = 20 ,
time = .2 ,
minpos = vector.new ( 0 , 0 , 0 ) ,
maxpos = vector.new ( 0 , 0 , 0 ) ,
minvel = vector.new ( - 0.1 , - 0.1 , - 0.1 ) ,
maxvel = vector.new ( 0.1 , 0.1 , 0.1 ) ,
minexptime = 0.5 ,
maxexptime = 0.5 ,
minsize = 2 ,
maxsize = 2 ,
attached = self.object ,
collisiondetection = false ,
vertical = false ,
texture = " mobs_mc_arrow_particle.png " ,
glow = 1 ,
} )
end
if self._deflection_cooloff > 0 then
self._deflection_cooloff = self._deflection_cooloff - dtime
end
-- Process as projectile
vl_projectile.update_projectile ( self , dtime )
2015-06-29 19:55:56 +02:00
2024-05-23 00:54:39 +02:00
-- Update yaw
local vel = self.object : get_velocity ( )
end ,
2018-05-09 16:49:37 +02:00
2024-05-23 00:54:39 +02:00
-- Force recheck of stuck arrows when punched.
-- Otherwise, punching has no effect.
on_punch = function ( self )
if self._stuck then
self._stuckrechecktimer = STUCK_RECHECK_TIME
end
end ,
get_staticdata = function ( self )
local out = { }
local save_fields = self._save_fields
for i = 1 , # save_fields do
local field = save_fields [ i ]
out [ field ] = self [ " _ " .. field ]
2018-05-09 17:31:04 +02:00
end
2018-05-08 17:16:11 +02:00
2024-05-23 00:54:39 +02:00
if self._stuck then
-- If _stucktimer is missing for some reason, assume the maximum
if not self._stucktimer then
self._stucktimer = ARROW_TIMEOUT
2018-05-09 17:31:04 +02:00
end
2024-05-23 00:54:39 +02:00
out.stuckstarttime = minetest.get_gametime ( ) - self._stucktimer
end
2018-05-09 17:31:04 +02:00
2024-05-23 00:54:39 +02:00
if self._shooter and self._shooter : is_player ( ) then
out.shootername = self._shooter : get_player_name ( )
end
return minetest.serialize ( out )
end ,
on_activate = function ( self , staticdata , dtime_s )
self.object : set_armor_groups ( { immortal = 1 } )
self._time_in_air = 1.0
local data = minetest.deserialize ( staticdata )
if not data then return end
-- Restore arrow state
local save_fields = self._save_fields
for i = 1 , # save_fields do
local field = save_fields [ i ]
self [ " _ " .. field ] = data [ field ]
end
2018-05-09 17:31:04 +02:00
2024-05-23 00:54:39 +02:00
if data.stuckstarttime then
-- First, check if the stuck arrow is aleady past its life timer.
-- If yes, delete it.
self._stucktimer = minetest.get_gametime ( ) - data.stuckstarttime
2018-05-09 15:10:56 +02:00
end
2018-05-09 17:31:04 +02:00
2024-05-23 00:54:39 +02:00
-- Perform a stuck recheck on the next step.
self._stuckrechecktimer = STUCK_RECHECK_TIME
2018-05-08 17:16:11 +02:00
if data.shootername then
local shooter = minetest.get_player_by_name ( data.shootername )
if shooter and shooter : is_player ( ) then
self._shooter = shooter
end
end
2022-01-02 12:06:29 +01:00
if data.stuckin_player then
2024-08-31 00:40:01 +02:00
self._removed = true
2022-01-02 12:06:29 +01:00
self.object : remove ( )
end
2024-05-23 00:54:39 +02:00
end ,
2024-08-31 13:41:42 +02:00
}
-- Make the arrow entity available to other mods as a template
mcl_bows.arrow_entity = table.copy ( arrow_entity )
vl_projectile.register ( " mcl_bows:arrow_entity " , arrow_entity )
2018-05-08 17:16:11 +02:00
2022-01-02 12:06:29 +01:00
minetest.register_on_respawnplayer ( function ( player )
for _ , obj in pairs ( player : get_children ( ) ) do
local ent = obj : get_luaentity ( )
if ent and ent.name and string.find ( ent.name , " mcl_bows:arrow_entity " ) then
obj : remove ( )
end
end
end )
2017-07-26 19:35:56 +02:00
if minetest.get_modpath ( " mcl_core " ) and minetest.get_modpath ( " mcl_mobitems " ) then
minetest.register_craft ( {
2021-05-29 16:12:33 +02:00
output = " mcl_bows:arrow 4 " ,
2017-07-26 19:35:56 +02:00
recipe = {
2021-05-29 16:12:33 +02:00
{ " mcl_core:flint " } ,
{ " mcl_core:stick " } ,
{ " mcl_mobitems:feather " }
2017-07-26 19:35:56 +02:00
}
} )
end
2018-05-09 17:04:13 +02:00
2021-05-29 16:12:33 +02:00
if minetest.get_modpath ( " doc_identifier " ) then
2018-05-09 17:04:13 +02:00
doc.sub . identifier.register_object ( " mcl_bows:arrow_entity " , " craftitems " , " mcl_bows:arrow " )
end