Ballad of Alchemy Automation

--------Ingredients Section
local alchemy = {}
function AlchemicalCrafting (item,name,ing)
    local tab = {}
    tab.item = item
    tab.name = name
    tab.ingredients = ing
    return tab
end
function Item (name,damage)
    local tab = {}
    tab.id = name
    tab.dmg = damage
    return tab
end
alchemy[1] = AlchemicalCrafting(Item("AWWayofTime:simpleCatalyst",0),"Simple Catalyst",
{
    alchemical = {
    Item("minecraft:gunpowder",0),
    },
    other = {
        Item("minecraft:sugar",0),
        Item("minecraft:redstone",0),
        Item("minecraft:redstone",0),
        Item("minecraft:glowstone_dust",0),

    }
})
alchemy[2] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),"Strengthened Catalyst",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0),
        Item("AWWayofTime:simpleCatalyst",0)
    },
    other = {
        Item("minecraft:nether_wart",0),
        Item("minecraft:dye",15)
    }
})
alchemy[3] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",4),"Concentrated Catalyst",
{
    alchemical = {
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",5)
    },
    other = {
        Item("minecraft:gold_nugget")
    }
})
alchemy[4] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",5),"Fractured Bone",
{
    alchemical = {
    Item("minecraft:gunpowder",0),
    },
    other = {
        Item("minecraft:bone",0),
        Item("minecraft:bone",0),
        Item("minecraft:bone",0),
        Item("minecraft:bone",0),

    }
})
alchemy[5] = AlchemicalCrafting(Item("AWWayofTime:incendium",0),"Incendium",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0)
    },
    other = {
        Item("minecraft:lava_bucket",0),
        Item("minecraft:blaze_powder",0),
        Item("minecraft:blaze_powder",0),
        Item("minecraft:netherrack",0)
    }
})
alchemy[6] = AlchemicalCrafting(Item("AWWayofTime:aether",0),"Aether",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0)
    },
    other = {
        Item("minecraft:ghast_tear",0),
        Item("minecraft:feather",0),
        Item("minecraft:feather",0),
        Item("minecraft:glowstone_dust",0)
    }
})
alchemy[7] = AlchemicalCrafting(Item("AWWayofTime:sanctus",0),"Sanctus",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0)
    },
    other = {
        Item("minecraft:gold_nugget",0),
        Item("minecraft:glass",0),
        Item("minecraft:glowstone_dust",0),
        Item("minecraft:glowstone_dust",0)
    }
})
alchemy[8] = AlchemicalCrafting(Item("AWWayofTime:crepitous",0),"Crepitous",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0),
        Item("minecraft:gunpowder",0),
        Item("minecraft:gunpowder",0),
    },
    other = {
        Item("minecraft:cobblestone",0),
        Item("minecraft:cobblestone",0)
    }
})
alchemy[9] = AlchemicalCrafting(Item("AWWayofTime:crystallos",0),"Crystallos",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0)
    },
    other = {
        Item("minecraft:ice",0),
        Item("minecraft:ice",0),
        Item("minecraft:snow",0),
        Item("minecraft:snow",0)
    }
})
alchemy[10] = AlchemicalCrafting(Item("AWWayofTime:terrae",0),"Terrae",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0)
    },
    other = {
        Item("minecraft:sand",0),
        Item("minecraft:dirt",0),
        Item("minecraft:obsidian",0),
        Item("minecraft:obsidian",0)
    }
})
alchemy[11] = AlchemicalCrafting(Item("AWWayofTime:aquasalus",0),"Aquasalus",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0),
    },
    other = {
        Item("minecraft:dye",0),
        Item("minecraft:potion",0),
        Item("minecraft:potion",0),
        Item("minecraft:potion",0),
    }
})
alchemy[12] = AlchemicalCrafting(Item("AWWayofTime:tennebrae",0),"Tenebrae",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0),
        Item("minecraft:coal",0),
        Item("minecraft:coal",0),
    },
    other = {
        Item("minecraft:dye",0),
        Item("minecraft:clay_ball",0),
    }
})
alchemy[13] = AlchemicalCrafting(Item("AWWayofTime:magicales",0),"Magicales",
{
    alchemical = {
        Item("AWWayofTime:simpleCatalyst",0),
        Item("minecraft:gunpowder",0),
    },
    other = {
        Item("minecraft:glowstone_dust",0),
        Item("minecraft:glowstone_dust",0),
        Item("minecraft:redstone",0),

    }
})
alchemy[14] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",0),"Offensa",
{
    alchemical = {
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
        Item("AWWayofTime:incendium",0),
    },
    other = {
        Item("minecraft:arrow",0),
        Item("minecraft:arrow",0),
        Item("minecraft:flint",0)
    }
})
alchemy[15] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",1),"Praesidium",
{
    alchemical = {
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
        Item("AWWayofTime:tennebrae",0),
        Item("minecraft:web",0),
    },
    other = {
        Item("minecraft:iron_ingot",0),
        Item("minecraft:redstone",0)
    }
})
alchemy[16] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",2),"Orbis Terrae",
{
    alchemical = {
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
        Item("AWWayofTime:terrae",0),
        Item("minecraft:gunpowder",0),
    },
    other = {

        Item("minecraft:sand",0),
        Item("minecraft:netherrack",0)
    }
})
alchemy[17] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",6),"Virtus",
{
    alchemical = {
        Item("minecraft:coal",0),
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
    },
    other = {
        Item("minecraft:gunpowder",0),
        Item("minecraft:redstone",0),
        Item("minecraft:redstone",0)
    }
})
alchemy[18] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",7),"Reductus",
{
    alchemical = {
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
    },
    other = {
        Item("minecraft:carrot",0),
        Item("minecraft:gold_ingot",0),
        Item("minecraft:soul_sand",0),
        Item("minecraft:redstone",0)
    }
})
alchemy[19] = AlchemicalCrafting(Item("AWWayofTime:bloodMagicBaseAlchemyItems",8),"Potentia",
{

    alchemical = {
        Item("AWWayofTime:bloodMagicBaseAlchemyItems",3),
    },
    other = {
        Item("minecraft:glowstone_dust",0),
        Item("minecraft:quartz",0),
        Item("minecraft:dye",4),
        Item("minecraft:dye",4)
    }
})
alchemy[20] = AlchemicalCrafting(Item("minecraft:web",0),"Cobweb",
{

    alchemical = {
    },
    other = {
        Item("minecraft:string",0),
        Item("minecraft:string",0),
        Item("minecraft:string",0),
        Item("minecraft:string",0),
        Item("minecraft:string",0)
    }
})

