Ledger Nano X - The secure hardware wallet
SHARE
TWEET

Minery

brianops1 Apr 7th, 2020 (edited) 1,073 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --Game: https://www.roblox.com/games/1827671349/Minery
  2.  
  3. --https://detourious.gitbook.io/project-finity/docs
  4. if game:GetService("CoreGui"):FindFirstChild("FinityUI") then
  5.     game.CoreGui.FinityUI:Destroy()
  6. end
  7. local desc = [[
  8. This was a really easy script to make lol
  9. ]]
  10. local plr = game.Players.LocalPlayer
  11. local Finity = loadstring(game:HttpGet("http://finity.vip/scripts/finity_lib.lua"))()
  12. local FinityWindow = Finity.new(true)
  13. FinityWindow.ChangeToggleKey(Enum.KeyCode.Semicolon)
  14. local CreditsCategory = FinityWindow:Category("Credits/Info")
  15. local CreditsCreator = CreditsCategory:Sector("Finity Library Creator:")
  16. local ScriptCredit = CreditsCategory:Sector("Cheat Credit:")
  17. local Description = CreditsCategory:Sector("Description:")
  18. local OC = CreditsCategory:Sector("Open Close Button:")
  19. CreditsCreator:Cheat("Label", "detourious @ v3rmillion.net")
  20. ScriptCredit:Cheat("Label", "brianops16 @ v3rmillion.net")
  21. Description:Cheat("Label", desc)
  22. local Cheats = FinityWindow:Category("Cheats")
  23. local S1 = Cheats:Sector("Main Cheats")
  24. local EnumKeys = {'Semicolon','Tab','Equals','Comma','Minus','Period','F1',"F2","F3","F4",'F5',"F6","F7",
  25. "F8","F9","F10","F11","F12",'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', 'A', 'S', 'D', 'F', 'G', 'H',
  26.  'J', 'K', 'L', 'Z', 'X', 'C', 'V', 'B', 'N', 'M','Slash','One','Two','Three',"Four","Five","Six","Seven","Eight",
  27.  "Nine","Zero",'BackSlash','RightBracket','LeftBracket'}
  28. OC:Cheat("Dropdown", "(Default ';')", function(Option) --Dropdowns
  29.   print('Current key: '..Option)
  30.     FinityWindow.ChangeToggleKey(Enum.KeyCode[Option])
  31. end, {
  32.     options = EnumKeys
  33. })
  34. local Types = {}
  35. local Dist = 15
  36. local NoOres = false
  37. local BasicTypes = {"Sand","Dirt","Slate","Rock","Granite"}
  38. local Type = 1
  39. local Events = game.ReplicatedStorage.Events.RemoteEvents
  40. local Inv = plr["PlayerGui"]["Display"]["Merchant"]["Holder"]["Sell Ores"]["ViewFrame"]["InventorySizeAmount"]
  41. for i,v in pairs(plr["PlayerGui"]["Display"]["Fragments"]["Holder"]["Page"]:GetChildren()) do
  42.     if v:IsA("Frame") then
  43.         table.insert(Types,v.Name)
  44.     end
  45. end
  46.  
  47. function isin(tbl,obj)
  48.     for i,v in pairs(tbl) do
  49.         if obj == v then
  50.             return true
  51.         end
  52.     end
  53. end
  54.  
  55. function mine(obj)
  56.     for i = 1,10 do
  57.         Events.DigEvent:FireServer(obj,.19)
  58.     end
  59. end
  60.  
  61. S1:Cheat("Dropdown", "Mine Types", function(Option) --Dropdowns
  62.     if Option == "Around you" then
  63.         Type = 1
  64.     elseif Option == "Same level" then
  65.         Type = 2
  66.     elseif Option == "Not down" then
  67.         Type = 3
  68.     end
  69. end, {
  70.     options = {
  71.         "Around you",
  72.         "Same level",
  73.         "Not down"
  74.     }
  75. })
  76.  
  77. S1:Cheat("Checkbox","Auto Mine",
  78. function(State)
  79.     if not State then
  80.         _G.on = 0
  81.     else
  82.         _G.on = 1
  83.         while _G.on == 1 do
  84.             wait(.1)
  85.             local root = plr.Character:FindFirstChild("HumanoidRootPart")
  86.             if root then
  87.                 for i,v in pairs(game:GetService("Workspace")["Rocks"]:GetChildren()) do
  88.                     if Type == 1 then
  89.                         if v and (root.Position - v.Position).Magnitude < Dist then
  90.                             if not NoOres then
  91.                                 mine(v)
  92.                             elseif NoOres and isin(BasicTypes,v.Name) then
  93.                                 mine(v)
  94.                             end
  95.                         end
  96.                     elseif Type == 2 then
  97.                         if v and (root.Position - v.Position).Magnitude < Dist and v.Position.y > root.Position.y - 5 and v.Position.y < root.Position.y + 5 then
  98.                             if not NoOres then
  99.                                 mine(v)
  100.                             elseif NoOres and isin(BasicTypes,v.Name) then
  101.                                 mine(v)
  102.                             end
  103.                         end
  104.                     elseif Type == 3 then
  105.                         if v and (root.Position - v.Position).Magnitude < Dist and v.Position.y > root.Position.y - 5 then
  106.                             if not NoOres then
  107.                                 mine(v)
  108.                             elseif NoOres and isin(BasicTypes,v.Name) then
  109.                                 mine(v)
  110.                             end
  111.                         end
  112.                     end
  113.                 end
  114.             end
  115.         end
  116.     end
  117. end
  118. )
  119.  
  120. S1:Cheat("Slider", "Block range", function(Value)--Slider
  121.     Dist = tonumber(Value)
  122. end, {min = 1, max = 25, suffix = " studs"})
  123.  
  124. S1:Cheat("Checkbox","No Ores",
  125. function(State)
  126.     if not State then
  127.         NoOres = false
  128.     else
  129.         NoOres = true
  130.     end
  131. end
  132. )
  133.  
  134. S1:Cheat("Button", "Sell All", function() --Button
  135.     Events.SellAllOres:FireServer()
  136. end)
  137.  
  138. S1:Cheat("Checkbox","Auto Sell All",
  139. function(State)
  140.     if not State then
  141.         _G.on1 = 0
  142.     else
  143.         _G.on1 = 1
  144.         while _G.on1 == 1 do
  145.             wait()
  146.             local Cur,Max = string.match(Inv.Text,"(%d+) / (%d+)")
  147.             if Cur and Max and tonumber(Cur) >= tonumber(Max) / 2 then
  148.                 Events.SellAllOres:FireServer()
  149.             end
  150.         end
  151.     end
  152. end
  153. )
  154.  
  155. S1:Cheat("Checkbox","Auto Craft Fragments",
  156. function(State)
  157.     if not State then
  158.         _G.on2 = 0
  159.     else
  160.         _G.on2 = 1
  161.         while _G.on2 == 1 do
  162.             wait(.1)
  163.             for i,v in pairs(Types) do
  164.                 Events.CraftFragments:FireServer(v)
  165.             end
  166.         end
  167.     end
  168. end
  169. )
  170.  
  171. S1:Cheat("Checkbox","Tp Keys",
  172. function(State)
  173.     if not State then
  174.         _G.on3 = 0
  175.     else
  176.         _G.on3 = 1
  177.         while _G.on3 == 1 do
  178.             wait()
  179.             local root = plr.Character:FindFirstChild("HumanoidRootPart")
  180.             for i,v in pairs(game:GetService("Workspace")["Keys"]:GetChildren()) do
  181.                 if v and root then
  182.                     v.Position = root.Position
  183.                 end
  184.             end
  185.         end
  186.     end
  187. end
  188. )
  189.  
  190. S1:Cheat("Checkbox","Auto Mine Gems",
  191. function(State)
  192.     if not State then
  193.         _G.on4 = 0
  194.     else
  195.         _G.on4 = 1
  196.         while _G.on4 == 1 do
  197.             wait(.1)
  198.             for i,v in pairs(game:GetService("Workspace")["Rocks"]:GetChildren()) do
  199.                 if _G.on4 == 1 then
  200.                     if i % 10 == 0 then
  201.                         wait(.8)
  202.                     end
  203.                     if v.Name == "Gems" then
  204.                         mine(v)
  205.                     end
  206.                 end
  207.             end
  208.         end
  209.     end
  210. end
  211. )
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