saveloadpeds_server.lua

local currentMapName = nil
local scriptContent = [[
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)
]]

addEventHandler("onResourceStart", resourceRoot, function()
	-- Sadly have to delay this a bit to ensure everything is loaded
	setTimer(function()
		if not currentMapName and exports.editor_main:getCurrentMapName() then
			currentMapName = exports.editor_main:getCurrentMapName()
			loadPedsFromLua()
		else
			local filePath = "data/lastMapName.json"
			local file = fileOpen(filePath)
			if file then
				local size = fileGetSize(file)
				local content = fileRead(file, size)
				fileClose(file)
				local data = fromJSON(content)
				if data and data.lastMapName then
					currentMapName = data.lastMapName
					loadPedsFromLua()
				end
			end
		end
	end, 50, 1)

	addEvent("onNewMap")
	addEventHandler("onNewMap", root, function(mapName)
		currentMapName = mapName
		appliedAnimations = {}
		triggerClientEvent(root, "onReceiveAppliedAnimationsFromServer", root, appliedAnimations)
		for _, ped in ipairs(getElementsByType("ped")) do
			if getElementID(ped) and getElementID(ped):find("^pas") then
				destroyElement(ped)
			end
		end
	end)

	addEvent("onMapOpened")
	addEventHandler("onMapOpened", root, function(mapName)
		currentMapName = getResourceName(mapName)

		for _, ped in ipairs(getElementsByType("ped")) do
			if getElementID(ped) and getElementID(ped):find("^pas") then
				destroyElement(ped)
			end
		end

		loadPedsFromLua()

		local filePath = "data/lastMapName.json"
		local file = fileCreate(filePath)
		if file then
			local jsonData = toJSON({ lastMapName = currentMapName })
			fileWrite(file, jsonData)
			fileClose(file)
		end
	end)

	addEvent("saveResource", true)
	addEventHandler("saveResource", root, function(resName)
		if exports.editor_main:getCurrentMapName() then
			currentMapName = exports.editor_main:getCurrentMapName()
		end
		triggerClientEvent(root, "onServerRequestAppliedAnimations", root)
	end)

	addEvent("quickSaveResource", true)
	addEventHandler("quickSaveResource", root, function(resName)
		if exports.editor_main:getCurrentMapName() then
			currentMapName = exports.editor_main:getCurrentMapName()
		end
		triggerClientEvent(root, "onServerRequestAppliedAnimations", root)
	end)

	addEvent("onReceiveAppliedAnimationsForSave", true)
	addEventHandler("onReceiveAppliedAnimationsForSave", root, function(receivedAnimations)
		outputDebugString("Received appliedAnimations: " .. tostring(receivedAnimations))
		appliedAnimations = receivedAnimations or {}
		savePedsToLua(appliedAnimations)
		copySequenceJsonFiles(appliedAnimations)
		addScriptNodeToMeta(appliedAnimations)
	end)
end)

function copySequenceJsonFiles(animations)
	if not currentMapName then
		outputDebugString("[PAS] ERROR: currentMapName is nil, cannot copy files", 1)
		return
	end

	for i, anim in ipairs(animations) do
		if anim.type == "sequence" and anim.sequenceName then
			local sourcePath = ":"
				.. getResourceName(getThisResource())
				.. "/anim_sequences/"
				.. anim.sequenceName
				.. ".json"
			local destPath = ":" .. currentMapName .. "/anim_sequences/" .. anim.sequenceName .. ".json"

			if fileExists(sourcePath) then
				if fileExists(destPath) then
					fileDelete(destPath)
				end
				fileCopy(sourcePath, destPath)
			else
				outputDebugString("[PAS] WARNING: Sequence JSON not found: " .. sourcePath, 2)
			end
		end
	end
end

