Isle 8-9 Autohack

local Workspace = game:GetService("Workspace")
local PlayersService = game:GetService("Players")
--
local LocalPlayer = PlayersService.LocalPlayer

local Services = Workspace:WaitForChild("Services")
--
local ALLOW_FREEZE = true
local ARTIFICIAL_SUBMIT_DELAY = 0 -- (seconds); 60 will take a minute before submitting

local autohack = {}
--
local GetDictionaryLength, CharacterPresent, GetNumber, ParseExpression; do
    function GetDictionaryLength(dictionary)
        local length = 0
        for key, value in pairs(dictionary) do
            length = length + 1
        end
        return length
    end

    function CharacterPresent(str, character)
        for i=1, #str do
            if string.sub(str, i, i) == character then
                return true
            end
        end
        return false
    end

    function GetNumber(expression)
        local validCharacters = "0123456789.-"
        local foundDigit = false
        local i = 1
        local currentCharacter = string.sub(expression, i, i)
        while CharacterPresent(validCharacters, currentCharacter) do
            if i == 1 then
                validCharacters = "0123456789."
            end
            if currentCharacter == "." then
                validCharacters = "0123456789"
            end
            if CharacterPresent("0123456789", currentCharacter) then
                foundDigit = true
            end
            i = i + 1
            if i > #expression then
                break
            end
            currentCharacter = string.sub(expression, i, i)
        end
        if not foundDigit then
            i = 1
        end
        return tonumber(string.sub(expression, 1, i-1)), string.sub(expression, i, #expression)
    end

    function ParseExpression(expression, expectEndParentheses)
        local expectingExpression = true
        local lastExpressionWasParenthetical = false
        local operators = "+-/*^%"
        local parts = {}
        local foundEndParentheses = false
        expectEndParentheses = expectEndParentheses or false
        while expression ~= "" do
            local nextNumber, expressionAfterNumber = GetNumber(expression)
            local nextCharacter = string.sub(expression, 1, 1)
            local nextPiece = string.sub(expression, 1, 5)
            if #expression <= 5 then
                nextPiece = nextPiece .. " [end]"
            end
            if expectingExpression then
                if nextCharacter == "(" then
                    local nestedExpressionValue, expressionAfterParentheses = ParseExpression(string.sub(expression, 2, #expression), true)
                    if nestedExpressionValue == nil then
                        return nestedExpressionValue, expressionAfterParentheses
                    end
                    table.insert(parts, nestedExpressionValue)
                    expression = expressionAfterParentheses
                    lastExpressionWasParenthetical = true
                else
                    if nextNumber == nil then
                        return nil, "Expected number or '(', but found '"..nextPiece.."'"
                    end
                    table.insert(parts, nextNumber)
                    expression = expressionAfterNumber
                    lastExpressionWasParenthetical = false
                end
            elseif CharacterPresent(operators, nextCharacter) then
                table.insert(parts, nextCharacter)
                expression = string.sub(expression, 2, #expression)
            elseif nextCharacter == "(" or (lastExpressionWasParenthetical and nextNumber ~= nil) then
                table.insert(parts, "*")
            elseif nextCharacter == ")" then
                if expectEndParentheses then
                    expression = string.sub(expression, 2, #expression)
                    foundEndParentheses = true
                    break
                else
                    return nil, "')' present without matching '(' at '"..nextPiece.."'"
                end
            else
                return nil, "Expected expression, but found '"..nextPiece.."'"
            end
            expectingExpression = not expectingExpression
        end
        if expectEndParentheses and not foundEndParentheses then
            return nil, "Expression unexpectedly ended ('(' present without matching ')')"
        end
        if expectingExpression then
            return nil, "Expression unexpectedly ended"
        end
        local i = #parts
        while i >= 1 do
            if parts[i] == "^" then
                parts[i-1] = parts[i-1] ^ parts[i+1]
                table.remove(parts, i+1)
                table.remove(parts, i)
            end
            i = i - 1
        end
        i = 1
        while i <= #parts do
            if parts[i] == "*" then
                parts[i-1] = parts[i-1] * parts[i+1]
                table.remove(parts, i+1)
                table.remove(parts, i)
            elseif parts[i] == "/" then
                parts[i-1] = parts[i-1] / parts[i+1]
                table.remove(parts, i+1)
                table.remove(parts, i)
            elseif parts[i] == "%" then
                parts[i-1] = parts[i-1] % parts[i+1]
                table.remove(parts, i+1)
                table.remove(parts, i)
            else
                i = i + 1
            end
        end
        i = 1
        while i <= #parts do
            if parts[i] == "+" then
                parts[i-1] = parts[i-1] + parts[i+1]
                table.remove(parts, i+1)
                table.remove(parts, i)
            elseif parts[i] == "-" then
                parts[i-1] = parts[i-1] - parts[i+1]
                table.remove(parts, i+1)
                table.remove(parts, i)
            else
                i = i + 1
            end
        end

        return parts[1], expression
    end
end

local SubmitSolution = Services:WaitForChild("SubmitSolution")

local AllLetters = {"A", "B", "C", "D", "E", "F"}

function autohack.OnHack(expressions, usedLetters, answers, hints, objectId, objectCodeName)
    local expectedLetters = #usedLetters
    local generatedLetters = table.clone(hints)

    local lastGeneratedLetters

    local canSubmit = true
    local canBeOptimized = (expectedLetters - #hints) == 1

    local lastGeneratedValue = 0
    for index, expression in ipairs(expressions) do
        expression = string.gsub(expression, "%s+", "")
        --
        local expectedAnswer = tonumber(answers[index])

        local generatedAnswer
        repeat
            local currentExpression = expression

            if lastGeneratedLetters then
                generatedLetters = lastGeneratedLetters
            elseif GetDictionaryLength(generatedLetters) ~= expectedLetters then
                for _, letter in ipairs(usedLetters) do
                    if not generatedLetters[letter] then
                        if canBeOptimized then
                            generatedLetters[letter] = lastGeneratedValue

                            lastGeneratedValue = lastGeneratedValue + 1
                        else
                            generatedLetters[letter] = math.random(0, 9)
                        end
                    end
                end
            end

            for letter, value in pairs(generatedLetters) do
                currentExpression = string.gsub(currentExpression, letter, value)
            end

            generatedAnswer = ParseExpression(currentExpression)

            if generatedAnswer ~= expectedAnswer then
                -- Generated number is wrong
                if lastGeneratedLetters == generatedLetters then
                    -- It will just spam the remote without this line
                    canSubmit = false
                    -- Attempt again
                    task.spawn(OnHack, expressions, usedLetters, answers, hints, objectId, objectCodeName)
                    break
                end

                generatedLetters = table.clone(hints)
            end

            if not ALLOW_FREEZE then
                task.wait()
            end
        until generatedAnswer == expectedAnswer

        lastGeneratedLetters = generatedLetters
    end

    if canSubmit then
        -- Append missing letters
        for _, letter in ipairs(AllLetters) do
            if not generatedLetters[letter] then
                generatedLetters[letter] = 1
            end
        end

        task.delay(ARTIFICIAL_SUBMIT_DELAY, function()
                SubmitSolution:FireServer(objectId, generatedLetters, objectCodeName)
            end)

        lastGeneratedValue = 0
    end
end

return autohack