0.0.14

c = require("component")



r = c.br_reactor
tList = {}
controlLevel = 50
tTotals = {}
tTotals["steamNeed"] = 0
tTotals["energyOutput"] = 0
targetSpeed = 1800


function startReactor()
  r.setActive(true)
  r.setAllControlRodLevels(50)
end

function startTurbine()
  tListBuild()
  for k, v in pairs(tList) do
    c.invoke(k, "setActive", true)
    c.invoke(k, "setInductorEngaged", false)
    c.invoke(k, "setFluidFlowRateMax", 1000)
  end
end

function updateTotals()
  tTotals["steamNeed"] = 0
  for k, v in pairs(tList) do
    tTotals["steamNeed"] = tTotals["steamNeed"] + c.invoke(k, "getFluidFlowRateMax")
    tTotals["energyOutput"] = tTotals["energyOutput"] + c.invoke(k, "getEnergyProducedLastTick")
  end
  print("steam needed " .. tostring(tTotals["steamNeed"]))
end

function monReactor()
  updateTotals()
  if r.getHotFluidProducedLastTick() < tTotals["steamNeed"] then
    if controlLevel > 0 then controlLevel = controlLevel - 1 end
  else
    if controlLevel < 100 then controlLevel = controlLevel + 1 end
  end

  print(r.getControlRodLevel(1))
  r.setAllControlRodLevels(controlLevel)
end

function tListBuild()
  for k, v in c.list("br_turbine") do
    tList[k] = {}
    tList[k]["steamUsed"] = c.invoke(k, "getFluidFlowRateMax")
    tList[k]["isActive"] = false
    tList[k]["coilsEngaged"] = false
    tList[k]["rotorSpeed"] = 0
    tList[k]["energyOutput"] = 0
  end
end

function tSpeedControl()
  for k, v in pairs(tList) do
    tList[k]["rotorSpeed"] = c.invoke(k, "getRotorSpeed")
    if tList[k]["rotorSpeed"] > 1800 and tList[k]["rotorSpeed"] < 1830 then
      tList[k]["steamUsed"] = tList[k]["steamUsed"] - 1
      c.invoke(k, "setFluidFlowRateMax", tList[k]["steamUsed"])
    elseif tList[k]["rotorSpeed"] > 1830 then
      tList[k]["steamUsed"] = tList[k]["steamUsed"] - 10
      c.invoke(k, "setFluidFlowRateMax", tList[k]["steamUsed"])
    elseif tList[k]["rotorSpeed"] < 1800 and tList[k]["rotorSpeed"] > 1770 then
      tList[k]["steamUsed"] = tList[k]["steamUsed"] + 1
      c.invoke(k, "setFluidFlowRateMax", tList[k]["steamUsed"])
    elseif tList[k]["rotorSpeed"] < 1770 then
      tList[k]["steamUsed"] = tList[k]["steamUsed"] + 10
      c.invoke(k, "setFluidFlowRateMax", tList[k]["steamUsed"])
    end
    if tList[k]["steamUsed"] < 0 then
      tList[k]["steamUsed"] = 0
    elseif tList[k]["steamUsed"] > 2000 then
      tList[k]["steamUsed"] = 2000
    end
    print("turbine steam used " .. tostring(tList[k]["steamUsed"]))
    if c.invoke(k, "getRotorSpeed") > 1800 then
      tList[k]["coilsEngaged"] = true
    elseif c.invoke(k, "getRotorSpeed") < 1600 then
      tList[k]["coilsEngaged"] = false
    end
    c.invoke(k, "setInductorEngaged", tList[k]["coilsEngaged"])
    print("Coils engaged " .. tostring(tList[k]["coilsEngaged"]))
  end
end

function tListData()
  for k, v in pairs(tList) do
    for l, b in pairs(tList[k]) do
      print(tList[k][l])
    end
  end
end


--Main code block
--startTurbine()
--startReactor()
while true do
  timerCode = os.startTimer(1)
  event, side, x, y
  print(event)
  repeat
  event, side, x, y = os.pullEvent()
    print(event)
    if event == "timer" then
      print(timerCode..":"..side)
      if timerCode ~= side then
        print("Wrong Code")
      else
        print("Right Code")
      end
    end
  until event ~= "timer" or timerCode == side
  print("this happened")
end
--for i = 1,2000 do
--  monReactor()
--  tSpeedControl()
--  os.sleep(0.1)
--end