Colorapplicator

local maxItem = 2176

--######################--

local IMPORT = true
local chest = {}
local hasChest = false
local hasRChest = false
local rChestName = ""
local Int = {}
local hasInt = false
local hasRInt = false
local rIntName = ""
local directions = {"top", "bottom", "front", "back", "left", "right"}
local validItems ={"Snowball","Paint Ball"}
local IIDs =
    {
        "minecraft:snowball",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall",
        "appliedenergistics2:item.ItemPaintBall"
    }
local IDMGs =
    {
        0,
        0,
        1,
        2,
        3,
        4,
        5,
        6,
        7,
        8,
        9,
        10,
        11,
        12,
        13,
        14,
        15
    }
local exportDirection = "south"

local function findPeripherals()
    for k, v in pairs(peripheral.getNames()) do
        if string.find(v, "draconic_chest") then
            hasChest = true
            hasRChest = true
            rChestName = v
            term.setCursorPos(1, 1)
            term.write("INFO: Found remote "..v)
            os.sleep(1)
        elseif string.find(v, "tileinterface") then
            hasInt = true
            hasRInt = true
            rIntName = v
            term.setCursorPos(1, 2)
            term.write("INFO: Found remote "..v)
            os.sleep(1)
        end
    end
end

local function findInt()
    if hasRInt then return end
        for k, v in pairs(directions) do
            local p = peripheral.wrap(v)
            if p ~= nil then
                if string.find(peripheral.getType(v), "tileinterface") then
                    Int = p
                    hasInt = true
                    return
                end
            end
        end
    term.setCursorPos(1, 2)
    term.write("ERROR: No Interface detected!")
    os.sleep(5)
end

local function findChest()
    if hasRChest then return end
    for k, v in pairs(directions) do
        local p = peripheral.wrap(v)
        if p ~= nil then
            if string.find(peripheral.getType(v), "draconic_chest") then
                chest = p
                hasChest = true
                return
            end
        end
    end
    term.setCursorPos(1, 1)
    term.write("WARNING: No Draconic Chest detected!")
    os.sleep(5)
end

function invSize()
    local chest
    if hasChest then
        chest = peripheral.call(rChestName, "getInventorySize")
    else
        chest = chest.getInventorySize()
    end
    return chest
end

function StackSlot(Slot)
    local chest
    if hasChest then
        chest = peripheral.call(rChestName, "getStackInSlot", Slot)
    else
        chest = chest.getStackInSlot(Slot)
    end
    return chest
end

function string.starts(String,Start)
    pre = string.sub(Start,1,string.len(String))
    return pre == Start
end

function tablelength(T)
    local count = 0
    for _ in pairs(T) do
        count = count + 1
    end
    return count
end

function contains(table, String)
    for i = 1, tablelength(table), 1 do
        if string.starts(String, table[i]) then
            return true
        end
    end
    return false
end

function isValidItem(itemStack)
    if contains(validItems, itemStack.display_name) then
        return true
    end
    return false
end

function setGreen(sSide)
    rs.setBundledOutput(sSide, colors.green)
end

function chestEmpty()
    ic = 0
    for i = 1, invSize() - 1, 1 do
        stack = StackSlot(i)
        if stack ~= nil then
            if isValidItem(stack) then
                ic = ic + stack.qty
            end
        end
    end
    return ic == 0
end

function setRed(sSide)
    rs.setBundledOutput(sSide, colors.red)
end

function setNull(sSide)
    rs.setBundledOutput(sSide, 0)
end

function chestValid(validItemCount)
    if validItemCount > maxItem then
        term.setCursorPos(1, 3)
        term.write("ERROR - Chest inventory exceeds set storage limits!")
    elseif validItemCount == maxItem then
        setGreen("bottom")
        IMPORT = false
    end
end

local function init()
    findPeripherals()
    findChest()
    findInt()
end

init()

function refill()
    for _, aes in pairs(Int.getAvailableItems()) do
        for i = 1, tablelength(IIDs), 1 do
            id = IIDs[i]
            dmg = IDMGs[i]
            if aes.fingerprint.id == id and aes.fingerprint.dmg == dmg then
                valS = 0
                for j = 1, invSize() - 1, 1 do
                    stack = StackSlot(j)
                    if stack ~= nil then
                        if stack.id == id and stack.dmg == dmg then
                            valS = valS + stack.qty
                            --print(aReq)
                            --print(valS)
                        end
                    end
                end
                aReq = 128 - valS
                if aReq > 0 then
                    --print(aes.size)
                    --print(aReq)
                    if aes.size > aReq then
                        --Transfer items from ME to Chest (*aReq)
                        Int.exportItem(aes.fingerprint, exportDirection, aReq)
                    else
                        --Transfer and request recrafting
                        Int.requestCrafting(aes.fingerprint, 512)
                    end
                end
            end
        end
     end
end

while true do
    if IMPORT then
        slot = 0
        slotqt = 0
        valI = 0
        for CurrSlot = 1, invSize() -1, 1 do
            tableIS = StackSlot(CurrSlot)
            if tableIS ~= nil then
                slotqt = tableIS.qty
                slot = slot + slotqt
                if isValidItem(tableIS) then
                    --print("valid")
                    valI = valI + slotqt
                else
                    term.setCursorPos(1, 3)
                    term.write("Invalid Items found! (Please kill the person responsible.)")
                end
                --print("Slot Stack size: "..slotqt)
                --print("Total Item count: "..slot)
                --print("Valid Items: "..valI)
            end
        end
        if valI >= maxItem then
            chestValid(valI)
        else
            term.setCursorPos(1, 3)
            term.write("Refilling chest")
            refill()
        end
    else
        prevImport = IMPORT
        IMPORT = chestEmpty()
    end
    if not IMPORT then
        term.setCursorPos(1, 3)
        term.write("Import Process on hold until chest is emptied")
        sleep(2)
    elseif prevImport == false then
        term.setCursorPos(1, 3)
        term.write("Pausing Operations for Refilling Color Applicator")
        setRed("bottom")
        sleep(1)
        setNull("bottom")
    else
        sleep(5)
    end
end