obopresence-robot.lua

local component = require("component")
local robot = require("robot")
local event = require("event")
local server = component.tunnel

function handleCommand(command, arguments)
  print(command.."("..arguments..")")
  if command == "forward" then
    return tostring(robot.forward())
  elseif command == "turnLeft" then
    return tostring(robot.turnLeft())
  end
  return ""
end

server.send("online")
print("Waiting for server response.")
local _, _, _, _, distance, response = event.pull("modem_message", server.address)
print("Recieved response: "..response.." from "..distance)
local lastCommand = ""
local lastArguments = ""
while true do
  local _, _, _, _, _, command, arguments = event.pull("modem_message", server.address)
  if command ~= lastCommand and arguments ~= lastArguments then
    lastCommand = command
    lastArguments = arguments
    server.send(handleCommand(command, arguments))
  else
    server.send("loop")
  end
end