RedIntercept Reciever

local function getModem(isWireless)
        for k,v in pairs(rs.getSides()) do
                if peripheral.getType(v)=="modem" and peripheral.call(v,"isWireless")==isWireless then return v end
        end
        return false
end

if not (getModem(true) and getModem(false)) then error("Needs wired and wireless modems.") end
local sWire=getModem(false)
local sWless=getModem(true)
local pWire=peripheral.wrap(sWire)
local pWless=peripheral.wrap(sWless)
pWless.closeAll()
pWire.closeAll()
pWire.open(1234)
pWire.transmit(1301,1301,"getNumber")
local num
repeat
        local e,s,_,__,msg=os.pullEventRaw("modem_message")
        if e=="modem_message" and s==sWire and tonumber(msg) then
                num=tonumber(msg)
        end
until num~=nil
pWire.closeAll()
for i=num,num+127 do
        if i<=66535 then
                pWless.open(i)
        end
end
print(num)
while true do
        local event,modemSide,senderChannel,replyChannel,message,distance=os.pullEventRaw("modem_message")
        local tEvent={senderChannel,replyChannel,message,distance}
        if event=="modem_message" then
                print(message)
                if modemSide==sWless then pWire.transmit(9001,1337,textutils.serialize(tEvent)) end
        end
end