broadcast

    --Broadcast V1.0 program made by Anonomit


    local bDebugDefault = true


    for _, side in pairs( rs.getSides() ) do
            rednet.open( side )
    end --for _, side in pairs( rs.getSides() )


    local tArgs = { ... }
    local bDebug = tArgs[1] == "debug" and true or ( tArgs[1] == "noDebug" and false or bDebugDefault )
    local tLoggerData = {}
    local xTerm, yTerm = term.getSize()
    term.setCursorPos( 1, 3 )

    local function round( _number, _dp)
            local nMultiple = 10^( _dp or 0 )
            return math.floor( _number * nMultiple + 0.5 ) / nMultiple
    end --local function round( _number, _dp )


    if fs.exists( "broadcastSettings" ) then

            local file = fs.open( "broadcastSettings", "r" )
            tLoggerData = textutils.unserialize( file.readLine() )
            file.close()

    end --if fs.exists( "broadcastSettings" )


    local function display( _text )
            if bDebug and _text then
                    print( _text )
            end --if bDebug and _text
            local xCursorPos, yCursorPos = term.getCursorPos()
            term.setCursorPos( 1, 1 )
            term.clearLine()
            print( "BROADCAST CONSOLE #" .. os.computerID() )
            term.clearLine()
            for i = 1, xTerm - 1 do
                    write( "~" )
            end --for i = 1, xTerm - 1
            term.setCursorPos( xCursorPos, yCursorPos )
    end --local function display( _text )

    term.clear()
    display()

    local function rednetSend( _receiverID, _message )
            rednet.send( _receiverID, _message )
            display( ">Sent '" .. _message .. "' to #" .. _receiverID )
    end --local function rednetSend( receiverID, _message )


    local function handler( _id, _msg, _dist, _value )

            display( "<Received '" .. _msg .. "' from #" .. _id )
            tLoggerData[_id] = _value
            local file = fs.open( "broadcastSettings", "w" )
            file.write( textutils.serialize( tLoggerData ) )
            file.close()

    end --local function handler( _id, _msg, _dist, _value )


    while true do

            local event, param1, param2, param3 = os.pullEvent()
            if event == "rednet_message" and param2 == "loggerPing" then
                    handler( param1, param2, param3, "loggerDoneLogging" )
                    rednetSend( param1, "loggerPong" )
            elseif event == "rednet_message" and param2 == "broadcastPing" then
                    display( "<Received '" .. param2 .. "' from #" .. param1 )
                    rednetSend( param1, "broadcastPong" )
            elseif event == "rednet_message" and param2 == "loggerRequestStart" then
                    display( "<Received '" .. param2 .. "' from #" .. param1 )

                    local foo = true
                    rednetSend( param1, textutils.serialize( tLoggerData ) )

                    for id, state in pairs( tLoggerData ) do
                            if state ~= "loggerDoneLogging" then
                                    foo = false
                            end --if state == "loggerDoneLogging"
                    end --for id, state in pairs( tLoggerData )

                    if foo then
                            for id, state in pairs( tLoggerData ) do
                                    if state == "loggerDoneLogging" then
                                            rednetSend( id, "loggerStartLogging" )
                                    end --if state == "loggerDoneLogging"
                            end --for id, state in pairs( tLoggerData )
                    end --if foo
            elseif event == "rednet_message" and ( param2 == "loggerLogging" or param2 == "loggerDoneLogging" or param2 == "loggerLowSaplings" or param2 == "loggerNoSaplings" ) then
                    handler( param1, param2, param3, param2 )
            elseif event == "rednet_message" and param2 == "loggerForget" then
                    handler( param1, param2, param3, nil )
                    rednetSend( param1, "loggerForgot" )
            elseif event == "rednet_message" then
                    display( "<Ignoring '" .. param2 .. "' from #" .. param1 .. " from " .. round( param3, 0 ).. " away" )
            end --if event == "rednet_message" and param2 == "broadcastPing"
    end --while true