AutoSiever

local p = peripheral.wrap("right")
local tArgs = {...}

if tArgs[1] ~= "gravel" and tArgs[1] ~= "sand" and tArgs[1] ~= "dust" then
    error("Usage: " .. shell.getRunningProgram() .. " <material type>")
end

local itemRef = {}
if tArgs[1] == "gravel" then
    itemRef = {
    "exnihilo:exnihilo.iron_broken",
    "exnihilo:exnihilo.copper_broken",
    "exnihilo:exnihilo.tin_broken",
    "exnihilo:exnihilo.aluminum_broken",
    "exnihilo:exnihilo.gold_broken",
    "exnihilo:exnihilo.silver_broken",
    "exnihilo:exnihilo.lead_broken",
    "exnihilo:exnihilo.nickel_broken",
    "exnihilo:exnihilo.platinum_broken"
    }
elseif tArgs[1] == "sand" then
    itemRef = {
    "exnihilo:exnihilo.iron_crushed",
    "exnihilo:exnihilo.copper_crushed",
    "exnihilo:exnihilo.tin_crushed",
    "exnihilo:exnihilo.aluminum_crushed",
    "exnihilo:exnihilo.gold_crushed",
    "exnihilo:exnihilo.silver_crushed",
    "exnihilo:exnihilo.lead_crushed",
    "exnihilo:exnihilo.nickel_crushed",
    "exnihilo:exnihilo.platinum_crushed"
    }
elseif tArgs[1] == "dust" then
    itemRef = {
    "exnihilo:exnihilo.iron_powdered",
    "exnihilo:exnihilo.copper_powdered",
    "exnihilo:exnihilo.tin_powdered",
    "exnihilo:exnihilo.aluminum_powdered",
    "exnihilo:exnihilo.gold_powdered",
    "exnihilo:exnihilo.silver_powdered",
    "exnihilo:exnihilo.lead_powdered",
    "exnihilo:exnihilo.nickel_powdered",
    "exnihilo:exnihilo.platinum_powdered"
    }
end

local itemCount = {}

function initializeItemCount()
    if fs.exists("_itemCount_") and pcall(getSavedCount) then
    else
        for i = 1, #itemRef do
            itemCount[#itemCount+1] = 0
        end
        saveItemCount()
    end
end

function getSavedCount()
    local rFile = fs.open("_itemCount_", "r")
    for i = 1, #itemRef do
        itemCount[#itemCount+1] = tonumber(rFile.readLine())
    end
    rFile.close()
end

function saveItemCount()
    local oFile = fs.open("_itemCount_", "w")
    for _, v in pairs(itemCount) do
        oFile.writeLine(v)
    end
    oFile.close()
end

function printItemCount()
    term.clear()
    term.setCursorPos(1, 1)
    for _, v in pairs(itemRef) do
        write(v:sub(19, 19) .. " ")
    end
    term.setCursorPos(1, 2)
    for _, v in pairs(itemCount) do
        write(v .. " ")
    end
end

function checkItem(i)
    for n = 1, #itemRef do
        if i.name == itemRef[n] then
            return true, n
        end
    end
    return false
end

initializeItemCount()
while true do
    printItemCount()
    while not turtle.suck() do
    end
    turtle.select(1)
    info = turtle.getItemDetail()
    ok, num = checkItem(info)
    if ok then
        itemCount[num] = itemCount[num] + 1
        if itemCount[num] == 4 then
            itemCount[num] = 0
            p.pullItem("down", num)
            turtle.transferTo(2, 1)
            turtle.transferTo(5, 1)
            turtle.transferTo(6, 1)
            turtle.craft()
            turtle.dropUp()
        else
            p.pushItem("down", 1, 1, num)
        end
        saveItemCount()
    else
        turtle.dropUp()
    end
end