startup

--Setup
local mon = peripheral.wrap("monitor_0")
local reactor = peripheral.wrap("BigReactors-Reactor_0")
os.loadAPI("touchpoint")
local stats = touchpoint.new("monitor_0")
local control = touchpoint.new("monitor_0")
local page
peripheral.wrap("right").clear()

--Heading 1st Page
stats:add("Reactor Statistics", nil, 1, 1, 29, 1, colors.blue, colors.blue)

--button setup
function controlscreen()
  page = control
end
function statsscreen()
 page = stats
end

stats:add("Reactor Controls", controlscreen, 12, 12, 29, 12, colors.lime, colors.lime)

--Reactor Statistics
  activebool = reactor.getActive()
  RFpertbool = reactor.getEnergyProducedLastTick()
  energybool = reactor.getEnergyStored()
  fuelbool = reactor.getFuelAmount()
  rodlevelbool = reactor.getControlRodLevel(1)

  stats:add(("Active: "..tostring(activebool)), nil, 1, 2, 15, 2, colors.black, colors.black)
  stats:add(("RF/t: "..tostring(RFpertbool)), nil, 1, 3, 11, 3, colors.black, colors.black)
  stats:add(("Energy In Reactor: "..tostring(energybool)), nil, 1, 4, 28, 4, colors.black, colors.black)
  stats:add(("Fuel Remaining: "..tostring(fuelbool).."mb"), nil, 1, 5, 28, 5, colors.black, colors.black)
  stats:add(("Rod Insertion: "..tostring(rodlevelbool).."%"), nil, 1, 6, 22, 6, colors.black, colors.black)

--End of statistics page, Start of Control page
function reactoractive()
  reactor.setActive(not reactor.getActive())
 end
 --Fuel Rod Control Functions
function fuelrodup()
local oldLabel = "Rod Insertion: "..tostring(reactor.getControlRodLevel(1)).."%"
 reactor.setAllControlRodLevels(reactor.getControlRodLevel(1)+10)
 control:rename(oldLabel, ("Rod Insertion: "..tostring(reactor.getControlRodLevel(1)).."%"))
 --control:flash("Rod Insertion: "..tostring(previouslevelu+10).."%")
end
function fuelroddown()
 local oldLabel = "Rod Insertion: "..tostring(reactor.getControlRodLevel(1)).."%"
 reactor.setAllControlRodLevels(reactor.getControlRodLevel(1)-10)
 control:rename(oldLabel, "Rod Insertion: "..tostring(reactor.getControlRodLevel(1)).."%")
end
 --Control Page Buttons
control:add("Reactor Controls", nil, 1, 1, 29, 1, colors.blue, colors.blue)
control:add("Reactor Statistics", statsscreen, 10, 12, 29, 12, colors.lime, colors.lime)
control:add("Reactor On/Off", reactoractive, 1, 2, 20, 2, colors.red, colors.green)
control:add(("Rod Insertion: "..tostring(reactor.getControlRodLevel(1)).."%"), nil, 1, 3, 20, 3, colors.black, colors.black)
control:add("^", fuelrodup, 21, 3, 21, 3, colors.red, colors.lime)
control:add("v", fuelroddown, 23, 3, 23, 3, colors.red, colors.lime)
--Draw the screen
statsscreen()
while true do
  activebool = reactor.getActive()
  energybool = reactor.getEnergyStored()
  RFpertbool = reactor.getEnergyProducedLastTick()
  fuelbool = reactor.getFuelAmount
  rodlevelbool = reactor.getControlRodLevel(1)
  if reactor.getEnergyStored() > 9500000 then
    reactor.setActive(false)
  end
  page:draw()
  local event, p1 = page:handleEvents(os.pullEvent())
  if event == "button_click" then
    page.buttonList[p1].func()
  end
end