local Neoncore = Instance.new("ScreenGui")
local main = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local afkfarm = Instance.new("TextButton")
local fast_car = Instance.new("TextButton")
local InfiniteNitro = Instance.new("TextButton")
local Perks = Instance.new("TextButton")
local CrateTP = Instance.new("TextButton")
local afkfarm_2 = Instance.new("TextButton")
local Closegame = Instance.new("TextButton")
local CrateESP = Instance.new("TextButton")
local MadeBy = Instance.new("TextLabel")

Neoncore.Name = "Neon core"
Neoncore.Parent = game.CoreGui

main.Name = "main"
main.Parent = Neoncore
main.BackgroundColor3 = Color3.new(0, 0, 0)
main.BackgroundTransparency = 0.5
main.Position = UDim2.new(0.00648147939, 0, 0.0202952195, 0)
main.Size = UDim2.new(0, 220, 0, 304)
main.Active = true
main.Draggable = true
main.Visible = true

Title.Name = "Title"
Title.Parent = main
Title.BackgroundColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.BorderSizePixel = 0
Title.Size = UDim2.new(0, 220, 0, 50)
Title.Font = Enum.Font.Cartoon
Title.Text = "Neon Core"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.TextScaled = true
Title.TextSize = 14
Title.TextWrapped = true

afkfarm.Name = "afk farm"
afkfarm.Parent = main
afkfarm.BackgroundColor3 = Color3.new(0, 0, 0)
afkfarm.BackgroundTransparency = 0.40000000596046
afkfarm.BorderSizePixel = 0
afkfarm.Position = UDim2.new(0, 0, 0.161184236, 0)
afkfarm.Size = UDim2.new(0, 107, 0, 45)
afkfarm.Font = Enum.Font.Cartoon
afkfarm.Text = "AFK Farm"
afkfarm.TextColor3 = Color3.new(1, 1, 1)
afkfarm.TextSize = 14
afkfarm.MouseButton1Down:connect(function()
--[[
Fully automatic money/miles farm
TODO:
Add auto respawn vehicle
]]
local waitTime = 3 --This will be the time it takes (seconds) until your car resets. See line 37
--Do not change anything below :)
local hint = Instance.new('Hint', Workspace) hint.Text = "Vehicle Simulator Autofarm loading..."
local found = false
local go = true

function findVehicle() --Finds your vehicle
   while not found do --Loops until your vehicle has been found
       local vehicles = Workspace.Vehicles:getChildren()
       for i=1,#vehicles do
           if vehicles[i]:findFirstChild'owner' then
               if vehicles[i].owner.Value == game:GetService'Players'.LocalPlayer.Name then -- Found your vehicle
                   found = true --Setting found to true so loop breaks
                   vehicle = vehicles[i] -- Declares vehicle variable to your vehicle
                   vehStats = vehicle.Handling -- Declares vehStats variable to vehicle stats folder
                   vehStats.MaxSpeed.Value = 800
                   vehStats.Torque.Value = 100000
                   vehStats.SteeringRadiusConstant.Value = 120000000
               elseif vehicles[i + 1] == nil and not found then
                   --Autorespawn would go here
                   hint.Text = "Please spawn and enter your vehicle!" --Your vehicle does not exist in the Workspace
               end
           end
       end
       wait(1) --Waiting before checking again so we don't crash
   end
   wait(2) --We've found the car. Waiting so the car can be properly placed on the highway
   vehicle.PrimaryPart = vehicle.Chassis.VehicleSeat
end

function farm() --This is where the magic happens :)
   hint.Text = "Finished loading! Autofarm initialized."
   while wait(waitTime) do --Waits x seconds before resetting car
       vehicle:SetPrimaryPartCFrame(CFrame.new(-2470,60,777)) --Teleports vehicle to highway
       game:GetService'VirtualUser':SetKeyUp("w") --Resets W key
       game:GetService'VirtualUser':SetKeyDown("w") --Presses W key to go forward
   end
end
findVehicle() --Calls the findVehicle function
while go do
   if not pcall(farm()) then --Calls farm function & checks for errors
       found = false  --If it errors, it sets found to false and continues looking for your vehicle.
       findVehicle()
   end
end
end)

fast_car.Name = "fast_car"
fast_car.Parent = main
fast_car.BackgroundColor3 = Color3.new(0, 0, 0)
fast_car.BackgroundTransparency = 0.40000000596046
fast_car.BorderSizePixel = 0
fast_car.Position = UDim2.new(0.513636351, 0, 0.161184162, 0)
fast_car.Size = UDim2.new(0, 107, 0, 45)
fast_car.Font = Enum.Font.Cartoon
fast_car.Text = "Fast Car"
fast_car.TextColor3 = Color3.new(1, 1, 1)
fast_car.TextSize = 14
fast_car.MouseButton1Down:connect(function()
veh = nil
for i,v in pairs(game.Workspace.Vehicles:GetChildren()) do
if v:IsA("Model") then
if v.owner.Value == game.Players.LocalPlayer.Name then
veh = v
end
end
end

if veh then
han = veh.Handling
han.MaxSpeed.Value = 10000
han.Torque.Value = 20000
han.SteeringRadiusConstant.Value = 12000
han.FrictionOffroad.Value = 200
han.FrictionRoad.Value = 200
else
print("Unable to find your vehicle!")
end
--- You can change both the MaxSpeed value and Torque value for extra speed. Please keep in mind this makes you unable to steer unless you know the physics of the game and you can change the Steering RadiusConstant value in accordance to your modifications. ---
end)

