Vehicle Tycoon Gui

local haxgui = Instance.new("ScreenGui")
local haxframe = Instance.new("Frame")
local haxlabel = Instance.new("TextLabel")
local haxopen = Instance.new("TextButton")
local haxclose = Instance.new("TextButton")
local coins = Instance.new("TextButton")
local autofarm = Instance.new("TextButton")
local carspeed = Instance.new("TextButton")
local carframe = Instance.new("Frame")
local closecar = Instance.new("TextButton")
local carbox = Instance.new("TextBox")
local changespeed = Instance.new("TextButton")
local carlabel = Instance.new("TextLabel")
local speedvalue = Instance.new("IntValue")
local part1 = Instance.new("Part")
local part2 = Instance.new("Part")
local farming = false
local tfarming = false

part1.Position = Vector3.new(-4000,250,-4000)
part1.Anchored = true
part1.Size = Vector3.new(50000,1,50000)

part2.Position = Vector3.new(4000,250,4000)
part2.Anchored = true
part2.Size = Vector3.new(50000,1,50000)


haxgui.Name = "HaxGui"
haxgui.Parent = game.Players.LocalPlayer.PlayerGui
haxgui.ResetOnSpawn = false

haxopen.Name = "HaxOpen"
haxopen.Parent = haxgui
haxopen.BackgroundColor3 = Color3.new(0,0,255)
haxopen.Position = UDim2.new(0,0,0.75,0)
haxopen.Size = UDim2.new(0.15,0,0.075,0)
haxopen.Text = "Open"
haxopen.TextScaled = true
haxopen.TextColor3 = Color3.new(255,0,255)
haxopen.TextStrokeTransparency = 0

haxframe.Name = "HaxFrame"
haxframe.Parent = haxgui
haxframe.BackgroundColor3 = Color3.new(0,0,255)
haxframe.Position = UDim2.new(0.35,0,0.25,0)
haxframe.Size = UDim2.new(0.3,0,0.5,0)
haxframe.Visible = false

haxclose.Name = "HaxClose"
haxclose.Parent = haxframe
haxclose.BackgroundColor3 = Color3.new(255,0,0)
haxclose.Position = UDim2.new(0.94,0,0.01,0)
haxclose.Size = UDim2.new(0.05,0,0.05,0)
haxclose.Text = "X"
haxclose.TextScaled = true
haxclose.TextColor3 = Color3.new(255,255,255)
haxclose.TextStrokeTransparency = 0

haxlabel.Name = "HaxLabel"
haxlabel.Parent = haxframe
haxlabel.BackgroundTransparency = 1
haxlabel.Position = UDim2.new(0,0,0,0)
haxlabel.Size = UDim2.new(1,0,0.1,0)
haxlabel.Text = "Hax Gui"
haxlabel.TextScaled = true
haxlabel.TextColor3 = Color3.new(255,255,255)
haxlabel.TextStrokeTransparency = 0

coins.Name = "Coins"
coins.Parent = haxframe
coins.BackgroundColor3 = Color3.new(50,255,0)
coins.Position = UDim2.new(0.1,0,0.15,0)
coins.Size = UDim2.new(0.3,0,0.1,0)
coins.Text = "TP Coins To You (Wait For Respawn)"
coins.TextScaled = true

carspeed.Name = "CarSpeed"
carspeed.Parent = haxframe
carspeed.BackgroundColor3 = Color3.new(50,255,0)
carspeed.Position = UDim2.new(0.6,0,0.15,0)
carspeed.Size = UDim2.new(0.3,0,0.1,0)
carspeed.Text = "Change Car Speed"
carspeed.TextScaled = true

autofarm.Name = "Autofarm"
autofarm.Parent = haxframe
autofarm.BackgroundColor3 = Color3.new(50,255,0)
autofarm.Position = UDim2.new(0.1,0,0.3,0)
autofarm.Size = UDim2.new(0.3,0,0.1,0)
autofarm.Text = "Autofarm: Off"
autofarm.TextScaled = true

