metastruct-experiments/starfallex/serverinfo.lua

--@name StarfallTop
--@author Minori
--@shared
local serverMetadata = {
    serverName = game.getHostname(),
    map = game.getMap(),
    cTime = "",
    sTime = "",
    runningChips = {}
}

function getRunningChips()
    for _, v in ipairs(find.byClass("starfall_processor")) do
        if not isValid(v) then continue end

        --exclude self
        if v == chip() then continue end

        -- check if entry already exists
        if itExists(serverMetadata.runningChips, v) then
            continue
        else
            table.insert(serverMetadata.runningChips, {
                this = v,
                chip_name = #v:getChipName() ~= 0 and v:getChipName() or "<none>",
                chip_owner = #v:getOwner():getName() ~= 0 and v:getOwner():getName() or "<none>",
                chip_quota = math.floor(v:getQuotaAverage() * 100000)
            })
        end
    end
end

function itExists(t, v)
    for _, sv in ipairs(t) do
        if sv.this == v then
            return true
        end
    end
    return false
end

function cleanupInvalid(t, v)
    for i, sv in ipairs(t) do
        if not isValid(sv.this) then
            print("WARNING: " .. tostring(sv.this) .. " is no longer valid but exists in table.")
            table.remove(t, i)
        end
    end
end

if SERVER then
    local prevName = ""
    local prevSTime = ""

    hook.add("tick", "serverTimeTick", function()
        if prevSTime ~= os.date() then
            prevSTime = os.date()
            net.start("serverTime")
            net.writeString(os.date())
            net.send(owner(), false)
        end
    end)

    -- METASTRUCT SPECIFIC HOOK
    hook.add("tick", "e621", function()
        if prevName ~= game.getHostname() then
            prevName = game.getHostname()
            net.start("serverName")
            net.writeString(game.getHostname())
            net.send(owner(), false)
        end
    end)
end

if CLIENT then
    getRunningChips()

    hook.add("tick", "clientTimeTick", function()
        serverMetadata.cTime = os.date()
    end)

    -- METASTRUCT SPECIFIC HOOK
    net.receive("serverTime", function()
        serverMetadata.sTime = net.readString()
    end)

    net.receive("serverName", function()
        serverMetadata.serverName = net.readString()
    end)
    -- update the table
    timer.create("update", 1, 0, function()
        for i, v in ipairs(serverMetadata.runningChips) do
            local ent = v.this
            v.chip_quota = math.floor(ent:getQuotaAverage() * 100000)
        end
    end)

    timer.create("cleanup_invalid", 0.8, 0, function()
        cleanupInvalid(serverMetadata.runningChips)
    end)

    -- update the running chip entries when necessary
    timer.create("update_data", 5, 0, function()
        getRunningChips()
    end)

    hook.add("render", "metadataRenderMain", function()
        render.setColor(Color(255, 34, 34))
        render.drawText(10, 10, "Server Name: " .. serverMetadata.serverName)
        render.drawText(10, 30, "Map: " .. serverMetadata.map)
        render.drawText(10, 50, "Client Time: " .. serverMetadata.cTime)
        render.drawText(10, 70, "Server Time: " .. serverMetadata.sTime)
        render.setColor(Color(255, 255, 255 , 255))
        render.drawText(10, 110, "Running Chips: ")

        render.setColor(Color(82, 113, 250))
        if serverMetadata.runningChips == {} then
            render.drawText(10, 130, "No Chips Running!")
        end

        for i, v in ipairs(serverMetadata.runningChips) do
            render.drawText(10, 130 + (i * 20), "" .. v.chip_name .. " by " .. v.chip_owner .. " (" .. v.chip_quota .. "us)")
        end
    end)
end