Client.lua

local c = require("component")
local event = require("event")
local term = require("term")
local text = require("text")
local port = 123
local gpu = c.gpu

local cmds = {}

cmds[1]="reactor_off"
cmds[2]="reactor_on"

local w, h = gpu.getResolution()

if c.isAvailable("modem") then
  m = c.modem
  if m.isWireless() then
    print("Wireless modem detected!")
    m.open(port)
  else
    print("Modem is not wireless! aborting...")
    os.exit()
  end
end

term.clear()
gpu.set(1,1,"-----------------------------------------")
gpu.set(1,2,"- S E C U R E   B A S E   C O N T R O L -")
gpu.set(1,3,"-----------------------------------------")
term.setCursor(1,4)

function reply(_, ladr, adr, _, _, msg)
  local x,y = term.getCursor()
  term.setCursor(1,(y-2))
  print("\n>"..msg)
end

event.listen("modem_message",reply)
local continue = true
while continue do
  local x,y = term.getCursor()
  term.setCursor(1,(y+2))
  local input = text.trim(term.read(nil,false,cmds,nil))
  if input == "close" then
    event.ignore("modem_message",reply)
    os.exit()
  else
    m.send("44827529-209a-4cb6-afdd-2bf536d7cb93", port, input)
  end
end