Hydra lock on fire missiles

[Tron]

Hello out there,

https://imgur.com/a/Pkkdn

As you can see in the above link that the hydra lock appears when you lock via handbrake, but the problem is when you shoot the missiles it never kills the opponent. It reduces the hp of the opponent a bit. I wanted it so that the missiles have 90% chance of killing the opponent.

Here's the script of the lock on fire :

----User settings---

local SHOOT_COOLDOWN = 1500 --Cooldown between homing shots
local LOCKON_TIME = 1500 --Time required to lock on to a target
local LOCK_RANGE = 330 --Maximum distance between you and the target
local LOCK_ANGLE = 0.95 --(in radians) We cannot lock on targets unless they are within this angle of the front of the hydra
local VALID_TARGET_FUNCTION = function (vehicle) --Used to decide whether a vehicle should appear as a lock-on option
	-- local targetTeam = vehicle.controller and vehicle.controller.team
	-- local ourTeam = localPlayer.team
	-- if targetTeam and ourTeam and targetTeam == ourTeam then
		-- return false --The target vehicle has someone driving, and both of you are on the same team
	-- end
	return true
end

--[[
	to implement team tagging, or to disallow certain vehicles from being targetted, define the VALID_TARGET_FUNCTION
	VALID_TARGET_FUNCTION should take as parameter a vehicle, and return a boolean (true means it can be targetted)
	Here is an example of a function that will only let us target HYDRAS of OTHER TEAMS that are MORE THAN 50m AWAY and are DIRECTLY VISIBLE
	local VALID_TARGET_FUNCTION = function(vehicle)
		local targetTeam = vehicle.controller and vehicle.controller.team
		local ourTeam = localPlayer.team
		if targetTeam and ourTeam and targetTeam == ourTeam then
			return false --The target vehicle has someone driving, and both of you are on the same team
		end
		if vehicle.model ~= 520 then
			return false --Target is not a hydra, so it's not allowed
		end
		if (vehicle.position-localPlayer.position).length < 50 then
			return false --Closer than 50 metres
		end
		if not isLineOfSightClear(localPlayer.position, vehicle.position, true, false) then
			return false --Not directly visible
			--(Remember to account for your own vehicle and the target blocking the line)
		end
		return true --Target satisfied all criteria
	end
]]

local validTarget = VALID_TARGET_FUNCTION or function() return true end
LOCK_ANGLE = math.cos(LOCK_ANGLE)

local inHydra = false
local firestate = nil
local visibleVehicle = {}
local targetVehicle = nil
local nearbyVehicles = {}
getNearbyVehicles = function() return nearbyVehicles end --Used by other files
local currentHydra = nil

local function getTarget()
	-- Look for the nearest targets and lock on
	local nearestVehicle = nil
	local shortestDistance = LOCK_RANGE

	for _, vehicle in ipairs(nearbyVehicles) do
		local targPos = vehicle.position
		local myPos = localPlayer.position
		local displacement = targPos-myPos
		local dist = displacement.length

		if vehicle ~= localPlayer.vehicle and  dist < shortestDistance then
			shortestDistance = dist
			nearestVehicle = vehicle
		end
	end
	return nearestVehicle
end

local function checkForLockout(vehicle)
	if visibleVehicle[vehicle] then
		triggerEvent("onClientHydraMissilesSystemLockout", localPlayer, vehicle)
		visibleVehicle[vehicle] = nil
		lockedVehicle = nil
		targetVehicle = nil
	end
end

local lastShot = SHOOT_COOLDOWN*-2
local function shootMissile()
	if not inHydra then
		return
	end
	local target = lockedVehicle
	if not target or getTickCount() < lastShot + SHOOT_COOLDOWN then
		return
	end
	lastShot = getTickCount()
	local hydra = localPlayer.vehicle
	local vX, vY, vZ = hydra.velocity
	-- Shoot missile
	createProjectile( hydra, 20, hydra.position, 5000, target, _, _, _, vX+5000, vY, vZ)
  --  dxDrawText ( playerZoneName, 44, screenHeight - 43, screenWidth, screenHeight, tocolor ( 255, 255, 255, 255 ), 1, "pricedown" ) DRAW WARNING ON PLAYER SCREEN
	lockedVehicle = nil
	targetVehicle = nil
	visibleVehicle[target] = nil
end



local function update()
	local curtime = getTickCount()
	if not localPlayer.vehicle then --idk why, but sometimes the player has no vehicle sometime before vehicle exit event is fired
		stopHydra() --The Avengers
		return
	end

	local vehicle = targetVehicle
	if not vehicle then return end
	local visibleNow = false
	if vehicle ~= localPlayer.vehicle and not vehicle.blown and validTarget(vehicle) then
		local targPos = vehicle.position
		local myPos = localPlayer.position
		local displacement = targPos-myPos
		local dist = displacement.length
		local cosAngle = localPlayer.vehicle.matrix.forward:dot(displacement)/dist
		if dist < LOCK_RANGE and cosAngle>LOCK_ANGLE and firestate then
			local aX, aY = getScreenFromWorldPosition(targPos)
			if (aX and aY) then
				visibleNow = true
				--Draw the corners of the target box outline
				if lockedVehicle == vehicle then
					dxDrawImage (aX-118,aY-118, 246, 246, 'lock.png')
				else
					dxDrawImage (aX-118, aY-118, 246, 246, 'lock2.png')
				end
			end
		end
	end

	if not visibleNow then
		checkForLockout()
	elseif visibleVehicle[vehicle] then
		if curtime - visibleVehicle[vehicle] > LOCKON_TIME then
			lockedVehicle = vehicle
		end
	else
		visibleVehicle[vehicle] = curtime
	end
