K E K

--By Rufus14
-- Objects
-- Edited By Unden. oWo

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 = "START FUCKING THE TIMELINE"
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 = "TIMELINE FUCKERY IN PROGRESS..."
        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 = "FUCKING UP THE TIMELINE!"
        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)