InfiniteNitro.Name = "Infinite Nitro"
InfiniteNitro.Parent = main
InfiniteNitro.BackgroundColor3 = Color3.new(0, 0, 0)
InfiniteNitro.BackgroundTransparency = 0.40000000596046
InfiniteNitro.BorderSizePixel = 0
InfiniteNitro.Position = UDim2.new(0, 0, 0.335526347, 0)
InfiniteNitro.Size = UDim2.new(0, 107, 0, 45)
InfiniteNitro.Font = Enum.Font.Cartoon
InfiniteNitro.Text = "Infinite Nitro"
InfiniteNitro.TextColor3 = Color3.new(1, 1, 1)
InfiniteNitro.TextSize = 14
InfiniteNitro.MouseButton1Down:connect(function()
nspeed = 300 --The speed that the nitro will amplify your speed by!
nforce = 8000 --The amount of force the nitro will put on your car.
veh = nil
for i,v in pairs(game.Workspace.Vehicles:GetChildren()) do
if v:IsA("Model") then
if v.owner.Value == game.Players.LocalPlayer.Name then
veh = v
end
end
end

if veh then
han.Nitro.NitroSpeed.Value = nspeed
han.Nitro.NitroForce.Value = nforce
else
print("Unable to find your vehicle!")
end
end)

Perks.Name = "Perks"
Perks.Parent = main
Perks.BackgroundColor3 = Color3.new(0, 0, 0)
Perks.BackgroundTransparency = 0.40000000596046
Perks.BorderSizePixel = 0
Perks.Position = UDim2.new(0.513636351, 0, 0.335526347, 0)
Perks.Size = UDim2.new(0, 107, 0, 45)
Perks.Font = Enum.Font.Cartoon
Perks.Text = "Perks"
Perks.TextColor3 = Color3.new(1, 1, 1)
Perks.TextSize = 14
Perks.MouseButton1Down:connect(function()
game.Players.LocalPlayer.UserId = 1099580
end)

CrateTP.Name = "Crate TP"
CrateTP.Parent = main
CrateTP.BackgroundColor3 = Color3.new(0, 0, 0)
CrateTP.BackgroundTransparency = 0.40000000596046
CrateTP.BorderSizePixel = 0
CrateTP.Position = UDim2.new(0.513636351, 0, 0.513157904, 0)
CrateTP.Size = UDim2.new(0, 107, 0, 45)
CrateTP.Font = Enum.Font.Cartoon
CrateTP.Text = "Crate TP"
CrateTP.TextColor3 = Color3.new(1, 1, 1)
CrateTP.TextSize = 14
CrateTP.MouseButton1Down:connect(function()
local crates = workspace:getChildren()
for i=1,#crates do
if crates[i].ClassName == "Model" then
local crates2 = crates[i]:getChildren()
for i=1,#crates2 do
if crates2[i].ClassName == "Model" then
local crates3 = crates2[i]:getChildren()
for i=1,#crates3 do
if crates3[i].ClassName == "MeshPart" then
if crates3[i]:findFirstChild("Smoke") then
game.Players.LocalPlayer.Character:MoveTo(Vector3.new(crates3[i].Position.X+30,crates3[i].Position.Y+5,crates3[i].Position.Z))
wait()
game.Players.LocalPlayer.Character.Humanoid:MoveTo(Vector3.new(crates3[i].Position.X,crates3[i].Position.Y,crates3[i].Position.Z))
wait(4)
end
end
end
end
end
end
end
end)

afkfarm_2.Name = "afk farm"
afkfarm_2.Parent = main
afkfarm_2.BackgroundColor3 = Color3.new(0, 0, 0)
afkfarm_2.BackgroundTransparency = 0.40000000596046
afkfarm_2.BorderSizePixel = 0
afkfarm_2.Position = UDim2.new(0, 0, 0.694078922, 0)
afkfarm_2.Size = UDim2.new(0, 107, 0, 45)
afkfarm_2.Font = Enum.Font.Cartoon
afkfarm_2.Text = "AFK Farm Subway"
afkfarm_2.TextColor3 = Color3.new(1, 1, 1)
afkfarm_2.TextSize = 14
afkfarm_2.MouseButton1Down:connect(function()
--[[
Fully automatic money/miles farm
TODO:
Add auto respawn vehicle
]]
local waitTime = 1 --This will be the time it takes (seconds) until your car resets. See line 37
--Do not change anything below :)
local hint = Instance.new('Hint', Workspace) hint.Text = "Vehicle Simulator Autofarm Edited By 8lu3C loading..."
local found = false
local go = true

