Replay

-- Settings
local ReplicateCursor = false -- set it to false if you want cursor in the middle
local FPS = 75.1 -- the fps that replay will play on

--[[
	REPLAYABILITY VERSION 1.7.3
	(unofficial)

	UPDATE INFO:
	- Added Count Frames
	- Added Start at frame
	- Dying and respawning during a replay is now supported
	- Uses the game's default gravity instead of 196.2 always


	CREDITS:
	Wally for the UI Library
	Dong for the original script
	Plusgiant5 for updating the script

	HOW TO USE IT?:
	https://www.youtube.com/watch?v=UvaeUzKmqMc&t=70s
]]

loadstring(game:HttpGet("https://raw.githubusercontent.com/plusgiant5/Libraries/main/loadstrings/anti.lua", false))()

-- Services
local ContextActionService = game:GetService("ContextActionService")
local VirtualInputManager = game:GetService("VirtualInputManager")
local UserInputService = game:GetService("UserInputService")
local HttpService = game:GetService("HttpService")
local StarterGui = game:GetService("StarterGui")
local RunService = game:GetService("RunService")
local Players = game:GetService("Players")
local CoreGui = game:GetService("CoreGui")

-- Player
local LocalPlayer = Players.LocalPlayer
local PlayerGui = LocalPlayer:WaitForChild("PlayerGui")
local PlayerScripts = LocalPlayer:WaitForChild("PlayerScripts")
local Mouse = LocalPlayer:GetMouse()
local Camera = workspace.CurrentCamera
local Character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
local HumanoidRootPart = Character:WaitForChild("HumanoidRootPart", 5)
local Humanoid = Character:WaitForChild("Humanoid", 5)
local ZoomMin = LocalPlayer.CameraMinZoomDistance
local ZoomMax = LocalPlayer.CameraMaxZoomDistance
local UseJumpPower = Humanoid.UseJumpPower
local OldJumpHeight = Humanoid.JumpHeight
local NewAnimate = game:GetObjects("rbxassetid://9326088902")[1]

-- Write
local WriteConnection
local PastCameraLocation = CFrame.new()
local PastLocation = CFrame.new()
local RunQueue = {}
local ClimbQueue = {}
local PastZoom = 0
local RecordStart = false -- When initially pressing "T", befor the input wait
local Writing = false -- When recording movement, after the input wait
local Saving = false -- When you have the dialogue option to save/not save a session
local Hooked = false -- When Humanoid is hooked for runspeed/climbspeed
local Dancing = false -- When you is are dancing
local LastMousePositionR = {} -- For setting mouse position after checkpoint
local LastMousePositionW = {} -- For recording ok
local SentDeadSignal = false -- So there is never 2 dead frames next to eachother

-- Read
local RunFunction
local ClimbFunction
local ReadConnection
local Reading = false -- When playing back a recording
local ReadStart = false -- When pressing the read button
local Abort = false  -- Temporary pause in playing
local FullAbort = false -- Permanent stop to playing
local ReadTable
local OldState = 0
local Index = 1
local CurrentZoom = 12.5
local Cursor -- Fake cursor!!
local UpdateZoom -- Zoom updating function
local PreviousRunSpeed -- For chatting/pausing/sounds
local PreviousClimbSpeed -- For sounds
local NonCollideTable = {} -- For bricks that are gonna be turned non collidable
local CursorMovement = true -- For first person/leaving first person cursor movement shit
local StartFrame = 1 -- Frame to start reading at, changed by the Start at frame: box

-- Other
local NormalMouseCursor = {
	Icon = "rbxasset://textures/Cursors/KeyboardMouse/ArrowFarCursor.png",
	Size = UDim2.new(0, 64, 0, 64)
}
local ShiftLockCursor = {
	Icon = "rbxasset://textures/MouseLockedCursor.png",
	Size = UDim2.new(0, 32, 0, 32)
}
local TempPath = ""
local PlaceId = tostring(game.PlaceId) -- tostring in order to access the files folder
local Folder = isfolder(PlaceId) or makefolder(PlaceId)
local CurrentSavePath = tostring(PlaceId).. "\\Testing.lua"
local CurrentSaveFile = isfile(CurrentSavePath)
local NotificationsBindable = Instance.new("BindableFunction")
local ShowNotifications = true
local IsOldShiftLock = false -- If the game uses an older playermodule, using contextactionservice for shiftlock will not work
local CycAnti = false
local UIShown = true
local Mode = "Write"
local DefaultGravity = workspace.Gravity -- Usually DefaultGravity but some games change it

