nanomachines scaner

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)