Essentia Filling

    os.loadAPI("button")
    local m = peripheral.wrap("top")
    button.startup("top")
    local run = true
    local disableFillRedstoneDirection = "left"
    local redstoneWaitTicks = 3
    local alchemicalFurnaceFromChestDirection = "auto"
    local essentia
    local essentiasCount = 58
    local emptyJars
    local totalJars
    local fillAmount
    local fillEssentia
    local fillAvailableSpace
    local topOffJarsEssentiaList
    local fillAllTo64EssentiaList
    local fillAllTo128EssentiaList
    local chests = {}
    local aspectAnalyzers = {}
    local chestAspects
    local distributeBurnRequests = true



    -- Print debug output during startup: 0 = off, 1 = summary debug, 2 = everything
    -- Errors are still shown regardless of the debug output level.
    local debugOutput = 1
    local padding = "                                                                                                    "
    local numberPadding = 3

    -- If true, the more intensive portions of this script sleep between each action
    -- If false, the script runs at maximum speed
    local serverFriendly = true

    --[[

            --Locations and colors of different visuals displayed on the monitor.--

            * Auto positioning is done per-item depending on where it normally sits in relation
            to the other items. For the final position of a control see the setAutoDetectVariables() function below.

            ** Virtually every "auto" set location for the main display is relative to the essentiaX/Y locations. essentiaX = "auto" will
            center the display on the monitor or if it can't be centered due to being too small it will be left-aligned.

            ** Virtually every "auto" set location for the refill essentia display is relative to the refillScreenX/Y locations.
            refillScreenX = "auto" will center the display on the monitor or if it can't be centered due to being too small it will be left-aligned.

            ** If a location isn't default to "auto" it does not currently support auto positioning.

            * Any location or color that defaults to "auto" can be manually specified if that's desired. However, no error
            checking is done to make sure the manual positions are valid.

            * Button height is calculated as 1 characters height. A button with the height of 1 will be the height of the button text.

            * The inactive colors are the colors used during normal display. Active colors are during button presses.
    --]]

    local essentiaColumnWidth = 19
    local essentiaColumnHeight = 20
    local essentiaColumnSpacing = 2
    local essentiaX = "auto"
    local essentiaY = 1

    local refreshButtonX = "auto"
    local refreshButtonY = "auto"
    local refreshButtonWidth = 19
    local refreshButtonHeight = 2

    local topoffAllButtonX = "auto"
    local topoffAllButtonY = "auto"
    local topoffAllButtonWidth = 19
    local topoffAllButtonHeight = 2

    local emptyJarsX = "auto"
    local emptyJarsY = "auto"

    local totalJarsX = "auto"
    local totalJarsY = "auto"

    local refillScreenX = "auto"
    local refillScreenY = 1

    local fillAllTo64ButtonX = "auto"
    local fillAllTo64ButtonY = "auto"
    local fillAllTo64ButtonWidth = 18
    local fillAllTo64ButtonHeight = 2

    local fillAllTo128ButtonX = "auto"
    local fillAllTo128ButtonY = "auto"
    local fillAllTo128ButtonWidth = 18
    local fillAllTo128ButtonHeight = 2

    local otherOptionsButtonX = "auto"
    local otherOptionsButtonY = "auto"
    local otherOptionsButtonWidth = 18
    local otherOptionsButtonHeight = 2

    local essentiaTopOffJarsX = "auto"
    local essentiaTopOffJarsY = 5

    local essentiaTopOffLabelX = "auto"
    local essentiaTopOffLabelY = 2

    local essentiaFillAllTo64X = "auto"
    local essentiaFillAllTo64Y = 5

    local essentiaFillAllTo64LabelX = "auto"
    local essentiaFillAllTo64LabelY = 2

    local essentiaFillAllTo128X = "auto"
    local essentiaFillAllTo128Y = 5

    local essentiaFillAllTo128LabelX = "auto"
    local essentiaFillAllTo128LabelY = 2

    local cancelTopOffJarsButtonX = "auto"
    local cancelTopOffJarsButtonY = "auto"
    local cancelTopOffJarsButtonWidth = 19
    local cancelTopOffJarsButtonHeight = 2

    local beginTopOffJarsFillButtonX = "auto"
    local beginTopOffJarsFillButtonY = "auto"
    local beginTopOffJarsFillButtonWidth = 19
    local beginTopOffJarsFillButtonHeight = 2

    local cancelFillAllTo64ButtonX = "auto"
    local cancelFillAllTo64ButtonY = "auto"
    local cancelFillAllTo64ButtonWidth = 19
    local cancelFillAllTo64ButtonHeight = 2

    local beginFillAllTo64ButtonX = "auto"
    local beginFillAllTo64ButtonY = "auto"
    local beginFillAllTo64ButtonWidth = 19
    local beginFillAllTo64ButtonHeight = 2

    local cancelFillAllTo128ButtonX = "auto"
    local cancelFillAllTo128ButtonY = "auto"
    local cancelFillAllTo128ButtonWidth = 19
    local cancelFillAllTo128ButtonHeight = 2

    local beginFillAllTo128ButtonX = "auto"
    local beginFillAllTo128ButtonY = "auto"
    local beginFillAllTo128ButtonWidth = 19
    local beginFillAllTo128ButtonHeight = 2

    local burnScreenLabelX = "auto"
    local burnScreenLabelY = 3

    local burnScreenBeanLabelX = 6
    local burnScreenBeanLabelY = 10

    local burnScreenStatusX = 6
    local burnScreenStatusY = 13

    local burnScreenBeanTextLabel = "Currently filling bean type: "
    local burnScreenStatusTextLabel = "Current status: "


    local monBackColor = colors.black

    local essentiaInactiveTextColorEmpty = colors.gray
    local essentiaInactiveTextColorLow = colors.red
    local essentiaInactiveTextColorMedium = colors.yellow
    local essentiaInactiveTextColorHigh = colors.green
    local essentiaInactiveBackColor = monBackColor
    local essentiaActiveTextColor = colors.white
    local essentiaActiveBackColor = colors.lime

    local refreshActiveBackColor = colors.lime
    local refreshInactiveBackColor = colors.blue
    local refreshActiveTextColor = colors.white
    local refreshInactiveTextColor = colors.white

    local topoffAllJarsActiveTextColor = colors.white
    local topoffAllJarsInactiveTextColor = colors.white
    local topoffAllJarsActiveBackColor = colors.lime
    local topoffAllJarsInactiveBackColor = colors.blue

    local fillAllTo64InactiveTextColor = colors.white
    local fillAllTo64ActiveTextColor = colors.white
    local fillAllTo64InactiveBackColor = colors.blue
    local fillAllTo64ActiveBackColor = colors.lime

    local fillAllTo128InactiveTextColor = colors.white
    local fillAllTo128ActiveTextColor = colors.white
    local fillAllTo128InactiveBackColor = colors.blue
    local fillAllTo128ActiveBackColor = colors.lime

    local refillButtonsInactiveBackColor = colors.blue
    local refillButtonsActiveBackColor = colors.lime
    local refillButtonsInactiveTextColor = colors.white
    local refillButtonsActiveTextColor = colors.white

    local otherOptionsButtonInactiveBackColor = colors.blue
    local otherOptionsButtonActiveBackColor = colors.lime
    local otherOptionsButtonInactiveTextColor = colors.white
    local otherOptionsButtonActiveTextColor = colors.white

    local cancelTopOffJarsButtonInactiveBackColor = colors.blue
    local cancelTopOffJarsButtonActiveBackColor = colors.lime
    local cancelTopOffJarsButtonInactiveTextColor = colors.white
    local cancelTopOffJarsButtonActiveTextColor = colors.white

    local beginTopOffJarsFillButtonInactiveBackColor = colors.blue
    local beginTopOffJarsFillButtonActiveBackColor = colors.lime
    local beginTopOffJarsFillButtonInactiveTextColor = colors.white
    local beginTopOffJarsFillButtonActiveTextColor = colors.white

    local cancelFillAllTo64ButtonInactiveBackColor = colors.blue
    local cancelFillAllTo64ButtonActiveBackColor = colors.lime
    local cancelFillAllTo64ButtonInactiveTextColor = colors.white
    local cancelFillAllTo64ButtonActiveTextColor = colors.white

    local beginFillAllTo64ButtonInactiveBackColor = colors.blue
    local beginFillAllTo64ButtonActiveBackColor = colors.lime
    local beginFillAllTo64ButtonInactiveTextColor = colors.white
    local beginFillAllTo64ButtonActiveTextColor = colors.white

    local cancelFillAllTo128ButtonInactiveBackColor = colors.blue
    local cancelFillAllTo128ButtonActiveBackColor = colors.lime
    local cancelFillAllTo128ButtonInactiveTextColor = colors.white
    local cancelFillAllTo128ButtonActiveTextColor = colors.white

    local beginFillAllTo128ButtonInactiveBackColor = colors.blue
    local beginFillAllTo128ButtonActiveBackColor = colors.lime
    local beginFillAllTo128ButtonInactiveTextColor = colors.white
    local beginFillAllTo128ButtonActiveTextColor = colors.white


    local emptyJarsTextColor = colors.white
    local emptyJarsBackColor = monBackColor

    local totalJarsTextColor = colors.white
    local totalJarsBackColor = monBackColor

    local refillLabelTextColor = colors.white
    local refillCurrentAmountTextColor = colors.white
    local refillAddingAmountTextColor = colors.green

    local topOffAllJarsEssentiaBackColor = monBackColor
    local topOffAllJarsEssentiaTextColorZero = essentiaInactiveTextColorEmpty
    local topOffAllJarsEssentiaTextColorNonZero = colors.white

    local topOffAllJarsEssentiaLabelBackColor = monBackColor
    local topOffAllJarsEssentiaLabelTextColor = colors.white

    local fillAllTo64EssentiaBackColor = monBackColor
    local fillAllTo64EssentiaTextColorZero = essentiaInactiveTextColorEmpty
    local fillAllTo64EssentiaTextColorNonZero = essentiaInactiveTextColorMedium

    local fillAllTo64EssentiaLabelBackColor = monBackColor
    local fillAllTo64EssentiaLabelTextColor = colors.white

    local fillAllTo128EssentiaBackColor = monBackColor
    local fillAllTo128EssentiaTextColorZero = essentiaInactiveTextColorEmpty
    local fillAllTo128EssentiaTextColorNonZero = essentiaInactiveTextColorHigh

    local fillAllTo128EssentiaLabelBackColor = monBackColor
    local fillAllTo128EssentiaLabelTextColor = colors.white


    local burnScreenStatusBackColor = monBackColor
    local burnScreenStatusTextColor = colors.white
    local burnScreenBeanLabelBackColor = monBackColor
    local burnScreenBeanLabelTextColor = colors.white
    local burnScreenLabelBackColor = monBackColor
    local burnScreenLabelTextColor = colors.white
    local burnScreenBorderColor = colors.blue




    function setAutoDetectVariables()
            local monWidth
            local monHeight

            monWidth,monHeight = m.getSize()

            if (alchemicalFurnaceFromChestDirection ~= "auto") then
                    if (alchemicalFurnaceFromChestDirection ~= "north"
                            and alchemicalFurnaceFromChestDirection ~= "south"
                            and alchemicalFurnaceFromChestDirection ~= "east"
                            and alchemicalFurnaceFromChestDirection ~= "west") then

                            print("Invalid alchemical furnace from chest direction. !!RESTART REQUIRED!!")
                            while (true) do
                                    sleep(60)
                            end
                    end
            end

            if (essentiaX == "auto") then
                    -- Centers the essentia display on the monitor horizontally
                    essentiaX = math.floor((monWidth - ((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing)) / 2) + 1

                    -- The monitor is too small
                    if (essentiaX < 1) then
                            print("The monitor is too small width wise to display all the needed main screen information correctly.")

                            essentiaX = 1
                    end
            end

            if (refreshButtonX == "auto") then
                    -- Centers the refresh button on the monitor horizontally
                    refreshButtonX = essentiaX + math.floor(((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing) / 2) -  math.ceil(refreshButtonWidth / 2) + 1
            end

            if (refreshButtonY == "auto") then
                    -- Puts the refresh button directly below the essentia list
                    refreshButtonY = essentiaY + essentiaColumnHeight + 1
            end

            if (topoffAllButtonX == "auto") then
                    -- Puts the top off all button in line with the refresh button
                    topoffAllButtonX = essentiaX + math.floor(((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing) / 2) -  math.ceil(topoffAllButtonWidth / 2) + 1
            end

            if (topoffAllButtonY == "auto") then
                    -- Puts the top off all button directly below the refresh button
                    topoffAllButtonY = refreshButtonY + refreshButtonHeight + 2
            end

            if (fillAllTo64ButtonX == "auto") then
                    -- Puts the fill all to 64 button directly to the right of the refresh button
                    fillAllTo64ButtonX = refreshButtonX + refreshButtonWidth + 2
            end

            if (fillAllTo64ButtonY == "auto") then
                    -- Puts the fill all to 64 button in line with the refresh button
                    fillAllTo64ButtonY = refreshButtonY
            end

            if (fillAllTo128ButtonX == "auto") then
                    -- Puts the fill all to 64 button directly to the right of the fill all to 64 button
                    fillAllTo128ButtonX = fillAllTo64ButtonX
            end

            if (fillAllTo128ButtonY == "auto") then
                    -- Puts the fill all to 64 button directly below the fill all to 64 button
                    fillAllTo128ButtonY = fillAllTo64ButtonY + fillAllTo64ButtonHeight + 2
            end

            if (otherOptionsButtonX == "auto") then
                    -- Puts the other button directly to the left of the top off all jars button
                    otherOptionsButtonX = topoffAllButtonX - otherOptionsButtonWidth - 2
            end

            if (otherOptionsButtonY == "auto") then
                    -- Puts the other button at the same level as the top off all button
                    otherOptionsButtonY = topoffAllButtonY
            end

            if (emptyJarsX == "auto") then
                    emptyJarsX = essentiaX + 1
            end

            if (emptyJarsY == "auto") then
                    emptyJarsY = essentiaY + essentiaColumnHeight + 1
            end

            if (totalJarsX == "auto") then
                    totalJarsX = emptyJarsX
            end

            if (totalJarsY == "auto") then
                    totalJarsY = emptyJarsY + 1
            end

            if (refillScreenX == "auto") then
                    -- Centers the refill screen on the monitor - the refill screen is 41 pixels wide hard coded
                    refillScreenX = math.floor((monWidth - 41) / 2) + 1

                    -- The monitor is too small
                    if (refillScreenX < 1) then
                            print("The monitor is too small width wise to display all the needed refill screen information correctly.")

                            refillScreenX = 1
                    end
            end

            if (essentiaTopOffJarsX == "auto") then
                    -- Centers the top off all essentia display on the monitor horizontally
                    essentiaTopOffJarsX = math.floor((monWidth - ((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing)) / 2) + 1

                    -- The monitor is too small
                    if (essentiaTopOffJarsX < 1) then
                            print("The monitor is too small width wise to display all the needed top off all screen information correctly.")

                            essentiaTopOffJarsX = 1
                    end
            end

            if (essentiaTopOffLabelX == "auto") then
                    essentiaTopOffLabelX = essentiaTopOffJarsX + math.floor(((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing) / 2) -  math.ceil(string.len("Top off jars fill request") / 2)
            end

            if (cancelTopOffJarsButtonX == "auto") then
                    cancelTopOffJarsButtonX = math.floor((monWidth / 2) - cancelTopOffJarsButtonWidth) + 1
            end

            if (cancelTopOffJarsButtonY == "auto") then
                    cancelTopOffJarsButtonY = essentiaTopOffJarsY + essentiaColumnHeight + 1
            end

            if (beginTopOffJarsFillButtonX == "auto") then
                    beginTopOffJarsFillButtonX = math.floor((monWidth / 2)) + 2
            end

            if (beginTopOffJarsFillButtonY == "auto") then
                    beginTopOffJarsFillButtonY = essentiaTopOffJarsY + essentiaColumnHeight + 1
            end


            if (essentiaFillAllTo64X == "auto") then
                    -- Centers the top off all essentia display on the monitor horizontally
                    essentiaFillAllTo64X = math.floor((monWidth - ((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing)) / 2) + 1

                    -- The monitor is too small
                    if (essentiaFillAllTo64X < 1) then
                            print("The monitor is too small width wise to display all the needed fill all to 64 screen information correctly.")

                            essentiaFillAllTo64X = 1
                    end
            end

            if (essentiaFillAllTo64LabelX == "auto") then
                    essentiaFillAllTo64LabelX = essentiaFillAllTo64X + math.floor(((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing) / 2) -  math.ceil(string.len("Fill all jars to 64 request") / 2) + 1
            end

            if (cancelFillAllTo64ButtonX == "auto") then
                    cancelFillAllTo64ButtonX = math.floor((monWidth / 2) - cancelFillAllTo64ButtonWidth) + 1
            end

            if (cancelFillAllTo64ButtonY == "auto") then
                    cancelFillAllTo64ButtonY = essentiaFillAllTo64Y + essentiaColumnHeight + 1
            end

            if (beginFillAllTo64ButtonX == "auto") then
                    beginFillAllTo64ButtonX = math.floor((monWidth / 2)) + 2
            end

            if (beginFillAllTo64ButtonY == "auto") then
                    beginFillAllTo64ButtonY = essentiaFillAllTo64Y + essentiaColumnHeight + 1
            end


            if (essentiaFillAllTo128X == "auto") then
                    -- Centers the top off all essentia display on the monitor horizontally
                    essentiaFillAllTo128X = math.floor((monWidth - ((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing)) / 2) + 1

                    -- The monitor is too small
                    if (essentiaFillAllTo128X < 1) then
                            print("The monitor is too small width wise to display all the needed fill all to 128 screen information correctly.")

                            essentiaFillAllTo128X = 1
                    end
            end

            if (essentiaFillAllTo128LabelX == "auto") then
                    essentiaFillAllTo128LabelX = essentiaFillAllTo128X + math.floor(((math.ceil(essentiasCount / essentiaColumnHeight) * (essentiaColumnWidth + essentiaColumnSpacing)) - essentiaColumnSpacing) / 2) -  math.ceil(string.len("Fill all jars to 128 request") / 2) + 1
            end

            if (cancelFillAllTo128ButtonX == "auto") then
                    cancelFillAllTo128ButtonX = math.floor((monWidth / 2) - cancelFillAllTo128ButtonWidth) + 1
            end

            if (cancelFillAllTo128ButtonY == "auto") then
                    cancelFillAllTo128ButtonY = essentiaFillAllTo128Y + essentiaColumnHeight + 1
            end

            if (beginFillAllTo128ButtonX == "auto") then
                    beginFillAllTo128ButtonX = math.floor((monWidth / 2)) + 2
            end

            if (beginFillAllTo128ButtonY == "auto") then
                    beginFillAllTo128ButtonY = essentiaFillAllTo128Y + essentiaColumnHeight + 1
            end

            if (burnScreenLabelX == "auto") then
                    burnScreenLabelX = math.floor((monWidth / 2) - (string.len("Burn request information") / 2)) + 1
            end

            if (serverFriendly == true) then
                    serverFriendly = .05
            else
                    serverFriendly = 0
            end
    end

    function sortEss(t)
            local keys = {}
            local k, i

            for k in pairs(t) do
                    keys[#keys+1] = k
            end
            table.sort(keys)

            i = 0
            return function()
                    i = i + 1
                    if keys[i] then
                            return keys[i], t[keys[i]]
                    end
            end
    end

    function scanJars()
            local myEmptyJars = 0
            local myTotalJars = 0
            local jars = {}
            local jarID = 1
            local aspect
            local aspectCount
            local i, j

            for i,j in ipairs(peripheral.getNames()) do
                    if (peripheral.getType(j) == "tt_aspectContainer") then
                            aspect = peripheral.call(j, "getAspects")[1] -- It's a table now
                            aspectCount = peripheral.call(j, "getAspectCount", aspect)

                            if (aspectCount > 0) then
                                    jars[jarID] = {}
                                    jars[jarID]["aspect"] = aspect
                                    jars[jarID]["count"] = aspectCount
                                    jarID = jarID + 1
                                    myTotalJars = myTotalJars + 1
                            elseif (aspectCount == 0) then
                                    myEmptyJars = myEmptyJars + 1
                                    myTotalJars = myTotalJars + 1
                            end
                    end
            end

            emptyJars = myEmptyJars
            totalJars = myTotalJars

            return jars
    end

    function updateEssentia()
            local myJars
            local myEssentia
            local i, j

            myJars = scanJars()
            myEssentia = essentiaList()

            for i in pairs(myJars) do
                    myEssentia[myJars[i]["aspect"]] = myEssentia[myJars[i]["aspect"]] + myJars[i]["count"]
            end

            for i,j in sortEss(myEssentia) do
                    if (essentia[i] ~= j) then
                            essentia[i] = j
                    end
            end
    end

    function printEssentia()
            local inactiveTextColor
            local buttonName
            local x, y
            local i, j

            x = essentiaX
            y = essentiaY

            for i,j in sortEss(essentia) do
                    inactiveTextColor = getEssentiaColor(j)

                    buttonName = i .. string.sub(padding, 1, essentiaColumnWidth - (string.len(i) + string.len(pad(j)))) .. pad(j)
                    button.addButton(buttonName, essentiaButton, buttonName, x, y, essentiaColumnWidth, 0, essentiaInactiveBackColor, essentiaActiveBackColor, inactiveTextColor, essentiaActiveTextColor)

                    if (y < (essentiaY + essentiaColumnHeight - 1)) then
                            y = y + 1
                    else
                            y = essentiaY
                            x = x + essentiaColumnWidth + essentiaColumnSpacing
                    end
            end
    end

    function getEssentiaColor(currentEssentiaAmount)
            local myColor

            if (currentEssentiaAmount == 0) then
                    myColor = essentiaInactiveTextColorEmpty
            elseif (currentEssentiaAmount <= 20) then
                    myColor = essentiaInactiveTextColorLow
            elseif (currentEssentiaAmount < 100 and currentEssentiaAmount > 20) then
                    myColor = essentiaInactiveTextColorMedium
            else
                    myColor = essentiaInactiveTextColorHigh
            end

            return myColor
    end

    function printEmptyJars()
            m.setTextColor(emptyJarsTextColor)
            m.setBackgroundColor(emptyJarsBackColor)

            m.setCursorPos(emptyJarsX, emptyJarsY)
            m.write("Empty jars:" .. string.sub(padding, 1, essentiaColumnWidth - (string.len("Empty jars:") + string.len(pad(emptyJars))) - 1) .. pad(emptyJars))
    end

    function printTotalJars()
            m.setTextColor(totalJarsTextColor)
            m.setBackgroundColor(totalJarsBackColor)

            m.setCursorPos(totalJarsX, totalJarsY)
            m.write("Total jars:" .. string.sub(padding, 1, essentiaColumnWidth - (string.len("Total jars:") + string.len(pad(totalJars))) - 1) .. pad(totalJars))
    end

    function pad(number, amount)
            local myPadding = "000000"
            local paddingRequired = 0

            if not (amount) then
                    amount = numberPadding
            end

            paddingRequired = amount - string.len(tostring(number))

            if (paddingRequired ~= 0 and paddingRequired > 0) then
                    return string.sub(myPadding, 1, paddingRequired) .. tostring(number)
            end

            return tostring(number)
    end

    function getClick()
            local event
            local side
            local x,y

            event,side,x,y = os.pullEvent()

            if (event == "monitor_touch") then
                    button.checkxy(x,y)
            end
    end

    function refresh(buttonToFlash)
            -- Flash the refresh button
            if (buttonToFlash) then
                    button.flash(buttonToFlash)
            end

            -- Clear the screen and button list
            m.setBackgroundColor(monBackColor)
            m.clear()
            button.clear()

            -- Scan and print the essentias
            updateEssentia()
            printEssentia()

            -- Print the number of empty jars
            printEmptyJars()

            -- Print the number of jars
            printTotalJars()

            -- Create the refresh button
            addRefreshButton()

            -- Create the top off all jars button
            addTopoffAllJarsButton()

            -- Create the fill all to 64 button
            addFillAllTo64Button()

            -- Create the fill all to 128 button
            addFillAllTo128Button()

            -- Create the other button
            addOtherOptionsButton()

            -- Draw all the buttons on the screen
            button.drawButtons()
    end

    function addRefreshButton()
            button.addButton("Refresh", refresh, "Refresh", refreshButtonX, refreshButtonY, refreshButtonWidth, refreshButtonHeight, refreshInactiveBackColor, refreshActiveBackColor, refreshInactiveTextColor, refreshActiveTextColor)
    end

    function addTopoffAllJarsButton()
            button.addButton("Top off all jars", topoffAllJars, "Top off all jars", topoffAllButtonX, topoffAllButtonY, topoffAllButtonWidth, topoffAllButtonHeight, topoffAllJarsInactiveBackColor, topoffAllJarsActiveBackColor, topoffAllJarsInactiveTextColor, topoffAllJarsActiveTextColor)
    end

    function addFillAllTo64Button()
            button.addButton("Fill all to 64", fillAllTo64, "Fill all to 64", fillAllTo64ButtonX, fillAllTo64ButtonY, fillAllTo64ButtonWidth, fillAllTo64ButtonHeight, fillAllTo64InactiveBackColor, fillAllTo64ActiveBackColor, fillAllTo64InactiveTextColor, fillAllTo64ActiveTextColor)
    end

    function addFillAllTo128Button()
            button.addButton("Fill all to 128", fillAllTo128, "Fill all to 128", fillAllTo128ButtonX, fillAllTo128ButtonY, fillAllTo128ButtonWidth, fillAllTo128ButtonHeight, fillAllTo128InactiveBackColor, fillAllTo128ActiveBackColor, fillAllTo128InactiveTextColor, fillAllTo128ActiveTextColor)
    end

    function addOtherOptionsButton()
            button.addButton("Reboot", otherOptions, "Reboot", otherOptionsButtonX, otherOptionsButtonY, otherOptionsButtonWidth, otherOptionsButtonHeight, otherOptionsButtonInactiveBackColor, otherOptionsButtonActiveBackColor, otherOptionsButtonInactiveTextColor, otherOptionsButtonActiveTextColor)
    end

    function otherOptions(buttonName)
            button.flash(buttonName)
            os.reboot()
    end

    function fillAllTo64(buttonName)
            local aspect
            local count
            local essentiaToFill
            local haveEssentiaToFill
            local myEmptyJars

            -- The button is erased if jars to top off are found else it's toggled back below.
            button.toggleButton(buttonName, true)
            sleep(.15)

            essentiaToFill = essentiaList()
            myEmptyJars = emptyJars
            haveEssentiaToFill = false

            -- Update the list of essentias in all jars
            updateEssentia()

            -- Checks each jar to see if any of them aren't full.
            for aspect,count in pairs(essentia) do
                    if (count < 64) then
                            if (count == 0) then
                                    myEmptyJars = myEmptyJars - 1
                            end

                            essentiaToFill[aspect] = 64 - count
                            haveEssentiaToFill = true
                    end
            end

            if (haveEssentiaToFill == true) then
                    -- Not all essentia is at 64 or more, display the found essentias and confirm filling.
                    showFillAllTo64(essentiaToFill, myEmptyJars)
            else
                    -- All essentia are above 64, rename the button and hold the text for a second so it can be read before reverting to the normal text and color.
                    button.renameButton(buttonName, "All jars at 64", true)
                    sleep(2.5)
                    button.toggleButton("All jars at 64", false)
                    button.renameButton("All jars at 64", buttonName, true)
            end
    end

    function showFillAllTo64(essentiaList, emptyJarsAfterFill)
            local x, y
            local myEssentia
            local amount
            local errorText

            fillAllTo64EssentiaList = essentiaList

            -- Clear the screen and button list
            m.setBackgroundColor(monBackColor)
            m.clear()
            button.clear()

            x = essentiaFillAllTo64X
            y = essentiaFillAllTo64Y

            m.setBackgroundColor(fillAllTo64EssentiaLabelBackColor)
            m.setTextColor(fillAllTo64EssentiaLabelTextColor)

            m.setCursorPos(essentiaFillAllTo64LabelX, essentiaFillAllTo64LabelY)
            m.write("Fill all jars to 64 request")

            m.setBackgroundColor(fillAllTo64EssentiaBackColor)

            for myEssentia,amount in sortEss(essentiaList) do
                    if (amount == 0) then
                            m.setTextColor(fillAllTo64EssentiaTextColorZero)
                    else
                            m.setTextColor(fillAllTo64EssentiaTextColorNonZero)
                    end

                    m.setCursorPos(x, y)
                    m.write(string.upper(string.sub(myEssentia, 1, 1)) .. string.sub(myEssentia, 2) .. string.sub(padding, 1, essentiaColumnWidth - (string.len(myEssentia) + string.len(pad(amount)))) .. pad(amount))

                    if (y < (essentiaFillAllTo64Y + essentiaColumnHeight - 1)) then
                            y = y + 1
                    else
                            y = essentiaFillAllTo64Y
                            x = x + essentiaColumnWidth + essentiaColumnSpacing
                    end
            end

            button.addButton("Cancel filling", cancelFillAllTo64Button, "Cancel filling", cancelFillAllTo64ButtonX, cancelFillAllTo64ButtonY, cancelFillAllTo64ButtonWidth, cancelFillAllTo64ButtonHeight, cancelFillAllTo64ButtonInactiveBackColor, cancelFillAllTo64ButtonActiveBackColor, cancelFillAllTo64ButtonInactiveTextColor, cancelFillAllTo64ButtonActiveTextColor)
            button.addButton("Begin filling", beginFillAllTo64Button, "Begin filling", beginFillAllTo64ButtonX, beginFillAllTo64ButtonY, beginFillAllTo64ButtonWidth, beginFillAllTo64ButtonHeight, beginFillAllTo64ButtonInactiveBackColor, beginFillAllTo64ButtonActiveBackColor, beginFillAllTo64ButtonInactiveTextColor, beginFillAllTo64ButtonActiveTextColor)

            if (emptyJarsAfterFill < 0) then
                    errorText = "NOT ENOUGH EMPTY JARS; HAVE " .. emptyJars .. " NEED "  .. (emptyJars - emptyJarsAfterFill)
                    m.setCursorPos(essentiaFillAllTo64LabelX + math.floor(string.len("Fill all jars to 64 request") / 2) - math.floor(string.len(errorText) / 2), essentiaFillAllTo64LabelY + 1)
                    m.setTextColor(colors.red)
                    m.write(errorText)
                    button.disableButton("Begin filling")
            end

            button.drawButtons()
    end

    function fillAllTo128(buttonName)
            local aspect
            local count
            local essentiaToFill
            local haveEssentiaToFill
            local myEmptyJars
            local myJars
            local jar
            local essentiaJarCount

            -- The button is erased if jars to top off are found else it's toggled back below.
            button.toggleButton(buttonName, true)
            sleep(.15)

            essentiaToFill = essentiaList()
            essentiaJarCount = essentiaList()
            myJars = scanJars()
            myEmptyJars = emptyJars
            haveEssentiaToFill = false

            -- Count how many jars of each aspect exist
            for jar in pairs(myJars) do
                    essentiaJarCount[myJars[jar]["aspect"]] = essentiaJarCount[myJars[jar]["aspect"]] + 1
            end

            -- Update the list of essentias in all jars
            updateEssentia()

            -- Checks each jar to see if any of them aren't full.
            for aspect,count in pairs(essentia) do
                    if (count < 128) then
                            if (count == 0) then
                                    myEmptyJars = myEmptyJars - 2
                            else
                                    if (essentiaJarCount[aspect] == 1) then
                                            if (count <= 64) then -- if it's above 64 the jar is probably an advanced thaumaturgy jar that holds 256
                                                    myEmptyJars = myEmptyJars - 1
                                            end
                                    end
                            end

                            essentiaToFill[aspect] = 128 - count
                            haveEssentiaToFill = true
                    end
            end

            if (haveEssentiaToFill == true) then
                    -- Jars have been found that aren't full, display the found jars and confirm filling.
                    showFillAllTo128(essentiaToFill, myEmptyJars)
            else
                    -- All essentia are above 128, rename the button and hold the text for a second so it can be read before reverting to the normal text and color.
                    button.renameButton(buttonName, "All jars at 128", true)
                    sleep(2.5)
                    button.toggleButton("All jars at 128", false)
                    button.renameButton("All jars at 128", buttonName, true)
            end
    end

    function showFillAllTo128(essentiaList, emptyJarsAfterFill)
            local x, y
            local myEssentia
            local amount
            local errorText

            fillAllTo128EssentiaList = essentiaList

            -- Clear the screen and button list
            m.setBackgroundColor(monBackColor)
            m.clear()
            button.clear()

            x = essentiaFillAllTo128X
            y = essentiaFillAllTo128Y

            m.setBackgroundColor(fillAllTo128EssentiaLabelBackColor)
            m.setTextColor(fillAllTo128EssentiaLabelTextColor)
            m.setCursorPos(essentiaFillAllTo128LabelX, essentiaFillAllTo128LabelY)
            m.write("Fill all jars to 128 request")

            m.setBackgroundColor(fillAllTo128EssentiaBackColor)

            for myEssentia,amount in sortEss(essentiaList) do
                    if (amount == 0) then
                            m.setTextColor(fillAllTo128EssentiaTextColorZero)
                    else
                            m.setTextColor(fillAllTo128EssentiaTextColorNonZero)
                    end

                    m.setCursorPos(x, y)
                    m.write(string.upper(string.sub(myEssentia, 1, 1)) .. string.sub(myEssentia, 2) .. string.sub(padding, 1, essentiaColumnWidth - (string.len(myEssentia) + string.len(pad(amount)))) .. pad(amount))

                    if (y < (essentiaFillAllTo128Y + essentiaColumnHeight - 1)) then
                            y = y + 1
                    else
                            y = essentiaFillAllTo128Y
                            x = x + essentiaColumnWidth + essentiaColumnSpacing
                    end
            end

            button.addButton("Cancel filling", cancelFillAllTo128Button, "Cancel filling", cancelFillAllTo128ButtonX, cancelFillAllTo128ButtonY, cancelFillAllTo128ButtonWidth, cancelFillAllTo128ButtonHeight, cancelFillAllTo128ButtonInactiveBackColor, cancelFillAllTo128ButtonActiveBackColor, cancelFillAllTo128ButtonInactiveTextColor, cancelFillAllTo128ButtonActiveTextColor)
            button.addButton("Begin filling", beginFillAllTo128Button, "Begin filling", beginFillAllTo128ButtonX, beginFillAllTo128ButtonY, beginFillAllTo128ButtonWidth, beginFillAllTo128ButtonHeight, beginFillAllTo128ButtonInactiveBackColor, beginFillAllTo128ButtonActiveBackColor, beginFillAllTo128ButtonInactiveTextColor, beginFillAllTo128ButtonActiveTextColor)

            if (emptyJarsAfterFill < 0) then
                    errorText = "NOT ENOUGH EMPTY JARS; HAVE " .. emptyJars .. " NEED "  .. (emptyJars - emptyJarsAfterFill)

                    m.setCursorPos(essentiaFillAllTo128LabelX + math.floor(string.len("Fill all jars to 128 request") / 2) - math.floor(string.len(errorText) / 2), essentiaFillAllTo128LabelY + 1)
                    m.setTextColor(colors.red)
                    m.write(errorText)
                    button.disableButton("Begin filling")
            end

            button.drawButtons()
    end

    function topoffAllJars(buttonName)
            local myJars
            local jar
            local essentiaToFill
            local haveEssentiaToFill

            -- The button is erased if jars to top off are found else it's toggled back below.
            button.toggleButton(buttonName, true)
            sleep(.15)

            -- Get a table of all the essentia jars
            myJars = scanJars()
            essentiaToFill = essentiaList()
            haveEssentiaToFill = false

            -- Checks each jar to see if any of them aren't full.
            for jar in pairs(myJars) do
                    if (myJars[jar]["count"] < 64) then
                            essentiaToFill[myJars[jar]["aspect"]] = essentiaToFill[myJars[jar]["aspect"]] + (64 - myJars[jar]["count"])
                            haveEssentiaToFill = true
                    elseif (myJars[jar]["count"] > 64) then -- Advanced Thaumaturgy jars hold 256
                            essentiaToFill[myJars[jar]["aspect"]] = essentiaToFill[myJars[jar]["aspect"]] + (256 - myJars[jar]["count"])
                            haveEssentiaToFill = true
                    end
            end

            if (haveEssentiaToFill == true) then
                    -- Jars have been found that aren't full, display the found jars and confirm filling.
                    showTopOffAllJars(essentiaToFill)
            else
                    -- No jars are found, rename the button and hold the text for a second so it can be read before reverting to the normal text and color.
                    button.renameButton(buttonName, "All jars full", true)
                    sleep(2.5)
                    button.toggleButton("All jars full", false)
                    button.renameButton("All jars full", buttonName, true)
            end
    end

    function showTopOffAllJars(essentiaList)
            local x, y
            local myEssentia
            local essentiaText
            local amount

            topOffJarsEssentiaList = essentiaList

            -- Clear the screen and button list
            m.setBackgroundColor(monBackColor)
            m.clear()
            button.clear()

            x = essentiaTopOffJarsX
            y = essentiaTopOffJarsY

            m.setBackgroundColor(topOffAllJarsEssentiaLabelBackColor)
            m.setTextColor(topOffAllJarsEssentiaLabelTextColor)
            m.setCursorPos(essentiaTopOffLabelX, essentiaTopOffLabelY)
            m.write("Top off jars fill request")

            m.setBackgroundColor(topOffAllJarsEssentiaBackColor)

            for myEssentia,amount in sortEss(essentiaList) do
                    if (amount == 0) then
                            m.setTextColor(topOffAllJarsEssentiaTextColorZero)
                    else
                            m.setTextColor(topOffAllJarsEssentiaTextColorNonZero)
                    end

                    m.setCursorPos(x, y)
                    m.write(string.upper(string.sub(myEssentia, 1, 1)) .. string.sub(myEssentia, 2) .. string.sub(padding, 1, essentiaColumnWidth - (string.len(myEssentia) + string.len(pad(amount)))) .. pad(amount))

                    if (y < (essentiaTopOffJarsY + essentiaColumnHeight - 1)) then
                            y = y + 1
                    else
                            y = essentiaTopOffJarsY
                            x = x + essentiaColumnWidth + essentiaColumnSpacing
                    end
            end

            button.addButton("Cancel filling", cancelTopOffJarsButton, "Cancel filling", cancelTopOffJarsButtonX, cancelTopOffJarsButtonY, cancelTopOffJarsButtonWidth, cancelTopOffJarsButtonHeight, cancelTopOffJarsButtonInactiveBackColor, cancelTopOffJarsButtonActiveBackColor, cancelTopOffJarsButtonInactiveTextColor, cancelTopOffJarsButtonActiveTextColor)
            button.addButton("Begin filling", beginTopOffJarsFillButton, "Begin filling", beginTopOffJarsFillButtonX, beginTopOffJarsFillButtonY, beginTopOffJarsFillButtonWidth, beginTopOffJarsFillButtonHeight, beginTopOffJarsFillButtonInactiveBackColor, beginTopOffJarsFillButtonActiveBackColor, beginTopOffJarsFillButtonInactiveTextColor, beginTopOffJarsFillButtonActiveTextColor)

            button.drawButtons()
    end

    function cancelTopOffJarsButton(buttonName)
            button.flash(buttonName)
            topOffJarsEssentiaList = nil
            refresh()
    end

    function beginTopOffJarsFillButton(buttonName)
            local beanType
            local amountToBurn
            local burnCount

            button.flash(buttonName)

            drawBurnMainScreen()
            allBurnResults = {}
            for beanType,amountToBurn in sortEss(topOffJarsEssentiaList) do
                    if (amountToBurn ~= 0) then
                            updateBurnBeanType(beanType)
                            burnCount = burnBeans(beanType, amountToBurn)


                            print("")
                            print(beanType)
                            print("Burned: " .. burnCount)

                            if (burnCount == -100) then
                                    print(translateBurnResultToText(burnCount))
                                    break
                            end
                    end
            end

            refresh()
    end

    function cancelFillAllTo64Button(buttonName)
            button.flash(buttonName)
            fillAllTo64EssentiaList = nil
            refresh()
    end

    function beginFillAllTo64Button(buttonName)
            local beanType
            local amountToBurn
            local burnCount

            button.flash(buttonName)

            drawBurnMainScreen()
            allBurnResults = {}
            for beanType,amountToBurn in sortEss(fillAllTo64EssentiaList) do
                    if (amountToBurn ~= 0) then
                            updateBurnBeanType(beanType)
                            burnCount = burnBeans(beanType, amountToBurn)


                            print("")
                            print(beanType)
                            print("Burned: " .. burnCount)

                            if (burnCount == -100) then
                                    print(translateBurnResultToText(burnCount))
                                    break
                            end
                    end
            end

            refresh()
    end

    function cancelFillAllTo128Button(buttonName)
            button.flash(buttonName)
            fillAllTo128EssentiaList = nil
            refresh()
    end

    function beginFillAllTo128Button(buttonName)
            local beanType
            local amountToBurn
            local burnCount
            local bk, bv

            button.flash(buttonName)

            drawBurnMainScreen()
            for beanType,amountToBurn in sortEss(fillAllTo128EssentiaList) do
                    if (amountToBurn ~= 0) then
                            updateBurnBeanType(beanType)
                            burnCount = burnBeans(beanType, amountToBurn)

                            print("")
                            print(beanType)
                            print("Burned: " .. burnCount)

                            if (burnCount == -100) then
                                    print(translateBurnResultToText(burnCount))
                                    break
                            end
                    end
            end

            refresh()
    end

    function essentiaButton(which)
            local buttonEssentiaName
            local availableEssentiaSpace = 0
            local myJars
            local essentiaCount = 0
            local i

            myJars = scanJars()
            button.flash(which)
            buttonEssentiaName = string.sub(which, 1, string.find(which, " ") - 1)

            for i in pairs(myJars) do
                    if (myJars[i]["aspect"] == buttonEssentiaName) then
                            availableEssentiaSpace = availableEssentiaSpace + (64 - myJars[i]["count"])
                            essentiaCount = essentiaCount + myJars[i]["count"]
                    end
            end

            showRefillEssentia(buttonEssentiaName, essentiaCount, availableEssentiaSpace)
    end

    function showRefillEssentia(essentiaName, essentiaCount, availableEssentiaSpace)
            local fillingText

            fillEssentia =  essentiaName
            fillCurrentAmount = essentiaCount
            fillAmount = 0
            fillAvailableSpace = availableEssentiaSpace

            button.clear()
            m.setBackgroundColor(monBackColor)
            m.clear()

            m.setTextColor(refillLabelTextColor)
            fillingText = "Refilling: " .. string.upper(string.sub(fillEssentia, 1, 1)) .. string.sub(fillEssentia, 2)
            m.setCursorPos(refillScreenX + math.floor((41 - string.len(fillingText)) / 2), refillScreenY)
            m.write(fillingText)

            if (fillAvailableSpace == 0 and emptyJars == 0) then
                    m.setCursorPos(refillScreenX + math.floor((41 - string.len("ALL JARS USED OR FULL")) / 2), refillScreenY + 1)
                    m.setTextColor(colors.red)
                    m.write("ALL JARS USED OR FULL")
            end


            m.setTextColor(refillCurrentAmountTextColor)
            m.setCursorPos(refillScreenX, refillScreenY + 2)
            m.write("Currently contains:" .. string.sub(padding, 1, 41 - (string.len("Currently contains:") + string.len(pad(fillCurrentAmount)))) .. pad(fillCurrentAmount))

            m.setTextColor(refillAddingAmountTextColor)
            m.setCursorPos(refillScreenX, refillScreenY + 3)
            m.write("Currently adding:" .. string.sub(padding, 1, 41 - (string.len("Currently adding:") + string.len(pad(fillAmount)))) .. pad(fillAmount))

            m.setTextColor(getEssentiaColor(fillCurrentAmount))
            m.setCursorPos(refillScreenX, refillScreenY + 4)
            m.write("Total after filling:" .. string.sub(padding, 1, 41 - (string.len("Total after filling:") + string.len(pad(fillCurrentAmount)))) .. pad(fillCurrentAmount))

            button.addButton("+1", addEssentia, "+1", refillScreenX, refillScreenY + 6, 10, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("+5", addEssentia, "+5", refillScreenX + 11, refillScreenY + 6, 9, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("+10", addEssentia, "+10", refillScreenX + 21, refillScreenY + 6, 9, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("+64", addEssentia, "+64", refillScreenX + 31, refillScreenY + 6, 10, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)

            button.addButton("-1", addEssentia, "-1", refillScreenX, refillScreenY + 10, 10, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("-5", addEssentia, "-5", refillScreenX + 11, refillScreenY + 10, 9, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("-10", addEssentia, "-10", refillScreenX + 21, refillScreenY + 10, 9, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("-64", addEssentia, "-64", refillScreenX + 31, refillScreenY + 10, 10, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)

            button.addButton("Top off jar(s)", addEssentia, "Top off jar(s)", refillScreenX, refillScreenY + 14, 20, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)
            button.addButton("Max fill", addEssentia, "Max fill", refillScreenX + 21, refillScreenY + 14, 20, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)

            button.addButton("Cancel filling", refresh, "Cancel filling", refillScreenX, refillScreenY + 18, 41, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)

            button.addButton("Begin filling", buttonBeginRefill, "Begin filling", refillScreenX, refillScreenY + 22, 41, 2, refillButtonsInactiveBackColor, refillButtonsActiveBackColor, refillButtonsInactiveTextColor, refillButtonsActiveTextColor)

            button.drawButtons()
    end

    function addEssentia(amount)
            local myFillAmount

            myFillAmount = fillAmount

            --print(fillAmount .. " before")

            button.flash(amount)

            if (amount == "Top off jar(s)") then
                    fillAmount = fillAvailableSpace
            elseif (amount == "Max fill") then
                    fillAmount = fillAvailableSpace + (emptyJars * 64)
            else
                    fillAmount = fillAmount + tonumber(amount)
            end

            if (fillAmount < 0) then
                    --print(fillAmount .. " is less than 0 - setting to 0")
                    fillAmount = 0
            elseif (fillAmount > fillAvailableSpace) then
                    if (emptyJars > 0) then
                            if (fillAmount > (fillAvailableSpace + (emptyJars * 64))) then
                                    fillAmount = fillAvailableSpace + (emptyJars * 64)
                            end
                    else
                            fillAmount = fillAvailableSpace
                    end
            end

            if (fillAmount ~= myFillAmount) then
                    m.setBackgroundColor(monBackColor)

                    m.setTextColor(refillAddingAmountTextColor)
                    m.setCursorPos(refillScreenX, refillScreenY + 3)
                    m.write("Currently adding:" .. string.sub(padding, 1, 41 - (string.len("Currently adding:") + string.len(pad(fillAmount)))) .. pad(fillAmount))

                    m.setTextColor(getEssentiaColor(fillCurrentAmount + fillAmount))
                    m.setCursorPos(refillScreenX, refillScreenY + 4)
                    m.write("Total after filling:" .. string.sub(padding, 1, 41 - (string.len("Total after filling:") + string.len(pad(fillCurrentAmount + fillAmount)))) .. pad(fillCurrentAmount + fillAmount))
            end
    end

    -- Standard refill button
    function buttonBeginRefill(buttonName)
            local burnCount

            button.flash(buttonName)

            if (fillAmount ~= 0) then
                    drawBurnMainScreen()
                    updateBurnBeanType(fillEssentia)
                    burnCount = burnBeans(fillEssentia, fillAmount)

                    print("")
                    print("Burned: " .. burnCount)

                    print(translateBurnResultToText(burnCount))
            end

            refresh()
    end

    function translateBurnResultToText(burnResult)
            if (burnResult == -100) then
                    return "Aborted"
            end
    end

    maximumLength = 0

    function updateBurnStatus(newStatus)
            local monWidth, monHeight
            local pos
            local writeWidth
            local y

            monWidth, monHeight = m.getSize()
            writeWidth = monWidth - 10
            pos = 1

            for y = 0, 3 do
                    m.setCursorPos(burnScreenStatusX, y + burnScreenStatusY + 2)
                    m.write(string.sub(padding, 1, writeWidth))
                    m.setCursorPos(burnScreenStatusX, y + burnScreenStatusY + 2)
                    m.write(string.sub(newStatus, pos, writeWidth + pos - 1))
                    pos = pos + writeWidth
            end
    end

    function updateBurnBeanType(newBean)
            m.setCursorPos(burnScreenBeanLabelX + string.len(burnScreenBeanTextLabel) + 1, burnScreenBeanLabelY)
            m.write(string.upper(string.sub(newBean, 1, 1)) .. string.sub(newBean, 2) .. string.sub(padding, 1, 15 - string.len(newBean)))
    end

    function drawBurnMainScreen()
            local monWidth
            local monHeight
            local x, y

            -- Clears the screen before creating the information burn screen
            button.clear()
            m.setBackgroundColor(monBackColor)
            m.clear()

            -- Draws the border on the screen
            monWidth,monHeight = m.getSize()
            m.setBackgroundColor(burnScreenBorderColor)

            m.setCursorPos(1, 1)
            m.write(string.sub(padding, 1, monWidth))
            m.setCursorPos(1, monHeight)
            m.write(string.sub(padding, 1, monWidth))

            for y = 0, monHeight do
                    m.setCursorPos(1, y)
                    m.write("  ")
                    m.setCursorPos(monWidth - 1, y)
                    m.write("  ")
            end

            -- Draws the label text
            m.setBackgroundColor(burnScreenLabelBackColor)
            m.setTextColor(burnScreenLabelTextColor)
            m.setCursorPos(burnScreenLabelX, burnScreenLabelY)
            m.write("Burn request information")

            m.setBackgroundColor(burnScreenBeanLabelBackColor)
            m.setTextColor(burnScreenBeanLabelTextColor)
            m.setCursorPos(burnScreenBeanLabelX, burnScreenBeanLabelY)
            m.write(burnScreenBeanTextLabel)

            m.setBackgroundColor(burnScreenBeanLabelBackColor)
            m.setTextColor(burnScreenBeanLabelTextColor)
            m.setCursorPos(burnScreenStatusX, burnScreenStatusY)
            m.write(burnScreenStatusTextLabel)
    end































































    --[[

            The functions below are used to track mana beans in connected chests and put them in the alchemical furnaces.

    --]]

    function executeBurn(chest, beanType, amount, returnIfStuck)
            local amountBurned
            local stack
            local slot
            local direction
            local directions
            local aspect
            local count
            local validBeanCount
            local waitingForBeans
            local amountToBurn
            local waitingForFurnace

            -- No beans for this type have ever been found.
            if (chests[chest][beanType] == nil) then
                    return 0
            end

            if (returnIfStuck ~= false and returnIfStuck ~= true) then
                    returnIfStuck = false
            end

            updateBurnStatus("attempting to burn beans")

            if (alchemicalFurnaceFromChestDirection == "auto") then
                    directions = validFurnaceDirections()
            else
                    directions = {[alchemicalFurnaceFromChestDirection] = true}
            end

            amountToBurn = amount
            waitingForBeans = 0
            waitingForFurnace = 0

            while (amountToBurn > 0) do
                    amountBurned = 0
                    for slot in pairs(chests[chest][beanType]) do
                            stack = peripheral.call(chests[chest]["peripheral name"], "getStackInSlot", slot)

                            if (stack ~= nil and stack.qty > 2) then
                                    count = amountToBurn - amountBurned

                                    if (count > (stack.qty - 2)) then
                                            count = stack.qty - 2
                                            waitingForBeans = 0
                                    end
                            else
                                    count = 0
                            end

                            if (count ~= 0) then
                                    while (count > 0) do
                                            for direction in pairs(directions) do
                                                    if (count > 0) then
                                                            burned = peripheral.call(chests[chest]["peripheral name"], "pushItemIntoSlot", direction, slot, count, 1)
                                                            count = count - burned
                                                            amountBurned = amountBurned + burned

                                                            if (burned ~= 0) then
                                                                    waitingForFurnace = 0
                                                            end

                                                            sleep(serverFriendly)
                                                    end
                                            end

                                            if (count > 0) then
                                                    -- Failed to put all the beans into the attached furnace(s)
                                                    if (waitingForFurnace == 1 and returnIfStuck == true) then
                                                            return amount - (amountToBurn - amountBurned)
                                                    elseif (waitingForFurnace == 0) then
                                                            print("Furnace(s) full, waiting for furnace(s) to have room...")
                                                            updateBurnStatus("furnace(s) full, waiting for them to have room")
                                                    end

                                                    waitingForFurnace = 1
                                                    sleep(1)
                                            end
                                    end
                            else
                                    sleep(serverFriendly)
                            end
                    end

                    if (amountBurned == 0) then
                            -- Out of beans
                            if (waitingForBeans == 1 and returnIfStuck == true) then
                                    return amount - (amountToBurn - amountBurned)
                            elseif (waitingForBeans == 0) then
                                    print("Out of bean type " .. beanType .. " in chest " .. chests[chest]["peripheral name"] .. ". There needs to be more than 2 beans (in a given stack) to burn them...")
                                    updateBurnStatus("out of " .. beanType .. " in chest " .. chests[chest]["peripheral name"] .. " - waiting for refill")
                            end

                            waitingForBeans = 1
                            --enableRefill()
                            sleep(1)
                            --disableRefill()
                    else
                            waitingForBeans = 0
                    end

                    amountToBurn = amountToBurn - amountBurned
            end

            -- This should always calculate to amount but just in case it doesn't, it's not set static.
            return (amount - amountToBurn)
    end

    function validFurnaceDirections()
            return {["north"] = true, ["south"] = true, ["east"] = true, ["west"] = true}
    end

    function burnBeans(beanType, amount)
            local remainingAmount
            local ci
            local continue
            local amountBurned
            local amountToBurn
            local chestsWithAspect

            amountBurned = 0
            remainingAmount = amount
            chestsWithAspect = {}
            chestsBurnResult = {}

            if (chestAspects[beanType] == 0) then
                    -- No chests contain the bean type
                    return 0, nil
            else
                    for ci in pairs(chests) do
                            if (chests[ci][beanType] ~= nil) then
                                    chestsWithAspect[ci] = true
                            end
                    end

                    if (distributeBurnRequests == true) then
                            continue = true

                            while (continue) do
                                    for ci in pairs(chestsWithAspect) do
                                            if (rs.getInput("left") == true) then
                                                    return -100
                                            end
                                            amountToBurn = 64

                                            if ((remainingAmount - amountToBurn) < 0) then
                                                    amountToBurn = remainingAmount
                                            end

                                            amountBurned = executeBurn(ci, beanType, amountToBurn, true)
                                            remainingAmount = remainingAmount - amountBurned

                                            if (remainingAmount <= 0) then
                                                    continue = false
                                                    break
                                            end
                                    end

                                    if (continue == true) then
                                            sleep(5)
                                    end
                            end
                    else
                            for ci in pairs(chestsWithAspect) do
                                    amountBurned = executeBurn(ci, beanType, remainingAmount)

                                    remainingAmount = remainingAmount - amountBurned

                                    if (remainingAmount <= 0) then
                                            break
                                    end
                            end
                    end
            end

            return (amount - remainingAmount)
    end

    function getValidChestNames()
            local chests = {
                    ["container_chest"] = true,
                    ["iron"] = true,
                    ["gold"] = true,
                    ["diamond"] = true,
                    ["crystal"] = true,
                    ["obsidian"] = true,
                    ["copper"] = true,
                    ["silver"] = true
                    }

            return chests
    end

    function findChestsAndAnalyzers()
            local i, j
            local peripheralType
            local validChestNames
            local myChestID
            local myAnalyzerID

            validChestNames = getValidChestNames()
            myChestId = 1
            myAnalyzerID = 1

            for i,j in ipairs(peripheral.getNames()) do
                    peripheralType = peripheral.getType(j)

                    if (validChestNames[peripheralType] == true) then
                            if (debugOutput > 1) then
                                    print("Valid chest found: " .. peripheralType .. " size: " .. peripheral.call(j, "getInventorySize"))
                            end

                            chests[myChestId] = {}
                            chests[myChestId]["peripheral name"] = j
                            myChestId = myChestId + 1
                    elseif (peripheralType == "tt_aspectanalyzer") then
                            if (debugOutput > 1) then
                                    print("Aspect analyzer found: " .. j)
                            end

                            aspectAnalyzers[myAnalyzerID] = {}
                            aspectAnalyzers[myAnalyzerID]["peripheral name"] = j
                            myAnalyzerID = myAnalyzerID + 1
                    end
            end
    end

    function printChestAspects()
            local ci
            local e, s, i
            local myEssentias
            local chestEssentia

            myEssentias = essentiaList()

            for ci in pairs(chests) do
                    chestEssentia = ""

                    for e, i in pairs(chests[ci]) do
                            if not (string.find(e, " ")) then
                                    for s in pairs(i) do
                                            chestEssentia = chestEssentia .. e .. ":" .. s .. ", "
                                    end
                            end
                    end

                    if (chestEssentia ~= nil) then
                            print("Chest " .. ci .. ": " .. string.sub(chestEssentia, 1, string.len(chestEssentia) - 2))
                    end

                    print("")
            end

            for ci in pairs(chests) do
                    print("Chest: " .. ci .. " analyze time: " .. chests[ci]["analyze time"])
            end
    end

    function analyzeChestsContents()
            local ci
            local e
            local slot
            local chestContents
            local aspect
            local count
            local startTime
            local endTime
            local missingAspects

            chestAspects = essentiaList()

            for ci in pairs(chests) do
                    if (debugOutput > 1) then
                            print("Analyzing chest contents " .. ci)
                    end

                    chestContents = peripheral.call(chests[ci]["peripheral name"], "getAllStacks")
                    startTime = os.clock()
                    for slot in pairs(chestContents) do
                            if (chestContents[slot].name == "Mana Bean") then
                                    aspect,count = scanItemInSlot(chests[ci]["aspect analyzer"], chests[ci]["peripheral name"], slot, chestContents[slot].qty)

                                    if (aspect ~= nil) then
                                            if (chests[ci][aspect] == nil) then
                                                    chests[ci][aspect] = {}
                                            end

                                            chests[ci][aspect][slot] = true
                                            chestAspects[aspect] = 1

                                            if (debugOutput > 1) then
                                                    print("Found mana bean in chest " .. ci .. " slot " .. slot .. " of aspect type " .. aspect)
                                            end
                                    else
                                            print("Mana bean in chest " .. ci .. " slot " .. slot .. " needs refilling; only " .. count .. " left.")
                                    end
                            end
                    end

                    chests[ci]["analyze time"] = os.clock() - startTime

                    if (debugOutput > 0) then
                            print("Time to analyze chest " .. ci .. " " .. (os.clock() - startTime))
                    end
            end

            missingAspects = ""
            for e in pairs(chestAspects) do
                    if (chestAspects[e] == 0) then
                            if (missingAspects ~= "") then
                                    missingAspects = missingAspects .. ", "
                            end

                            missingAspects = missingAspects .. e
                    end
            end

            if (missingAspects ~= "") then
                    print("WARNING: Not every aspect was found in the connected chests. You won't be able to refill them unless they're added to the chest(s).")
                    print("")
                    print("Missing aspects: " .. missingAspects)
            end
    end

    function scanItemInSlot(aspectAnalyzer, chest, slot, quantity)
            local aspect
            local stack

            if (quantity == nil) then
                    stack = peripheral.call(chest, "getStackInSlot", slot)
                    if (stack ~= nil) then
                            quantity = stack.qty
                    else
                            quantity = 0
                    end
            end

            if (quantity <= 2) then
                    return nil, quantity
            end

            if (peripheral.call(chest, "pushItemIntoSlot", "down", slot, 1, 1) == 0) then
                    print("Failed to push mana bean from chest " .. chest .. " slot " .. slot .. " into aspect analyzer. Program halted. !!RESTART REQUIRED!!")

                    -- Something went wrong, wait for human intervention.
                    while (true) do
                            sleep(60)
                    end
            end

            aspect = peripheral.call(aspectAnalyzer, "getAspects")

            if (peripheral.call(chest, "pullItemIntoSlot", "down", 1, 1, slot) == 0) then
                    print("Failed to pull mana bean from aspect analyzer " .. aspectAnalyzer .. " back into chest " .. chest .. " slot " .. slot .. ". Program halted. !!RESTART REQUIRED!!")

                    -- Something went wrong, wait for human intervention.
                    while (true) do
                            sleep(60)
                    end
            end

            return aspect, quantity
    end

    function matchChestsWithAnalyzer()
            local ci
            local ai
            local hasItem
            local chestContents
            local slot
            local foundSlot
            local itemStack

            -- Checks to make sure none of the analyzers have any items in them
            for ai in pairs (aspectAnalyzers) do
                    hasItem = peripheral.call(aspectAnalyzers[ai]["peripheral name"], "hasItem")
                    if (hasItem) then
                            print("One of the aspect analyzer(s) has an item in it. All aspect analyzer should be empty.")

                            while (hasItem) do
                                    sleep(1)
                                    hasItem = peripheral.call(aspectAnalyzers[ai]["peripheral name"], "hasItem")
                            end
                    end
            end


            for ci in pairs(chests) do
                    chestContents = peripheral.call(chests[ci]["peripheral name"], "getAllStacks")
                    foundSlot = false

                    -- See if the chest contains anything and record the slot of any item if it does.
                    for slot in pairs(chestContents) do
                            if (chestContents[slot].name == "Mana Bean") then
                                    foundSlot = slot
                                    break
                            end
                    end

                    -- Something went wrong, try to get it fixed.
                    if not (foundSlot) then
                            print("No beans found in chest: " .. chests[ci]["peripheral name"] .. " at least one bean type needs to be present during startup. Please put some beans in the chest.")
                            print("")

                            while not (foundSlot) do
                                    sleep(5)
                                    chestContents = peripheral.call(chests[ci]["peripheral name"], "getAllStacks")

                                    for slot in pairs(chestContents) do
                                            if (chestContents[slot].name == "Mana Bean") then
                                                    foundSlot = slot
                                                    break
                                            end
                                    end
                            end

                            print("Found mana bean in chest slot: " .. foundSlot)
                            print("")
                    end


                    -- Put one of the random items from the chest into the aspect analyzer above it.
                    if not (peripheral.call(chests[ci]["peripheral name"], "pushItemIntoSlot", "down", foundSlot, 1, 1)) then
                            print("Failed to put item from chest " .. chests[ci]["peripheral name"] .. " slot " .. foundSlot .. " into aspect analyzer. Make sure everything in the chest is a mana bean.")
                            print("")
                            sleep(1)

                            while not (peripheral.call(chests[ci]["peripheral name"], "pushItemIntoSlot", "down", foundSlot, 1, 1)) do
                                    sleep(1)
                            end
                    end


                    -- Scan through the aspect analyzers and find which one has the item in it.
                    for ai in pairs (aspectAnalyzers) do
                            hasItem = peripheral.call(aspectAnalyzers[ai]["peripheral name"], "hasItem")

                            if (hasItem) then
                                    if not (peripheral.call(chests[ci]["peripheral name"], "pullItemIntoSlot", "down", 1, 1, foundSlot)) then
                                            print("Failed to pull the item back out of the aspect analyzer. Make sure the redstone signal from the computer is disabling refilling of the chests during startup. !!RESTART REQUIRED!!")

                                            -- This is too difficult to explain how to recover from. Wait for human intervention.
                                            while (true) do
                                                    sleep(60)
                                            end
                                    end

                                    chests[ci]["aspect analyzer"] = aspectAnalyzers[ai]["peripheral name"]

                                    if (debugOutput) then
                                            print("Matched chest: " .. chests[ci]["peripheral name"] .. " with aspect analyzer: " .. aspectAnalyzers[ai]["peripheral name"])
                                            print("")
                                    end

                                    break
                            end
                    end

                    if not (hasItem) then
                            print("Failed to match chest " .. chests[ci]["peripheral name"] .. " with any connected aspect analyzer. Make sure all chests have aspect analyzers below them and all chests and aspect analyzers have peripherals/proxies connected and enabled. !!RESTART REQUIRED!!")

                            -- Some part of the peripheral configuration is wrong and needs to be fixed. Wait for human intervention.
                            while (true) do
                                    sleep(60)
                            end
                    end
            end
    end

    function disableRefill()
            rs.setOutput(disableFillRedstoneDirection, true)
            redstone.setBundledOutput(disableFillRedstoneDirection, colors.white)
            sleep(redstoneWaitTicks * .05)
    end

    function enableRefill(skipSleep)
            rs.setOutput(disableFillRedstoneDirection, false)
            redstone.setBundledOutput(disableFillRedstoneDirection, 0)

            if (skipSleep ~= true) then
                    sleep(redstoneWaitTicks * .05)
            end
    end

    function essentiaList()
            local essentias

            essentias = {
                    ["aer"] = 0,
                    ["alienis"] = 0,
                    ["aqua"] = 0,
                    ["arbor"] = 0,
                    ["auram"] = 0,
                    ["bestia"] = 0,
                    ["cognitio"] = 0,
                    ["corpus"] = 0,
            ["desidia"] = 0,
                    ["exanimis"] = 0,
                    ["fabrico"] = 0,
                    ["fames"] = 0,
                    ["gelum"] = 0,
                    ["granum"] = 0,
            ["gula"] = 0,
                    ["herba"] = 0,
                    ["humanus"] = 0,
                    ["ignis"] = 0,
            ["infernus"] = 0,
            ["invidia"] = 0,
                    ["instrumentum"] = 0,
            ["ira"] = 0,
                    ["iter"] = 0,
                    ["limus"] = 0,
                    ["lucrum"] = 0,
                    ["lux"] = 0,
            ["luxuria"] = 0,
                    ["machina"] = 0,
                    ["messis"] = 0,
                    ["metallum"] = 0,
                    ["meto"] = 0,
                    ["mortuus"] = 0,
                    ["motus"] = 0,
                    ["ordo"] = 0,
                    ["pannus"] = 0,
                    ["perditio"] = 0,
                    ["perfodio"] = 0,
                    ["permutatio"] = 0,
                    ["potentia"] = 0,
                    ["praecantatio"] = 0,
                    ["sano"] = 0,
                    ["saxum"] = 0,
                    ["sensus"] = 0,
                    ["spiritus"] = 0,
            ["superbia"] = 0,
                    ["telum"] = 0,
                    ["tempus"] = 0,
                    ["tempestas"] = 0,
                    ["tenebrae"] = 0,
                    ["terra"] = 0,
                    ["tutamen"] = 0,
                    ["vacuos"] = 0,
                    ["venenum"] = 0,
                    ["victus"] = 0,
                    ["vinculum"] = 0,
                    ["vitium"] = 0,
                    ["vitreus"] = 0,
                    ["volatus"] = 0
            }

            return essentias
    end


    m.clear()
    m.setCursorPos(1, 1)
    term.redirect(m)
    print("Analyzing chests, watch the computer for more information.")
    print("")
    print("The monitor will refresh once chest analysis is finished.")
    term.restore()
    essentia = essentiaList()
    setAutoDetectVariables()

    disableRefill()
    findChestsAndAnalyzers()
    matchChestsWithAnalyzer()
    analyzeChestsContents()
    enableRefill()

    print("")
    print("Chest analysis finished. Showing interface.")
    sleep(1)


    refresh()

    while (run) do
            -- uses os.pullevent so this isn't triggered constantly
            getClick()
    end