obopresence-relay.lua

local component = require("component")
local event = require("event")
local robot = component.tunnel
print("Waiting for robot.")
local _, _, _, _, _, message = event.pull("modem_message", robot.address)
if message == "online" then
  robot.send("ready")
end
print("Ready.")
while true do
  component.modem.open(5678)
  local _, _, remoteAddress, _, _, command, arguments = event.pull("modem_message", component.modem.address)
  robot.send(command, arguments)
  local _, _, _, _, _, response = event.pull("modem_message", robot.address)
  component.modem.send(remoteAddress, 5679, response)
  print(command.."("..arguments..") = "..response)
end