Bites The Dust V1

--By Rufus14
-- Objects

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local TextButton = Instance.new("TextButton")
local Frame_2 = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local TextBox = Instance.new("TextBox")

-- Properties

ScreenGui.Parent = game.Players.LocalPlayer.PlayerGui

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(0, 0, 0)
Frame.Position = UDim2.new(0.107333057, 0, 0.827616811, 0)
Frame.Size = UDim2.new(0, 464, 0, 132)
Frame.Style = Enum.FrameStyle.RobloxSquare

TextButton.Parent = Frame
TextButton.BackgroundColor3 = Color3.new(255, 255, 0)
TextButton.Position = UDim2.new(0.0626480505, 0, 0.0956374705, 0)
TextButton.Size = UDim2.new(0, 393, 0, 97)
TextButton.Font = Enum.Font.Cartoon
TextButton.FontSize = Enum.FontSize.Size14
TextButton.Text = "Record"
TextButton.TextScaled = true
TextButton.TextSize = 14
TextButton.TextWrapped = true

Frame_2.Parent = ScreenGui
Frame_2.BackgroundColor3 = Color3.new(0, 0, 0)
Frame_2.Position = UDim2.new(0.610014319, 0, 0.828125, 0)
Frame_2.Size = UDim2.new(0, 280, 0, 132)
Frame_2.Style = Enum.FrameStyle.RobloxSquare

TextLabel.Parent = Frame_2
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Position = UDim2.new(0.117857143, 0, -0.0588716492, 0)
TextLabel.Size = UDim2.new(0, 200, 0, 50)
TextLabel.Font = Enum.Font.Cartoon
TextLabel.FontSize = Enum.FontSize.Size14
TextLabel.Text = "Frames:"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextScaled = true
TextLabel.TextSize = 14
TextLabel.TextWrapped = true

TextBox.Parent = Frame_2
TextBox.BackgroundColor3 = Color3.new(1, 1, 1)
TextBox.Position = UDim2.new(0.117857151, 0, 0.371212125, 0)
TextBox.Size = UDim2.new(0, 200, 0, 72)
TextBox.Font = Enum.Font.SourceSans
TextBox.FontSize = Enum.FontSize.Size14
TextBox.Text = "300"
TextBox.TextScaled = true
TextBox.TextSize = 14
TextBox.TextWrapped = true