-- Misc Stuff
if not CurrentSaveFile then
	writefile(CurrentSavePath, "[")
end

local ShiftLockAction = ContextActionService:GetAllBoundActionInfo()["MouseLockSwitchAction"]
if not ShiftLockAction then
	IsOldShiftLock = true
end

if not mouse1click then
	mouse1click = function() end
	mousemoveabs = function() end
end

_G.GlobalReading = function()
	return Reading
end

-- Functions
local function SendNotification(Message, Time, Func, B1, B2)
	if not ShowNotifications then return end
	NotificationsBindable.OnInvoke = Func
	StarterGui:SetCore("SendNotification", {
		Title = "Replayability",
		Text = Message,
		Duration = Time,
		Callback = NotificationsBindable,
		Button1 = B1,
		Button2 = B2
	})
end

local function RejoinGame(Response)
	if Response == "YES" then
		game:GetService("TeleportService"):Teleport(game.PlaceId)
	end
end

-- If ran twice
if Ran then
	SendNotification("Replayability is already running. Rejoin?", math.huge, RejoinGame, "YES", "NO")
	return
end

local function CanChangeMode()
	if Reading then
		return false
	elseif Writing then
		return false
	elseif Saving then
		return false
	end
	return true
end

local function Shorten(num) -- shortens a number to x digits after period
	if not num then return end
	local digits = 8
	return tostring(math.floor(num * 10 ^ digits) / (10 ^ digits))
end

local function MoveMouse(X, Y, IsCenter)
	if not ReplicateCursor then return end
	if IsCenter then
		X = Camera.ViewportSize.X/2
		Y = math.floor(Camera.ViewportSize.Y/2 - 36)
	end
	mousemoveabs(X, Y)
	VirtualInputManager:SendMouseMoveEvent(X, Y, workspace)
end

local function SetFakeCursorPosition(X, Y)
	if Cursor then
		local ToSubstract = Cursor.Image == NormalMouseCursor.Icon and 32 or 16
		Cursor.Position = UDim2.new(0, X - ToSubstract, 0, Y - ToSubstract)
	end
end

local function SendText(Str)
	VirtualInputManager:SendTextInputCharacterEvent(Str, workspace)
end

local function SendKey(KeyCode)
	VirtualInputManager:SendKeyEvent(true, KeyCode, false, workspace)
end

local function ToggleMouseLock()
	if IsOldShiftLock then
		SendKey(304) -- 304 is the keycode for leftshift. using virtualinputmanager now
	else
		ContextActionService:CallFunction("MouseLockSwitchAction", Enum.UserInputState.Begin, game)
	end
end

local function CheckMouseLock()
	if Mouse.Icon:match("MouseLockedCursor") then
		return true
	end
	return false
end

local function CFrameToTable(CF, IsVector3)
	local Old = {CF:GetComponents()}
	local New = {}
	for Index, Value in pairs(Old) do
		New[Index] = Shorten(Value)
	end
	return New
end

local function TableToCFrame(Tab)
	return CFrame.new(unpack(Tab))
end

local function WalkToPoint(Pos) -- Currently Unused
	Humanoid.WalkToPoint = Pos
	local Terminate = false
	delay(4, function()
		Terminate = true
	end)
	while RunService.Stepped:Wait() do
		if Terminate then break end
		local Magnitude = (HumanoidRootPart.Position - Pos).Magnitude
		if Magnitude <= 3 then
			break
		end
	end
	return
end

