Transposer

--pastebin get UyVNUFKU startup
--pastebin get UyVNUFKU transposer

--shell.run("transposer f b")
--shell.run("transposer t b")
--shell.run("transposer t rf")

local tArgs = { ... }
local sInput, sOutput, nDelay = tArgs[1], tArgs[2], tArgs[3]
local nSlots = tArgs[4]
local filename = shell.getRunningProgram()

if not trans then
    os.loadAPI("trans")
    if not trans then
        shell.run("pastebin get 68xNzDAV trans")
        os.loadAPI("trans")
        if not trans then
            error("Unable to load 'trans' API")
        end
    end
end

sInput = trans.fixSide(sInput)
sOutput = trans.fixSide(sOutput)

if sInput == nil or sOutput == nil then
    print( "Usage: " .. filename .. " <input side> <output side> [Delay Time]" )
    print( "Side values are Top, Bottom, Front, and None" )
    print( "The turtle will pull from the input side and push into the output side." )
    print( "None can be specified if the turtle is expected to deal with items moving on their own." )
    print( "Slots: Maximum number of stacks to pull at one time.")
    return
end

if nDelay ~= nil then
    nDelay = tonumber(nDelay)
end

if nDelay == nil then
    nDelay = 0.5
end

if nSlots ~= nil then
    nSlots = tonumber(nSlots)
end

if nSlots == nil then
    nSlots = 15
end

if nSlots < 1 or nSlots > 16 then
    nSlots = 15
end

print( "Transposing from " .. trans.displaySide(sInput) .. " to " .. trans.displaySide(sOutput) .. " with a delay of " .. nDelay .. " seconds and loading up to " .. nSlots .. " slots." )


while true do
    trans.load(sInput, 1, nSlots)
    trans.unload(sOutput, "n")
    sleep(nDelay)
end