Timer

local function printUsage()
    print( "Usage:" )
    print( shell.getRunningProgram().." <interval> (config)" )
    print("Parameters:")
    print("<> = required")
    print("() = optional")
end

local x,y = term.getSize()

local function cPrint( txt )
    local function printC( text )
        x2,y2 = term.getCursorPos()
        term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)
        write(text.. "\n")
    end

    if type(txt) == "string" then
        printC( txt )
    elseif type(txt) == "table" then
        for i=1,#txt do
            printC( txt[i] )
        end
    end
end

local function autoUpdate()
    local programName = shell.getRunningProgram()
    term.clear()
    term.setCursorPos(1,6)
    cPrint("+--------------------+")
    cPrint("|     Loading...     |")
    cPrint("| ||||||             |")
    cPrint("+--------------------+")
    while true do
        local downloadedFile = http.request("http://pastebin.com/raw.php?i=XR9C8z75")
        local event, url, body = os.pullEvent()
        if event == "http_success" then
            _tBody = body.readAll()
            break
        elseif event == "http_failed" then
            break
        end
    end
    term.clear()
    term.setCursorPos(1,6)
    cPrint("+--------------------+")
    cPrint("|     Loading...     |")
    cPrint("| ||||||||||||       |")
    cPrint("+--------------------+")
    file = fs.open(programName, "r")
    _fBody = file.readAll()
    file.close()
    sleep(0.5)
    term.clear()
    term.setCursorPos(1,6)
    cPrint("+--------------------+")
    cPrint("|     Loading...     |")
    cPrint("| |||||||||||||||||| |")
    cPrint("+--------------------+")
    if not fs.exists("archiveAPI") then
    fs.makeDir("archiveAPI")
    end

    if not fs.exists("archiveAPI/config") then
    local sCode = "fkcMT9CE"
    local sFile = "archiveAPI/config"
    local sPath = shell.resolve(sFile)
    local response = http.get(
    "http://pastebin.com/raw.php?i="..textutils.urlEncode( sCode )
    )
    if response then
        local sResponse = response.readAll()
        response.close()
        local file = fs.open( sPath, "w" )
        file.write( sResponse )
        file.close()
    end
    end
    local selection = 1
    if _fBody ~= _tBody then
        cPrint("+--------------------+")
        cPrint("|     Updating...    |")
        cPrint("+--------------------+")
        sleep(2)
        fs.delete(programName)
        file = fs.open(programName, "w")
        file.write(_tBody)
        file.close()
        shell.run(programName, sInterval)
        error()
    end
end
autoUpdate()

if not fs.exists("archiveAPI") then
    fs.makeDir("archiveAPI")
end

if not fs.exists("archiveAPI/config") then
    local sCode = "fkcMT9CE"
    local sFile = "archiveAPI/config"
    local sPath = shell.resolve(sFile)
    local response = http.get(
    "http://pastebin.com/raw.php?i="..textutils.urlEncode( sCode )
    )
    if response then
        local sResponse = response.readAll()
        response.close()
        local file = fs.open( sPath, "w" )
        file.write( sResponse )
        file.close()
    end
end
os.loadAPI("archiveAPI/config")

local function editConfig()
    term.clear()
    term.setCursorPos(1,1)
    fs.delete("configs")
    cPrint("Interactive Configuration Editor (I.C.E.)")
    config.load("configs","Timer.cfg")
    term.setCursorPos(1,3)
    print("Please set a computer id to receive all the rednet messages")
    local sMid = read("*")
    config.writeVal("mId",sMid)
    print("Please type out the sides you'd like to output redstone on (one at a time and leave blank for nil)")
    for i=1,rs.getSides() do
        redstoneSide[i] = read()
        if redstoneSide[i] ~= nil then
            if checkValidSide(input) then
                table.insert(redstoneSides,i,redstoneSide[i])
                config.writeVal("redstoneSide"..tostring(i),redstoneSide[i])
            elseif not checkValidSide(input) then
                print("Not a valid side!")
                i=i-1
            end
        elseif redstoneSide[i] == nil then
            config.writeVal("numOfActiveSides",tostring((i-1)))
            break
        end
    end
    config.save()
    print("Success, please restart your timer")
    sleep(2)
