HHLExploits

hii

Jan 14th, 2020
126
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. _G.d = true
  2. local function HttpGet(url)
  3. return game:GetService("HttpService"):JSONDecode(htgetf(url))
  4. end
  5. game:GetService('RunService').Stepped:connect(function()
  6. if _G.d then
  7. game.Players.LocalPlayer.Character.Humanoid:ChangeState(11)
  8. end
  9. end)
  10. local info = TweenInfo.new(1,Enum.EasingStyle.Quad);
  11. function tp(x,y,z)
  12. local tween,err = pcall(function()
  13. local tween = game:GetService("TweenService"):Create(game.Players.LocalPlayer.Character["HumanoidRootPart"],TweenInfo.new(1,Enum.EasingStyle.Quad),{CFrame=CFrame.new(x,y,z)});
  14. tween:Play();
  15. end)
  16. if not tween then return err end
  17. end
  18. function FindNearest(chests)
  19. local lowest = math.huge -- infinity
  20. local chest = nil
  21. for i,v in pairs(chests) do
  22. if v then
  23. local distance = (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).magnitude
  24. if distance < lowest then
  25. lowest = distance
  26. chest = v
  27. end
  28. end
  29. end
  30. return chest
  31. end
  32. if tonumber(game.PlaceId) == 2753915549 then
  33. game:GetService("ReplicatedStorage"):WaitForChild("Remotes")
  34. local TeleportService = game:GetService("TeleportService")
  35. while _G.d and wait() do
  36. local chests = {}
  37. for i,d in pairs(game:GetService("Workspace"):GetChildren()) do
  38. if string.find(d.Name, "Chest") ~= nil then
  39. table.insert(chests, d)
  40. end
  41. end
  42. if #chests == 0 then
  43. pcall(function()
  44. local d = HttpGet("https://www.roblox.com/games/getgameinstancesjson?placeId=" .. game.PlaceId .. "&startindex=0")
  45. local f = HttpGet("https://www.roblox.com/games/getgameinstancesjson?placeId=" .. game.PlaceId .. "&startindex=".. math.random(0,tonumber(d.TotalCollectionSize)))
  46. local c = f.Collection[math.random(1,#f.Collection)]
  47. game:GetService("TeleportService"):TeleportToPlaceInstance(game.PlaceId, c.Guid)
  48. end)
  49. wait(0.5)
  50. end
  51. if game.Players.LocalPlayer.Team == nil then
  52. game:GetService("ReplicatedStorage").Remotes["CommF_"]:InvokeServer("SetTeam", "Marines")
  53. end
  54. if game.Players.LocalPlayer.Character then
  55. local close = FindNearest(chests)
  56. if close == nil then
  57. pcall(function()
  58. local d = HttpGet("https://www.roblox.com/games/getgameinstancesjson?placeId=" .. game.PlaceId .. "&startindex=0")
  59. local f = HttpGet("https://www.roblox.com/games/getgameinstancesjson?placeId=" .. game.PlaceId .. "&startindex=".. math.random(0,tonumber(d.TotalCollectionSize)))
  60. local c = f.Collection[math.random(1,#f.Collection)]
  61. game:GetService("TeleportService"):TeleportToPlaceInstance(game.PlaceId, c.Guid)
  62. end)
  63. wait(0.5)
  64. else
  65. tp(close.CFrame.X,close.CFrame.Y,close.CFrame.Z)
  66. repeat wait() until d == nil or d.Parent == nil or _G.d == false
  67. end
  68. end
  69.  
  70. end
  71. end
RAW Paste Data