test3

-- Reactor Search
local reactor = peripheral.find("BigReactors-Reactor")
if reactor then
 print("Reaktor gefunden")
end

-- Create Variables
--local targetspeed = 1845
--local targetspeed = 2860
--local targetspeed = 5480
local targetspeed = 6280
--local targetspeed = 16280
local speeddelay1 = 10
local speeddelay2 = 100
local reactorsleep = .1
local turbinesleep = 0
local turbinesetupsleep = .1
local progsleep1 = 1
local progsleep2 = .1
local active = 0
local count = 0
local monside = "right"
local turbine = peripheral.find("BigReactors-Turbine")



mon = peripheral.wrap(monside)
mon.clear()
--term.redirect(mon)

--Setup Turbines
if turbine then
 print("Turbinen gefunden")
 local periList = peripheral.getNames()
 for i = 1, #periList do
  if string.find(peripheral.getType(periList[i]), "Turbine") then
   local aTurbine = peripheral.wrap(periList[i])
   count = count +1
   print(periList[i], ": ", aTurbine.getActive())
   active = active +1
   aTurbine.setActive(true)    aTurbine.setInductorEngaged(false)
   sleep(turbinesetupsleep)
   aTurbine.setInductorEngaged(true)
   --aTurbine.setVentNone()
   aTurbine.setVentOverflow()
    aTurbine.setFluidFlowRateMax(2000)
  end
 end
 print(#periList, " Gerte")
 print(active, " aktive Turbinen")
end
sleep(progsleep1)



-- Get Ready
local turbines = active
local steam = turbines *2000
reactor.setActive(true)
reactor.setAllControlRodLevels(50)


-- Steuerung
while true do

 -- Reactor control
 if reactor.getHotFluidProducedLastTick() > steam - 100 then
  level = reactor.getControlRodLevel(1)
   reactor.setAllControlRodLevels(level +1)
   print("+1")
   local turnon = "+1"
--     mon.setCursorPos(5,6)
--     mon.write("+1")
   local a = 5
   local b = "false"
   while a > 0 do
    if reactor.getHotFluidProducedLastTick() < steam then
     b = "true"
     if b == "true" then
      level = reactor.getControlRodLevel(1)
      reactor.setAllControlRodLevels(level -1)
      b = "false"
     end
    end
    a = a -1
   end
 else
  if reactor.getHotFluidProducedLastTick() < steam then
   if reactor.getControlRodLevel(1) > 1 then
    if reactor.getHotFluidProducedLastTick() < steam then
     level = reactor.getControlRodLevel(1)
     reactor.setAllControlRodLevels(level -1)
     print("-1")
     local turnon = "-1"
--       mon.setCursorPos(5,6)
--       mon.write("-1")
     sleep(reactorsleep)
     periList = peripheral.getNames()
    end
   end
  end
 end


 -- turbine control
 local periList = peripheral.getNames()
 for i = 1, #periList do
  if string.find(periList[i], "Turbine") then
   local aTurbine = peripheral.wrap(periList[i])
   if aTurbine.getRotorSpeed() < (targetspeed - speeddelay1) then
    aTurbine.setInductorEngaged(false)
   end
  end
 end
 sleep(turbinesleep)
 local periList = peripheral.getNames()
 for i = 1, #periList do
  if string.find(periList[i], "Turbine") then
   local aTurbine = peripheral.wrap(periList[i])
   if aTurbine.getRotorSpeed() < targetspeed and aTurbine.getActive() == false then
    aTurbine.setActive(true)
    steam = steam +2000
   else
    if aTurbine.getRotorSpeed() > targetspeed and aTurbine.getActive() == true then
     aTurbine.setActive(false)
     steam = steam -2000
    end
   end
   if aTurbine.getEnergyStored() < 100 then
    if aTurbine.getRotorSpeed() > (targetspeed - speeddelay2) then
     aTurbine.setInductorEngaged(true)
    end
   end
   if aTurbine.getEnergyStored() > 100 and aTurbine.getFluidFlowRateMax() >= 2000 then
    aTurbine.setFluidFlowRateMax(50)
    steam = steam -1950
   end
     if aTurbine.getEnergyStored() < 100 and aTurbine.getFluidFlowRateMax() <= 50 then
       aTurbine.setFluidFlowRateMax(2000)
       steam = steam +1950
      end
  end
 end

 sleep(progsleep2)


 -- print
 shell.run("clear")
 print("ControlRodLevel: ", reactor.getControlRodLevel(1))
   mon.setCursorPos(1,1)
   mon.write("Control Rod Level: ")
   mon.setCursorPos(20,1)
   mon.write(reactor.getControlRodLevel(1))
 print("       SteamOut: ", reactor.getHotFluidProducedLastTick(), "/", steam)
   mon.setCursorPos(7,2)
   mon.write("Steam Out:        /")
   mon.setCursorPos(18,2)
   mon.write(reactor.getHotFluidProducedLastTick())
   mon.setCursorPos(26,2)
   mon.write(steam)
 print("       Turbinen: ", active, "/", count)
   mon.setCursorPos(7,3)
   mon.write("Turbines:     /")
   mon.setCursorPos(17,3)
   mon.write(active)
   mon.setCursorPos(22,3)
   mon.write(count)
 print("       Target Speed:  ", targetspeed)
   mon.setCursorPos(7,4)
   mon.write("Target Speed: ")
   mon.setCursorPos(21,4)
   mon.write(targetspeed)
 --write turn on
   mon.setCursorPos(5,6)
   mon.write(turnon)

end