--Wrap the Blood Altar
a=peripheral.wrap("left")

-- Update this depending on what direction you have a chest(s) against your altar, valid directions are "north", "south", "east", "west"
-- This is the direction of the 'pull' chest where the stone is supplied
pullDir = "east"
-- This is the direction of the 'push' chest, where the created slates will be stored.
pushDir = "south"

-- Declare id numbers for the different slates for the computer to compare to.
ids = {...}
ids["Basic"] = 4945
ids["Reinforced"] = 4946
ids["Imbued"] = 4997
ids["Demonic"] = 4998
ids["Stone"] = 1

-- This function handles creating the slates once things are verified
local function slate(dest,amt)
    for i=1,amt do
        count = amt + 1 - i
        term.clear()
        term.setCursorPos(1,1)
        print("Number of ", dest," Slates left to make: ",count)
        pullIt(pullDir)
        item = a.getStackInSlot(1)
        while item["id"] == nil do
            pullIt(pullDir)
            item = a.getStackInSlot(1)
        end
        id=item["id"]
        while id ~= ids[dest] do
            os.sleep(1)
            item = a.getStackInSlot(1)
            while item == nil do
                pullIt(pullDir)
                item = a.getStackInSlot(1)
            end
            id = item["id"]
        end
        pushIt(pushDir)
    end
end

-- The function that will pull items from the certain chest, allows for a chest size of up to 108 slots.  Will cycle through the slots till it finds an item to pull into the altar.
function pullIt(pullDir)
    item = a.getStackInSlot(1)
    p = 1
    while item["id"] == nil do
        a.pullItem(pullDir,p,1)
        p = p + 1
        if p > 108 then
            p = 1
        end
        item = a.getStackInSlot(1)
    end
end

-- The function that will push items into a certain chest, allows for a chest size of up to 108 slots.  Will cycle through the slots till it finds a slot to push into the chest.
function pushIt(pushDir)
    c = 1
    while not a.pushItem(pushDir,c) do
        c = c + 1
        if c > 108 then
            c = 1
        end
    end
end

-- Function that will request the number of items to make then pass through to create the slates once a valid number has been entered.
local function amount(dest)
    rNum = "a"
    while rNum ~= tonumber(rNum) do
        term.clear()
        term.setCursorPos(1,1)
        print("Please enter the amount of ",dest," Slates to make")
        print("Enter 'exit' to return")
        print("-----------------------------------------")
        rNum = read()
        if rNum == "exit" then
            return
        end

        if tonumber(rNum) == nil then
            print("Invalid Entry")
            sleep(1)
        elseif tonumber(rNum) > 0 then
            slate(dest,rNum)
            return
        else
            print("Invalid Number")
            sleep(1)
        end
    end
end

-- Main function that will run until q is pressed, certain key presses will go for different slates.
while true do
    term.clear()
    term.setCursorPos(1,1)
    print("Welcome to the Advanced Blood Altar Slate Maker")
    print("-----------------------------------------------")
    print(" Press Q to quit")
    print(" Press B to create Basic Slates")
    print(" Press R to create Reinforced Slates")
    print(" Press I to create Imbued Slates")
    print(" Press D to create Demonic Slates")

    local e, p1, x, y = os.pullEvent()
    -- If we receive a Q key then we quit (like we said we would)
        if e == "key" then
            os.pullEvent("char")
            if p1 == keys.q then return

            elseif p1 == keys.b then
            dest = "Basic"
            amount(dest)
        elseif p1 == keys.r then
            dest = "Reinforced"
            amount(dest)
        elseif p1 == keys.i then
            dest = "Imbued"
            amount(dest)
        elseif p1 == keys.d then
            dest = "Demonic"
            amount(dest)
        else
            print("Invalid Keypress")
            sleep(3)
        end
    end
end