alchemy[21] = AlchemicalCrafting(Item("minecraft:gunpowder",0),"Gunpowder",
{

    alchemical = {
        Item("minecraft:coal",0),
    },
    other = {
        Item("minecraft:gunpowder",0),
        Item("minecraft:sand",0),

    }
})
alchemy[22] = AlchemicalCrafting(Item("minecraft:coal",0),"Coal",
{

    alchemical = {
    },
    other = {
        Item("minecraft:charcoal",0),
        Item("minecraft:charcoal",0),
        Item("minecraft:charcoal",0),
        Item("minecraft:charcoal",0),
        Item("minecraft:charcoal",0)
    }
})

----------End of ingredients section

-----"Limits" section
local quantities = {}
function PrepareConfig ()

    for i=1,#alchemy do
        quantities[i]={}
        quantities[i].name = alchemy[i].name
        quantities[i].lowPriNum = 50
        quantities[i].highPriNum = 25
    end
    cfg=fs.open("config.cfg","w")
    cfg.write(textutils.serialize(quantities))
    cfg.flush()
    cfg.close()
end
function LoadConfig()
    local cfg = fs.open("config.cfg", "r")
    quantities = textutils.unserialize( cfg.readAll() )
    cfg.close()
end
-----End of "Limits" Section

----Peripheral section
local aeInterface
local chest
local altar
function Peripherals ()
    local per_found=0
    per_list = peripheral.getNames()
    for i = 1, #per_list do
        if peripheral.getType(per_list[i]) == "tileinterface" then
            aeInterface = peripheral.wrap(per_list[i])
            per_found=per_found+1
            print (" Found AE Interface")
        elseif  peripheral.getType(per_list[i]) == "tealtar" then
            altar = peripheral.wrap(per_list[i])
            per_found=per_found+1
            print (" Found Altar")
        else
            methods = peripheral.getMethods(per_list[i])
            for j = 1, #methods do
                    if methods[j] == "getStackInSlot" then
                            chest = peripheral.wrap(per_list[i])
                            per_found=per_found+1
                            print (" Found altar 'storage'")
                    end
            end
        end
    end
    if per_found ~= 3 then
    error("missing Peripherals") end
