BR

-- post_link = "http://cc.ordewittetafel.nl/BR2.php"
-- get_link = "http://cc.ordewittetafel.nl/switch_BR2.php"

BR = {
  name = "Bertha"
}
online = 0
count = 0

reactor = peripheral.wrap("BigReactors-Reactor_1")
reactor.setActive(true)
rfpt = 0
rf = 0

while true do
  BR.status = tostring(reactor.getActive())

  if count == 5 then
    if online < 9 then
      online = online + 1
    else
      online = 0
    end

    -- http.post(post_link, "reactor=" .. BR.name .. "&status=" .. BR.status .. "&charge=" .. rf .. "&prod=" .. rfpt .. "&online=" .. online .. "&rfChange=" .. rfDiff .. "&controlRods=" .. reactor.getControlRodLevel(0))
  end

  if count < 5 then
    count = count + 1
  else
    count = 0
  end

  os.queueEvent("ok")
  os.pullEvent()

  rfpt_old = rfpt
  rfpt = reactor.getEnergyProducedLastTick()

  rf_old = rf
  rf = reactor.getEnergyStored()
  rfDiff = rf - rf_old

  doChange = math.abs(rfpt-rfpt_old) < 10
  print("doChange: ", doChange)
  print("rfDiff: ", rfDiff)

  if rf > 9000000 then
    reactor.setAllControlRodLevels(reactor.getControlRodLevel(0) + 2)
  elseif rf < 1000000 then
    reactor.setAllControlRodLevels(reactor.getControlRodLevel(0) - 2)
  end

  if doChange then
    if rfDiff > 100 then
      reactor.setAllControlRodLevels(reactor.getControlRodLevel(0) + 2)
    elseif rfDiff < -100 then
      reactor.setAllControlRodLevels(reactor.getControlRodLevel(0) - 2)
    end
  end
  print(reactor.getControlRodLevel(0))
  os.sleep(0.2)
end