BigReactors Monitor Server co

    if peripheral.isPresent("right") == true then
      local wireless = peripheral.wrap("right")
      --wireless.open(4)
      wireless.open(65535)
    end
    --if peripheral.isPresent("BigReactors-Reactor_1") == false then
    --  term.write("No Reactor Present!")
      --shell.exit()
    --end
    --function loadPeripherals()
      local modem = peripheral.wrap("top")
      local monitor = peripheral.wrap("monitor_1")
      local reactor = peripheral.wrap("BigReactors-Reactor_0")
      --local reactor = peripheral.wrap("BigReactors-Reactor_1")
      local turbine = peripheral.wrap("BigReactors-Turbine_0")
      term.clear()
      monitor.setBackgroundColor(32768)
      monitor.clear()
      term.setCursorPos(3,1)
      wirelessSide = "right"
      modemSide = "top"


      --local wireless = peripheral.wrap(wirelessSide)
      --local modem = peripheral.wrap(modemSide)
      rednet.open(wirelessSide)
      --if unexpected_condition then
      --  error()
      --end
      --print(a[i])
    --end


function round2(num, places)
        num = tostring(num)
        local inc = false
        if num = nil then num = 1 end --testing this piece out to avoid errors when the reactor doesn't report fuel usage for a tick
        local decimal = string.find(num, "%.")
        if num:len() - decimal <= places then return tonumber(num) end --already rounded, nothing to do.
        local digit = tonumber(num:sub(decimal + places + 1))
        num = num:sub(1, decimal + places)
        if digit <= 4 then return tonumber(num) end --no incrementation needed, return truncated number
        local newNum = ""
        for i=num:len(), 1, -1 do
                digit = tonumber(num:sub(i))
                if digit == 9 then
                        if i > 1 then
                                newNum = "0"..newNum
                        else
                                newNum = "10"..newNum
                        end
                elseif digit == nil then
                        newNum = "."..newNum
                else
                        if i > 1 then
                                newNum = num:sub(1,i-1)..(digit + 1)..newNum
                        else
                                newNum = (digit + 1)..newNum
                        end
                        return tonumber(newNum) --No more 9s found, so we are done incrementing. Copy remaining digits, then return number.
                end
        end
        return tonumber(newNum)
