CC: P++ TurtleMonitor

os.loadAPI("ldb2")
os.loadAPI("rnc")

local MaxWait = 2 * 60 * 1000 --mls
local db = "turtle"

mon = peripheral.find("monitor")
tms = peripheral.find("timeSensor")

function dtf(str)
    return string.format("%.2d",str)
end
function formatTime(v_time)
    return "[" ..
           dtf(v_time.hour) .. ":" ..
           dtf(v_time.minute) .. ":" ..
           dtf(v_time.second) .. "]"
end

local function heading(text)
    w,h = mon.getSize()
    mon.setCursorPos((w - string.len(text))/2+1, 1)
    mon.setTextColor(colors.white)
    mon.write(text)
end

local function clearLine()
    w,h = mon.getSize()
    x,y = mon.getCursorPos()
    mon.setCursorPos(1,y)
    for i = 1, w do
        mon.setCursorPos(i,y)
        mon.write(" ")
    end
    mon.setCursorPos(x,y)
end

mon.clear()
heading("Turtle Monitor")

local started = 1
local function WriteAll()
    vlist = ldb2.list(db)
    heading("Turtle Monitor")
    for i=1, table.getn(vlist) do
        tmp = ldb2.get(db, vlist[i])
        if tmp.re == 1 or started == 1 then
            mon.setCursorPos(1, i+2)
            clearLine()
            mon.setTextColor(colors.white)
            mon.write(tmp.time .. " ")
            if tmp.timestamp < tms.getTime() - MaxWait then
                mon.setTextColor(colors.red)
                mon.write(tmp.name)
            else
                mon.setTextColor(colors.lime)
                mon.write(tmp.name)
            end
            mon.setTextColor(colors.white)
            mon.write(" > ")
            mon.setTextColor(colors.lightGray)

            mon.write("D:" .. tmp.depth .. " | " .. tmp.state .. " | " .. tmp.detail)
            tmp.re = 0
            ldb2.set(db, vlist[i], tmp)
        end
    end
    started = 0
end

local tm = tms.getTime()
rnc.setTimeOut(1)
while true do
    msg = rnc.resive()
    if msg ~= nil then
        msg.time = formatTime(tms.getDate())
        msg.timestamp = tms.getTime()
        msg.re = 1
        ldb2.set(db, msg.name, msg)
    end
    WriteAll()
end