function savePedsToLua(animations)
	local path = ":" .. currentMapName .. "/pedAnimationSequencer.lua"
	local file = fileCreate(path)
	if file then
		local text = "local animatedPeds = {\n"
		for _, data in ipairs(animations) do
			local markerDataStr = "nil"
			if data.markerData then
				markerDataStr = string.format(
					'{id = "%s", x = %.2f, y = %.2f, z = %.2f, size = %.2f, markerType = "%s"}',
					data.markerData.id or "",
					data.markerData.x or 0,
					data.markerData.y or 0,
					data.markerData.z or 0,
					data.markerData.size or 1.0,
					data.markerData.markerType or "cylinder"
				)
			end

			if data.type == "sequence" then
				text = text
					.. string.format(
						'   {type = "sequence", sequenceName = "%s", name = "%s", id = %d, x = %.2f, y = %.2f, z = %.2f, rz = %.2f, category = "%s", animation = "%s", loop = %s, updatePosition = %s, interruptable = %s, freezeLastFrame = %s, ammo = %d, giveWeapon = %s, weapon = "%s", setAimTarget = %s, aimX = %.2f, aimY = %.2f, aimZ = %.2f, triggerMarker = %s, markerData = %s},\n',
						data.sequenceName,
						tostring(data.name:gsub("[%s%(%)]+", "")),
						data.id,
						data.x,
						data.y,
						data.z,
						data.rz,
						data.category,
						data.animation,
						tostring(data.loop),
						tostring(data.updatePosition),
						tostring(data.interruptable),
						tostring(data.freezeLastFrame),
						data.ammo or 0,
						tostring(data.giveWeapon),
						data.weapon or "",
						tostring(data.setAimTarget),
						data.aimX or 0,
						data.aimY or 0,
						data.aimZ or 0,
						data.triggerMarker and string.format('"%s"', data.triggerMarker) or "nil",
						markerDataStr
					)
			else
				text = text
					.. string.format(
						'   {name = "%s", id = %d, x = %.2f, y = %.2f, z = %.2f, rz = %.2f, category = "%s", animation = "%s", loop = %s, updatePosition = %s, interruptable = %s, freezeLastFrame = %s, ammo = %d, giveWeapon = %s, weapon = "%s", setAimTarget = %s, aimX = %.2f, aimY = %.2f, aimZ = %.2f, triggerMarker = %s, markerData = %s},\n',
						tostring(data.name:gsub("[%s%(%)]+", "")),
						data.id,
						data.x,
						data.y,
						data.z,
						data.rz,
						data.category,
						data.animation,
						tostring(data.loop),
						tostring(data.updatePosition),
						tostring(data.interruptable),
						tostring(data.freezeLastFrame),
						data.ammo or 0,
						tostring(data.giveWeapon),
						data.weapon or "",
						tostring(data.setAimTarget),
						data.aimX or 0,
						data.aimY or 0,
						data.aimZ or 0,
						data.triggerMarker and string.format('"%s"', data.triggerMarker) or "nil",
						markerDataStr
					)
			end
		end

		fileWrite(file, text .. "}" .. "\n\n" .. scriptContent)
		fileClose(file)
		return true
	else
		return false
	end
end

function addScriptNodeToMeta(animations)
	local metaPath = ":" .. currentMapName .. "/meta.xml"
	if not fileExists(metaPath) then
		return false
	end

	local file = fileOpen(metaPath)
	if not file then
		return false
	end

	local size = fileGetSize(file)
	local content = fileRead(file, size)
	fileClose(file)

	local modified = false

	if not content:find("pedAnimationSequencer.lua", 1, true) then
		local scriptNode = '    <script src="pedAnimationSequencer.lua" type="client" />'
		content = content:gsub("</meta>", scriptNode .. "\n</meta>")
		modified = true
	end

	for _, anim in ipairs(animations) do
		if anim.type == "sequence" and anim.sequenceName then
			local jsonFileName = anim.sequenceName .. ".json"
			if not content:find(jsonFileName, 1, true) then
				local fileNode = '    <file src="anim_sequences/' .. jsonFileName .. '" />'
				content = content:gsub("</meta>", fileNode .. "\n</meta>")
				modified = true
			end
		end
	end

	if modified then
		local file = fileCreate(metaPath)
		if file then
			fileWrite(file, content)
			fileClose(file)
			outputDebugString("[PAS] Updated meta with script and sequence files", 4, 100, 255, 100)
			return true
		end
	else
		outputDebugString("[PAS] meta and script already up to date, no changes needed", 4, 100, 255, 100)
	end
	return true
end

function loadPedsFromLua()
	local path = ":" .. currentMapName .. "/pedAnimationSequencer.lua"
	if not fileExists(path) then
		return
	end
	local file = fileOpen(path)
	if file then
		local size = fileGetSize(file)
		local content = fileRead(file, size)
		fileClose(file)
		local tableChunk = content:match("local%s+animatedPeds%s*=%s*(%b{})")
		if tableChunk then
			local func = loadstring("return " .. tableChunk)
			if func then
				local ok, data = pcall(func)
				if ok and type(data) == "table" then
					appliedAnimations = data
					outputDebugString("[PAS] Loaded " .. #appliedAnimations .. " animations from map", 4, 100, 255, 100)
				else
					appliedAnimations = {}
				end
			else
				appliedAnimations = {}
			end
		else
			appliedAnimations = {}
		end
	else
		appliedAnimations = {}
	end
	triggerClientEvent(root, "onReceiveAppliedAnimationsFromServer", root, appliedAnimations)
end