Test Script

os.loadAPI("button1")
local essentia = {}
local jars = peripheral.getNames()
local m = peripheral.wrap("top")
local monCoord = {}
local currEssentia
local fillAmt = 0
local rowsActive = true
local c = peripheral.wrap("crystal_1")
local a = peripheral.wrap("tt_aspectanalyzer_3")
local f = peripheral.wrap("container_alchemyfurnace_0")
local redstoneDir = "back"
local beans = {}

function scanSlot(slot)
    c.pushItem("down", slot,1)
    data = a.getAspects()
    beans[data] = slot
    c.pullItemIntoSlot("down", 1, 1,slot)
end

function scanSlots()
    redstone.setOutput(redstoneDir, true)
    for i = 1, 108 do
        if c.getStackInSlot(i) then
            scanSlot(i)
        end
    end
    redstone.setOutput(redstoneDir, false)
end

function cookEssentia(aspect, numAspect)
    if not f.getStackInSlot(1) then
        c.pushItemIntoSlot("front", beans[aspect], numAspect,1)
        redstone.setOutput("back", true)
        sleep(1)
        redstone.setOutput("back", false)
        sleep(3)
        --f.pullItemIntoSlot("down", 1, numAspect,1)
    end
    while f.getStackInSlot(1) do
        print("Waiting for empty furnace....")
        sleep(3)
    end
    --   sleep(15)
end

function sortEss(t)
    local keys = {}
    for k in pairs(t) do keys[#keys+1] = k end
    table.sort(keys)

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

function scanEssentia()
    for i,j in ipairs(jars) do
        if peripheral.getType(j) == "tt_aspectContainer" then
            asp = peripheral.call(j, "getAspects")[1]
            if asp then essentia[asp] = math.floor(peripheral.call(j, "getAspectCount", asp)) end
        end
    end
end

function printEssentia()
    m.setTextColor(colors.white)
    local x = 1
    local y = 1
    monCoord[x] = {}
    --  for a = 1,17 do
    for i,j in sortEss(essentia) do
        if j<=20 then m.setTextColor(colors.red) end
        if j<40 and j>20 then m.setTextColor(colors.yellow) end
        if j>=40 then m.setTextColor(colors.green) end

        m.setCursorPos(x,y)
        m.write(i)
        m.setCursorPos(x+14,y)
        m.write(tostring(j))
        --       print(j)
        monCoord[x][y] = i
        if y < 17 then
            y = y+1
            else
            y = 1
            x = x+17
            monCoord[x] = {}
        end
    end
    m.setTextColor(colors.white)
end

function getClick()
    local event,side,x,y = os.pullEvent()
    if event=="monitor_touch" then
        if button1.checkxy(x,y) then
            print("button")
            else
            if rowsActive then
                fillAmt = 0
                print(x..":"..x-(x%17)+1)
                print(monCoord[x-(x%17)+1][y])
                currEssentia = monCoord[x-(x%17)+1][y]
                if currEssentia ~= nil then
                    if essentia[currEssentia] < 64 then
                        fillTable2()
                        else
                        m.clear()
                        button1.label(1,10, currEssentia.." is already full.  Please choose another.")
                        sleep(3)
                        refresh()
                    end
                end
            end
        end
    end
end

function refresh()
    button1.flash("Refresh")
    m.clear()
    scanEssentia()
    printEssentia()
    print("Refreshed")
    button1.screen()
end

function fillTable()
    rowsActive = true
    button1.clearTable()
    button1.setTable("Refresh", refresh, "", 15, 35, 19, 19)
    button1.screen()
end

function addEss(num)
    fillAmt = fillAmt + num
    if fillAmt < 0 then fillAmt = 0 end
    if fillAmt > 64-essentia[currEssentia] then fillAmt = 64-essentia[currEssentia] end
    m.clear()
    fillTable2()
end

function fillEss()
    local essData = {}
    essData[1] = currEssentia
    essData[2] = fillAmt
    m.clear()
    print(essData[1]..":"..essData[2])
    button1.label(7, 10, "Waiting for aspects to finish cooking....")
    button1.label(7, 12, "Don't forget to refresh the screen after")
    button1.label(7, 13, "the golem is done moving the essentia.")
    cookEssentia(essData[1], essData[2])
    m.clear()
    fillTable()
    refresh()
end

function cancel()
    m.clear()
    fillTable()
    refresh()
end

function fillTable2()
    rowsActive = false
    button1.clearTable()
    m.clear()
    button1.label(7, 1, "Essentia: "..currEssentia.." contains "..essentia[currEssentia])
    button1.setTable("+1", addEss, 1, 8, 18, 6,6)
    button1.setTable("+5", addEss, 5, 20, 30, 6, 6)
    button1.setTable("+10", addEss, 10, 32, 42, 6, 6)
    button1.setTable("-1", addEss, -1, 8, 18, 8, 8)
    button1.setTable("-5", addEss, -5, 20, 30, 8, 8)
    button1.setTable("-10", addEss, -10, 32, 42, 8 ,8)
    button1.setTable("Refill Jar", addEss, 64-essentia[currEssentia], 8, 42, 10, 10)
    button1.setTable("Execute Fill Request", fillEss, "", 8, 42, 16, 18)
    button1.setTable("Cancel", cancel, "", 20, 30, 12, 14)
    button1.label(7, 4, "Currently Adding "..fillAmt.." "..currEssentia.." essentia.")
    button1.screen()
end

scanSlots()
fillTable()
refresh()

while true do
    getClick()
end