local Background1Popin = Tween:Create(Background1, TweenInfo.new(0.3), {ImageTransparency = 0.5})
local Background1Popout = Tween:Create(Background1, TweenInfo.new(0.3), {ImageTransparency = 1})
local Background2Popin = Tween:Create(Background2, TweenInfo.new(0.3), {ImageTransparency = 0.5})
local Background2Popout = Tween:Create(Background2, TweenInfo.new(0.3), {ImageTransparency = 1})

local Text1In = Tween:Create(Text1, TweenInfo.new(0.3), {TextTransparency = 0})
local Text2In = Tween:Create(Text2, TweenInfo.new(0.3), {TextTransparency = 0})

local SlowRepeat = Tween:Create(GamePopup, TweenInfo.new(5, Enum.EasingStyle.Linear), {Position = UDim2.new(0.45, 0, 0.5, 0)})

local CredsPopin = Tween:Create(CreditsPopup, TweenInfo.new(0.3, Enum.EasingStyle.Sine), {Transparency = 0.5})
local CredsPopout = Tween:Create(CreditsPopup, TweenInfo.new(0.3, Enum.EasingStyle.Sine), {Transparency = 1})

local CredsOpen = false
local FT = 0

SlideOutSide:Play() -- Play Tween

local function TeleportToGame(GameID)
    TeleportService:Teleport(GameID)
    warn("YES")
end

-- PlayBtn
PlayBtn.MouseEnter:Connect(function()
    HoverOverPlayBtn:Play()
end)
PlayBtn.MouseLeave:Connect(function()
    LeavePlayBtn:Play()
end)
PlayBtn.MouseButton1Click:Connect(function()

    GamePopin:Play()
    SlideInSide:Play()
    if CredsOpen then
        CredsPopout:Play()
    end
    wait(0.5)
    Sidebar:Destroy()
    CreditsPopup:Destroy()

    local Success, Error = pcall(function()
        TeleportToGame(4706822983)
    end)

    repeat
        FT = FT + 1
        wait(5)
        Success, Error = pcall(function()
            TeleportToGame(4706822983)
        end)
    until Success or FT == 1

    if FT == 5 then
        Players.LocalPlayer:Kick("Problem Joining Game")
    elseif FT ~= 5 and Success then
        warn("YES!")
    end

    local Images = {4686593352,4657541155,4686647404,4686611408, 4657541155}
    local Quotes = {"Sharpen your blades, we're taking the long run", "The Akato Alliance is still holding, as never before", "Visit the Imperial Palace, it really is quite a site"}

    Background1Popin:Play()
    Text1In:Play()
    Text2In:Play()

    local QuoteLoop = coroutine.wrap(function()
        while true do
            for i,v in ipairs(Quotes) do
                wait(4)
                Text2.Text = v
                print(v)
            end
        end
    end)()
    local PicLoop = coroutine.wrap(function()
        while true do
            for i,v in ipairs(Images) do
                SlowRepeat:Play()
                if Background1.ImageTransparency == 0.5 then
                    Background2.Image = "rbxassetid://"..v
                elseif Background2.ImageTransparency == 0.5 then
                    Background1.Image = "rbxassetid://"..v
                end
                wait(5)
                GamePopup.Position = UDim2.new(0.55, 0, 0.5, 0)
                if Background1.ImageTransparency == 0.5 then
                    Background2Popin:Play()
                    Background1Popout:Play()
                    wait(0.3)
                elseif Background2.ImageTransparency == 0.5 then
                    Background1Popin:Play()
                    Background2Popout:Play()
                    wait(0.3)
                end
                print(v)
            end
        end
    end)()
end)

-- CreditBtn
CreditsBtn.MouseEnter:Connect(function()
    HoverOverCreditsBtn:Play()
end)
CreditsBtn.MouseLeave:Connect(function()
    LeaveCreditsBtn:Play()
end)
CreditsBtn.MouseButton1Click:Connect(function()
    if not CredsOpen then
        CredsOpen = true
        CredsPopin:Play()
        wait(0.3)
        for i,v in pairs(CreditsPopup:GetDescendants()) do
            if v:IsA("TextLabel") then
                v.Visible = true
            end
        end
    else
        for i,v in pairs(CreditsPopup:GetDescendants()) do
            if v:IsA("TextLabel") then
                v.Visible = false
            end
        end
        CredsPopout:Play()
        CredsOpen = false
        wait(0.3)
    end
end)

-- CameraTweening
local function TweenCameraPos(Point, Speed)
    Tween:Create(Cam, TweenInfo.new(Speed, Enum.EasingStyle.Linear), {CFrame = Point.CFrame}):Play()
end

Cam.CameraType = Enum.CameraType.Scriptable
Cam.FieldOfView = 50

while true do
    Cam.CFrame = CamPoints:FindFirstChild("1").CFrame
    TweenCameraPos(CamPoints:FindFirstChild("2"), 4)
    wait(4)
    Cam.CFrame = CamPoints:FindFirstChild("3").CFrame
    TweenCameraPos(CamPoints:FindFirstChild("4"), 4)
    wait(4)
    Cam.CFrame = CamPoints:FindFirstChild("5").CFrame
    TweenCameraPos(CamPoints:FindFirstChild("6"), 4)
    wait(4)
end