local function HookHumanoid()
	local RunConnection
	local ClimbConnection

	RunConnection = Humanoid.Running:Connect(function(Speed)
		if Writing then
			table.insert(RunQueue, #RunQueue + 1, Speed)
		end
	end)

	ClimbConnection = Humanoid.Climbing:Connect(function(Speed)
		if Writing then
			table.insert(ClimbQueue, #ClimbQueue + 1, Speed)
		end
	end)

	Humanoid.Died:Connect(function()
		if Reading then
			--FullAbort = true
		end
		RunConnection:Disconnect()
		ClimbConnection:Disconnect()
		RunConnection = nil
		ClimbConnection = nil
	end)
end

local function HookFreeFallFunction(Func) -- NOT USED ANYMORE!! MUAHAHAHAHAHAH!! I HAVE SEVERE MENTAL ILLNESS!!
	local function FallHandler(o, Bool)
		if Humanoid.FloorMaterial ~= Enum.Material.Air and Reading then
			if game.GameId == 1055653882 then -- if game is jtoh
				if not checkcaller() then -- if not synapse
					return -- Does not allow the function to be called if floor material isnt air
				end
			else
				return
			end
		end
		return o(Bool)
	end
	o1 = hookfunction(Func, function(Bool)
		return FallHandler(o1, Bool)
	end)
end

local function HookAnimFunction(Func)
	local o
	o = hookfunction(Func, function(Speed)
		if Reading and not checkcaller() then
			return -- Does not allow the function to be called if the game tries to play >: ( <-- forget it, i was high on smthn
		end
		return o(Speed)
	end)
end

local function TableCheck(Table) -- anti outmoon
	local TableMT = getrawmetatable(Table)
	if TableMT and type(rawget(TableMT, "__index")) == "table" then
		return true
	else
		return false
	end
end

local function GetAnimationFunctions(IsSecondTry)
	local oldanimate = Character:WaitForChild("Animate", 1)
	if oldanimate then
		oldanimate:Destroy()
	end
	local n = NewAnimate:Clone()
	n.Disabled = true
	n.Parent = game.Players.LocalPlayer.Character
	getfenv().script = n
	local r,e = loadstring(n.Source)
	if not r then
		error("ERROR IN NEWANIMATE: "..e)
	else
		r()
	end
	repeat
		wait()
		--print("Waiting:",_G.RunFunction,_G.ClimbFunction)
	until _G.RunFunction and _G.ClimbFunction
	RunFunction = _G.RunFunction
	ClimbFunction = _G.ClimbFunction
	_G.RunFunction = nil
	_G.ClimbFunction = nil
end

local function LoadCharacterSounds()
	for _, Table in pairs(getgc(true)) do
		if type(Table) == "table" then
			for Sound, Func in pairs(Table) do
				if typeof(Sound) == "Instance" then
					if Sound:IsA("Sound") and type(Func) == "function" then
						if Sound.Name == "Running" or Sound.Name == "Climbing" then
							local o = Table[Sound]
							if islclosure(o) then
								local Consts = debug.getconstants(o)
								local Script = getfenv(o).script
								if Script and typeof(Script) == "Instance" then
									if Script.Parent and Script.Name:match("Sounds") then
										if table.find(Consts, "Magnitude") then
											Table[Sound] = newcclosure(function(DT, Sound, Vel)
												local PreviousSpeed = (Sound.Name == "Running" and PreviousRunSpeed) or PreviousClimbSpeed
												if Reading and PreviousSpeed then
													Sound.Playing = PreviousSpeed > 0.5
												else
													return o(DT, Sound, Vel)
												end
											end)
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

local function WaitForInput()
	local CanReturn = false
	local Connection
	Connection = UserInputService.InputBegan:Connect(function(Input, GameProcessed)
		if not GameProcessed then
			CanReturn = true
			Connection:Disconnect()
			Connection = nil
		end
	end)
	repeat
		wait()
		if UserInputService.MouseBehavior ~= Enum.MouseBehavior.LockCenter and not CheckMouseLock() and LastMousePositionR[1] then
			MoveMouse(LastMousePositionR[1], LastMousePositionR[2])
		end
	until CanReturn
	return
end

local function SetCharacter()
	Character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
	HumanoidRootPart = Character:WaitForChild("HumanoidRootPart", 5)
	Humanoid = Character:WaitForChild("Humanoid", 5)
	assert(Humanoid and HumanoidRootPart, "Humanoid or HumanoidRootPart is missing!")
	GetAnimationFunctions()
	task.delay(1, LoadCharacterSounds)
	Hooked = false
end

-- Initial Checks/Variables setting
if LocalPlayer.Character:FindFirstChild("Animate") then
	LocalPlayer.Character.Animate:Destroy()
	for _,v in pairs(game.Players.LocalPlayer.Character.Humanoid:GetPlayingAnimationTracks()) do
		v:Stop()
	end
end
wait(.5)
GetAnimationFunctions()
task.delay(1, LoadCharacterSounds)
LocalPlayer.CharacterAdded:Connect(SetCharacter)

local ChatGui = PlayerGui:WaitForChild("Chat", 3) -- Replay will be paused/aborted if chat is typing, you can change how long you for it
local ChatBox
if ChatGui then
	ChatBox = ChatGui:WaitForChild("Frame"):WaitForChild("ChatBarParentFrame"):FindFirstChild("ChatBar", true)
	if ChatBox then
		ChatBox.Focused:Connect(function()
			if Cursor.Image ~= ShiftLockCursor.Icon and Reading then
				Cursor.Image = "rbxasset://textures/Cursors/KeyboardMouse/ArrowCursor.png"
				Cursor.Size = UDim2.new(0, 64, 0, 64)
			end
			Abort = true
		end)
		ChatBox.FocusLost:Connect(function()
			if Cursor.Image ~= ShiftLockCursor.Icon and Reading then
				Cursor.Image = NormalMouseCursor.Icon
				Cursor.Size = NormalMouseCursor.Size
			end
			Abort = false
		end)
	end
end

local function DoDanceClip()
	if ChatBox then
		SendText("/")
		local Rdm = math.random(15, 25)/100
		wait(Rdm/2)
		if ChatBox:IsFocused() then
			SendText("/e dance2")
		end
		wait(Rdm/2)
		SendKey(13) -- Enter key
		wait((2 + 1/6 + 1/6) - Rdm)
	end
end

LocalPlayer.Chatted:Connect(function(Msg) -- For /e dance2
	if Msg:match("/e dance2") then
		Dancing = true
	end
end)

UserInputService.InputBegan:Connect(function(Input, GameProcessed)
	if not GameProcessed and Reading then
		if Input.UserInputType == Enum.UserInputType.Keyboard then
			local Pressed = Input.KeyCode
			if Pressed == Enum.KeyCode.L then
				FullAbort = true
				SendNotification("Replay has been terminated.", 3)
			end
		end
	end
end)

local JTOHPlayerScripts = PlayerScripts:FindFirstChild("PlayerScripts")
if JTOHPlayerScripts then
	local Limiter = JTOHPlayerScripts:FindFirstChild("Framerate Limiter")
	if Limiter then
		Limiter.Disabled = true
	end
end

-- Cursor GUI
local CursorGui = Instance.new("ScreenGui")
if syn then
	syn.protect_gui(CursorGui)
end
CursorGui.Name = HttpService:GenerateGUID(false)
CursorGui.Parent = game:GetService("CoreGui")

Cursor = Instance.new("ImageLabel")
Cursor.Name = HttpService:GenerateGUID(false)
Cursor.Image = NormalMouseCursor.Icon
Cursor.Size = NormalMouseCursor.Size
Cursor.BorderSizePixel = 0
Cursor.BackgroundTransparency = 1
Cursor.Visible = false
Cursor.Parent = CursorGui

-- Zoom Functions
local Self -- Utilized for module zoom functions
local ZoomSpring
local EndLoop = false

local function ResetZoom()
	LocalPlayer.CameraMinZoomDistance = ZoomMin
	LocalPlayer.CameraMaxZoomDistance = ZoomMax
end

local function SetZoom(Studs)
	local SetToOne = false
	if (Studs < 1 and Studs > 0.51) or Studs < 0.49 then
		SetToOne = true
	end
	LocalPlayer.CameraMinZoomDistance = (SetToOne and 1) or Studs
	LocalPlayer.CameraMaxZoomDistance = (SetToOne and 1) or Studs
	ResetZoom()
end

for _, Table in pairs(getgc(true)) do -- Self Table
	if type(Table) == "table" then
		pcall(function()
			if TableCheck(Table) then
				if not Self then
					local ModuleFunction = Table.EnterFirstPerson
					if ModuleFunction and type(ModuleFunction) == "function" then
						local ModuleScript = getfenv(ModuleFunction).script
						if typeof(ModuleScript) == "Instance" then
							if ModuleScript.Name == "ClassicCamera" then
								Self = Table
							end
						end
					end
				end
				if not ZoomSpring then
					local ZoomMinValue = Table.minValue
					local ModuleFunction_2 = Table.Step
					if ZoomMinValue and ModuleFunction_2 and type(ModuleFunction_2) == "function" then
						local ModuleScript_2 = getfenv(ModuleFunction_2).script
						if typeof(ModuleScript_2) == "Instance" then
							if ModuleScript_2.Name == "ZoomController" then
								ZoomSpring = Table
							end
						end
					end
				end
			end
		end)
		if Self and ZoomSpring then
			break
		end
	end
end

assert(Self and ZoomSpring, "Table variable(s) could not be located.")

for _, Table in pairs(debug.getregistry()) do
	if type(Table) == "table" then
		if TableCheck(Table) then
			local ZoomFunc = Table.SetCameraToSubjectDistance -- Normal Zoom
			if ZoomFunc and type(ZoomFunc) == "function" then
				local ModuleScript = getfenv(ZoomFunc).script
				if typeof(ModuleScript) == "Instance" then
					if ModuleScript.Name == "BaseCamera" then
						UpdateZoom = function(Studs)
							CurrentZoom = Studs
							ZoomSpring.x = Studs or 12.5
							if Studs <= 0.52 and not Self.inFirstPerson then
								MoveMouse(nil, nil, true) -- DONG IDFK WHAT IM DOING MOMENT
								Self:EnterFirstPerson()
								CursorMovement = false
								MoveMouse(nil, nil, true)
								wait(0.1)
								mouse1click()
							elseif Studs > 0.52 and Self.inFirstPerson then
								Self:LeaveFirstPerson()
								CursorMovement = true
							end
							if Studs <= 0.52 or Studs >= 1 then
								return ZoomFunc(Self, Studs)
							end
						end
					end
				end
			end

			local PopperZoomFunc = Table.Update -- Poppercam Zoom
			if PopperZoomFunc and type(PopperZoomFunc) == "function" then
				local ModuleScript = getfenv(PopperZoomFunc).script
				if typeof(ModuleScript) == "Instance" then
					if ModuleScript.Name == "Poppercam" then
						for _, Upvalue in pairs(debug.getupvalues(PopperZoomFunc)) do
							local CurrentTable = Upvalue
							local o = CurrentTable.Update
							CurrentTable.Update = function(self, ...)
								if Reading then
									return CurrentZoom
								else
									return o(self, ...)
								end
							end
							break
						end
					end
				end
			end
		end
	end
end

assert(UpdateZoom, "Could not find zoom updating function")

-- UI Initilializing
local Library = loadstring(game:HttpGet("https://raw.githubusercontent.com/plusgiant5/Libraries/main/loadstrings/wallyuilib.lua", true))()
local MainWindow = Library:CreateWindow("Replayability")
MainWindow:Bind("Hide Gui", { -- Main Section
	flag = "ToggleUI",
	kbonly = true,
	default = Enum.KeyCode.U
}, function()
	local ScreenGui = game:GetService("CoreGui").ScreenGui
	if Reading and ScreenGui.Enabled == false then return end
	ScreenGui.Enabled = not UIShown
	UIShown = not UIShown
	SendNotification("Changed UI Visibility", 3)
end)

MainWindow:Toggle("Show Notifications", {flag = "ToggleNotifs"}, function(Bool)
	ShowNotifications = Bool
end)

pcall(function() -- shit ui library
	MainWindow.flags.ToggleNotifs = true
	game:GetService("CoreGui"):FindFirstChild("Show Notifications", true):WaitForChild("Checkmark", 3).Text = "✓"
end)

MainWindow:Dropdown("Mode", {
	location = shared;
	flag = "Mode";
	list = {
		"Write",
		"Read"
	}
}, function(ChosenMode)
	if not CanChangeMode() then
		print("cant change mode now")
		return
	end
	Mode = ChosenMode
	ResetZoom()
	SendNotification("Mode changed to: ".. ChosenMode, 3)
end)

MainWindow:Section("Write") -- Write Section

local function AppendToMain() -- Writing to files
	local ToAppend = TempPath
	appendfile(CurrentSavePath, ToAppend)
end

local function AppendToTemp(Tab)
	local Encoded = HttpService:JSONEncode(Tab)
	TempPath ..= Encoded..","
end

MainWindow:Bind("Begin Replay", {
	flag = "BeginReplay",
	kbonly = true,
	default = Enum.KeyCode.T
}, function()
	if Mode ~= "Write" or Saving or RecordStart then return end
	if Writing then
		Writing = false
		Saving = true
		local NewLocation = HumanoidRootPart.CFrame
		local NewCamCF = Camera.CFrame
		local NewCamFC = Camera.Focus
		local NewZoom = (NewCamCF.Position - NewCamFC.Position).Magnitude
		local responded = false
		local inputconnection
		function answer(Text)
			if not responded then
				responded = true
				if Text == "YES (p)" then
					print("Saving...")
					LastMousePositionR = LastMousePositionW
					PastLocation = NewLocation
					PastCameraLocation = NewCamCF
					PastZoom = NewZoom
					AppendToMain()
					TempPath = ""
					SendNotification("Saved", 2)
				else
					print("Discarded save.")
					TempPath = ""
					HumanoidRootPart.CFrame = PastLocation
					Camera.CFrame = PastCameraLocation
					if PastZoom ~= 0 then
						SetZoom(PastZoom)
					end
					ResetZoom()
					SendNotification("Discarded", 2)
				end
			end
			Saving = false
			if inputconnection then
				inputconnection:Disconnect()
			end
		end
		inputconnection = UserInputService.InputBegan:Connect(function(k,v)
			if v then
				return
			end
			if k.KeyCode == Enum.KeyCode.F then
				answer("NO (f)")
			elseif k.KeyCode == Enum.KeyCode.P then
				answer("YES (p)")
			end
		end)
		SendNotification("Save Replay?", 15, answer, "NO (f)", "YES (p)")
	else
		repeat wait() until Humanoid.Parent -- Cuz idk??!?!?
		RecordStart = true
		SendNotification("Waiting for input.", 2)
		WaitForInput()
		Writing = true
		RecordStart = false
		SendNotification("Recording has started.", 3)
	end
end)

MainWindow:Bind("Goto Checkpoint", {
	flag = "GotoCheckpoint",
	kbonly = true,
	default = Enum.KeyCode.Y
}, function()
	if Mode ~= "Write" or Saving then return end
	HumanoidRootPart.CFrame = PastLocation
	Camera.CFrame = PastCameraLocation
	SetZoom(PastZoom)
	ResetZoom()
	if UserInputService.MouseBehavior ~= Enum.MouseBehavior.LockCenter and not CheckMouseLock() and LastMousePositionR[1] then
		MoveMouse(LastMousePositionR[1], LastMousePositionR[2])
	end
end)

MainWindow:Section("Read") -- Read Section
MainWindow:Button("Start", function()
	if Reading or Mode ~= "Read" or RecordStart or ReadStart then return end
	ReadStart = true
	SendNotification("Reading is starting in 2 seconds.", 3)
	delay(2, function()
		Reading = true
		ReadStart = false
	end)
end)

MainWindow:Section("Other") -- Other Section
MainWindow:Button("Disable Killbricks", function()
	local n = 0
	for _,v in pairs(workspace:GetDescendants()) do
		if (v.Name == "kills" or v.Name == "instakills" or v.Name == "poisons" or v.Name == "ouch") and v.Parent.CanTouch then
			v.Parent.CanTouch = false
			n += 1
		end
	end
	SendNotification("Disabled "..tostring(n).." killbricks.", 3)
end)
MainWindow:Button("Count Frames", function()
	local frames = #HttpService:JSONDecode(readfile(PlaceId.."\\Testing.lua").."1]")
	SendNotification("This replay has "..tostring(frames).." frames ("..tostring(math.floor(frames/60*100+.5)/100).." seconds long at constant 60 fps)", 10)
end)
MainWindow:Box("Start at frame: ", {default = "0"}, function(frame)
	StartFrame = tonumber(frame)
	Index = StartFrame
	SendNotification("Reading will now start at frame "..frame, 3)
end)

-- Main Loops
-- WRITE
local function Write()
	while true do
		if not Writing or Saving then
			wait()
		else
			local t = tick()
			local StateTypeValue = Humanoid and Humanoid.Parent and Humanoid:GetState().Value
			if not SentDeadSignal then
				if not Hooked then
					HookHumanoid()
					Hooked = true
				end
				local s,e = pcall(function()
					Character.Head.CanCollide = true
					local CamCFrame = Camera.CFrame
					local CamFocus = Camera.Focus
					local Zoom = (CamCFrame.Position - CamFocus.Position).Magnitude
					local RunSpeed = RunQueue[1]
					local ClimbSpeed = ClimbQueue[1]
					local WriteTable = {}
					WriteTable[1] = CFrameToTable(HumanoidRootPart.CFrame)
					WriteTable[2] = CFrameToTable(CamCFrame)
					WriteTable[3] = Zoom
					WriteTable[4] = Shorten(RunSpeed) or false
					if RunSpeed then
						table.remove(RunQueue, 1)
					end
					WriteTable[5] = Shorten(ClimbSpeed) or false
					if ClimbSpeed then
						table.remove(ClimbQueue, 1)
					end
					WriteTable[6] = CheckMouseLock()
					WriteTable[7] = StateTypeValue
					local MousePosition = {
						Mouse.X, Mouse.Y
					}
					WriteTable[8] = MousePosition
					LastMousePositionW = MousePosition
					WriteTable[9] = Dancing
					if Dancing then
						Dancing = false
					end
					AppendToTemp(WriteTable)
				end)
				if not s then
					print(e)
				end
			end
			RunService.Stepped:Wait()
			repeat until (t + (1/FPS)) < tick()

			print(StateTypeValue)
			if StateTypeValue == 15 and not SentDeadSignal then -- Dead
				--print("w1")
				SentDeadSignal = true
			else
				if StateTypeValue and SentDeadSignal then -- make sure the humanoid exists, and SentDeadSignal isnt already false
					SentDeadSignal = false
					--print("w2")
				end
			end
		end
	end
end
coroutine.wrap(Write)()

-- READ
local function Read()
	while true do
		if not Reading then
			wait()
		else
			local t = tick()
			if not ReadTable then
				local Success, Return = pcall(function()
					return HttpService:JSONDecode(readfile(PlaceId.. "\\Testing.lua") .. "1]")--[1]
				end)
				if not Success then
					Reading = false
					error("Error parsing the JSON file")
				end
				if Humanoid.Health <= 0 then
					Reading = false
				end
				ReadTable = Return
				Humanoid.AutoRotate = false
				Humanoid.Died:Connect(function()
					if Reading then
						--FullAbort = true
					end
				end)
				local CharAddedConnection
				CharacterAddedConnection = LocalPlayer.CharacterAdded:Connect(function()
					if Reading then
						--FullAbort = true
						CharacterAddedConnection:Disconnect()
					end
				end)
				UserInputService.MouseIconEnabled = not ReplicateCursor
				Cursor.Visible = ReplicateCursor
				--local FirstLocation = ReadTable[1][1]
				--WalkToPoint(Vector3.new(FirstLocation.X, FirstLocation.Y, FirstLocation.Z))
			end
			local CurrentReadTable = ReadTable[Index]
			if not CurrentReadTable or type(CurrentReadTable) ~= "table" or FullAbort then
				local LastIndex = ReadTable[Index - 1]
				if LastIndex then
					local LastMousePositionEnd = LastIndex[8]
					if LastMousePositionEnd and LastMousePositionEnd[1] then
						MoveMouse(LastMousePositionEnd[1], LastMousePositionEnd[2])
					end
				end
				if Cursor then
					Cursor.Visible = false
				end
				UserInputService.MouseIconEnabled = true
				Reading = false
				FullAbort = false
				ReadTable = nil
				PreviousRunSpeed = nil
				Index = StartFrame
				workspace.Gravity = DefaultGravity
				Humanoid.AutoRotate = true
				Humanoid.UseJumpPower = UseJumpPower -- Sets it to whatever the game set it to by default
				Humanoid.JumpHeight = OldJumpHeight
				CurrentZoom = 0
				continue
			end

			workspace.Gravity = 0

			if Abort then
				RunFunction(0, true)
				workspace.Gravity = DefaultGravity
				repeat wait() until not Abort
				wait(math.random(15, 25)/10)
				if PreviousRunSpeed then
					RunFunction(PreviousRunSpeed, true)
				end
			end

			if Humanoid.UseJumpPower then
				Humanoid.UseJumpPower = false
				Humanoid.JumpHeight = 0
			end

			local HumanoidRootPartLocation = TableToCFrame(CurrentReadTable[1])
			local CameraLocation = TableToCFrame(CurrentReadTable[2])
			local Zoom = CurrentReadTable[3]
			local RunSpeed = tonumber(CurrentReadTable[4])
			local ClimbSpeed = tonumber(CurrentReadTable[5])
			local IsMouseLocked = CurrentReadTable[6]
			local StateTypeValue = CurrentReadTable[7]
			local MousePosition = (ReplicateCursor and CurrentReadTable[8]) or nil
			local DanceClipping = CurrentReadTable[9] or (CurrentReadTable[8] == true and CurrentReadTable[8])
			local _, YAxisCameraRotation = CameraLocation:ToEulerAnglesYXZ()
			local XAxisCharacterRotation, YAxisCharacterRotation, ZAxisCharacterRotation = HumanoidRootPartLocation:ToEulerAnglesYXZ()

			Camera.CFrame = CameraLocation
			UpdateZoom(Zoom)
			HumanoidRootPart.Velocity = Vector3.new()

			if (IsMouseLocked or (Zoom <= 0.51 and Zoom >= 0.49)) and StateTypeValue ~= 0 and StateTypeValue ~= 2 then -- Shiftlocked, isfirstperson, isfallingdown and isgettingbackup respectively
				HumanoidRootPart.CFrame = HumanoidRootPartLocation * CFrame.Angles(0, -YAxisCharacterRotation + YAxisCameraRotation, 0)
			else
				HumanoidRootPart.CFrame = HumanoidRootPartLocation
			end

			for _, BasePart in pairs(Character:GetChildren()) do
				if BasePart:IsA("BasePart") then
					if BasePart.CanCollide and StateTypeValue == 5 then
						--BasePart.CanCollide = false
					end
				end
			end

			--[[ OLD GRAVITY MODIFIER
								if StateTypeValue == 5 and workspace.Gravity ~= 0 then
									workspace.Gravity = 0
								elseif StateTypeValue ~= 5 and workspace.Gravity ~= 196.2 then
									workspace.Gravity = 196.2
								end
			]]

			if MousePosition and MousePosition[1] then
				SetFakeCursorPosition(MousePosition[1], MousePosition[2])
				if UserInputService.MouseBehavior == Enum.MouseBehavior.LockCenter then
					VirtualInputManager:SendMouseMoveEvent(MousePosition[1], MousePosition[2], workspace)
				end
			end
			--[[ OLD MOUSE POSITIONING
								if MousePosition and UserInputService.MouseBehavior ~= Enum.MouseBehavior.LockCenter and CursorMovement and not CheckMouseLock() and MousePosition[1] then
									MoveMouse(MousePosition[1], MousePosition[2])
								elseif UserInputService.MouseBehavior == Enum.MouseBehavior.LockCenter then
									VirtualInputManager:SendMouseMoveEvent(MousePosition[1], MousePosition[2], workspace)
								end
			]]

			if (IsMouseLocked and not CheckMouseLock()) or (not IsMouseLocked and CheckMouseLock()) then
				ToggleMouseLock()
				mouse1click()
			end

			local CurrentLocked = CheckMouseLock()
			Cursor.Image = CurrentLocked and ShiftLockCursor.Icon or NormalMouseCursor.Icon
			Cursor.Size = CurrentLocked and ShiftLockCursor.Size or NormalMouseCursor.Size
			--[[ ANTI SERVER-SIDED DETECTION
								if RunSpeed then
									HumanoidRootPart.Velocity = Vector3.new(RunSpeed/2, 0, 0)
								else
									HumanoidRootPart.Velocity = Vector3.new(HumanoidRootPart.Velocity.X, 0, 0)
								end
			]]

			if StateTypeValue ~= OldState then

				if StateTypeValue == 3 then -- Jumping
					Humanoid.Jump = true
				else
					if StateTypeValue == 15 then
						-- press keys Esc+R+Enter then reset gravity
						keypress(0x1B)
						wait()
						keyrelease(0x1B)
						wait(math.random(15,27)/100)
						keypress(0x52)
						wait()
						keyrelease(0x52)
						wait(math.random(15,27)/100)
						keypress(0x0D)
						wait()
						keyrelease(0x0D)
						wait(math.random(15,27)/100)
						workspace.Gravity = DefaultGravity
					end
					Humanoid:ChangeState(StateTypeValue)
				end
				OldState = StateTypeValue
			end

			if (StateTypeValue == 8 or StateTypeValue == 10) and RunSpeed then
				RunFunction(RunSpeed, true)
				PreviousRunSpeed = RunSpeed
			end

			if StateTypeValue == 12 and ClimbSpeed then
				ClimbFunction(ClimbSpeed, true)
				PreviousClimbSpeed = ClimbSpeed
			end

			if DanceClipping then
				DoDanceClip()
			end

			Index += 1
			RunService.Stepped:Wait()
			repeat until (t + (1/FPS)) < tick()

			if StateTypeValue == 15 then -- Dead
				-- Wait until player fully respawns before replaying another frame
				--print("r1")
				LocalPlayer.CharacterAdded:Wait()
				while not ClimbFunction do
					RunService.Stepped:Wait()
				end
				wait(math.random(15,30)/100)
				--print("r2")
			end
		end
	end
end
coroutine.wrap(Read)()

-- Loading checkpoint
local placefile = readfile(PlaceId.. "\\Testing.lua")
if placefile then
	local data = HttpService:JSONDecode(placefile.."1]")
	if #data > 1 then
		local lastframe = data[#data-1]
		PastLocation = TableToCFrame(lastframe[1])
		PastCameraLocation = TableToCFrame(lastframe[2])
		PastZoom = lastframe[3]
		LastMousePositionR = lastframe[8]
	end
end

SendNotification("Replayability v1.7.3 loaded!", 3)

game:GetService("GuiService").ErrorMessageChanged:Connect(function()
	FullAbort = true
end)

--wait(.25)
--loadstring(game:HttpGet("https://raw.githubusercontent.com/plusgiant5/Libraries/main/loadstrings/animfix.lua", true))()

getgenv().Ran = true