Guest User

Untitled

a guest
Dec 3rd, 2019
268
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. local settings = {
  2. ["Coin Farm"] = {
  3. ["Enabled"] = true;
  4. ["MinHP"] = 10000; -- Min hp of the coins
  5. ["MaxHP"] = 9e+18; -- Max hp of the coins
  6. }
  7. }
  8.  
  9. game.Workspace['__THINGS'].Drops.ChildAdded:Connect(function()
  10. for i , v in pairs(game.Workspace['__THINGS'].Drops:GetChildren()) do
  11. for r = 0 , 8 , 1 do
  12. local oh1 = { {v.Name, "id"..r }, { false, false } }
  13. game:GetService("Workspace")["__THINGS"]["__REMOTES"]["take drop"]:FireServer(oh1)
  14. end
  15. end
  16. end)
  17. while true do
  18. wait()
  19. for num,coin in pairs(game.workspace['__THINGS'].Coins:GetChildren()) do
  20. local a = {}
  21. if coin:FindFirstChild("Settings") ~= nil and coin.Settings.Health.Value <= settings["Coin Farm"]["MaxHP"] and coin.Settings.Health.Value >= settings["Coin Farm"]["MinHP"] then
  22. game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = coin.POS.CFrame + Vector3.new(0,9e+4,0)
  23. game.Players.LocalPlayer.Character.Humanoid:ChangeState(11)
  24. for i , c in pairs(game.Players.LocalPlayer.PlayerGui.Inventory.Frame.Container.Holder.Pets:GetChildren()) do
  25. if c:FindFirstChild("Equipped") ~= nil and c.Equipped.Visible == true then
  26. table.insert(a,c.Name)
  27. workspace.__THINGS.__REMOTES:FindFirstChild"join coin":InvokeServer({{coin.Name,c.Name},{false,false}})
  28. workspace.__THINGS.__REMOTES:FindFirstChild"change pet target":FireServer({{c.Name,"Coin",coin.Name},{false,false,false}})
  29. for i = 0 , 50, 1 do
  30. workspace.__THINGS.__REMOTES:FindFirstChild"farm coin":FireServer({{coin.Name,c.Name},{false,false}})
  31. end;end
  32. end
  33. repeat
  34. wait()
  35. for i , c in pairs(a) do
  36. workspace.__THINGS.__REMOTES:FindFirstChild"farm coin":FireServer({{coin.Name,c},{false,false}})
  37. end
  38. game.Players.LocalPlayer.Character.Humanoid:ChangeState(11)
  39. until game.workspace['__THINGS'].Coins:FindFirstChild(coin.Name) == nil or game.Players.LocalPlayer.Character == nil or coin == nil
  40. _G.On = settings["Coin Farm"]["Enabled"]
  41. end
  42. end
  43. end
RAW Paste Data