Log

--Log V1.0 program made by Anonomit


term.clear()
term.setCursorPos( 1, 1 )

for i, side in ipairs( rs.getSides() ) do
    if peripheral.isPresent( side ) then
        if peripheral.getType( side ) == "modem" then
            break --for _, side in ipairs( rs.getSides() )
        end --if peripheral.getType( side ) == "modem"
    end --if peripheral.isPresent( side )
    if i == #rs.getSides() then
        print( "No Modem Attached" )
        sleep( 1 )
        shell.exit()
    end --if i == #rs.getSides()
end --for i, side in ipairs( rs.getSides() )

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

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 )

local tArgs = { ... }
if tArgs[1] == "recreate" then
    if fs.exists( "logSettings" ) then
        fs.delete( "logSettings" )
    end --if fs.exists( "logSettings" )
end --if tArgs[1] == "recreate"
local nBroadcastID
local xTerm, yTerm = term.getSize()
term.clear()

if fs.exists( "logSettings" ) then

    local file = fs.open( "logSettings", "r" )
    nBroadcastID = tonumber( file.readLine() )
    file.close()

else --fs.exists( "logSettings" )

    local xCursorPos, yCursorPos = term.getCursorPos()
    while nBroadcastID == nil do

        term.clear()
        term.setCursorPos( 1, 1 )
        print( "Log" )
        for i = 1, xTerm - 1 do
            write( "~" )
        end --for i = 1, xTerm - 1
        term.setCursorPos( 1, 3 )
        rednet.broadcast( "broadcastPing" )
        local param1, param2, param3 = rednet.receive( 0.1 )
        if param2 then
            term.setCursorPos( xCursorPos, yCursorPos + 1 )
            term.clearLine()
            write( ">Broadcast Console #" .. param1 .. " is " .. round( param3, 0 ) .. " away" )
        else --param2
            write( ">No Broadcast Consoles Found Nearby" )
        end --if param2
        term.setCursorPos( xCursorPos, yCursorPos )
        term.clearLine()
        write( "Broadcast Console ID: " )
        nBroadcastID = tonumber( read() )
        if nBroadcastID == nil then
            write( "Invalid Value" )
            sleep( 0.5 )
            term.clearLine()
        elseif nBroadcastID < 0 then
            write( "Invalid Value" )
            sleep( 0.5 )
            term.clearLine()
            nBroadcastID = nil
        else --nBroadcastID == nil
            rednet.send( nBroadcastID, "broadcastPing" )
            local param1, param2, param3 = rednet.receive( 0.1 )
            if param2 == "broadcastPong" then
                local file = fs.open( "logSettings", "w" )
                file.write( tostring( param1 ) )
                file.close()
            else --if param2 == "logPong"
            term.clearLine()
            write( "No Response" )
            sleep( 1 )
            term.clearLine()
            nBroadcastID = nil
            end --if param2 ~= "logPong"
        end --if nBroadcastID == nil
    end --while nBroadcastID == nil
    term.clearLine()

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

rednet.send( nBroadcastID, "loggerRequestStart" )


local loggerDoneLogging = 0
local loggerLogging = 0
local loggerLowSaplings = 0
local loggerNoSaplings = 0

term.clear()
term.setCursorPos( 1, 1 )
print( "Log" )
for i = 1, xTerm - 1 do
    write( "~" )
end --for i = 1, xTerm - 1
term.setCursorPos( 1, 3 )

local param1, param2, param3 = rednet.receive( 0.1 )
if param2 then
    for id, state in pairs( textutils.unserialize( param2 ) ) do
        if state == "loggerDoneLogging" then
            loggerDoneLogging = loggerDoneLogging + 1
        elseif state == "loggerLogging" then
            loggerLogging = loggerLogging + 1
        elseif state == "loggerLowSaplings" then
            loggerLowSaplings = loggerLowSaplings + 1
        elseif state == "loggerNoSaplings" then
            loggerNoSaplings = loggerNoSaplings + 1
        end --if state == "loggerDoneLogging"
    end --for id, state in pairs( textutils.unserialize( param2 ) )
    if loggerLogging > 0 or loggerLowSaplings > 0 or loggerNoSaplings > 0 then
        print( ( loggerDoneLogging == 0 and "No" or loggerDoneLogging ) .. ( loggerDoneLogging == 1 and " logger has" or " loggers have" ) .. " finished." )
        if loggerLowSaplings > 0 then
            print( loggerLowSaplings .. ( loggerLowSaplings == 1 and " logger is" or " loggers are" ) .. " low on saplings." )
        end --if loggerLowSaplings > 0
        if loggerNoSaplings > 0 then
            print( loggerNoSaplings .. ( loggerNoSaplings == 1 and " logger has" or " loggers have" ) .. " no saplings." )
        end --if loggerNoSaplings > 0
    else --loggerLogging > 0 or loggerLowSaplings > 0 or loggerNoSaplings > 0
        print( "Logging Started" )
    end --if loggerLogging > 0 or loggerLowSaplings > 0 or loggerNoSaplings > 0
else --param2
    print( "No Response" )
    print( "Use '" .. shell.getRunningProgram() .. " recreate' to change broadcast console ID" )
end --if param2