-- BY INFINIKILLER64 (abc on computercraft.info)
-- feel free to use with credit
-- you can use the open,close,and convert functions without credit though

local sides={"right","left","front","back","top","bottom"}
function open()
    local l1
    for l1=1,6 do
        rednet.open(sides[l1])
        if rednet.isOpen(sides[l1])==true then return true,sides[l1] end
    end
    return false
end
function close()
    local l1
    for l1=1,6 do
        local first=rednet.isOpen(sides[l1])
        rednet.close(sides[l1])
        if first ~= rednet.isOpen(sides[l1]) then return true,sides[l1] end
    end
    return false
end
function send( ... )
    local tArgs={ ... }
    if #tArgs>3 or #tArgs<2 then
        error("USAGE: snet.send(id,data[,channel])")
    end
    tArgs[3]=tArgs[3] or ""
    if tArgs[1]==-1 then tArgs[1]=nil end
    return rednet.send(tArgs[1],tostring(tArgs[3]:len()).."."..tArgs[3].."."..tArgs[2])
end
function broadcast( ... )
    local tArgs={ ... }
    if #tArgs>2 or #tArgs<1 then
        error("USAGE: snet.broadcast(data[,channel])")
    end
    return snet.send(-1,tArgs[1],tArgs[2])
end
local function convert(p2)
    local data=string.find(p2,"%.")
    if data == nil then return end
    local data2=tonumber(string.sub(p2,1,data-1))
    if data == nil then return end
    local data3=string.sub(p2,data+1,data2+data)
    if string.sub(p2,data2+data+1,data2+data+1)~="." then return end
    return string.sub(p2,data2+data+2),data3
end
function receive( ... )
    local tArgs={ ... }
    local erro=false
    local eArgs={}
    if type(tArgs[1]) == "number" then
        eArgs[1]=tArgs[1]
    elseif type(tArgs[1]) == "string" then
        eArgs[2]=tArgs[1]
    else
        erro=true
    end
    if type(tArgs[1]) == "string" then
        eArgs[2]=tArgs[1]
    else
        erro=true
    end
    if #tArgs==0 then erro=false end
    if erro then
        error("USAGE: id,data=snet.receive([timeout][,channel])")
    end
    if eArgs[1]~=nil then
        local timer = os.startTimer(eArgs[1])
    end
    local data, tye, p1, p2, p3
    while true do
        while true do
            tye, p1, p2, p3 = os.pullEvent()
            if tye == "rednet_message" or ( tye == "timer" and p1 == timer ) then
                break
            end
        end
        if typeo == "timer" then return nil,nil end
        data,tag=convert(p2)
        if data and tag==(eArgs[2] or "") then break end
    end
    return p1,data
end