reactorController

--[
Written by: Ciemny_Cygan
Finished in: 08.10.2019
Written in: Lua
Reactor Controller for BigReactors
To be used on: ComputerCraft Computer (any)
--]

local function sleep(s)
    local ntime = os.clock() + s
    repeat until os.clock() > ntime
end

local monitor = peripheral.wrap("left")
local lev
local proc
local tick = 0.05

monitor.clear()
monitor.setCursorPos(1,1)
monitor.write("Starting")

while true do
    os.pullEvent("redstone")
    lev = rs.getAnalogInput("back")

    if lev < 13 then
        monitor.clear()
        rs.setOutput("top", true)
        proc = ((lev + 1) / 16) * 100
        monitor.setCursorPos(1, 1)
        monitor.setTextScale(0.5)
        monitor.write("Charged to:")
        monitor.setCursorPos(1, 2)
        monitor.setTextScale(2)
        monitor.write(proc .. "%")
    elseif lev == 15 then
        monitor.clear()
        rs.setOutput("top", false)
        monitor.setCursorPos(1, 1)
        monitor.setTextScale(1)
        monitor.write("Charged")
    end

    sleep(20 * tick) --sleep 20 ticks
end