end


local function homingState(key,state)
	if not inHydra then return end
	if state == "down" then
		targetVehicle = getTarget()
		firestate = isControlEnabled("vehicle_secondary_fire")
		toggleControl("vehicle_secondary_fire",false)
		bindKey("vehicle_secondary_fire","down",shootMissile)
                
	else
		targetVehicle = nil
		lockedVehicle = nil
		toggleControl("vehicle_secondary_fire",firestate)
		firestate = nil
		unbindKey("vehicle_secondary_fire","down",shootMissile)
	end
end

local function vehicleGoneHandler() --This also triggers on localPlayer's vehicle, and does nothing to it
	removeEventHandler("onClientElementDestroy", source, vehicleGoneHandler)
	removeEventHandler("onClientElementStreamOut", source, vehicleGoneHandler)
	if getElementType( source ) == "vehicle" then
		for i, v in ipairs(nearbyVehicles) do
			if v == source then
				checkForLockout(source)
				table.remove(nearbyVehicles, i)
				return
			end
		end
	end
end

local function prepAfterStreamIn(vehicle)
	addEventHandler("onClientElementStreamOut", vehicle, vehicleGoneHandler)
	addEventHandler("onClientElementDestroy", vehicle, vehicleGoneHandler)
end

local function streamInHandler()
	if getElementType( source ) == "vehicle" then
		table.insert(nearbyVehicles, source)
		prepAfterStreamIn(source)
	end
end


local function startHydra(vehicle)
	if not inHydra and vehicle and isElement(vehicle) and vehicle.model == 520 then
		nearbyVehicles = getElementsByType("vehicle", root, true)
		for i, v in ipairs(nearbyVehicles) do
			prepAfterStreamIn(v)
		end
		addEventHandler("onClientElementStreamIn", root, streamInHandler)
		addEventHandler("onClientVehicleExplode", vehicle, stopHydra)
		addEventHandler("onClientElementDestroy", vehicle, stopHydra)
		addEventHandler("onClientElementStreamOut", vehicle, stopHydra) --Is this even possible?
		inHydra = isControlEnabled("handbrake")
		currentHydra = vehicle --To remove the listeners later
		toggleControl("handbrake", false)
		bindKey("handbrake","down",homingState)
		bindKey("handbrake","up",homingState)
		addEventHandler( "onClientRender", root,  update)
	end
end

function stopHydra()
	if inHydra then
		local target = getTarget()
		for i, v in ipairs(nearbyVehicles) do
			if v ~= target then
				removeEventHandler("onClientElementDestroy", v, vehicleGoneHandler)
				removeEventHandler("onClientElementStreamOut", v, vehicleGoneHandler)
				checkForLockout(v)
			end
		end
		checkForLockout(target)
		if target then
			removeEventHandler("onClientElementDestroy", target, vehicleGoneHandler)
			removeEventHandler("onClientElementStreamOut", target, vehicleGoneHandler)
		end
		removeEventHandler("onClientRender", root, update)
		unbindKey("handbrake","down",homingState)
		unbindKey("handbrake","up",homingState)
		if firestate ~= nil then
			homingState("handbrake","up")
		end
		local vehicle = currentHydra
		currentHydra = nil
		toggleControl("handbrake", inHydra)
		inHydra = false
		removeEventHandler("onClientElementStreamIn", root, streamInHandler)
		if isElement(vehicle) then
			removeEventHandler("onClientVehicleExplode", vehicle, stopHydra)
			removeEventHandler("onClientElementDestroy", vehicle, stopHydra)
			removeEventHandler("onClientElementStreamOut", vehicle, stopHydra)
		end
	end
end

local function initScript()
	if localPlayer.vehicle and localPlayer.vehicle.model == 520 then
		startHydra(localPlayer.vehicle)
	end
	addEventHandler("onClientResourceStop", resourceRoot, stopHydra)
	addEventHandler("onClientPlayerVehicleExit",localPlayer,stopHydra)
	addEventHandler("onClientPlayerWasted",localPlayer,stopHydra)
	addEventHandler("onClientPlayerVehicleEnter",localPlayer,startHydra)
end

addEventHandler("onClientResourceStart",resourceRoot,initScript)

 

Edited March 7, 2018 by Tron

[Mr.Loki]

addEventHandler( "onClientVehicleDamage", root, function( att, dtype )
	if att and att.target and att.target == localPlayer then
		if source.controller == localPlayer and localPlayer.vehicle.model == 520 then
			local chance = math.random(100) <= 90 and true or false
			if chance and dtype == 20 then
				blowVehicle( localPlayer.vehicle ) -- you might not want to use this if you want to see who killed the player
			end
		end
	end
end )

Just an idea (Not tested)

[Tron]

There's a error in the script at line 93

https://imgur.com/a/V5VWH

Edited March 9, 2018 by Tron