carframe.Name = "CarFrame"
carframe.Parent = haxgui
carframe.BackgroundColor3 = Color3.new(0,0,255)
carframe.Position = UDim2.new(0.35,0,0.25,0)
carframe.Size = UDim2.new(0.3,0,0.5,0)
carframe.Visible = false

carlabel.Name = "CarLabel"
carlabel.Parent = carframe
carlabel.BackgroundTransparency = 1
carlabel.Position = UDim2.new(0,0,0,0)
carlabel.Size = UDim2.new(1,0,0.1,0)
carlabel.Text = "Car Speed"
carlabel.TextScaled = true
carlabel.TextColor3 = Color3.new(255,255,255)
carlabel.TextStrokeTransparency = 0

closecar.Name = "CarClose"
closecar.Parent = carframe
closecar.BackgroundColor3 = Color3.new(255,0,0)
closecar.Position = UDim2.new(0.94,0,0.01,0)
closecar.Size = UDim2.new(0.05,0,0.05,0)
closecar.Text = "X"
closecar.TextScaled = true
closecar.TextColor3 = Color3.new(255,255,255)
closecar.TextStrokeTransparency = 0

carbox.Name = "CarBox"
carbox.Parent = carframe
carbox.BackgroundColor3 = Color3.new(255,255,255)
carbox.BorderSizePixel = 0
carbox.Position = UDim2.new(0.25,0,0.15,0)
carbox.Size = UDim2.new(0.5,0,0.1,0)
carbox.Text = ""
carbox.PlaceholderText = "Speed"
carbox.TextScaled = true

changespeed.Name = "ChangeSpeed"
changespeed.Parent = carframe
changespeed.BackgroundColor3 = Color3.new(50,255,0)
changespeed.Position = UDim2.new(0.35,0,0.3,0)
changespeed.Size = UDim2.new(0.3,0,0.1,0)
changespeed.Text = "Change Speed"
changespeed.TextScaled = true

speedvalue.Name = "SpeedValue"
speedvalue.Parent = carframe

haxopen.MouseButton1Down:Connect(function()
    haxframe.Visible = not haxframe.Visible
    carframe.Visible = false
end)

haxclose.MouseButton1Down:Connect(function()
    haxframe.Visible = false
end)

coins.MouseButton1Down:Connect(function()
    for i,v in pairs(game.Workspace.CoinEvent.Coins:GetChildren()) do
        v.CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
    end
end)

carspeed.MouseButton1Down:Connect(function()
    carframe.Visible = true
    haxframe.Visible = false
end)

closecar.MouseButton1Down:Connect(function()
    carframe.Visible = false
    haxframe.Visible = true
end)

changespeed.MouseButton1Down:Connect(function()
    local speed = carbox.Text
    local name = game.Players.LocalPlayer.Name
    speedvalue.Value = speed * speed * speed
    game:GetService("Workspace").Vehicles[name].Stats.MaxSpeed.Value = speed
    game:GetService("Workspace").Vehicles[name].Stats.AccelerateTorque.Value = speedvalue.Value
end)

autofarm.MouseButton1Down:Connect(function()
    local car = game.Workspace.Vehicles:FindFirstChild(game.Players.LocalPlayer.Name)
    if car then
        farming = not farming
        if farming then
            autofarm.Text = "Autofarm: On"
            part1.Parent = game.Workspace
            part2.Parent = game.Workspace
        else
            autofarm.Text = "Autofarm: Off"
            part1.Parent = game.ReplicatedStorage
            part2.Parent = game.ReplicatedStorage
        end
        while farming do
            car:SetPrimaryPartCFrame(CFrame.new(part1.Position + Vector3.new(0, 1000000000, 0)))
            wait(1.5)
            car:SetPrimaryPartCFrame(CFrame.new(part2.Position + Vector3.new(0, 1000000000, 0)))
            wait(1.5)
        end
    else
        autofarm.Text = "Car not found"
        wait(2)
        if autofarm then
            if car then
                autofarm.Text = "Autofarm: On"
            else
                autofarm = false
                autofarm.Text = "Autofarm: Off"
            end
        else
            autofarm.Text = "Autofarm: Off"
        end
    end
end)