Advertisement
Guest User

Untitled

a guest
Nov 18th, 2018
188
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.21 KB | None | 0 0
  1. -- Farewell Infortality.
  2. -- Version: 2.82
  3. -- Instances:
  4.  
  5. FarmStart = false
  6. FarmArea = "none"
  7.  
  8. local petTable = {}
  9. local Try = 0
  10. local Amount = 0
  11.  
  12. function PetTable()
  13. local Stats = workspace["__REMOTES"]["Core"]["Get Other Stats"]:InvokeServer()
  14. local Times = #Stats[game.Players.LocalPlayer.Name]["Save"]["Pets"]
  15. local Name = game:GetService("Players").LocalPlayer.Name
  16. petTable = {}
  17. Try = 0
  18. Amount = 0
  19. for i=1,Times do
  20. if(Stats[Name]["Save"]["Pets"][Times].e == true) then
  21. Amount = Amount + 1
  22. petTable[Amount] = {
  23. ["ID"] = tonumber(Stats[Name]["Save"]["Pets"][Times].id),
  24. ["LEVEL"] = tonumber(Stats[Name]["Save"]["Pets"][Times].l),
  25. }
  26. end
  27. Times = Times - 1
  28. end
  29. end
  30.  
  31. local ScreenGui = Instance.new("ScreenGui")
  32. local Frame = Instance.new("Frame")
  33. local Open = Instance.new("TextButton")
  34. local FarmFrame = Instance.new("Frame")
  35. local StartFarmingMoon = Instance.new("TextButton")
  36. local Close = Instance.new("TextButton")
  37. local MoonHealthMin = Instance.new("TextBox")
  38. local MoonHealthMax = Instance.new("TextBox")
  39. local MoonHealthMinLabel = Instance.new("TextLabel")
  40. local MoonHealthMaxLabel = Instance.new("TextLabel")
  41. local TextLabel = Instance.new("TextLabel")
  42.  
  43. --Properties:
  44.  
  45. ScreenGui.Parent = game.CoreGui
  46.  
  47. Frame.Parent = ScreenGui
  48. Frame.BackgroundColor3 = Color3.new(0, 0, 0)
  49. Frame.BackgroundTransparency = 0.60000002384186
  50. Frame.Position = UDim2.new(0, 0, 0.447852761, 0)
  51. Frame.Size = UDim2.new(0, 75, 0, 32)
  52.  
  53. Open.Name = "Open"
  54. Open.Parent = Frame
  55. Open.AnchorPoint = Vector2.new(0.600000024, 0.600000024)
  56. Open.BackgroundColor3 = Color3.new(0, 0, 0)
  57. Open.BackgroundTransparency = 0.60000002384186
  58. Open.Position = UDim2.new(0.606666744, 0, 0.59375, 0)
  59. Open.Size = UDim2.new(0, 76, 0, 32)
  60. Open.Font = Enum.Font.SourceSans
  61. Open.Text = "Open"
  62. Open.TextColor3 = Color3.new(1, 1, 1)
  63. Open.TextSize = 14
  64. Open.MouseButton1Down:connect(function()
  65. FarmFrame.Visible = true
  66. Frame.Visible = false
  67. end)
  68.  
  69. FarmFrame.Name = "FarmFrame"
  70. FarmFrame.Parent = ScreenGui
  71. FarmFrame.BackgroundColor3 = Color3.new(0, 0, 0)
  72. FarmFrame.BackgroundTransparency = 0.34999999403954
  73. FarmFrame.Position = UDim2.new(0.0883977935, 0, 0.373006165, 0)
  74. FarmFrame.Size = UDim2.new(0, 232, 0, 153)
  75. FarmFrame.Visible = false
  76.  
  77. StartFarmingMoon.Name = "StartFarmingMoon"
  78. StartFarmingMoon.Parent = FarmFrame
  79. StartFarmingMoon.BackgroundColor3 = Color3.new(0, 0, 0)
  80. StartFarmingMoon.Position = UDim2.new(0.068965517, 0, 0.618496299, 0)
  81. StartFarmingMoon.Size = UDim2.new(0, 200, 0, 50)
  82. StartFarmingMoon.Font = Enum.Font.SourceSans
  83. StartFarmingMoon.Text = "Mine Moon: OFF"
  84. StartFarmingMoon.TextColor3 = Color3.new(1, 1, 1)
  85. StartFarmingMoon.TextSize = 14
  86. StartFarmingMoon.TextWrapped = true
  87.  
  88. Close.Name = "Close"
  89. Close.Parent = FarmFrame
  90. Close.BackgroundColor3 = Color3.new(0, 0, 0)
  91. Close.Position = UDim2.new(0.896551728, 0, 0, 0)
  92. Close.Size = UDim2.new(0, 24, 0, 22)
  93. Close.Font = Enum.Font.SourceSans
  94. Close.Text = "X"
  95. Close.TextColor3 = Color3.new(1, 1, 1)
  96. Close.TextSize = 14
  97. Close.MouseButton1Down:connect(function()
  98. Frame.Visible = true
  99. FarmFrame.Visible = false
  100. end)
  101.  
  102. MoonHealthMin.Name = "MoonHealthMin"
  103. MoonHealthMin.Parent = FarmFrame
  104. MoonHealthMin.BackgroundColor3 = Color3.new(1, 1, 1)
  105. MoonHealthMin.Position = UDim2.new(0.232758626, 0, 0.19859226, 0)
  106. MoonHealthMin.Size = UDim2.new(0, 154, 0, 23)
  107. MoonHealthMin.Font = Enum.Font.SourceSans
  108. MoonHealthMin.Text = "10e04"
  109. MoonHealthMin.TextColor3 = Color3.new(0, 0, 0)
  110. MoonHealthMin.TextSize = 14
  111. MoonHealthMin.TextWrapped = true
  112.  
  113. MoonHealthMax.Name = "MoonHealthMax"
  114. MoonHealthMax.Parent = FarmFrame
  115. MoonHealthMax.BackgroundColor3 = Color3.new(1, 1, 1)
  116. MoonHealthMax.Position = UDim2.new(0.232758626, 0, 0.420311749, 0)
  117. MoonHealthMax.Size = UDim2.new(0, 154, 0, 23)
  118. MoonHealthMax.Font = Enum.Font.SourceSans
  119. MoonHealthMax.Text = "60e06"
  120. MoonHealthMax.TextColor3 = Color3.new(0, 0, 0)
  121. MoonHealthMax.TextSize = 14
  122. MoonHealthMax.TextWrapped = true
  123.  
  124. MoonHealthMinLabel.Name = "MoonHealthMinLabel"
  125. MoonHealthMinLabel.Parent = FarmFrame
  126. MoonHealthMinLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  127. MoonHealthMinLabel.Position = UDim2.new(0.068965517, 0, 0.19859226, 0)
  128. MoonHealthMinLabel.Size = UDim2.new(0, 36, 0, 23)
  129. MoonHealthMinLabel.Font = Enum.Font.SourceSans
  130. MoonHealthMinLabel.Text = "Min"
  131. MoonHealthMinLabel.TextColor3 = Color3.new(0, 0, 0)
  132. MoonHealthMinLabel.TextSize = 14
  133. MoonHealthMinLabel.TextWrapped = true
  134.  
  135. MoonHealthMaxLabel.Name = "MoonHealthMaxLabel"
  136. MoonHealthMaxLabel.Parent = FarmFrame
  137. MoonHealthMaxLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  138. MoonHealthMaxLabel.Position = UDim2.new(0.068965517, 0, 0.420311749, 0)
  139. MoonHealthMaxLabel.Size = UDim2.new(0, 36, 0, 23)
  140. MoonHealthMaxLabel.Font = Enum.Font.SourceSans
  141. MoonHealthMaxLabel.Text = "Max"
  142. MoonHealthMaxLabel.TextColor3 = Color3.new(0, 0, 0)
  143. MoonHealthMaxLabel.TextSize = 14
  144. MoonHealthMaxLabel.TextWrapped = true
  145.  
  146. TextLabel.Parent = FarmFrame
  147. TextLabel.BackgroundColor3 = Color3.new(0, 0, 0)
  148. TextLabel.BackgroundTransparency = 0.85000002384186
  149. TextLabel.Position = UDim2.new(0, 0, -0.0040221368, 0)
  150. TextLabel.Size = UDim2.new(0, 208, 0, 20)
  151. TextLabel.Font = Enum.Font.SourceSans
  152. TextLabel.Text = "MoonFarm"
  153. TextLabel.TextColor3 = Color3.new(1, 0, 0)
  154. TextLabel.TextSize = 14
  155. TextLabel.TextWrapped = true
  156.  
  157. -- Farm --
  158.  
  159. StartFarmingMoon.MouseButton1Click:connect(function()
  160. if not FarmStart then
  161. FarmArea = "moon"
  162. FarmFrame.BackgroundColor3 = Color3.new(0, 0.3, 0)
  163. StartFarmingMoon.BackgroundColor3 = Color3.new(0, 0.3, 0)
  164. StartFarmingMoon.Text = "Mine Moon: ON"
  165. PetTable()
  166. FarmStart = true
  167. else
  168. FarmStart = false
  169. FarmArea = "none"
  170. FarmFrame.BackgroundColor3 = Color3.new(0, 0, 0)
  171. StartFarmingMoon.BackgroundColor3 = Color3.new(0, 0, 0)
  172. StartFarmingMoon.Text = "Mine Moon: OFF"
  173. end
  174. end)
  175.  
  176. function Mine(Coin)
  177. while FarmStart and (Coin:FindFirstChild("Health") ~= nil) and (Coin:FindFirstChild("Health").Value > 0) do
  178. wait(0.1)
  179. for PetNumber,_ in pairs(petTable) do
  180. workspace["__REMOTES"]["Game"]["Coins"]:FireServer("Mine",Coin.Name,petTable[PetNumber]["LEVEL"],petTable[PetNumber]["ID"])
  181. end
  182. end
  183. end
  184.  
  185. spawn(function()
  186. while true do
  187. while FarmStart do
  188. for _,Coin in next, workspace["__THINGS"].Coins:GetChildren() do
  189. if (done ~= Coin) then
  190. if (FarmArea == "all") then
  191. if workspace.__THINGS.Coins:FindFirstChild(Coin.Name) then
  192. if Coin.Health.Value > tonumber(AllHealthMin.Text) and Coin.Health.Value < tonumber(AllHealthMax.Text) then
  193. Mine(Coin)
  194. end
  195. end
  196. elseif (FarmArea == "earth") then
  197. if workspace.__THINGS.Coins:FindFirstChild(Coin.Name) then
  198. if Coin.Position.Y < 100 then
  199. if Coin.Health.Value > tonumber(EarthHealthMin.Text) and Coin.Health.Value < tonumber(EarthHealthMax.Text) then
  200. Mine(Coin)
  201. end
  202. end
  203. end
  204. elseif (FarmArea == "moon") then
  205. if workspace.__THINGS.Coins:FindFirstChild(Coin.Name) then
  206. if Coin.Position.Y > 100 then
  207. if Coin.Health.Value > tonumber(MoonHealthMin.Text) and Coin.Health.Value < tonumber(MoonHealthMax.Text) then
  208. Mine(Coin)
  209. end
  210. end
  211. end
  212. else
  213. end
  214. end
  215. end
  216. wait()
  217. end
  218. wait()
  219. end
  220. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement