spears/functions.lua

function spears_throw (itemstack, player, pointed_thing)
	local spear = itemstack:get_name() .. '_entity'
	local player_pos = player:get_pos()
	local head_pos = vector.new(player_pos.x, player_pos.y + player:get_properties().eye_height, player_pos.z)
	local direction = player:get_look_dir()
	local throw_pos = vector.add(head_pos, vector.multiply(direction,0.5))
	local pitch = player:get_look_vertical()
	local yaw = player:get_look_horizontal()
	local rotation = vector.new(0, yaw + math.pi/2, pitch + math.pi/6)
	local wear = itemstack:get_wear()
	local pointed_a = pointed_thing.above
	local pointed_b = pointed_thing.under	
	if pointed_thing.type == "node" and vector.distance(pointed_a, throw_pos) < 1 then -- Stick into node
		local node = minetest.get_node(pointed_b)
		local check_node = spears_check_node(node.name)
		if check_node == SPEARS_NODE_UNKNOWN then
			return false
		elseif check_node == SPEARS_NODE_CRACKY then
			minetest.sound_play("default_metal_footstep", {pos = pointed_a}, true)
			return false
		elseif check_node == SPEARS_NODE_STICKY then
			local spear_object = minetest.add_entity(vector.divide(vector.add(vector.multiply(pointed_a, 2), pointed_b), 3), spear)
			spear_object:set_rotation(rotation)
			spear_object:get_luaentity()._wear = wear
			spear_object:get_luaentity()._stickpos = pointed_b
			minetest.sound_play("default_place_node", {pos = pointed_a}, true)
			return false
		end
	else -- Avoid hitting yourself and throw
		local throw_speed = SPEARS_THROW_SPEED
		while vector.distance(player_pos, throw_pos) < 1.2 do
			throw_pos = vector.add(throw_pos, vector.multiply(direction, 0.1))
		end
		local player_vel = player:get_velocity()
		local spear_object = minetest.add_entity(throw_pos, spear)
		spear_object:set_velocity(vector.add(player_vel, vector.multiply(direction, throw_speed)))
		spear_object:set_rotation(rotation)
		minetest.sound_play("spears_throw", {pos = player_pos}, true)
		spear_object:get_luaentity()._wear = wear
		spear_object:get_luaentity()._stickpos = nil
		return true
	end
end

function spears_set_entity(spear_type, base_damage, toughness)
	local SPEAR_ENTITY={
		initial_properties = {
			physical = false,
			visual = "item",
			visual_size = {x = 0.3, y = 0.3, z = 0.3},
			wield_item = "spears:spear_" .. spear_type,
			collisionbox = {-0.3, -0.3, -0.3, 0.3, 0.3, 0.3},
			lastpos={},
		},

		on_activate = function (self, staticdata, dtime_s)
			self.object:set_armor_groups({immortal = 1})
		end,
		
		on_punch = function (self, puncher)
			if puncher:is_player() then -- Grab the spear
				local stack = {name='spears:spear_' .. spear_type, wear = self._wear}
				local inv = puncher:get_inventory()
				if inv:room_for_item("main", stack) then
					inv:add_item("main", stack)
					self.object:remove()
				end
			end
		end,

		on_step = function(self, dtime)
			local wear = self._wear
			if wear == nil then
				self.object:remove()
				return false
			end
			local pos = self.object:get_pos()
			local velocity = self.object:get_velocity()
			local speed = vector.length(velocity)
			if self._stickpos ~= nil then -- Spear is stuck
				local node = minetest.get_node(self._stickpos)
				local check_node = spears_check_node(node.name)
				if check_node ~= SPEARS_NODE_STICKY then -- Fall when node is removed
					self.object:remove()
					minetest.add_item(pos, {name='spears:spear_' .. spear_type, wear = wear})
					return false
				end
			else -- Spear is flying
				local direction = vector.normalize(velocity)
				local yaw = minetest.dir_to_yaw(direction)
				local pitch = math.acos(velocity.y/speed) - math.pi/3
				local spearhead_pos = vector.add(pos, vector.multiply(direction, 0.5))
				self.object:set_rotation({x = 0, y = yaw + math.pi/2, z = pitch})
				-- Hit someone?
				local objects_in_radius = minetest.get_objects_inside_radius(spearhead_pos, 0.6)
				for _,object in ipairs(objects_in_radius) do
					if object:get_luaentity() ~= self and object:get_armor_groups().fleshy then
						local damage = (speed + base_damage)^1.15 - 20
						object:punch(self.object, 1.0, {full_punch_interval = 1.0, damage_groups = {fleshy=damage},}, direction)
						self.object:remove()
						minetest.sound_play("spears_hit", {pos = pos}, true)
						wear = spears_wear(wear, toughness)
						minetest.add_item(pos, {name='spears:spear_' .. spear_type, wear = wear})
						return true
					end
				end
				-- Hit a node?
				local node = minetest.get_node(spearhead_pos)
				local check_node = spears_check_node(node.name)
				if check_node == SPEARS_NODE_UNKNOWN then
					self.object:remove()
					minetest.add_item(pos, {name='spears:spear_' .. spear_type, wear = wear})
				elseif check_node ~= SPEARS_NODE_THROUGH then
					wear = spears_wear(wear, toughness)
					if wear >= 65535 then
						minetest.sound_play("default_tool_breaks", {pos = pos}, true)
						self.object:remove()
						minetest.add_item(pos, {name='defaut:stick'})
						return false
					elseif check_node == SPEARS_NODE_CRACKY then
						minetest.sound_play("default_metal_footstep", {pos = pos}, true)
						self.object:remove()
						minetest.add_item(pos, {name='spears:spear_' .. spear_type, wear = wear})
						return false
					elseif check_node == SPEARS_NODE_STICKY then
						self.object:set_acceleration(SPEARS_V_ZERO)
						self.object:set_velocity(SPEARS_V_ZERO)
						minetest.sound_play("default_place_node", {pos = pos}, true)
						self._stickpos = spearhead_pos
						self._wear = wear
					end
				else -- Get drag
					local viscosity = minetest.registered_nodes[node.name].liquid_viscosity
					local drag = math.max(viscosity, SPEARS_DRAG_COEFF)
					local acceleration = vector.multiply(velocity, -drag)
					acceleration.y = acceleration.y - 10 * ((7 - drag) / 7)
					self.object:set_acceleration(acceleration)
				end
			end
		end,
	}
	return SPEAR_ENTITY
end

function spears_check_node(node_name)
	local node = minetest.registered_nodes[node_name]
	if node == nil then
		return SPEARS_NODE_UNKNOWN
	elseif node.groups.cracky ~= nil and node.groups.cracky < SPEARS_NODE_CRACKY_LIMIT then
		return SPEARS_NODE_CRACKY
	elseif node.walkable and not node.buildable then
		return SPEARS_NODE_STICKY
	else
		return SPEARS_NODE_THROUGH
	end
end

function spears_wear(initial_wear, toughness)
	if not minetest.settings:get_bool("creative_mode") then
		local wear = initial_wear + 65535/toughness
		return wear
	else
		local wear = initial_wear
		return wear
	end
end