[CC]: Applied Energistics 2 Autocrafter

--[[
Steps:
1. Build a Computer and download this script onto your computer (pastebin get)
2. Create a file named "recipes" (without .lua - on my version i had to use "rename recipes.lua recipes")
3. Build a ME Bridge (Mod: Advanced Peripherals) and connect it to your computer
4. Build a Vanilla Minecraft Chest! and connect it to your computer
5. Start the script
6. Insert any (ME System) craftable item into the chest, like 10 Pistons
7. Wait for the recipe beeing registered (Registered recipe: 10x minecraft:piston)
8. You can remove the 10 pistons from the chest
9. If you want to edit the 10, either close the script and edit the recipes file OR just insert 20 pistons into the chest and wait for the computer to edit the recipe

Now the computer will always make sure you have 10 pistons in your me system

]]
print("Loading autocrafter...")

local bridge = peripheral.find("meBridge")
local inventory = peripheral.find("minecraft:chest")

local maxTaskCount = 4
local maxCoWorker = 1

local recipeList = {}
local craftingQueue = {}

local function StringSeperate(str, seperator)
local words = {}
local word = ""

    if(string.sub(str, str:len(), str:len())~=seperator)then
        str = str..""..seperator
    end
    for x=1,str:len() do
        local s = string.sub(str,x,x)
        if(s==seperator)then
            table.insert(words, word)
            word = ""
        else
            word = word..s
        end
    end
    return words
end

local f = io.open("recipes", ab)

    for line in io.lines("recipes")do
        local tab = StringSeperate(line, "|")
        if(tab[1]~=nil)and(tab[2]~=nil)and(tab[3]~=nil)and(tab[4]~=nil)and(tab[5]~=nil)then
            print("Registered recipe: "..tab[3].."x "..tab[1]..":"..tab[2])
            os.sleep(0.2)
            local recipe = {name=tab[1],damage=tonumber(tab[2]),minAmount=tonumber(tab[3]),maxCraftAmount=tonumber(tab[4]),fails=0,timer=0}
            if(tab[5]=="true")then
                recipe.useDmg=true
            else
                recipe.useDmg=false
            end
            table.insert(recipeList, recipe)
        end
    end
f:close()

function SaveToFile()
    local file = io.open("recipes", "wb")
    for k,v in pairs(recipeList)do
        if(v.useDmg)then
            file:write(v.name.."|"..v.damage.."|"..v.minAmount.."|"..v.maxCraftAmount.."|true|", "\n")
        else
            file.write(v.name.."|"..v.damage.."|"..v.minAmount.."|"..v.maxCraftAmount.."|false|", "\n")
        end
    end
    file:close()
end

local function GetActiveTaskCount()
    local n = 0
    for k,v in pairs(bridge.getCraftingCPUs())do
        if(type(v)=="table")then
            if(v.isBusy==true)then
                n = n+1
            end
        end
    end
    return n
end

local function GetAvailableCpuCount()
    return #bridge.getCraftingCPUs() - GetActiveTaskCount()
end

local function GetRecipe(pattern)
    for k,v in pairs(recipeList)do
        if(v.name==pattern.name)then
            if(pattern.damage==nil)then
                return v
            end
            if(v.useDmg)then
                if(v.damage==pattern.damage)then
                    return v
                end
            else
                return v
            end
        end
    end
   return nil
end

local function GetStoredItemAmountNetwork(recipe)
    return bridge.getItem(recipe).count
end

local function GetAmount(itemAmount, recipe)
    local amount = 0
    if(itemAmount < recipe.minAmount)then
        if(recipe.maxCraftAmount > 0)then
            if(recipe.minAmount-itemAmount > recipe.maxCraftAmount)then
                amount = recipe.maxCraftAmount
            else
                amount = recipe.minAmount-itemAmount
            end
        else
            amount = recipe.minAmount-itemAmount
        end
    end
    return amount
end

function GetRecipeKey(pattern)
    for k,v in pairs(recipeList)do
        if(v.name == pattern.name)then
            if(pattern.damage==nil)then return k end
            if(v.useDmg)then
                if(v.damage == pattern.damage)then
                    return k
                end
            else
                return k
            end
        end
    end
    return nil
end

local function CheckCraftingRecipe(pattern)
    local recipe = GetRecipe(pattern)
    local item = {item=pattern}
    if(recipe~=nil)then
      local storedAmount = pattern.count
      local neededItemAmount = GetAmount(storedAmount, recipe)
      if(neededItemAmount > 0)then
        item.count = neededItemAmount
        table.insert(craftingQueue, item)
        return true
      end
    end
    return false
end

local function CheckAllRecipes()
    for k,v in pairs(bridge.listCraftableItems())do
        if(type(v)=="table")then
            CheckCraftingRecipe(v)
        end
    end
end

function RemoveRecipe(item)
    local key = -1
        for k,v in pairs(recipeList)do
            if(v.name == item.name)and(v.damage== item.damage)then
                key = k
            end
        end
        if(key>=0)then
            table.remove(recipeList, key)
        end
        SaveToFile()
end

local function GetCraftable(item)
      for k,v in pairs(bridge.listCraftableItems())do
        if(item.useDmg)then
            if(bridge.getItem(v).name==item.name)then
            if(item.useDmg)then
                if(v.damage==item.damage)then
                return v
                end
            end
            return v
            end
        end
    end
