scriptContent.lua

--[[
    Main file for handling ped animations and sequences only there to be expanded upon
]]
local mapPedSequences = {}
local markerPeds = {}

function mapPlaySequenceOnPed(sequenceData, ped)
	if not sequenceData then
		return
	end

	if not isElement(ped) then
		return
	end

	local frames = sequenceData.frames or sequenceData
	local loopSequence = sequenceData.loopSequence or false

	if not frames or #frames == 0 then
		return
	end

	playSequenceForPed(ped, frames, loopSequence)
end

function isSequencePlayingOnPed(ped)
	return mapPedSequences[ped] ~= nil
end

function stopSequenceForPed(ped)
	if mapPedSequences[ped] then
		if isTimer(mapPedSequences[ped].timer) then
			killTimer(mapPedSequences[ped].timer)
		end
		mapPedSequences[ped] = nil
	end
end

function playSequenceForPed(ped, sequence, loopSequence)
	if not isElement(ped) or not sequence or #sequence == 0 then
		return
	end

	stopSequenceForPed(ped)

	mapPedSequences[ped] = {
		sequence = sequence,
		currentIndex = 1,
		lastProgress = 0,
		loopSequence = loopSequence or false,
		timer = nil,
	}

	mapPedSequences[ped].timer = setTimer(checkAnimationProgressForPed, getFPSLimit() or 50, 0, ped)

	playNextAnimationForPed(ped)
end

function checkAnimationProgressForPed(ped)
	if not mapPedSequences[ped] or not isElement(ped) then
		stopSequenceForPed(ped)
		return
	end

	local state = mapPedSequences[ped]
	local currentProgress = getPedAnimationProgress(ped)
	local frame = state.sequence[state.currentIndex]

	if currentProgress == -1 then
		state.currentIndex = state.currentIndex + 1
		if state.currentIndex > #state.sequence then
			if state.loopSequence then
				state.currentIndex = 1
			else
				stopSequenceForPed(ped)
				state.lastProgress = currentProgress
				return
			end
		end
		playNextAnimationForPed(ped)
	end

	state.lastProgress = currentProgress
end

function playNextAnimationForPed(ped)
	if not mapPedSequences[ped] or not isElement(ped) then
		return
	end

	local state = mapPedSequences[ped]

	if state.currentIndex > #state.sequence and not state.loopSequence then
		stopSequenceForPed(ped)
		return
	elseif state.currentIndex > #state.sequence and state.loopSequence then
		state.currentIndex = 1
	end

	local frame = state.sequence[state.currentIndex]

	setPedAnimation(
		ped,
		frame.category,
		frame.animation,
		-1,
		frame.loop,
		frame.updatePosition,
		frame.interruptable,
		frame.freezeLastFrame,
		250
	)
end

function createPedFromData(anim, startAnimation)
	local ped = createPed(anim.id, anim.x, anim.y, anim.z, anim.rz or 0.0)
	if not ped then
		return nil
	end

	setElementFrozen(ped, true)
	setElementDimension(ped, getElementDimension(localPlayer))
	anim.pedElement = ped

	if startAnimation then
		if anim.type == "sequence" and anim.sequenceName then
			local filePath = "anim_sequences/" .. anim.sequenceName .. ".json"
			local file = fileOpen(filePath)
			if file then
				local content = fileRead(file, fileGetSize(file))
				fileClose(file)
				local sequenceData = fromJSON(content)
				if sequenceData then
					mapPlaySequenceOnPed(sequenceData, ped)
				end
			end
		else
			setPedAnimation(
				ped,
				anim.category,
				anim.animation,
				-1,
				anim.loop,
				anim.updatePosition,
				anim.interruptable,
				anim.freezeLastFrame
			)
		end
	end

	if anim.giveWeapon then
		giveWeapon(ped, getWeaponIDFromName(anim.weapon) or 22, anim.ammo or 9999, true)
	end
	if anim.setAimTarget then
		setPedAimTarget(ped, anim.aimX or 0.0, anim.aimY or 0.0, anim.aimZ or 0.0)
	end

	return ped
end

