Reactor Client Test

--[[
Button API: JKjUZpfN
Bar API: HXXY5T0Q
]]--

os.loadAPI("button")
os.loadAPI("bar")

local monWidth, monheight

--Color shortforms
local lblue   = colors.lightBlue
local cyan    = colors.cyan
local lime    = colors.lime
local yellow  = colors.yellow
local orange  = colors.orange
local red     = colors.red
local white   = colors.white
local black   = colors.black
local gray    = colors.gray

local bgColor = black
local textColor = white

--Default settings
local reactorState = "off"
local fuelRodState = 0
local currentPage = 1

local fuel
local burnRate
local waste
local capacity
local temp
local reactivity
local steamLevel
local steamOut
local coolantLevel
local status
local controlRodLevel

local serverChannel

args = {...}

function detect()
  for per, side in pairs(rs.getSides()) do
    if peripheral.isPresent(side) then
      if peripheral.getType(side) == "monitor" then
        mon = peripheral.wrap(side)
      elseif peripheral.getType(side) == "modem" then
        modem = side
      end
    end
  end
  return mon, modem
end

--[Misc functions]-------------------------------
function round(num, places)
  local multi = 10 ^ (places or 0)
  return math.floor(num * multi + 0.5) / multi
end

function toPercent(val, maxval)
  return (val / maxval) * 100
end

function readSettingsFile()

end

function writeSettingsFile()

end

function updateInfo()
  mon.clear()
  local sender, message, dist = rednet.receive("FSRC-S>C")
  serverChannel = sender
  local data = textutils.unserialize(message)

  reactorState = data._reactorState
  fuel = data._fuel
  burnRate = data._burnRate
  waste = data._waste
  capacity = data._capacity
  temp = data._temp
  reactivity = data._reactivity
  steamLevel = data._steamLevel
  coolantLevel = data._coolantLevel
  steamOut = data._steamOut
  controlRodLevel = data._controlRodLevel

  fuelMsg = tostring(fuel) .. " mB (" .. round(toPercent(fuel, capacity), 1) .. "%)"
  wasteMsg = tostring(waste) .. " mB (" .. round(toPercent(waste, capacity), 1) .. "%)"
end

function sendData(command)
  rednet.send(serverChannel, command, "FSRC-C>S")
end
--[End]------------------------------------------

--[Non-API graphical functions]------------------
function initDisplay(_textColor, _bgColor)
  mon.setTextScale(1)
  bgColor = _bgColor
  textColor = _textColor
  mon.setTextColor(textColor)
  mon.setBackgroundColor(bgColor)
end

function header()
  label("Reactor Status:", 1, 1, white)
  drawActiveState(reactorState)
  hLine(2)
end

function hLine(row)
  for i = 1, monWidth do
    mon.setCursorPos(i, row)
    mon.write("-")
  end
end

function label(text, x, y, color)
  mon.setCursorPos(x, y)
  mon.setTextColor(color)
  mon.write(text)
  mon.setTextColor(textColor)
end
--[End]------------------------------------------

function pageOneButtons()
  button.new("NEXT >", changePage, false, monWidth - 9, monWidth - 1, monHeight, monHeight)
  button.new("Power", toggleReactor, false, 2, 8, monHeight, monHeight)
end

function pageTwoButtons()
  button.new("< BACK", changePage, false, 2, 9, monHeight, monHeight)
  --All rods
  button.new("-", raiseRods, false, monWidth - 12, monWidth - 10, 3, 3)
  button.new("+", lowerRods, false, monWidth - 3, monWidth - 1, 3, 3)
end

--[Button functions]-----------------------------
function toggleReactor()
  button.flash("Power")
  if reactorState == "off" then
    reactorState = "on"
    sendData("turnon")
  else
    reactorState = "off"
    sendData("shutdown")
  end
end

function raiseRods()
  if fuelRodState > 0 then
    fuelRodState = fuelRodState - 10
  else
    fuelRodState = 0
  end
end

function lowerRods()
  if fuelRodState < 100 then
    fuelRodState = fuelRodState + 10
  else
    fuelRodState = 100
  end
end
--[End]------------------------------------------

function getClick()
  event, side, x, y = os.pullEvent()

  if event == "monitor_touch" then
    button.getButtonClickEvent(x, y)
  end
end

function drawActiveState(state)
  if state == "on" then
    mon.setCursorPos(monWidth - 1, 1)
    mon.setTextColor(lime)
    mon.write("ON")
  elseif state == "off" then
    mon.setCursorPos(monWidth - 2, 1)
    mon.setTextColor(red)
    mon.write("OFF")
  elseif state == "auto" then
    mon.setCursorPos(monWidth - 3, 1)
    mon.setTextColor(orange)
    mon.write("AUTO")
  end
  mon.setTextColor(textColor)
end

function page1()
  button.update()
  header()

  label("Fuel  : ", 1, 3, lblue)
  mon.write(fuelMsg)
  label("Waste : ", 1, 4, lblue)
  mon.write(wasteMsg)
  --Fuel bar is always at 100% because waste bar will be
  --printed on top to notify user of fuel/waste ratio
  bar.singleColor(100, monWidth / 2 - 10, 5, yellow)
  bar.singleColor(round(toPercent(waste, capacity), 0), monWidth / 2 - 10, 5, cyan)
  hLine(6)

  label(round(temp, 0) .. " C", 1, 7, red)
  label(":", 9, 7, lblue)
  label(round(burnRate, 2).. " mB/t", 11, 7, white)
  label("Steam   : ", 1, 8, lblue)
  mon.write(steamLevel .. " mB")
  label("Coolant : ", 1, 9, lblue)
  mon.write(coolantLevel .. " mB")
  label("Output  : ", 1, 10, lblue)
  mon.write(steamOut .. " mB/t")

  hLine(monHeight - 1)
end

function page2()
  button.update()
  header()

  label("Control Rods :", 1, 3, lblue)
  label(fuelRodState .. "%", (monWidth - 6) - string.len(fuelRodState) / 2, 3, white)
end

function changePage()
  mon.clear()
  if currentPage == 1 then
    currentPage = 2
    button.clear()
    pageTwoButtons()
  elseif currentPage == 2 then
    currentPage = 1
    button.clear()
    pageOneButtons()
  end
end

mon, modem = detect()
initDisplay(white, black)
monWidth, monHeight = mon.getSize()
rednet.open(modem)
button.setBGColor(colors.black)
pageOneButtons()

while true do
  updateInfo()
  if currentPage == 1 then
    page1()
  elseif currentPage == 2 then
    page2()
  end

  getClick()
end