OC-Reactor control

local component = require("component")
local term = require("term")
local event = require("event")
local rs = component.redstone
local gpu = component.gpu

component.modem.open(123)

local y = 0
local x
local z

while true do
  term.clear()
  local _, _, from, port, _, message = event.pull("modem_message")
  x=tostring(message)
  print("cell ma: "..x.."%")

  if message>80 then
    y=0
    gpu.setBackground(0x00FF00)
  end
  if message<10 then
    y=1
    gpu.setBackground(0xFF0000)
  end

  z= y*15

  rs.setOutput(4,z)
  print(y)
  print(z)
  os.sleep(.1)
end