-- Farewell infortality
-- Revamp by ImFrostic, Version 2.81

 -- Objects

local ScreenGui = Instance.new("ScreenGui")
local ScrollingFrame = Instance.new("ScrollingFrame")
local TopBar = Instance.new("Frame")
local Exit = Instance.new("TextButton")
local Minimise = Instance.new("TextButton")
local Open = Instance.new("TextButton")

-- Properties

ScreenGui.Parent = game.CoreGui

ScrollingFrame.Parent = ScreenGui
ScrollingFrame.BackgroundColor3 = Color3.new(0.882353, 0.854902, 0.847059)
ScrollingFrame.Position = UDim2.new(0.194480687, 0, 0.137476474, 0)
ScrollingFrame.Size = UDim2.new(0, 517, 0, 298)
ScrollingFrame.Draggable = true

TopBar.Name = "TopBar"
TopBar.Parent = ScrollingFrame
TopBar.BackgroundColor3 = Color3.new(0.564706, 0.513726, 0.490196)
TopBar.Size = UDim2.new(0, 424, 0, 30)

Exit.Name = "Exit"
Exit.Parent = ScrollingFrame
Exit.BackgroundColor3 = Color3.new(1, 1, 1)
Exit.Position = UDim2.new(0.897485495, 0, 0, 0)
Exit.Size = UDim2.new(0, 41, 0, 30)
Exit.Font = Enum.Font.SciFi
Exit.Text = "X"
Exit.TextColor3 = Color3.new(0, 0, 0)
Exit.TextSize = 30

Minimise.Name = "Minimise"
Minimise.Parent = ScrollingFrame
Minimise.BackgroundColor3 = Color3.new(1, 1, 1)
Minimise.Position = UDim2.new(0.820116043, 0, 0, 0)
Minimise.Size = UDim2.new(0, 40, 0, 30)
Minimise.Font = Enum.Font.SciFi
Minimise.Text = "-"
Minimise.TextColor3 = Color3.new(0, 0, 0)
Minimise.TextSize = 50

Open.Name = "Open"
Open.Parent = ScreenGui
Open.BackgroundColor3 = Color3.new(1, 1, 1)
Open.Position = UDim2.new(0, 0, 0.920903981, 0)
Open.Size = UDim2.new(0, 88, 0, 42)
Open.Style = Enum.ButtonStyle.RobloxRoundButton
Open.Font = Enum.Font.Cartoon
Open.Text = "OPEN"
Open.TextColor3 = Color3.new(0, 0, 0)
Open.TextScaled = true
Open.TextSize = 14
Open.TextWrapped = true

local minimized = false

Minimise.MouseButton1Click:Connect(function()
	if not minimized then
		ScrollingFrame:TweenSize(UDim2.new(0, 40, 0, 30),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,0.2)
		minimized = true
	else
		ScrollingFrame:TweenSize(UDim2.new(0, 0, 0.920903981, 0),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,0.2)
		minimized = false
	end
end)

Close.MouseButton1Click:Connect(function()
	ScreenGui:Destroy()
end)