recording = false
hastorecord = true
tablenumber = 0
timetable = {}
function clicktherecordbutton()
	if not recording and hastorecord then
		recording = true
		local frames = TextBox.Text
		TextButton.Text = "Recording..."
		TextButton.BackgroundColor3 = Color3.new(255, 0, 0)
		for i,v in pairs(workspace:GetChildren()) do
			if v.ClassName == "Part" then
				if v.Anchored == true then
					local cfvall = Instance.new("BoolValue", v)
					cfvall.Name = "AnchoredValue"
				end
			end
		end
		for i = 1,frames do
			for i,v in pairs(workspace:GetChildren()) do
				if not game.Players:findFirstChild(v.Name) then
					for q,w in pairs(v:GetChildren()) do
						if w.ClassName == "Part" then
							local cfval = Instance.new("CFrameValue", w)
							cfval.Name = "PositionValue"
							cfval.Value = w.CFrame
							tablenumber = tablenumber + 1
						end
					end
				end
			end
			for i,v in pairs(game.Players:GetChildren()) do
				if v.Character then
					if v.Character:findFirstChild("Torso") then
						local cfval = Instance.new("CFrameValue", v.Character)
						cfval.Name = "PositionValue"
						cfval.Value = v.Character.Torso.CFrame
						tablenumber = tablenumber + 1
					elseif v.Character:findFirstChild("UpperTorso") then
						local cfval = Instance.new("CFrameValue", v.Character)
						cfval.Name = "PositionValue"
						cfval.Value = v.Character.UpperTorso.CFrame
						tablenumber = tablenumber + 1
					end
				end
			end
			for i,v in pairs(workspace:GetChildren()) do
				if v.ClassName == "Part" then
					local cfval = Instance.new("CFrameValue", v)
					cfval.Name = "PositionValue"
					cfval.Value = v.CFrame
					tablenumber = tablenumber + 1
				end
			end
			game:GetService("RunService").RenderStepped:wait()
		end
		TextButton.BackgroundColor3 = Color3.new(0, 255, 0)
		TextButton.Text = "Reversing!"
		for i,v in pairs(game.Players:GetChildren()) do
			if v.Character then
				if v.Character:findFirstChild("Torso") then
					v.Character["Torso"].Anchored = true
				elseif v.Character:findFirstChild("UpperTorso") then
					v.Character["UpperTorso"].Anchored = true
				end
			end
		end
		for i,v in pairs(workspace:GetChildren()) do
			if v.ClassName == "Part" then
				v.Anchored = true
			end
		end
		for i = 1,frames do
			for i,v in pairs(workspace:GetChildren()) do
				if not game.Players:findFirstChild(v.Name) then
					for q,w in pairs(v:GetChildren()) do
						if w:findFirstChild("PositionValue") then
							w.CFrame = w.PositionValue.Value
							w.PositionValue:destroy()
							tablenumber = tablenumber - 1
						end
					end
				end
			end
			for i,v in pairs(game.Players:GetChildren()) do
				if v.Character then
					if v.Character:findFirstChild("PositionValue") and v.Character:findFirstChild("Head") then
						v.Character["Head"].CFrame = v.Character.PositionValue.Value
						v.Character.PositionValue:destroy()
						tablenumber = tablenumber - 1
					elseif v.Character:findFirstChild("PositionValue") and v.Character:findFirstChild("UpperTorso") then
						v.Character["UpperTorso"].CFrame = v.Character.PositionValue.Value
						v.Character.PositionValue:destroy()
						tablenumber = tablenumber - 1
					end
				end
			end
			for i,v in pairs(workspace:GetChildren()) do
				if v:findFirstChild("PositionValue") and v.ClassName == "Part" then
					v.CFrame = v.PositionValue.Value
					v.PositionValue:destroy()
					tablenumber = tablenumber - 1
				end
			end
			game:GetService("RunService").RenderStepped:wait()
		end
		TextButton.BackgroundColor3 = Color3.new(0, 255, 0)
		TextButton.Text = "Click to Record"
		for i,v in pairs(workspace:GetChildren()) do
			if not game.Players:findFirstChild(v.Name) then
				for q,w in pairs(v:GetChildren()) do
					if w.ClassName == "Part" then
						w.Anchored = false
					end
				end
			end
		end
		for i,v in pairs(game.Players:GetChildren()) do
			if v.Character then
				if v.Character:findFirstChild("Head") then
					v.Character["Head"].Anchored = false
				end
				if v.Character:findFirstChild("UpperTorso") then
					v.Character["UpperTorso"].Anchored = false
				end
				for q,w in pairs(v.Character:GetChildren()) do
					if w.Name == "PositionValue" then
						w:destroy()
					end
				end
			end
		end
		for i,v in pairs(workspace:GetChildren()) do
			if v.ClassName == "Part" then
				if v:findFirstChild("AnchoredValue") then
					v.Anchored = true
				else
					v.Anchored = false
				end
				v:MakeJoints()
			end
		end
		for i,v in pairs(game.Players:GetChildren()) do
			if v.Character then
				if v.Character:findFirstChild("Torso") then
					v.Character["Torso"].Anchored = false
				elseif v.Character:findFirstChild("UpperTorso") then
					v.Character["UpperTorso"].Anchored = false
				end
			end
		end
		for i,v in pairs(workspace:GetChildren()) do
			for q,w in pairs(v:GetChildren()) do
				if w.Name == "PositionValue" or w.Name == "AnchoredValue" then
					w:destroy()
				end
			end
		end
		timetable = {}
		tablenumber = 0
		recording = false
		hastorecord = true
	end
end
TextButton.MouseButton1Click:connect(clicktherecordbutton)