reacteur.lua

os.loadAPI("button")
 
--p = peripheral.wrap("tile_blockcapacitorbank_name_31")
m = peripheral.wrap("top")
r = peripheral.wrap("BigReactors-Reactor_1")
 
local turnOnAt = 75
local turnOffAt = 90
 
local energy = 0
local energyStored = 0
local energyMax = 0
local energyStoredPercent = 0
local timerCode
local mode = "Manual"
local RFProduction = 0
local fuelUse = 0
local coreTemp = 0
local reactorOnline = false
 
function autoMenu()
   --   m.clear()
   m.setTextScale(1)
   button.clearTable()
   button.setTable("Automatic", autoMode, "", 3, 13, 6, 6)
   button.setTable("Manual", manualMode, "", 15, 25, 6, 6)
   button.screen()
   checkMode()
end
 
function manualMenu()
   m.setTextScale(1)
   button.clearTable()
   button.setTable("Automatic", autoMode, "", 3, 13, 6, 6)
   button.setTable("Manual", manualMode, "", 15, 25, 6, 6)
   button.setTable("Online", online, "", 3, 13, 8, 8)
   button.setTable("Offline", offline, "", 15, 25, 8, 8)
   button.setTable("0", setRods, 0, 11,14, 10, 10)
   button.setTable("10", setRods, 10, 5,8, 12, 12)
   button.setTable("20", setRods, 20, 11,14, 12, 12)
   button.setTable("30", setRods, 30, 17,20, 12, 12)
   button.setTable("40", setRods, 40, 5,8, 14, 14)
   button.setTable("50", setRods, 50, 11,14, 14, 14)
   button.setTable("60", setRods, 60, 17,20, 14, 14)
   button.setTable("70", setRods, 70, 5,8, 16, 16)
   button.setTable("80", setRods, 80, 11,14, 16, 16)
   button.setTable("90", setRods, 90, 17,20, 16, 16)
   button.screen()
   checkMode()
   reactorOnOff()
end
 
function online()
   r.setActive(true)
   --button.flash("Online")
end
 
function offline()
   r.setActive(false)
   --button.flash("Offline")
end
 
function reactorOnOff()
   button.setButton("Online", r.getActive())
   button.setButton("Offline", not r.getActive())
end
 
function setRods(setLevel)
   print("Setting Rod Level: "..setLevel)
   button.flash(tostring(setLevel))
   r.setAllControlRodLevels(setLevel)
   fuelRodLevel()
end
 
function checkMode()
   button.toggleButton(mode)
end
   
function manualMode()
   mode = "Manual"
   manualMenu()
end
 
function autoMode()
   mode = "Automatic"
   displayScreen()
end
 
function comma_value(amount)
   local formatted = amount
   local swap = false
   if formatted < 0 then
      formatted = formatted*-1
      swap = true
   end
   while true do
      formatted, k = string.gsub(formatted, "^(%d+)(%d%d%d)", '%1,%2')
      if k == 0 then
         break
      end
   end
   if swap then
     formatted = "-"..formatted
   end
   return formatted
end
 
function displayEn()
   m.clear()
   m.setCursorPos(1,1)
   --print("Energy Use: "..energy)
   m.write("Energy Use: ")
   if energy < 0 then
      m.setTextColor(colors.red)
   else
      m.setTextColor(colors.green)
   end
   m.write(comma_value(math.floor(energy)).. "RF/t")
   m.setTextColor(colors.white)
   m.setCursorPos(1,2)
   m.write("Energy Stored: "..energyStoredPercent.."%")
   m.setCursorPos(1,3)
   m.write("Reactor is: ")
   if reactorOnline then
        m.setTextColor(colors.green)
        m.write("Online")
   else
    m.setTextColor(colors.red)
        m.write("Offline")
   end
   m.setTextColor(colors.white)
   m.setCursorPos(22,1)
   m.write("RF Gen: ")
   m.setTextColor(colors.green)
   m.write(comma_value(math.floor(RFProduction)).."RF/T")
   m.setTextColor(colors.white)
   m.setCursorPos(22,2)
   m.write("Core Temp: "..math.floor(coreTemp).."c")
   m.setCursorPos(22,3)
   m.write("Fuel Use: "..fuelUse.."MB/t")
end
 
function checkEn()
   local tempEnergy = 0
   energyStored = r.getEnergyStored()
   energyMax = 10000000
   energyStoredPercent = math.floor((energyStored/energyMax)*100)
   RFProduction = r.getEnergyProducedLastTick()
   fuelUse = r.getFuelConsumedLastTick()
   fuelUse = math.floor(fuelUse*100)
   fuelUse = fuelUse/100
   coreTemp = r.getFuelTemperature()
   reactorOnline = r.getActive()
   tempEnergy = r.getEnergyStored()
   sleep(0.1)
   energy = (r.getEnergyStored()-tempEnergy)/2
end
 
function fuelRodLevel()
   local rodLevel = r.getControlRodLevel(0)
   print(rodLevel)
   m.setCursorPos(30,5)
   m.write(tostring(rodLevel).."%")
   m.setBackgroundColor(colors.white)
   m.setCursorPos(28,6)
   m.write("       ")
   for i = 1,10 do
      m.setCursorPos(28,i+6)
          m.setBackgroundColor(colors.white)
          m.write(" ")
          m.setBackgroundColor(colors.yellow)
          m.write(" ")
          if rodLevel/10 >= i then
             m.setBackgroundColor(colors.red)
          else
             m.setBackgroundColor(colors.yellow)
          end
          m.write("   ")
          m.setBackgroundColor(colors.yellow)
          m.write(" ")
          m.setBackgroundColor(colors.white)
          m.write(" ")
   end
   m.setCursorPos(28,17)
   m.write("       ")
   m.setBackgroundColor(colors.black)
end
 
function getClick()
   local event, side, x, y = os.pullEvent("monitor_touch")
   button.checkxy(x,y)
end
 
function autoReactor()
   r.setAllControlRodLevels(0)
   if energyStoredPercent < turnOnAt then
      if not reactorOnline then
             online()
          end
   end
   if energyStoredPercent > turnOffAt then
      if reactorOnline then
             offline()
           end
        end
end
 
function displayScreen()
      --  repeat
      checkEn()
      displayEn()
         fuelRodLevel()
         if mode == "Automatic" then
            autoMenu()
               autoReactor()
         else
            manualMenu()
         end
         timerCode = os.startTimer(2)
         local event, side, x, y
         repeat
           event, side, x, y = os.pullEvent()
           print(event)
           if event == "timer" then
               print(timerCode..":"..side)
               if timerCode ~= side then
                  print("Wrong Code")
               else
                  print("Right Code")
               end
            end
            until event~= "timer" or timerCode == side
            if event == "monitor_touch" then
               print(x..":"..y)
               button.checkxy(x,y)
            end
end
 
while true do
   displayScreen()
end