test program

local component = require("component")
local computer = require("computer")
local string = require("string")
local r1 = component.br_reactor
local term = require("term")
local os = require("os")
local event = require("event")
local kb = require("keyboard")
local unicode = require("unicode")
local running = true
local X = r1.getNumberOfControlRods()
local coolantType = r1.getCoolantType()
local hotFluidType = r1.getHotFluidType()
local commandInput = ""

local function round(num, idp)
    local mult = 10^(idp or 0)
    return math.floor(num * mult + 0.5) / mult
end

local function rodsList()
    for i = 0,X-1 do
        print("Control Rod " .. r1.getControlRodName(i) .. ": " .. r1.getControlRodLevel(i) .. "% Insertion")
    end
end

local function theSplit(inputstr, sep)
        if sep == nil then
            sep = "%s"
        end
        local t={} ; i=1
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
            t[i] = str
            i = i + 1
        end
    return t
end

local function activeCool()
    if coolantType == nil then
        local coolantType = "None"
    end

    if hotFluidType == nil then
        local hotFluidType = "None"
    end

    if r1.isActivelyCooled() == false then
        print("Max Coolant Amount: " .. r1.getCoolantAmountMax())
        print("Current Coolant Amount: " .. round(r1.getCoolantAmount(), 2))
        print("Coolant: " .. coolantType)
        print("Max Hot Fluid: " .. r1.getHotFluidAmountMax())
        print("Current Hot Fluid: " .. round(r1.getHotFluidAmount(), 2))
        print("Hot Fluid Type: " .. hotFluidType)
    end
end

local function ui()
    term.clear()
    term.setCursor(1,1)
    term.write("Reactor Status: ")

    if r1.getActive("true") then
        component.gpu.setForeground(0x008000)
        status = "Online"
    else
        component.gpu.setForeground(0xFF0000)
        status = "Offline"
    end

    term.write(status)
    component.gpu.setForeground(0xFFFFFF)
    term.setCursor(1,2)
    term.write("Core Temp: " .. round(r1.getFuelTemperature(), 2) .. " " .. unicode.char(248) .. "C")
    term.setCursor(1,3)
    term.write("Case Temp: " .. round(r1.getCasingTemperature(), 2) .. " " .. unicode.char(248) .. "C")
    term.setCursor(1,4)
    term.write("Energy Buffer: " .. round(r1.getEnergyStored(), 2) .. " RF")
    term.setCursor(1,5)
    term.write("Energy Output: " .. round(r1.getEnergyProducedLastTick(), 2) .. " RF/t")
    term.setCursor(1,6)
    term.write("Fuel Reactivity: " .. round(r1.getFuelReactivity(), 2) .. "%")
    term.setCursor(1,7)
    term.write("Max Fuel: " .. round(r1.getFuelAmountMax(), 2) .. " mB")
    term.setCursor(1,8)
    term.write("Remaining Fuel: " .. round(r1.getFuelAmount(), 2) .. " mB")
    term.setCursor(1,9)
    term.write("Fuel Consumtion: " .. round(r1.getFuelConsumedLastTick(), 3) .. " mB/t")
    term.setCursor(1,10)
    term.write("Waste: " .. round(r1.getWasteAmount(), 2) .. " mB")
    term.setCursor(1,11)
    term.write("Number of Control Rods: " .. X)
    term.setCursor(1,12)
    activeCool()
    rodsList()
end

local function rodControl(rodNum, percent)
    local rodNum = rodNum - 1

    if rodNum >= 0 and rodNum <= X then
        r1.setControlRodLevel(rodNum, percent)
    else
        print("Invald rod Number. Rods numbered as 1~" .. X .. ".")
        os.sleep(2.5)
    end
end

local function inputKey()
    term.setCursor(1,3)
    term.write("Command Key: ")
    term.setCursor(1,4)
    term.write("back - Returns to the Status screen.")
    term.setCursor(65,4)
    term.write("rod <1~" .. X .. "> <0~100> - Sets rod X to X% insertion.")
    term.setCursor(1,5)
    term.write("exit - Exits the program, but leaves the reactor running.")
    term.setCursor(65,5)
    term.write("stop - Shuts the reator down.")
    term.setCursor(1,6)
    term.write("start - Starts the reactor.")
    term.setCursor(65,6)
    term.write("setAll <0~100> - Sets all control rods to X.")
    term.setCursor(10,1)
end

local function userInput()
    _, _, _, c = event.pull(0.5, "key_down")

    if c == kb.keys.enter or c == kb.keys.numpadenter then
    term.clear()
    term.setCursor(1,1)
    term.write("Command: ")
    inputKey()
    commandInput = term.read()
    commandInput = string.gsub(commandInput, "\n", "")
end

  if commandInput == "stop" then
    r1.setActive(false)
    ui()
  end

  if commandInput == "start" then
    r1.setActive(true)
    ui()
  end

  if commandInput == "exit" then
    term.clear()
    term.setCursor(1,1)
    running = false
  end

  if commandInput == "back" then
    ui()
  end

  if string.match(commandInput, "rod") then
    local output = theSplit(commandInput, " ")
    rod = tonumber(output[2])
    percent = tonumber(output[3])
    output = ""
    commandInput = ""
    rodControl(rod, percent)
    ui()
  end

  if string.match(commandInput, "setAll") then
    local output = theSplit(commandInput, " ")
    percentAll = tonumber(output[2])
    r1.setAllControlRodLevels(percentAll)
    output = ""
    commandInput = ""
    ui()
  end
end

while running do
    ui()
    userInput()
end