Robot

local r = require("robot")
local com = require("component")
local event = require("event")
local modem = com.modem
local port = 666   ---------> используемый порт
local pass = "gogo" --------> пароль подключения
local invSize = r.inventorySize()

modem.close()
modem.open(port)
modem.setStrength(500)

local _, clientAddr, serverAddr, _, _, _ = event.pull("modem_message", nil, nil, port, nil, pass) --  определение сервера

local function ready()
    modem.send(serverAddr, port, clientAddr)
end

local function drop()
    for i=1, invSize do
        r.select(i)
        r.drop()
        r.select(1)
    end
end

ready()

local doit = {}
doit.up = r.up
doit.down = r.down
doit.left = r.turnLeft
doit.right = r.turnRight
doit.forward = r.forward
doit.back = r.back
doit.swing = r.swing
doit.swingUp = r.swingUp
doit.swingDown = r.swingDown
doit.use = r.use
doit.useUp = r.useUp
doit.useDown = r.useDown
doit.place = r.place
doit.placeUp = r.placeUp
doit.placeDown = r.placeDown
doit.suck = r.suck
doit.suckUp = r.suckUp
doit.suckDown = r.suckDown
doit.drop = drop
doit.password = ready
doit[pass] = ready

while true do
    local _, _, _, _, _, ev = event.pull("modem_message", nil, serverAddr, port)
    for k,v in pairs(doit) do
        if k == ev then
            modem.send(serverAddr, port, doit[ev]())
            break
        end
    end
end