function createMarkersForPeds(animatedPeds)
	local markersCreated = {}

	for _, anim in ipairs(animatedPeds) do
		if anim.markerData and anim.triggerMarker and not markersCreated[anim.triggerMarker] then
			local marker = createMarker(
				anim.markerData.x,
				anim.markerData.y,
				anim.markerData.z,
				anim.markerData.markerType or "cylinder",
				anim.markerData.size or 1.0,
				255,
				0,
				0,
				100
			)

			if marker then
				anim.markerElement = marker
				markersCreated[anim.triggerMarker] = true
			end
		end
	end
end

function createBatchApplyAnimations(animatedPeds)
	for _, anim in ipairs(animatedPeds) do
		local startAnimation = not anim.triggerMarker
		createPedFromData(anim, startAnimation)
	end
end

function playAnimationForPedsOnMarkerHit(markerElement)
	if not isElement(markerElement) then
		return
	end

	for i, anim in ipairs(animatedPeds) do
		if anim.markerElement == markerElement then
			local ped = anim.pedElement

			if ped and isElement(ped) and getElementType(ped) == "ped" then
				stopSequenceForPed(ped)
				setElementFrozen(ped, false)

				if anim.type == "sequence" and anim.sequenceName then
					local filePath = "anim_sequences/" .. anim.sequenceName .. ".json"
					local file = fileOpen(filePath)
					if file then
						local content = fileRead(file, fileGetSize(file))
						fileClose(file)
						local sequenceData = fromJSON(content)
						if sequenceData then
							mapPlaySequenceOnPed(sequenceData, ped)
							if not markerPeds[markerElement] then
								markerPeds[markerElement] = {}
							end
							table.insert(markerPeds[markerElement], ped)
						end
					end
				else
					setPedAnimation(
						ped,
						anim.category,
						anim.animation,
						-1,
						anim.loop,
						anim.updatePosition,
						anim.interruptable,
						anim.freezeLastFrame,
						250,
						false
					)
					if not markerPeds[markerElement] then
						markerPeds[markerElement] = {}
					end
					table.insert(markerPeds[markerElement], ped)
				end
			end
		end
	end
end

function stopAnimationForPedsOnMarkerLeave(markerElement)
	if not markerPeds[markerElement] then
		return
	end

	for _, ped in ipairs(markerPeds[markerElement]) do
		if isElement(ped) then
			stopSequenceForPed(ped)
			setPedAnimation(ped)
			setElementFrozen(ped, true)
		end
	end

	markerPeds[markerElement] = nil
end

function cleanupBatchApplyAnimations()
	for ped, _ in pairs(mapPedSequences) do
		if isElement(ped) then
			stopSequenceForPed(ped)
		end
	end

	for _, anim in ipairs(animatedPeds) do
		if anim.pedElement and isElement(anim.pedElement) then
			stopSequenceForPed(anim.pedElement)
			destroyElement(anim.pedElement)
			anim.pedElement = nil
		end

		if anim.markerElement and isElement(anim.markerElement) then
			destroyElement(anim.markerElement)
			anim.markerElement = nil
		end
	end

	markerPeds = {}
	mapPedSequences = {}
end

addEventHandler("onClientResourceStart", resourceRoot, function()
	setTimer(function()
		createMarkersForPeds(animatedPeds)
		createBatchApplyAnimations(animatedPeds)
	end, 100, 1)
end)

addEventHandler("onClientResourceStop", resourceRoot, function()
	cleanupBatchApplyAnimations()
end)

addEventHandler("onClientMarkerHit", root, function(player)
	if player == localPlayer then
		playAnimationForPedsOnMarkerHit(source)
	end
end)

addEventHandler("onClientMarkerLeave", root, function(player)
	--if player == localPlayer then
	--	stopAnimationForPedsOnMarkerLeave(source)
	--end
end)

addEventHandler("onClientPlayerWasted", localPlayer, function()
	cleanupBatchApplyAnimations()
	setTimer(function()
		createMarkersForPeds(animatedPeds)
		createBatchApplyAnimations(animatedPeds)
	end, 100, 1)
end)