Minery

--Game: https://www.roblox.com/games/1827671349/Minery

--https://detourious.gitbook.io/project-finity/docs
if game:GetService("CoreGui"):FindFirstChild("FinityUI") then
    game.CoreGui.FinityUI:Destroy()
end
local desc = [[
This was a really easy script to make lol
]]
local plr = game.Players.LocalPlayer
local Finity = loadstring(game:HttpGet("http://finity.vip/scripts/finity_lib.lua"))()
local FinityWindow = Finity.new(true)
FinityWindow.ChangeToggleKey(Enum.KeyCode.Semicolon)
local CreditsCategory = FinityWindow:Category("Credits/Info")
local CreditsCreator = CreditsCategory:Sector("Finity Library Creator:")
local ScriptCredit = CreditsCategory:Sector("Cheat Credit:")
local Description = CreditsCategory:Sector("Description:")
local OC = CreditsCategory:Sector("Open Close Button:")
CreditsCreator:Cheat("Label", "detourious @ v3rmillion.net")
ScriptCredit:Cheat("Label", "brianops16 @ v3rmillion.net")
Description:Cheat("Label", desc)
local Cheats = FinityWindow:Category("Cheats")
local S1 = Cheats:Sector("Main Cheats")
local EnumKeys = {'Semicolon','Tab','Equals','Comma','Minus','Period','F1',"F2","F3","F4",'F5',"F6","F7",
"F8","F9","F10","F11","F12",'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', 'A', 'S', 'D', 'F', 'G', 'H',
 'J', 'K', 'L', 'Z', 'X', 'C', 'V', 'B', 'N', 'M','Slash','One','Two','Three',"Four","Five","Six","Seven","Eight",
 "Nine","Zero",'BackSlash','RightBracket','LeftBracket'}
OC:Cheat("Dropdown", "(Default ';')", function(Option) --Dropdowns
  print('Current key: '..Option)
    FinityWindow.ChangeToggleKey(Enum.KeyCode[Option])
end, {
    options = EnumKeys
})
local Types = {}
local Dist = 15
local NoOres = false
local BasicTypes = {"Sand","Dirt","Slate","Rock","Granite"}
local Type = 1
local Events = game.ReplicatedStorage.Events.RemoteEvents
local Inv = plr["PlayerGui"]["Display"]["Merchant"]["Holder"]["Sell Ores"]["ViewFrame"]["InventorySizeAmount"]
for i,v in pairs(plr["PlayerGui"]["Display"]["Fragments"]["Holder"]["Page"]:GetChildren()) do
    if v:IsA("Frame") then
        table.insert(Types,v.Name)
    end
end

function isin(tbl,obj)
    for i,v in pairs(tbl) do
        if obj == v then
            return true
        end
    end
end

function mine(obj)
    for i = 1,10 do
        Events.DigEvent:FireServer(obj,.19)
    end
end

S1:Cheat("Dropdown", "Mine Types", function(Option) --Dropdowns
    if Option == "Around you" then
        Type = 1
    elseif Option == "Same level" then
        Type = 2
    elseif Option == "Not down" then
        Type = 3
    end
end, {
    options = {
        "Around you",
        "Same level",
        "Not down"
    }
})

S1:Cheat("Checkbox","Auto Mine",
function(State)
    if not State then
        _G.on = 0
    else
        _G.on = 1
        while _G.on == 1 do
            wait(.1)
            local root = plr.Character:FindFirstChild("HumanoidRootPart")
            if root then
                for i,v in pairs(game:GetService("Workspace")["Rocks"]:GetChildren()) do
                    if Type == 1 then
                        if v and (root.Position - v.Position).Magnitude < Dist then
                            if not NoOres then
                                mine(v)
                            elseif NoOres and isin(BasicTypes,v.Name) then
                                mine(v)
                            end
                        end
                    elseif Type == 2 then
                        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
                            if not NoOres then
                                mine(v)
                            elseif NoOres and isin(BasicTypes,v.Name) then
                                mine(v)
                            end
                        end
                    elseif Type == 3 then
                        if v and (root.Position - v.Position).Magnitude < Dist and v.Position.y > root.Position.y - 5 then
                            if not NoOres then
                                mine(v)
                            elseif NoOres and isin(BasicTypes,v.Name) then
                                mine(v)
                            end
                        end
                    end
                end
            end
        end
    end
end
)

S1:Cheat("Slider", "Block range", function(Value)--Slider
    Dist = tonumber(Value)
end, {min = 1, max = 25, suffix = " studs"})

S1:Cheat("Checkbox","No Ores",
function(State)
    if not State then
        NoOres = false
    else
        NoOres = true
    end
end
)

S1:Cheat("Button", "Sell All", function() --Button
    Events.SellAllOres:FireServer()
end)

S1:Cheat("Checkbox","Auto Sell All",
function(State)
    if not State then
        _G.on1 = 0
    else
        _G.on1 = 1
        while _G.on1 == 1 do
            wait()
            local Cur,Max = string.match(Inv.Text,"(%d+) / (%d+)")
            if Cur and Max and tonumber(Cur) >= tonumber(Max) / 2 then
                Events.SellAllOres:FireServer()
            end
        end
    end
end
)

S1:Cheat("Checkbox","Auto Craft Fragments",
function(State)
    if not State then
        _G.on2 = 0
    else
        _G.on2 = 1
        while _G.on2 == 1 do
            wait(.1)
            for i,v in pairs(Types) do
                Events.CraftFragments:FireServer(v)
            end
        end
    end
end
)

S1:Cheat("Checkbox","Tp Keys",
function(State)
    if not State then
        _G.on3 = 0
    else
        _G.on3 = 1
        while _G.on3 == 1 do
            wait()
            local root = plr.Character:FindFirstChild("HumanoidRootPart")
            for i,v in pairs(game:GetService("Workspace")["Keys"]:GetChildren()) do
                if v and root then
                    v.Position = root.Position
                end
            end
        end
    end
end
)

S1:Cheat("Checkbox","Auto Mine Gems",
function(State)
    if not State then
        _G.on4 = 0
    else
        _G.on4 = 1
        while _G.on4 == 1 do
            wait(.1)
            for i,v in pairs(game:GetService("Workspace")["Rocks"]:GetChildren()) do
                if _G.on4 == 1 then
                    if i % 10 == 0 then
                        wait(.8)
                    end
                    if v.Name == "Gems" then
                        mine(v)
                    end
                end
            end
        end
    end
end
)