сканер эффектов нанитов [OpenComputers]

--[[  opencomputers сканер эффектов нанитов

!!! ОПАСНО !!! попадаются негативные эффекты, в том числе моментальный урон

требования:
планшет или комьютер с wi-fi картой
]]--

local event = require("event")
local component = require("component")
local term = require("term")

local msg=""
local map=""
local ex=true
local J=0
local modem = component.modem

modem.open(1)
modem.broadcast(1, "nanomachines", "setResponsePort", 1)

function eventer(tbl)
  local head=tbl[6]
  local title=tbl[7]
  local message=tbl[8]
  if head=="nanomachines" then
    if title=="effects" then
      msg=message
    elseif title=="input" and message=="error" then
      ex=false
      msg="error"
    end
  end
end

local function send(command, ...)
  component.modem.broadcast(1, "nanomachines", command, ...)
end

term.clear()
print("Сканирую эффекты:")

while ex do
  J=J+1
  send("setInput", J, true)
  eventer({event.pull("modem_message")})
  send("getActiveEffects")
  eventer({event.pull("modem_message")})
  print(J..":"..msg)
    if msg~="{}" then
      map=map..J..":"..msg.."\n"
    end
  send("setInput", J, false)
  _,_,_,_,_,_,_,_=event.pull("modem_message")
end

term.clear()
print("Сканирование завершено. Ваши эффекты:\n")
print(map)