react4.lua

local reactor
local temp
local energy
local rdata

function refreshdata()
  local datarec = {}
  datarec.connected = reactor.getConnected()
  datarec.active = reactor.getActive()
  datarec.getnumrods = reactor.getNumberOfControlRods()
  datarec.energy = reactor.getEnergyStored()
  datarec.fueltemp = reactor.getFuelTemperature()
  datarec.casetemp = reactor.getCasingTemperature()
  datarec.fuelamt = reactor.getFuelAmount()
  datarec.wasteamt = reactor.getWasteAmount()
  datarec.capacity = reactor.getFuelAmountMax()
  datarec.rodname = reactor.getControlRodName(0)
  datarec.rodlevel = reactor.getControlRodLevel(0)
  return datarec
end

function data2str(d)

  local result = string.format("%d; %d; %d; %d; %d; %d; %d; %d",
                               d.getnumrods, d.energy, d.fueltemp,
                               d.casetemp, d.fuelamt, d.wasteamt, d.capacity,
                               d.rodlevel)
  return result
end

reactor = peripheral.wrap("right")
-- temp = reactor.getFuelTemperature()
-- energy = reactor.getEnergyStored()
-- term.write(" temp ")
-- term.write(temp)
-- term.write(" energy" )
-- term.write(energy)
term.clear()
rednet.open("left")
rdata = refreshdata()
rednet.broadcast(data2str(rdata))

while rdata.connected and rdata.active do
  rdata = refreshdata()
  rednet.broadcast(data2str(rdata))
 -- term.clear()
  term.setCursorPos(1,1)
  term.write(" energy ")
  term.write(rdata.energy)
  term.setCursorPos(1,2)
  term.write(" rodlevel ")
  term.write(rdata.rodlevel)
  term.setCursorPos(5,5)
--  term.write(i)

  if rdata.energy < 3000000 and rdata.rodlevel > 0 then
    for rod = 0, rdata.getnumrods-1 do
      reactor.setControlRodLevel(rod,0)
    end
    term.setCursorPos(6,6)
    term.write("pullrod")
  else if rdata.energy > 7000000 and rdata.rodlevel == 0 then
     for rod = 0, rdata.getnumrods-1 do
       reactor.setControlRodLevel(rod,100)
     end
     term.setCursorPos(7,7)
     term.write("pushrod")
  else
     term.setCursorPos(6,6)
     term.write("f     f")
     term.setCursorPos(7,7)
     term.write("f     f")
  end
  os.sleep(2)
end
end
term.setCursorPos(0,8)
term.write("shutdown")
term.setCursorPos(0,9)