end
----End of Peripheral section


----List Section
local lowPriorityList = {}
local highPriorityList = {}
function PrepareListConnectionIDs()
    for i=1, #quantities do
        for j=1 ,#alchemy do
            if quantities[i].name == alchemy[j].name then
                quantities[i].alchemyID = j
                alchemy[j].quantitiesID = i
                break
            end
        end
    end
end
function RefreshLists ()
    lowPriorityList = {}
    highPriorityList = {}
    for i=1, #quantities do


        detail = aeInterface.getItemDetail(alchemy[quantities[i].alchemyID].item)

        if detail ~= nil then

            qty = detail.basic().qty
            if qty<quantities[i].highPriNum then
                highPriorityList[#highPriorityList +1] = i
            elseif qty<quantities[i].lowPriNum then
                lowPriorityList[#lowPriorityList +1] = i
            end
        else
            highPriorityList[#highPriorityList +1] = i
        end
    end
end
----End of List Section


--crafting section
local currentlyCrafted

function DetermineCrafting()
    if #highPriorityList ~= 0 then
        if #highPriorityList == 1 then
            FindAndFillAltar(highPriorityList[1])
        else
            ingredient = alchemy[quantities[highPriorityList[1]].alchemyID].ingredients.alchemical
            if #ingredient == 0 then
                FindAndFillAltar(highPriorityList[1])
            else
            local ing
                for i=1, #ingredient do

                    ing = CheckParents(ingredient[i])
                    if ing ~= nil then
                        break
                    end
                end

                if ing == nil then
                    FindAndFillAltar(highPriorityList[1])
                else
                    FindAndFillAltar(ing)
                end

            end
        end
    elseif #lowPriorityList ~= 0 then
        slot = FindInChest(quantities[lowPriorityList[1]].name)
        if currentlyCrafted ~= lowPriorityList[1] then
            if currentlyCrafted ~= nil then
                EmptyAltar()
            end
            FillAltar(slot,lowPriorityList[1])
        end
    else
        if currentlyCrafted ~= nil then
            EmptyAltar()
        end
    end
end




function CheckParents (item)
    local toCraft = nil

    currItem = FindAlchemyIngredient(item)


    if alchemy[currItem].quantitiesID ~=nil then
        for i=1, #highPriorityList do
            if alchemy[currItem].quantitiesID == highPriorityList[i] then
                toCraft = highPriorityList[i]
                break
            end
        end
    end
    local alchIng = alchemy[currItem].ingredients.alchemical
    if #alchIng ~= 0 then
        local deepSearch = nil
        for i=1,#alchIng do
            deepSearch = CheckParents(alchIng[i])
            if deepSearch ~= nil then

                toCraft = deepSearch
                break
            end
        end
    end
    return toCraft
end
---End of crafting section

---random section

function FindInChest(item_name)
    maxslots = chest.getInventorySize()
    for i=1, maxslots do
        ch = chest.getStackInSlot(i)
        if ch ~= nil then
            if item_name == ch.display_name then
                return i
            end
        end
    end
end
function EmptyAltar()
    altar.pushItem(2,1)
    currentlyCrafted = nil
end
function FillAltar(slot,item)
    if slot ~= nil then
    chest.pushItem(1,slot)
    currentlyCrafted = item
    else

        error("Missing item in chest: " .. quantities[item].name .. ". Terminating")
    end
end
function FindAlchemyIngredient (item)
    local alchIng

    for i=1, #alchemy do
        if item.id == alchemy[i].item.id and item.dmg == alchemy[i].item.dmg then
            alchIng=i
        end
    end
    return alchIng
end
function FindAndFillAltar (id)
    slot = FindInChest(quantities[id].name)
    if currentlyCrafted ~= id then
        if currentlyCrafted ~= nil then
            EmptyAltar()
        end
        FillAltar(slot,id)
    end
end

---end of random section
if fs.exists("config.cfg") then
    LoadConfig()
    Peripherals()
    altar.pushItem(2,1)
    PrepareListConnectionIDs()
    sleep(5)
    while true do
        RefreshLists()
        DetermineCrafting()
        sleep(8)
    end

else
    PrepareConfig()
    print (" File 'config.cfg' was generated. Edit it to suit your needs and launch app again")
end