get.lua

local tArgs = { ... }
--
local timeout = 3
local responses = {}
--
if #tArgs < 1 then
 print("Program is designed to get Informations Wireless")
 print("usage: get teleporters")
 return
end
programmname=tArgs[1]
--
modem=peripheral.find("modem")
if not modem then
 print("kein modem - kein dienst.")
 return
end
modemside=peripheral.getName(modem)
rednet.open(modemside)
--
if programmname == "teleporters" then
 rednet.broadcast("get Teleporter")
 local timerID = os.startTimer(timeout)
 print("waiting for Responses")
 while true do
  local event, id, message, protocol = os.pullEvent()
  if event == "rednet_message" and protocol == "my_protocol" then
   responses[id] = message
  elseif event == "timer" and id == timerID then
   break
  end
 end
 file=fs.open("teleporters","w")
 for computerID, msg in pairs(responses) do
  file.writeLine(computerID..", "..msg)
 end
 file.close()
end