SHARE
TWEET

hsuadh

HHLExploits Nov 26th, 2019 106 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Fuctions
  2. function findcar()
  3. for i,v in pairs(game.workspace.Vehicles:getChildren()) do
  4. if v:findFirstChild("owner") then
  5. if v.owner.Value == game.Players.LocalPlayer.Name then
  6. return v
  7. end
  8. end
  9. end
  10. end
  11. function tp(x, y, z, time)
  12.   findcar():SetPrimaryPartCFrame(CFrame.new(x, y + 10, z))
  13.   print(x.." "..y.." "..z)
  14.   wait(time)
  15. end
  16. function race(laps, name, time)
  17.   for k = 1, laps do
  18.     SecondCP = nil
  19.     for i,v in pairs(game.workspace.race_checkpoints:FindFirstChild(name, true):GetChildren()) do
  20.       if v.Name == "Checkpoint_2" then
  21.         SecondCP = v
  22.       end
  23.       if v.Name == "Checkpoint_1" then
  24.         if SecondCP == nil then
  25.           x = v.Position.x
  26.           y = v.Position.y
  27.           z = v.Position.z
  28.           tp(x, y, z, time)
  29.         else
  30.           x = v.Position.x
  31.           y = v.Position.y
  32.           z = v.Position.z
  33.           tp(x, y, z, time)
  34.           x = SecondCP.Position.x
  35.           y = SecondCP.Position.y
  36.           z = SecondCP.Position.z
  37.           tp(x, y, z, time)
  38.         end
  39.       end
  40.       if v.Name ~= "Checkpoint_1" and v.Name ~= "Checkpoint_2" then
  41.         x = v.Position.x
  42.         y = v.Position.y
  43.         z = v.Position.z
  44.         tp(x, y, z, time)
  45.       end
  46.     end
  47.   end
  48. end
  49. -- Gui
  50. local library = loadstring(game:HttpGet("https://pastebin.com/raw/eWKgbdix", true))()
  51. local w = library:CreateWindow('Cool Stuff 🚧')
  52. w:Section("Teleport to Race checkpoints")
  53. local b = w:Button("Highway Race", function()
  54. race(2, "highway_checkpoints", 0.3)
  55. Highway = game.workspace.race_checkpoints.highway_checkpoints.Checkpoint_1.Position
  56. tp(Highway.x, Highway.y, Highway.z, time)
  57. end)
  58. local b = w:Button("Airport Race", function()
  59. race(1, "airport_checkpoints", 0.3)
  60. end)
  61. local b = w:Button("Drag Strip Race", function()
  62. race(1, "quartermile_checkpoints", 0.3)
  63. end)
  64. local b = w:Button("Around The World Race", function()
  65. race(1, "aroundtheworld_checkpoints", 0.3)
  66. end)
  67. local b = w:Button("Shipping Yard Race", function()
  68. race(1, "shippingyard_checkpoints", 0.3)
  69. end)
  70. local b = w:Button("Dune Rally Race", function()
  71. race(1, "dunerally_checkpoints", 0.3)
  72. end)
  73. local b = w:Button("Race Track Race", function()
  74. race(1, "racetrack_checkpoints", 0.3)
  75. end)
  76. local b = w:Button("Sea Dash Race", function()
  77. race(1, "seadash_checkpoints", 0.3)
  78. end)
  79. w:Section("Other Cool Stuff")
  80. local b = w:Button("Auto Farm", function()
  81. --[[
  82. Fully automatic money/miles farm
  83. TODO:
  84. Add auto respawn vehicle
  85. ]]
  86. local waitTime = 1 --This will be the time it takes (seconds) until your car resets. See line 37
  87. --Do not change anything below :)
  88. local hint = Instance.new('Hint', Workspace) hint.Text = "Vehicle Simulator Autofarm loading..."
  89. local found = false
  90. local go = true
  91.  
  92. function findVehicle() --Finds your vehicle
  93.   while not found do --Loops until your vehicle has been found
  94.       local vehicles = Workspace.Vehicles:getChildren()
  95.       for i=1,#vehicles do
  96.           if vehicles[i]:findFirstChild'owner' then
  97.               if vehicles[i].owner.Value == game:GetService'Players'.LocalPlayer.Name then -- Found your vehicle
  98.                   found = true --Setting found to true so loop breaks
  99.                   vehicle = vehicles[i] -- Declares vehicle variable to your vehicle
  100.                   vehStats = vehicle.Handling -- Declares vehStats variable to vehicle stats folder
  101.                   vehStats.MaxSpeed.Value = 700
  102.                   vehStats.Torque.Value = 20000
  103.                   vehStats.SteeringRadiusConstant.Value = 120000000
  104.               elseif vehicles[i + 1] == nil and not found then
  105.                   --Autorespawn would go here
  106.                   hint.Text = "Please spawn and enter your vehicle!" --Your vehicle does not exist in the Workspace
  107.               end
  108.           end
  109.       end
  110.       wait(1) --Waiting before checking again so we don't crash
  111.   end
  112.   wait(2) --We've found the car. Waiting so the car can be properly placed on the highway
  113.   vehicle.PrimaryPart = vehicle.Chassis.VehicleSeat
  114. end
  115. function farm() --This is where the magic happens :)
  116.   hint.Text = "Finished loading! Autofarm initialized."
  117.   while wait(waitTime) do --Waits x seconds before resetting car
  118.       vehicle:SetPrimaryPartCFrame(CFrame.new(-2470,60,777)) --Teleports vehicle to highway
  119.       game:GetService'VirtualUser':SetKeyUp("w") --Resets W key
  120.       game:GetService'VirtualUser':SetKeyDown("w") --Presses W key to go forward
  121.   end
  122. end
  123. findVehicle() --Calls the findVehicle function
  124. while go do
  125.   if not pcall(farm()) then --Calls farm function & checks for errors
  126.       found = false  --If it errors, it sets found to false and continues looking for your vehicle.
  127.       findVehicle()
  128.   end
  129. end
  130. end)
  131. local b = w:Button("Give All Perks", function()
  132. game:GetService("Players").LocalPlayer.UserId = 1099580
  133. end)
  134. local s = library:CreateWindow('Car Settings 🚗')
  135. local box = s:Box('MaxSpeed', {
  136.    flag = "tq";
  137.    type = 'number';
  138. }, function(new)
  139. findcar().Handling.MaxSpeed.Value = new
  140. end)
  141. local box = s:Box('Torque', {
  142.    flag = "tq";
  143.    type = 'number';
  144. }, function(new)
  145. findcar().Handling.Torque.Value = new
  146. end)
  147. local box = s:Box('Spring Stiffness', {
  148.    flag = "tq";
  149.    type = 'number';
  150. }, function(new)
  151. findcar().Handling.Suspension.Stiffness.Value = new
  152. end)
  153. local box = s:Box('Spring Damping', {
  154.    flag = "tq";
  155.    type = 'number';
  156. }, function(new)
  157. findcar().Handling.Suspension.Damping.Value = new
  158. end)
  159. local box = s:Box('Rear Height', {
  160.    flag = "tq";
  161.    type = 'number';
  162. }, function(new)
  163. findcar().Handling.Suspension.RearHeight.Value = new
  164. end)
  165. local box = s:Box('Front Height', {
  166.    flag = "tq";
  167.    type = 'number';
  168. }, function(new)
  169. findcar().Handling.Suspension.FrontHeight.Value = new
  170. end)
  171. local box = s:Box('DownForce', {
  172.    flag = "tq";
  173.    type = 'number';
  174. }, function(new)
  175. findcar().Handling.DownForceMultiple.Value = new
  176. end)
  177. local box = s:Box('Friction OffRoad', {
  178.    flag = "tq";
  179.    type = 'number';
  180. }, function(new)
  181. findcar().Handling.FrictionOffRoad.Value = new
  182. end)
  183. local box = s:Box('Friction OnRoad', {
  184.    flag = "tq";
  185.    type = 'number';
  186. }, function(new)
  187. findcar().Handling.FrictionRoad.Value = new
  188. end)
  189. local box = s:Box('Car JumpPower', {
  190.    flag = "tq";
  191.    type = 'number';
  192. }, function(new)
  193. findcar().Handling.TurboJump.TurboJumpHeight.Value = new
  194. end)
  195. local box = s:Box('Air Rotation Power', {
  196.    flag = "tq";
  197.    type = 'number';
  198. }, function(new)
  199. findcar().Handling.AirRotation.Power.Value = new
  200. end)
  201. local box = s:Box('Car Mass', {
  202.    flag = "tq";
  203.    type = 'number';
  204. }, function(new)
  205. findcar().Handling.Mass.Value = new
  206. end)
  207. local box = s:Box('Nitro Speed', {
  208.    flag = "tq";
  209.    type = 'number';
  210. }, function(new)
  211. findcar().Handling.Nitro.NitroSpeed.Value = new
  212. end)
  213. local box = s:Box('Nitro Force', {
  214.    flag = "tq";
  215.    type = 'number';
  216. }, function(new)
  217. findcar().Handling.Nitro.NitroForce.Value = new
  218. end)
  219. local u = library:CreateWindow('Car Upgrades ⬆️')
  220. local t = u:Toggle('WeldedDiff', {flag = "WeldedDiff"})
  221. local t = u:Toggle('Turbo Jump', {flag = "TurboJump"})
  222. local t = u:Toggle('Air Rotation', {flag = "AirRotation"})
  223. local t = u:Toggle('Nitro', {flag = "Nitro"})
  224. local t = u:Toggle('Manual transmission', {flag = "Manualtransmission"})
  225. local t = u:Toggle('Unlimited Nitro', {flag = "UnlimitedNitro"})
  226. local b = u:Button("⬆️ Set Upgrades  ⬆️", function()
  227.    findcar().Handling.AirRotation.Value = u.flags.RearWheelDrive
  228.    findcar().Handling.TurboJump.Value = u.flags.TurboJump
  229.    findcar().Handling.Manual.Value = u.flags.Manualtransmission
  230.    findcar().Handling.Nitro.Value = u.flags.Nitro
  231.    findcar().Handling.WeldedDiff.Value = u.flags.WeldedDiff
  232.    if u.flags.UnlimitedNitro == true then
  233.     nitro = findcar().Handling
  234.     while nitro ~= nil do
  235.         wait(0.5)
  236.         nitro.Nitro.NitroAmount.Value = 250
  237.         end
  238.     end
  239. end)
  240.     local h = library:CreateWindow('Credit')
  241. h:Section("V3rmillion Links")
  242. local b = h:Button("Ui Maker Link 📋", function()
  243.     setclipboard("v3rmillion.net/member.php?action=profile&uid=359615")
  244. end)
  245. local b = h:Button("Script Maker Link 📋", function()
  246.     setclipboard("v3rmillion.net/member.php?action=profile&uid=759057")
  247. end)
  248. local b = h:Button("Idk who made the autofarm", function()
  249. end)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top