end

    function updateData()
      --declare some reactor variables sucka!
      fuelTemp = math.floor(reactor.getFuelTemperature())
      reactorIsConnected = reactor.getConnected()
      reactorIsActive = reactor.getActive()
      controlRodCount = reactor.getNumberOfControlRods()
      reactorCasingTemp = math.floor(reactor.getCasingTemperature()) --use math.floor to keep it a whole integer otherwise it has too many sigfigs.
      reactorFuelAmount = reactor.getFuelAmount()
      reactorWasteAmount = reactor.getWasteAmount()
      reactorCoolantType = reactor.getCoolantType()
      controlRodDesiredLevel = 0
      reactorFuelUsed = reactor.getFuelConsumedLastTick()
      reactorSteamAmount = reactor.getHotFluidAmount()
      reactorSteamMade = reactor.getHotFluidProducedLastTick()
      controlRodLevelOne = reactor.getControlRodLevel(0) --remember that the index is one less than rod count
      controlRodLevelTwo = reactor.getControlRodLevel(1)
      controlRodLevelThree = reactor.getControlRodLevel(2)
      controlRodLevelFour = reactor.getControlRodLevel(3)
      controlRodAverage = ((controlRodLevelOne + controlRodLevelTwo + controlRodLevelThree + controlRodLevelFour)) / (4)

      --turbine variables will go here if this turns out to be beneficial
      idealRotorRPM = 1800
      turbineIsConnected = turbine.getConnected()
      turbineIsActive = turbine.getActive()
      turbineRotorSpeed = math.floor(turbine.getRotorSpeed())
      turbineFluidRate = turbine.getFluidFlowRate()
      turbineEngaged = turbine.getInductorEngaged()
      turbineEnergy = math.floor(turbine.getEnergyProducedLastTick())
    end

    function tabletRequest()

      --local function openRednet()

      wirelessSide = "right"
      modemSide = "top"

      local wireless = peripheral.wrap(wirelessSide)
      local modem = peripheral.wrap(modemSide)
      rednet.open(wirelessSide)
      --end


      --modemOn = openRednet()
      if wirelessSide == nil then
      print("No Modem")
      print("Will shutdown in 3 seconds")
      sleep(3)
      --os.shutdown()
      else
      print("Opened modem on ".. wirelessSide)
      end
      os.sleep(0.2)
      --term.clear() --i added this to make error messages more readable



      id, message = rednet.receive()
      term.setCursorPos(1,1)
      print ("Device " .. id .. " sent a " .. message .. " ")
      os.sleep(1)
      term.setCursorPos(1,2)
      print ("Sending reactor info...")
      local reactor
         local reactor = peripheral.wrap("BigReactors-Reactor_0") --if networked replace with reactor name, this seems to interfere with line 46 at times
         if peripheral.wrap("back") then
         term.setCursorPos(1,3)
         print ("Found Reactor")
         end
         active = reactor.getActive(1)
         if active then
         term.setCursorPos(1,5)
         print ("The Reactor is: ")
         term.setTextColor(colors.green)
         print ("ON")
         else term.setTextColor(colors.white)
         print ("The Reactor is: ")
         term.setTextColor(colors.red)
         print ("OFF")
         rednet.send(id, "The Reactor is: OFF")
         sleep(.1)
         rednet.send(id, "The Reactor is: OFF")
         --os.reboot()
         --runProgram()
         --exit() --stops whole program
         --break --only in a loop, at the end
         return --i think this did it
         end
         term.setTextColor(colors.white)
         lvl = reactor.getControlRodLevel(0)
         if lvl then
          print ("Control rod level is " .. lvl .. "% closed")
         end
         turbineEnergy = turbine.getEnergyProducedLastTick()
         tick = turbineEnergy  --reactor.getEnergyProducedLastTick(1)
         if tick then
         print (" " .. tick .. " RF/t ")
         end
      rednet.send(id, "The Reactor is: ON")
      os.sleep(0.2)
      rednet.send(id, "Control rod level is " .. lvl .. "% closed")
      os.sleep(0.2)
      rednet.send(id, " Producing " .. tick .. " RF/t ")
      return
      --os.reboot()

      -- The Pocket computer program is at /bkc8M1Bi
      -- Original code by Dukrobber
    -- Updates by blackrabt
    end

    function createDisplay()
      --reactor display stuff
      monitor.setBackgroundColor(32768) --black
      monitor.setTextColor(512) --cyan
      monitor.clear()
      monitor.setCursorPos(4,1)
      --set text color based on reactor status?
      monitor.write("Reactor")
      --term.redirect(monitor)
      --paintutils.drawLine(3,3,7,3,1)
      --term.redirect(term.native())
      monitor.setCursorPos(2,2)
      monitor.write("-----------") --___________
      monitor.setCursorPos(3,3)
      if reactorIsConnected == true then
        monitor.setTextColor(8192)
        monitor.write("Connected")
      end
      if reactorIsConnected == false then
        monitor.setTextColor(4)
        monitor.write("Disconnected")
      end
      monitor.setCursorPos(3,4)
      if reactorIsActive == true then
        monitor.setTextColor(32)
        monitor.write("Active")
      end
      if reactorIsActive == false then
        monitor.setTextColor(16)
        monitor.write("Inactive")
      end
      --if peripheral.isPresent("left") == true then
      --  testPDA.print(reactorIsActive)
      --  testPDA.print("test")
      --end
      monitor.setTextColor(512)
      monitor.setCursorPos(3,5)

      monitor.setTextColor(16) --yellow
      monitor.write("Casing: "..reactorCasingTemp.."C")
      monitor.setCursorPos(3,6)
      if fuelTemp > 170 and fuelTemp < 230 then
        monitor.setTextColor(32)
      end
      if fuelTemp < 170 and fuelTemp > 100 then
        monitor.setTextColor(16)
      end
      if fuelTemp < 100 then
        monitor.setTextColor(16384)
      end
      if fuelTemp > 230 and fuelTemp < 300 then
        monitor.setTextColor(16)
      end
      if fuelTemp > 3000 then
        monitor.setTextColor(16384)
        monitor.setCursorPos(11,6)
        monitor.write("CAUTION!")
        --while fuelTemp > 300 do --this makes a flashing caution but it halts the whole program
          --monitor.setTextColor(16384)
          --monitor.setCursorPos(3,11)
          --monitor.write("CAUTION!")
          --sleep(0.4)
          --monitor.setTextColor(64)
          --monitor.setCursorPos(3,11)
          --monitor.write("CAUTION!")
          --sleep(0.4)
          --monitor.setTextColor(2)
          --monitor.setCursorPos(3,11)
          --monitor.write("CAUTION!")
        --end
      end
      monitor.write("Core:   "..fuelTemp.."C")
      monitor.setCursorPos(3,7)
      monitor.setTextColor(256)
      monitor.write("HFO:    "..reactorSteamMade.."mB/t")
      monitor.setCursorPos(3,9)
      controlRods = math.floor(controlRodAverage)
      monitor.write("Avg. Control Rod: "..controlRodAverage.."% ")
      monitor.setCursorPos(3,8)
      --monitor.write("FBR:    "..reactorFuelUsed.."mB/t")
      --  f = tostring(reactorFuelUsed)
      --f = reactorFuelUsed
      --fuelFormatted = (string.format("%.4f", reactor.getFuelConsumedLastTick()))
      fuelFormatted = round2(reactorFuelUsed, 2)
     -- monitor.write(fuelFormatted)
       monitor.write("FBR:    "..fuelFormatted.."mB/t")

        --turbine display
      monitor.setTextColor(512) --cyan
      monitor.setCursorPos(4,11)
      monitor.write("Turbine")
      monitor.setCursorPos(2,12)
      monitor.write("-----------")
      --term.redirect(monitor)
      --paintutils.drawLine(18,3,25,3,512)
      --term.redirect(term.native())
      monitor.setCursorPos(3,13)
      if turbineIsConnected == true then
        monitor.setTextColor(8192)
        monitor.write("Connected") --should say Connected
      end
      if turbineIsConnected == false then
        monitor.setTextColor(16384)
        monitor.write("Disconnected")
      end
      --monitor.write(turbineIsConnected)
      monitor.setCursorPos(3,14)
      if turbineIsActive == true then
        monitor.setTextColor(8192)
        monitor.write("Active")
      end
      if turbineIsActive == false then
        monitor.setTextColor(16)
        monitor.write("Inactive")
      end
      monitor.setCursorPos(3,15)
      if turbineEngaged == true then
        monitor.setTextColor(32)
        monitor.write("Coils Engaged")
      end
      if turbineEngaged == false then
        monitor.setTextColor(16)
        monitor.write("Not Engaged")
      end
      --monitor.setCursorPos(15,15)
      --monitor.write("15,15")
      monitor.setCursorPos(3,16)
      if turbineEnergy > 1000 and turbineEnergy < 10000 then
        monitor.setTextColor(16)
      end
      if turbineEnergy > 10000 then
        monitor.setTextColor(32)
      end
      if turbineEnergy < 1000 then
        monitor.setTextColor(16384)
      end
      monitor.write("Generating:  "..turbineEnergy.."RF")
      monitor.setCursorPos(3,17)
      if turbineRotorSpeed > 0 then

        monitor.setTextColor(32)
        monitor.write("Rotor speed: "..turbineRotorSpeed.."RPM")
      end
      if turbineRotorSpeed <1 then
        monitor.setTextColor(16384)
        monitor.write("Rotor speed: "..turbineRotorSpeed.."RPM")
      end
    end

    function runProgram()
      --loadPeripherals() no need to make this run every time
      updateData()
      createDisplay()
      coroutine.yield()
      --tabletRequest()

      sleep(1.5)
    end

-- function runAsCoroutine()
--   runProgram()
-- end

local theReactorCoroutine = coroutine.create(runProgram)
local theTabletCoroutinr = coroutine.create(tabletRequest)

while true do
  coroutine.resume(theReactorCoroutine)
  if os.pullEvent(rednet.receive()) then
    coroutine.yield(theReactorCoroutine)
    coroutine.resume(theTabletCoroutinr)
    coroutine.resume(theReactorCoroutine)
  end
end

    --[[need to pcall(round2)?]]
    --this is supposed to run the peripheral loading in a protected call, and throw an error if there is a problem. It doesn't want to do that yet.
    --if pcall(loadPeripherals) then
    --  while true do
    --    runProgram()
    --  end
      --runProgram()
    --else
      --there was a problem
    --end

    -- while true do
    --   runProgram()
    --   if rednet.receive(2) then --not nil then
    --     tabletRequest()
    --   end
    -- end