Smelt v1

local tArgs = {...}

--variables
local strSide = "left" --OutputSide
local intCount = 0
local fPulseLength = 0.2
local fDelay = 11.0 --delay before repeating pulse

--predeclare
local printUsage
local rsPulse
local clear

--functions
function rsPulse(length)
    if length < 0.1 then
        print("Error: Pulse Length must be 0.1 or greater")
        error()
    else
        redstone.setOutput(strSide, true)
        sleep(length)
        redstone.setOutput(strSide, false)
        sleep(length)
    end
end

function clear()
    term.clear()
    term.setCursorPos(1,1)
end

function printUsage()
    print( "Usage: Smelt <# of pours>" )
    print( "can substitute 'loop' in place of number." )
    return
end

--start--

if #tArgs ~= 1 then
    printUsage()
    return
elseif (tostring(tArgs[1]) == "loop") then
    while true do
        print("Crafting on loop")
        rsPulse(fPulseLength)
        print("Waiting...")
        sleep(fDelay)
        clear()
    end
elseif (tonumber(tArgs[1]) > 0) then
    local intCount = tonumber(tArgs[1])
    while intCount > 0 do
        print("Crafting: "..intCount.." remaining.")
        rsPulse(fPulseLength)
        intCount = intCount - 1
        print("Waiting...")
        sleep((fDelay * 2))
        clear()
    end
    print("Crafting Complete.")
    return
else
    print("Error.")
    printUsage()
end