[CC]: Refined Storage 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 RS 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 (RS 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 rs system

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

local bridge = peripheral.find("rsBridge")

local maxCoWorker = 6

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 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(recipe)
    local pattern = bridge.getItem({name=recipe.name})
    local item = {pattern=pattern, amount=0}
    if(pattern~=nil)then
      local storedAmount = pattern.amount
      local neededItemAmount = GetAmount(storedAmount, recipe)
      if(neededItemAmount > 0)then
        item.amount = neededItemAmount
        table.insert(craftingQueue, item)
        return true
      end
    end
    return false
end

local function CheckAllRecipes()
    for k,v in pairs(recipeList)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 FindKeyInTable(table, item)
    for k,v in pairs(table)do
        if(v==item)then
            return k
        end
    end
    return nil
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.pattern
                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(stack.name))then
                            local currentItemState = {item=stack, curAmount = stack.count, amountToCraft = v.amount}
                        if(bridge.isItemCraftable({name=stack.name}))then
                            local task, errormsg = bridge.craftItem({name=stack.name, count = v.amount})
                            if(task)then
                                print("Scheduled Task: "..v.amount.." ("..stack.name..") "..stack.displayName)
                                table.insert(activeCoWorkers, currentItemState)
                                recipeList[recipeKey].fails = 0
                            else
                                print("------------------")
                                print("Error scheduling task: "..v.amount.."x ("..stack.name..") "..stack.displayName)
                                print("Not enough materials!")
                                print("------------------")
                                recipeList[recipeKey].fails = recipeList[recipeKey].fails + 1
                                recipeList[recipeKey].timer = os.clock()
                            end
                        else
                            print("------------------")
                            print("Error scheduling task: "..v.amount.."x ("..stack.name..") "..stack.displayName)
                            print("No pattern available!")
                            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(v.item.name))then
                    print("Task done: "..v.amountToCraft.."x ("..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 inventory = peripheral.find("minecraft:chest")
    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
    bridge = peripheral.find("rsBridge")
    CheckChestForNewEntrys()
    os.sleep(1)
    CheckAllRecipes()
    os.sleep(1)
    pcall(UpdateCraftingQueue)
    os.sleep(1)
end