function findVehicle() --Finds your vehicle
   while not found do --Loops until your vehicle has been found
       local vehicles = Workspace.Vehicles:getChildren()
       for i=1,#vehicles do
           if vehicles[i]:findFirstChild'owner' then
               if vehicles[i].owner.Value == game:GetService'Players'.LocalPlayer.Name then -- Found your vehicle
                   found = true --Setting found to true so loop breaks
                   vehicle = vehicles[i] -- Declares vehicle variable to your vehicle
                   vehStats = vehicle.Handling -- Declares vehStats variable to vehicle stats folder
                   vehStats.MaxSpeed.Value = 800
                   vehStats.Torque.Value = 17000
                   vehStats.SteeringRadiusConstant.Value = 120000000
               elseif vehicles[i + 1] == nil and not found then
                   --Autorespawn would go here
                   hint.Text = "Please spawn and enter your vehicle!" --Your vehicle does not exist in the Workspace
               end
           end
       end
       wait(1) --Waiting before checking again so we don't crash
   end
   wait(2) --We've found the car. Waiting so the car can be properly placed on the highway
   vehicle.PrimaryPart = vehicle.Chassis.VehicleSeat
end

function farm() --This is where the magic happens :)
   hint.Text = "Finished loading! Autofarm initialized."
   while wait(waitTime) do --Waits x seconds before resetting car
       vehicle:SetPrimaryPartCFrame(CFrame.new(-280,23,-309)) --Teleports vehicle to highway
       game:GetService'VirtualUser':SetKeyUp("w") --Resets W key
       game:GetService'VirtualUser':SetKeyDown("w") --Presses W key to go forward
   end
end
findVehicle() --Calls the findVehicle function
while go do
   if not pcall(farm()) then --Calls farm function & checks for errors
       found = false  --If it errors, it sets found to false and continues looking for your vehicle.
       findVehicle()
   end
end
end)

Closegame.Name = "Close game"
Closegame.Parent = main
Closegame.BackgroundColor3 = Color3.new(0, 0, 0)
Closegame.BackgroundTransparency = 0.40000000596046
Closegame.BorderSizePixel = 0
Closegame.Position = UDim2.new(0.513636351, 0, 0.694078922, 0)
Closegame.Size = UDim2.new(0, 107, 0, 45)
Closegame.Font = Enum.Font.Cartoon
Closegame.Text = "Disconnect From Game"
Closegame.TextColor3 = Color3.new(1, 1, 1)
Closegame.TextSize = 14
Closegame.TextWrapped = true
Closegame.MouseButton1Down:connect(function()
game.Players.LocalPlayer:Kick()
end)

CrateESP.Name = "Crate ESP"
CrateESP.Parent = main
CrateESP.BackgroundColor3 = Color3.new(0, 0, 0)
CrateESP.BackgroundTransparency = 0.40000000596046
CrateESP.BorderSizePixel = 0
CrateESP.Position = UDim2.new(0, 0, 0.513157845, 0)
CrateESP.Size = UDim2.new(0, 107, 0, 45)
CrateESP.Font = Enum.Font.Cartoon
CrateESP.Text = "Crate ESP"
CrateESP.TextColor3 = Color3.new(1, 1, 1)
CrateESP.TextSize = 14
CrateESP.MouseButton1Down:connect(function()
local crates = workspace:getChildren()
for i=1,#crates do
if crates[i].ClassName == "Model" then
local crates2 = crates[i]:getChildren()
for i=1,#crates2 do
if crates2[i].ClassName == "Model" then
local crates3 = crates2[i]:getChildren()
for i=1,#crates3 do
if crates3[i].ClassName == "MeshPart" then
if crates3[i]:findFirstChild("Smoke") then
if crates3[i]:findFirstChild("BoxHandleAdornment") then
else
local a = Instance.new("BoxHandleAdornment",crates3[i])
a.Size = Vector3.new(10,500,6)
a.SizeRelativeOffset = Vector3.new(0,135,0)
a.Color3 = Color3.fromRGB(0,255,0)
a.Transparency = 0.5
a.AlwaysOnTop = true
a.Adornee = crates3[i]
a.ZIndex = 1
local b = Instance.new("BoxHandleAdornment",crates3[i])
b.Size = Vector3.new(10,4,6)
b.Color3 = Color3.fromRGB(0,0,255)
b.Transparency = 0.3
b.AlwaysOnTop = true
b.Adornee = crates3[i]
b.ZIndex = 1
end
end
end
end
end
end
end
end
end)

MadeBy.Name = "Made By"
MadeBy.Parent = main
MadeBy.BackgroundColor3 = Color3.new(1, 1, 1)
MadeBy.BackgroundTransparency = 1
MadeBy.BorderSizePixel = 0
MadeBy.Position = UDim2.new(0, 0, 0.832236826, 0)
MadeBy.Size = UDim2.new(0, 220, 0, 50)
MadeBy.Font = Enum.Font.Cartoon
MadeBy.Text = "Made By 0lIl3 & 8lu3C"
MadeBy.TextColor3 = Color3.new(1, 1, 1)
MadeBy.TextSize = 14
MadeBy.TextWrapped = true
------------------------------------------------------------------------------------