trasposerAndPresent.lua

local c=require("component")
local modem=c.modem
local pim=c.transposer
local io=require("io")
local sides=require("sides")

local chestSide=sides["north"]
local trashSide=sides["south"]
local presentSide=sides["east"]

local function presentPredicate(stack)
    --return stack.id=="OpenComputers:item" and stack.damage==88 --1.7.10
    return stack.name=="opencomputers:misc" and stack.damage==2
end
local function trashPredicate(stack)
    --return stack.id=="OpenComputers:item" and stack.damage==21 --1.7.10
    return stack.name=="opencomputers:material" and stack.damage==15
end

io.write("Command?\n")
while true do
    io.write(">")
    local cmd = io.read()

    if cmd=="afk eject" then
        for i=1,pim.getInventorySize(sides.up) do
            pim.transferItem(sides.up,chestSide,64,i,i)
        end
        io.write("success!\n")
    elseif cmd=="afk pick up" then
        for i=1,pim.getInventorySize(sides.up) do
            pim.transferItem(chestSide,sides.up,64,i,i)
        end
        io.write("success!\n")
    elseif cmd=="start" then
        modem.broadcast(111,"")
        while true do
            for i=9,1,-1 do
                stack=pim.getStackInSlot(sides.up,i)
                if stack and trashPredicate(stack) then
                    pim.transferItem(sides.up,trashSide,64,i)
                else
                    break
                end
            end

            for i=1,9 do
                stack=pim.getStackInSlot(sides.up,i)
                if stack and presentPredicate(stack) then
                    pim.transferItem(sides.up,trashSide,64,i)
                else
                    break
                end
            end
            os.sleep(0)
        end
    elseif cmd=="exit" then
        return
    end
end