capmgr.lua

local rs = component.proxy(component.list("redstone")())

local ceiling = 14      --/15
local floor = 1
local intervalSeconds = 10
local capSide = 4       -- http://ocdoc.cil.li/api:sides

local rsLevel = 0
local capLevel = 0


function sleep(timeout)
  local deadline = computer.uptime() + (timeout or 0)
  repeat
    computer.pullSignal(0)
  until computer.uptime() >= deadline
end


while true do
  capLevel = rs.getComparatorInput(capSide)
  if capLevel >= ceiling then
    rsLevel = 1
  elseif capLevel <= floor then
    rsLevel = 0
  end
  rs.setOutput(capSide, rsLevel)
-- debug stuff
  rs.setOutput(3, rsLevel)
  rs.setOutput(5, capLevel)

  rs.setOutput(2, 1)
  sleep(1)
  rs.setOutput(2, 0)
-- end debug
  sleep(intervalSeconds)
end