opennet wifi

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

local opennet = {}
local ONcard
local LocalIP
local Router
local ONport=1
local ONlong=2
local maxPacketSize

function opennet.ver()
  return "3.1"
end

function opennet.getIP()
  if not component.isAvailable("modem") then
    ONcard=nil
    return nil, "Сетевая карта не обнаружена"
  end
  ONcard=component.modem
  ONcard.open(ONport)
  ONcard.open(ONlong)
  maxPacketSize=ONcard.maxPacketSize()-100
  local ok,err=ONcard.broadcast(ONport,"", "", "getip")
  if not ok then  return ok, err  end
  local Dist=math.huge
  LocalIP=nil
  Router=nil
  while true do
    local ev, addr, rout, _, dist, locip, _, mess = event.pull(1,"modem_message")
    if ev then
      if dist<Dist and addr == ONcard.address and mess == "setip" then
  	    LocalIP=locip Router=rout Dist=dist
	  end
	else
	  if LocalIP then return LocalIP, Dist
	  else  return nil, "Нет ответа от WiFi роутера" end
    end
  end
end

function opennet.send(recIP, ... )
  if not ONcard or not Router then
    return nil, "Сетевая карта не инициализирована"
  end
  return ONcard.send(Router, ONport, recIP, LocalIP, ...)
end

function opennet.receive(timeout)
  local ev
  repeat
    ev = {event.pull(timeout,"modem_message")}
    if not ev[1] then return nil end
  until ev[2] == ONcard.address
  return table.unpack(ev,7)
end

function opennet.sendrec(recIP, ... )
  local ok,err=opennet.send(recIP, ... )
  if ok then
    return opennet.receive(3)
  else
    return ok,err
  end
end

-----------------------------------------------------------------------
return opennet