end

local function FindKeyInTable(table, item)
    for k,v in pairs(table)do
        if(v==item)then
            return k
        end
    end
    return nil
end

local function isItemCrafting(itemState)
local meItem = bridge.getItem({name=itemState.item.name})
    if(meItem.amount > 0)then
        return bridge.isItemCrafting(meItem)
    else
        print(meItem.amount.."   "..itemState.curAmount + itemState.amountToCraft)
        return (meItem.count < itemState.curAmount + itemState.amountToCraft)
    end
end

local function UpdateCraftingQueue()
    while(#craftingQueue > 0)do
        local activeCoWorkers = {}
        local craftingQueuesToRemove = {}
        for k,v in pairs(craftingQueue)do
            if(#activeCoWorkers+1 <= maxCoWorker)then
                local stack = v.item
                local recipeKey = GetRecipeKey(stack)

                local waittimer = 0
                local multiplier = 1

                if(recipeList[recipeKey].fails > 0)and(recipeList[recipeKey].fails <=10)then
                    multiplier = recipeList[recipeKey].fails
                elseif(recipeList[recipeKey].fails > 10)then
                    multiplier = 20
                end
                waittimer = multiplier * 30
                if(os.clock()>=recipeList[recipeKey].timer+waittimer)then
                    if not(bridge.isItemCrafting({name=stack.name, count=v.count}))then
                        local currentItemState = {item=stack, curAmount = stack.count, amountToCraft = v.count}
                        local task, errormsg = bridge.craftItem({name=stack.name, count=v.count})
                        if(task~=nil)then
                            print("Scheduled Task: "..v.count.." ("..stack.name..") "..stack.displayName)
                            table.insert(activeCoWorkers, currentItemState)
                            recipeList[recipeKey].fails = 0
                        else
                            print("------------------")
                            print("Error scheduling task: "..v.count.." ("..stack.name..") "..stack.displayName)
                            print(errormsg)
                            print("------------------")
                            recipeList[recipeKey].fails = recipeList[recipeKey].fails + 1
                            recipeList[recipeKey].timer = os.clock()
                        end
                    end
                end
                table.insert(craftingQueuesToRemove, v)
            end
        end

        if(#craftingQueuesToRemove > 0)then
            for k,v in pairs(craftingQueuesToRemove)do
                local id = FindKeyInTable(craftingQueue, v)
                table.remove(craftingQueue, id)
            end
        end

        while(#activeCoWorkers > 0)do
            local finishedCoworker = {}
            for k,v in pairs(activeCoWorkers)do
                if not(bridge.isItemCrafting({name=v.item.name, count=v.amountToCraft}))then
                    print("Task done: "..v.amountToCraft.." ("..v.item.name..") "..v.item.displayName)
                    table.insert(finishedCoworker, v)
                end
            end
            if(#finishedCoworker>0)then
                for k,v in pairs(finishedCoworker)do
                    local id = FindKeyInTable(activeCoWorkers, v)
                    table.remove(activeCoWorkers, id)
                end
            end
            os.sleep(0.75)
        end
        os.sleep(0.75)
    end
end

function FindKeyWithItemName(table, itemname, damage)
    for k,v in pairs(table)do
        if(v.name==itemname)and(v.damage == damage)then
            return k
        end
    end
    return nil
end

local function CheckChestForNewEntrys()
    local items = {}
    local itemAmounts = {}
    local somethingChanged = false

        if(inventory~=nil)then
            for x=1,inventory.size(), 1 do
                local item = inventory.getItemDetail(x)
                if(item~=nil)then
                    if(item.damage==nil)then item.damage = 0 end
                    table.insert(items, item)
                end
            end
            os.sleep(0.5)
        end
        os.sleep(1)

        if(#items > 0)then
            for k,v in pairs(items)do
                local key = FindKeyWithItemName(itemAmounts, v.name, v.damage)
                if(key~=nil)then
                    itemAmounts[key].count = itemAmounts[key].count + v.count
                else
                    table.insert( itemAmounts, {name=v.name, damage=v.damage, count = v.count})
                end

            end
        end

        if(#itemAmounts > 0)then
            for k,v in pairs(itemAmounts)do
                local key = FindKeyWithItemName(recipeList, v.name, v.damage)
                if(key~=nil)then
                    if(recipeList[key].minAmount ~= v.count)then
                        print("Edited recipe: "..v.name.. ":"..v.damage.." new count: "..v.count)
                    end
                    somethingChanged = true
                    recipeList[key].minAmount = v.count
                else
                    table.insert( recipeList, {name=v.name, damage=v.damage, minAmount = v.count, maxCraftAmount = 0, useDmg = true, fails = 0, timer = 0})
                    somethingChanged = true
                    print("Registered recipe: "..v.count.."x "..v.name.. ":"..v.damage)
                end
            end
            if(somethingChanged)then
                SaveToFile()
            end
        end
end

print("Autocrafter successfully loaded!")

while true do
  CheckChestForNewEntrys()
  os.sleep(1)
  if(GetActiveTaskCount()<maxTaskCount)then
    CheckAllRecipes()
    os.sleep(1)
    UpdateCraftingQueue()
    --if not(pcall(UpdateCraftingQueue))then
    --    print("Autocrafter got an unexpected error")
    --end
  else
    os.sleep(5)
  end
  os.sleep(1)
end