-- Scripted by @IlIl_ILovAltAccsHAHA / Unofficial Jay

-- Configs
local playbackSpeed = 1
local useCam = false
local filePath = "TAS_SavedActions.json" -- Exec- exclusive only. Sorry.

-- Services
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local UserGameSettings = UserSettings():GetService("UserGameSettings")
local HttpService = game:GetService("HttpService")

-- Variables
local player = Players.LocalPlayer
local plrGui = player:WaitForChild("PlayerGui")
local gui = Instance.new("ScreenGui", plrGui)
gui.Name = "ASDASDASD"
local cam = workspace.CurrentCamera
local char = player.Character or player.CharacterAdded:Wait()
local root = char:WaitForChild("HumanoidRootPart")
local humanoid = char:WaitForChild("Humanoid")
local SavedActions = {}
local recordingTAS = false
local recording = false
local playing = false
local playbackConnection -- store Heartbeat connection for disconnect
local playbackStartTime
local playbackBaseTime
local recordStartTime = 0
local RecordIndex = 0
local PlaybackIndex = 0
local fbState = {
	f = false,
	b = false
}



-- The main lane? THE MAIN LANE IS REEEEAAAAL!



-- Init player
local function InitPlr()
	char = player.Character or player.CharacterAdded:Wait()
	root = char:WaitForChild("HumanoidRootPart")
	humanoid = char:WaitForChild("Humanoid")
end
player.CharacterAdded:Connect(InitPlr)


-- The prompter prompt
local function Prompt(state)
	-- Create prompt
	local ui = Instance.new("TextBox", gui)
	ui.Size = UDim2.new(0.5, 0, 0.5, 0)
	ui.Position = UDim2.new(0.25, 0, 0.25, 0)
	ui.TextScaled = true
	
	ui:CaptureFocus()
	
	ui.FocusLost:Connect(function(ep)
		local text = ui.Text
		
		if ep then
			if not state then
				if text == "speed" then
					Prompt("speed")
				elseif text == "cam" then
					useCam = not useCam
				elseif text == "save" then
					pcall(function()
						local json = HttpService:JSONEncode(SavedActions)
						writefile("TAS_SavedActions.json", json)
					end)
				elseif text == "load" then
					pcall(function()
						local data = readfile("TAS_SavedActions.json")
						SavedActions = HttpService:JSONDecode(data)
					end)
				end
			elseif state == "speed" then
				if tonumber(text) then
					playbackSpeed = tonumber(text)
					print("Playback speed changed to " .. playbackSpeed)
				end
			end
		end
		
		ui:Destroy()
	end)
end