end

local function checkValidSide(input)
    local availableRedstoneSides = rs.getSides()
    for i2=1,#availableRedstoneSides do
        if input == availableRedstoneSides[i] then
            return true
        end
    end
    return false
end

local function readConfig()
    redstoneSides = {}
    config.load("configs","Timer.cfg")
    mId = tonumber(config.readVal(mId))
    sInterval = tonumber(config.readVal(sInterval))
    if tonumber(config.readVal(numOfActiveSides)) == nil then
        local activeSides = 6
    else
        local activeSides = tonumber(config.readVal(numOfActiveSides))
        if activeSides == nil then
            activeSides = 6
        end
    end
    for i=1,activeSides do
        redstoneSide[i] = tostring(config.readVal(redstoneSide[i]))
    end
    config.save()
end

local function redstoneOut(boolean)
    for i=1,#redstoneSides do
    redstone.setOutput(redstoneSides[i],boolean)
    end
end

local function pWrapper()
    local bOpen, sFreeSide = false, nil
    for n,sSide in pairs(rs.getSides()) do
        if peripheral.getType( sSide ) == "modem" then
            sFreeSide = sSide
            if rednet.isOpen( sSide ) then
                bOpen = true
                break
            end
        end
    end

    if not bOpen then
        if sFreeSide then
            term.clear()
            term.setCursorPos(1,1)
            cPrint("+------------------------------------+")
            cPrint("| Opening Modem on "..sFreeSide.." |")
            cPrint("+------------------------------------+")
            rednet.open( sFreeSide )
            sOpenedSide = sFreeSide
            sleep(2)
            return true
        else
            print( "No modem attached. Please try again." )
            sleep(2)
            os.reboot()
        end
    end
    return true
end

if sConfig == "config" then editConfig()
end

local tArgs = { ... }
local sOpenedSide = nil
local sInterval = tonumber(tArgs[1])
local sConfig = tArgs[2]
config.load("configs","Timer.cfg")
if #tArgs < 1 and config.readVal("sInterval") == nil then
    config.save()
    printUsage()
    return false
end
config.save()

if mId == nil then
    mId = 0
end

if tArgs[1] ~= nil then
    config.load("configs","Timer.cfg")
    config.writeVal("sInterval",tArgs[1])
    config.save()
end

if not rednet.broadcast("PING") then pWrapper() end
    readConfig()
    term.clear()
    term.setCursorPos(1,1)
    cPrint("+--------------------+")
    cPrint("| Triggers Done: 0 |")
    cPrint("+--------------------+")
local spaceTimerLength, spaceTimer, pulseTimer, pulseCount = 0.8, nil, nil, 0
local updateInterval, updateTarget = 100, mId
rednet.send(updateTarget,"timer_check_in_"..os.computerID())
os.unloadAPI("archiveAPI/config")
while true do
        e, p1, p2 = os.pullEvent()
        if e == "timer" then
            if p1 == spaceTimer then
                redstone.setOutput("back", true)
                pulseTimer = os.startTimer(0.1)
            elseif p1 == pulseTimer then
                redstone.setOutput("back", false)
                spaceTimer = os.startTimer(spaceTimerLength)
                pulseCount = pulseCount + 1
                term.setCursorPos(1,2)
                term.clearLine()
                cPrint("| Triggers Done: "..pulseCount.." |")
                if pulseCount % updateInterval == 0 then
                    rednet.send(updateTarget, tostring(pulseCount / updateInterval))
                end
            end
        elseif e == "rednet_message" then
            if p1 == updateTarget and p2 == "reset_"..os.computerID() then
                pulseCount = 0
                term.setCursorPos(1,2)
                term.clearLine()
                cPrint("| Triggers Done: "..pulseCount.." |")
            elseif p1 == updateTarget and p2 == "stop_"..os.computerID() then
                spaceTimer = nil
                pulseTimer = nil
                redstone.setOutput("back", false)
            elseif p1 == updateTarget and p2 == "start_"..os.computerID() then
                spaceTimer = os.startTimer(0)
             end
        end
end