Treelands Tycoon GUI

--[[


  _____  _____       _ _____
 |_   _|/ ____|     (_)  __ \
   | | | (___   __ _ _| |  | |
   | |  \___ \ / _` | | |  | |
  _| |_ ____) | (_| | | |__| |
 |_____|_____/ \__,_|_|_____/





GUI made by ISaiD, the scripts are not mine

Original thread of the scripts:
https://v3rmillion.net/showthread.php?tid=277507



]]--



-- Instances:
local TreelandsGUI = Instance.new("ScreenGui")
local OpenFRM = Instance.new("Frame")
local OpenBTN = Instance.new("TextButton")
local MainFRM = Instance.new("Frame")
local TitleLBL = Instance.new("TextLabel")
local AuthorLBL = Instance.new("TextLabel")
local CloseBTN = Instance.new("TextButton")
local ApplesPBTN = Instance.new("TextButton")
local UnlimitedABTN = Instance.new("TextButton")
--Properties:
TreelandsGUI.Name = "TreelandsGUI"
TreelandsGUI.Parent = game.CoreGui

MainFRM.Visible = false
OpenFRM.Visible = true

OpenFRM.Name = "OpenFRM"
OpenFRM.Parent = TreelandsGUI
OpenFRM.BackgroundColor3 = Color3.new(0.196078, 0.196078, 0.196078)
OpenFRM.Position = UDim2.new(0, 0, 0.718673229, 0)
OpenFRM.Size = UDim2.new(0, 100, 0, 18)

OpenBTN.Name = "OpenBTN"
OpenBTN.Parent = OpenFRM
OpenBTN.BackgroundColor3 = Color3.new(0.196078, 0.196078, 0.196078)
OpenBTN.BorderSizePixel = 0
OpenBTN.Size = UDim2.new(0, 100, 0, 18)
OpenBTN.Font = Enum.Font.SourceSans
OpenBTN.Text = "Open"
OpenBTN.TextColor3 = Color3.new(1, 1, 1)
OpenBTN.TextSize = 14

MainFRM.Name = "MainFRM"
MainFRM.Parent = TreelandsGUI
MainFRM.BackgroundColor3 = Color3.new(0.196078, 0.196078, 0.196078)
MainFRM.Position = UDim2.new(0.217492267, 0, 0.255528241, 0)
MainFRM.Size = UDim2.new(0, 477, 0, 321)
MainFRM.Active = true
MainFRM.Draggable = true

TitleLBL.Name = "TitleLBL"
TitleLBL.Parent = MainFRM
TitleLBL.BackgroundColor3 = Color3.new(0, 0, 0)
TitleLBL.BorderSizePixel = 0
TitleLBL.Position = UDim2.new(-0.0125786159, 0, -0.0218068529, 0)
TitleLBL.Size = UDim2.new(0, 491, 0, 21)
TitleLBL.Font = Enum.Font.SciFi
TitleLBL.Text = "Treelands GUI"
TitleLBL.TextColor3 = Color3.new(1, 1, 1)
TitleLBL.TextSize = 14

AuthorLBL.Name = "AuthorLBL"
AuthorLBL.Parent = MainFRM
AuthorLBL.BackgroundColor3 = Color3.new(0, 0, 0)
AuthorLBL.BorderSizePixel = 0
AuthorLBL.Position = UDim2.new(-0.0146750519, 0, 0.962616801, 0)
AuthorLBL.Size = UDim2.new(0, 491, 0, 21)
AuthorLBL.Font = Enum.Font.SciFi
AuthorLBL.Text = "GUI by ISaiD | V3rmillion - ISaiD | Discord - Jupanu'#2430"
AuthorLBL.TextColor3 = Color3.new(1, 1, 1)
AuthorLBL.TextSize = 14

CloseBTN.Name = "CloseBTN"
CloseBTN.Parent = MainFRM
CloseBTN.BackgroundColor3 = Color3.new(1, 1, 1)
CloseBTN.BackgroundTransparency = 1
CloseBTN.BorderSizePixel = 0
CloseBTN.Position = UDim2.new(0.958071291, 0, -0.0218068529, 0)
CloseBTN.Size = UDim2.new(0, 27, 0, 21)
CloseBTN.Font = Enum.Font.SourceSans
CloseBTN.Text = "X"
CloseBTN.TextColor3 = Color3.new(1, 1, 1)
CloseBTN.TextSize = 25

ApplesPBTN.Name = "ApplesPBTN"
ApplesPBTN.Parent = MainFRM
ApplesPBTN.BackgroundColor3 = Color3.new(0, 0, 0)
ApplesPBTN.Position = UDim2.new(0.0607966445, 0, 0.115264796, 0)
ApplesPBTN.Size = UDim2.new(0, 421, 0, 97)
ApplesPBTN.Font = Enum.Font.SciFi
ApplesPBTN.Text = "Apples to Purple Crystals"
ApplesPBTN.TextColor3 = Color3.new(1, 1, 1)
ApplesPBTN.TextSize = 30

UnlimitedABTN.Name = "UnlimitedABTN"
UnlimitedABTN.Parent = MainFRM
UnlimitedABTN.BackgroundColor3 = Color3.new(0, 0, 0)
UnlimitedABTN.Position = UDim2.new(0.0607966445, 0, 0.54517132, 0)
UnlimitedABTN.Size = UDim2.new(0, 421, 0, 97)
UnlimitedABTN.Font = Enum.Font.SciFi
UnlimitedABTN.Text = "Unlimited Apples"
UnlimitedABTN.TextColor3 = Color3.new(1, 1, 1)
UnlimitedABTN.TextSize = 30


--Scripts:

OpenBTN.MouseButton1Down:connect(function()
    MainFRM.Visible = true
    OpenFRM.Visible = false
end)
CloseBTN.MouseButton1Down:connect(function()
    MainFRM.Visible = false
    OpenFRM.Visible = true
end)
ApplesPBTN.MouseButton1Down:connect(function()
    local desiredFruit = "Purple Crystal"
    for i, v in pairs(game.Workspace.Fruits:GetChildren()) do
    v.Tooltip.Value = desiredFruit
    v.Name = desiredFruit
    v:Clone().Parent = game.Workspace.Fruits
end)
UnlimitedABTN.MouseButton1Down:connect(function ()
    local xd = game.Workspace.Fruits
    xd.Apple.CombinedValue.Value = 10000000
end)