Vehicle Simulator GUI - Gaming Crew

-- Objects

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local TextButton = Instance.new("TextButton")
local TextLabel_2 = Instance.new("TextLabel")
local TextLabel_3 = Instance.new("TextLabel")

-- Properties

ScreenGui.Parent = game.CoreGui
Frame.Draggable = true
Frame.Active = true

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(0, 0, 0)
Frame.BorderColor3 = Color3.new(0, 0, 0)
Frame.Position = UDim2.new(0.65749234, 0, 0.0103806229, 0)
Frame.Size = UDim2.new(0, 336, 0, 395)

TextLabel.Parent = Frame
TextLabel.BackgroundColor3 = Color3.new(0.666667, 0, 0)
TextLabel.Size = UDim2.new(0, 336, 0, 54)
TextLabel.Font = Enum.Font.Code
TextLabel.Text = "Vehicle Simulator Improved GUI"
TextLabel.TextSize = 14

TextButton.Parent = Frame
TextButton.BackgroundColor3 = Color3.new(0.666667, 0, 0)
TextButton.Position = UDim2.new(0.299107134, 0, 0.194936723, 0)
TextButton.Size = UDim2.new(0, 135, 0, 50)
TextButton.Font = Enum.Font.ArialBold
TextButton.Text = "Admin Commands"
TextButton.TextSize = 14

TextLabel_2.Parent = Frame
TextLabel_2.BackgroundColor3 = Color3.new(0.666667, 0, 0)
TextLabel_2.Position = UDim2.new(0, 0, 0.508860767, 0)
TextLabel_2.Size = UDim2.new(0, 336, 0, 159)
TextLabel_2.Font = Enum.Font.SourceSans
TextLabel_2.Text = "Commands for admin:\n/e maxspeed:(N) *Sets the maxspeed for your car to (N)\n/e torque:(N) *Sets the torque for your car to (N)\n/e toggle:infnitro *Toggles infinite nitro (Dont add any arguments it will toggle it on itsself according to the set bool)\n/e nitrospeed:(N) *Sets the nitro speed for your car to (N)\n/e nitroforce:(N) *Sets the nitro force for your car to (N)\n/e racingmode *Makes your car's setting fitted for winning almost any race!!!"
TextLabel_2.TextSize = 14

TextLabel_3.Parent = Frame
TextLabel_3.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_3.Position = UDim2.new(0.267857134, 0, 0.38481012, 0)
TextLabel_3.Size = UDim2.new(0, 157, 0, 28)
TextLabel_3.Font = Enum.Font.SourceSans
TextLabel_3.Text = "Script X!!!"
TextLabel_3.TextSize = 14

-- Scripts

TextButton.MouseButton1Down:connect(function()
 local plr = game.Players.LocalPlayer
local inftoggle = false
function getvehicle()
for i,v in pairs(game.Workspace.Vehicles:GetChildren()) do
if v:IsA("Model") then
if v.owner.Value == plr.Name then
return v
end
end
end
return nil
end
function hint(txt, t)
if t then
local h = Instance.new("Hint",plr.PlayerGui)
h.Text = txt
wait(t)
h:remove()
else
local h = Instance.new("Hint",plr.PlayerGui)
h.Text = txt
wait(2)
h:remove()
end
end

plr.Chatted:connect(function(msg)
if msg:lower():sub(1,10) == "/e toggle:" then
local ins = msg:lower():sub(11)
local vehicle = getvehicle()
if vehicle then
if ins == "infnitro" then
if inftoggle == true then
inftoggle = false
hint("(-)Disabled Infinite Nitro!(-)")
else
inftoggle = true
hint("(+)Enabled Infinite Nitro!(+)")
end
end
else
hint("(-)You do not have a vehicle spawned!(-)")
end
elseif msg:lower():sub(1,14) == "/e nitrospeed:" then
local num = msg:sub(15)
local vehicle = getvehicle()
if vehicle then
vehicle.Handling.Nitro.NitroSpeed.Value = tonumber(num)
else
hint("(-)You do not have a vehicle spawned!(-)")
end
elseif msg:lower():sub(1,14) == "/e nitroforce:" then
local num = msg:sub(1,15)
local vehicle = getvehicle()
if vehicle then
vehicle.Handling.Nitro.NitroForce.Value = tonumber(num)
else
hint("(-)You do not have a vehicle spawned!(-)")
end
elseif msg:lower():sub(1,12) == "/e maxspeed:" then
local num = msg:sub(13)
local vehicle = getvehicle()
if vehicle then
vehicle.Handling.MaxSpeed.Value = tonumber(num)
else
hint("(-)You do not have a vehicle spawned!(-)")
end
elseif msg:lower():sub(1,10) == "/e torque:" then
local num = msg:sub(11)
local vehicle = getvehicle()
if vehicle then
vehicle.Handling.Torque.Value = tonumber(num)
else
hint("(-)You do not have a vehicle spawned!(-)")
end
elseif msg:lower():sub(1,12) == "/e friction:" then
local num = msg:sub(13)
local vehicle = getvehicle()
if vehicle then
vehicle.Handling.FrictionOffroad.Value = tonumber(num)
vehicle.Handling.FrictionRoad.Value = tonumber(num)
else
hint("(-)You do not have a vehicle spawned!(-)")
end
elseif msg:lower():sub(1,13) == "/e racingmode" then
local vehicle = getvehicle()
if vehicle then
han = vehicle.Handling
han.MaxSpeed.Value = 10000
han.Torque.Value = 20000
han.SteeringRadiusConstant.Value = 12000
han.FrictionOffroad.Value = 200
han.FrictionRoad.Value = 200
han.Nitro.NitroSpeed.Value = 300
han.Nitro.NitroForce.Value = 8000
inftoggle = true
else
hint("(-)You do not have a vehicle spawned!(-)")
end
end
end)
wait(0.5)
while inftoggle == true do
wait(0.02)
local vehicle = getvehicle()
if vehicle then
vehicle.Handling.Nitro.NitroAmount.Value = 250
end
end
end)