local reactorSide, reactor, monitorSide, monitor
local rodsLevel, rodsNum, reactorCap, clock
require "socket"

local function sleep(sec)
    socket.select(nil, nil, sec)
end

local function getPeripheral(name)
    for i, v in pairs(peripheral.getNames()) do
        if (peripheral.getType(v) == name) then
            return v
        end
    end
    return ""
end

local function drawBox(size, xoff, yoff, color)
    if (monitorSide ~= nil) then
        local x,y = monitor.getCursorPos()
        monitor.setBackgroundColor(color)
        for i=0,size[1] - 1 do
            monitor.setCursorPos(xoff + i + 1, yoff + 1)
            monitor.write(" ")
            monitor.setCursorPos(xoff + i + 1, yoff + size[2])
            monitor.write(" ")
        end
        for i=0, size[2] - 1 do
            monitor.setCursorPos(xoff + 1, yoff + i + 1)
            monitor.write(" ")
            monitor.setCursorPos(xoff + size[1], yoff + i +1)
            monitor.write(" ")
        end
        monitor.setCursorPos(x,y)
        monitor.setBackgroundColor(colors.black)
    end
end


reactorSide = getPeripheral("BigReactors-Reactor")
reactor = peripheral.wrap(reactorSide)

monitorSide = getPeripheral("monitor")
monitor = peripheral.wrap(monitorSide)

monitor.clear()
monitor.setCursorPos(1,1)

monitor.write("All Rods"..reactor.getNumberOfControlRods())

while True do
    rodsNum = reactor.getNumberOfControlRods()
    rodsLevel = 0

    reactorCap = reactor.getEnergyProducedLastTick()

    sleep(1)

    rodsLevel = reactor.getControlRodLevel(1)

    if(reactorCap > reactor.getEnergyProducedLastTick()) then
        reactor.setAllControlRodLevels(rodsLevel-1)
    end

    if(reactorCap < reactor.getEnergyProducedLastTick()) then
        reactor.setAllControlRodLevels(rodsLevel+1)
    end

    monitor.clear()
    monitor.setCursorPos(1,1)
    monitor.write("All Rods"..reactor.getNumberOfControlRods()..rodsLevel)

end