Router.lua

local c = require("component")
local event = require("event")
local term = require("term")
local computer = c.computer

-- Client settings.
local Log = true
local beep = true
local port = 123

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.")
  end
end

if c.isAvailable("tunnel") then
  tunnel = c.tunnel
  print("Linked card detected!")
end

os.sleep(0.5)

term.clear()
local continue = true


function handler(adr, msg)

  if msg == "EXIT 1337" then
    m.send(adr, port, "Router succesfully terminated.")
    m.broadcast(port, "Uh oh! The server has gone offline. please wait and reboot...")
    m.close(123)
    computer.beep(1000,0.1)
    os.sleep(0.1)
    computer.beep(1000,0.1)
    os.sleep(0.1)
    computer.beep(1000,0.1)
    os.sleep(0.1)
    computer.beep(1000,2)
    event.ignore("modem_message")
    os.exit()
  end

  if msg == "reactor_off" then
    m.send("0974be2b-4665-48d0-bafe-8424718c701a", port, "off")
    m.send(adr, port, "Reactor toggled off.")
  elseif msg == "reactor on" then
    m.send("0974be2b-4665-58d0-bafe-8424718c701a", port, "on")
    m.send(adr, port, "Reactor toggled on.")
  end
end

while true do

  _, lAddress, rAddress, _, dist, cmd = event.pull("modem_message")
  if Log then
    print(rAddress:match("...").." | "..cmd)
  end

  if beep then
    computer.beep(1750,0.1)
  end

  handler(rAddress, cmd)

  os.sleep(1)

end