nano_scan TMgfaVt0

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

local modem = component.modem
modem.open(1)
modem.broadcast(1, "nanomachines", "setResponsePort", 1)
msg=""
ex=true
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




map=""
J=0
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
print("сканирование закончино. интересные эффекты:")
print(map)