-- Save/load playuh actions
local function SaveActions()
	local lastTime = 0
	if #SavedActions > 0 then
		lastTime = SavedActions[#SavedActions].t
	end

	table.insert(SavedActions, {
		t = lastTime + RunService.Heartbeat:Wait(), -- approximate delta time
		cf = root.CFrame,
		vel = root.AssemblyLinearVelocity,
		angvel = root.AssemblyAngularVelocity,
		humsat = humanoid:GetState(),
		jump = humanoid.Jump,
		plat = humanoid.PlatformStand,
		sit = humanoid.Sit,
		camData = {
			ccf = cam.CFrame, -- actual camera rotation + position
			camType = cam.CameraType,
			focus = cam.Focus, -- target CFrame the camera is looking at
			offset = cam.CFrame.Position - cam.Focus.Position, -- approximate offset
			subject = cam.CameraSubject,
		}
	})
end


local function LoadAction(i)
	local action = SavedActions[i]
	if action then
		root.CFrame = action.cf
		root.AssemblyLinearVelocity = action.vel
		root.AssemblyAngularVelocity = action.angvel
		humanoid:ChangeState(action.humsat)
		humanoid.Jump = action.jump
		humanoid.PlatformStand = action.plat
		humanoid.Sit = action.sit
		--UserGameSettings.RotationType = action.lock and Enum.RotationType.CameraRelative or Enum.RotationType.MovementRelative
		if action.camData and useCam then
			local cd = action.camData
			cam.CFrame = cd.ccf
			cam.CameraType = cd.camType
			cam.Focus = cd.focus
		end
	end
end



-- Freeze/unfreeze player
local function Freeze()
	root.Anchored = true
	humanoid.AutoRotate = false
end

local function Unfreeze()
	root.Anchored = false
	humanoid.AutoRotate = true
end



-- Step forward/backward 1 frame
local function StepForward()
	RecordIndex += 1
	if RecordIndex > #SavedActions then
		RecordIndex -= 1
		return true
	end
	LoadAction(RecordIndex)
	print(RecordIndex)
	return false
end

local function StepBackward()
	RecordIndex -= 1
	if RecordIndex < 0 then
		RecordIndex += 1
		return true
	end
	LoadAction(RecordIndex)
	print(RecordIndex)
	return false
end



-- Trim actions
local function TrimActions(ind)
	RecordIndex = ind
	if ind < #SavedActions then
		for i = #SavedActions, ind + 1, -1 do
			table.remove(SavedActions, i)
		end
	end

	-- Rebase timestamps so first frame starts at 0
	if #SavedActions > 0 then
		local baseTime = SavedActions[1].t
		for i, action in ipairs(SavedActions) do
			action.t = action.t - baseTime
		end
		recordStartTime = os.clock() -- reset so new saves start from 0
	end
end



-- Step 1 frame
local function Step()
	TrimActions(RecordIndex)
	task.spawn(function()
		Unfreeze()
		task.wait()
		Freeze()
		RecordIndex += 1	
		SaveActions()
		print(RecordIndex)
	end)
end



-- Unusual step?
local function UsusalStep()
	for _ = 1, 5 do
		Step()
		task.wait()
	end
end



-- Play/stop playback
local function StopPlayback()
	if playbackConnection then
		playbackConnection:Disconnect()
		playbackConnection = nil
	end
	playing = false
	print("Playback stopped.")
end

local function StartPlayback()
	if #SavedActions == 0 then
		warn("No TAS to play!")
		return
	end
	if playing then return end

	print("Playback started.")
	playing = true
	PlaybackIndex = 1
	playbackStartTime = os.clock()

	playbackConnection = RunService.Heartbeat:Connect(function()
		if not playing then return end

		local elapsed = (os.clock() - playbackStartTime) * playbackSpeed
		while PlaybackIndex <= #SavedActions and SavedActions[PlaybackIndex].t <= elapsed do
			LoadAction(PlaybackIndex)
			PlaybackIndex += 1
		end

		if PlaybackIndex > #SavedActions then
			print("Playback finished.")
			StopPlayback()
		end
	end)
end



-- Input handler
UserInputService.InputBegan:Connect(function(inp, gp)
	if gp then return end
	inp = inp.KeyCode.Name:lower()
	
	if inp == "two" then
		recordingTAS = not recordingTAS
		if recordingTAS then
			print("Recording.")
			Freeze()
			
			if SavedActions then
				RecordIndex = #SavedActions
				LoadAction(#SavedActions)
			end
		else
			recording = false
			Unfreeze()
		end
	end
	
	if inp == "three" then
		if playing then
			StopPlayback()
		else
			recording = false
			Unfreeze()
			StartPlayback()
		end
	end
	
	if inp == "k" then
		Prompt()
	end
	
	if inp == "backspace" then
		RecordIndex = 0
		PlaybackIndex = 0
		SavedActions = {}
	end

	
	
	if not recordingTAS then return end
	
	
	if inp == "e" then
		recording = not recording
		if recording then
			TrimActions(RecordIndex)

			-- Reset recording clock
			recordStartTime = os.clock()
			for i, action in ipairs(SavedActions) do
				action.t = action.t - SavedActions[1].t
			end

			Unfreeze()
		else
			Freeze()
		end
	end
	
	if inp == "f" then
		StepBackward()
	end
	if inp == "g" then
		StepForward()
	end
	
	if inp == "r" then
		fbState["b"] = true
	end
	if inp == "t" then
		fbState["f"] = true
	end
	
	if inp == "v" then
		--TrimActions(RecordIndex)
		Step()
	end
	if inp == "c" then
		UsusalStep()
	end
end)
UserInputService.InputEnded:Connect(function(inp, gp)
	if gp then return end
	inp = inp.KeyCode.Name:lower()
	
	if inp == "r" then
		fbState["b"] = false
	end
	if inp == "t" then
		fbState["f"] = false
	end
end)



-- Loop
RunService.Heartbeat:Connect(function(dt)
	if recordingTAS then
		if recording then
			SaveActions()
			RecordIndex += 1
			print(RecordIndex)
		end

		if fbState["f"] then
			StepForward()
		elseif fbState["b"] then
			StepBackward()
		end
	end
	
	--print("Index:", Index)
end)