factorio-scenario-ExpCluster/exp_legacy/module/modules/gui/production.lua

---- Production Data
-- @gui Production

local Gui = require("modules.exp_legacy.expcore.gui") --- @dep expcore.gui
local Event = require("modules/exp_legacy/utils/event") --- @dep utils.event
local Roles = require("modules.exp_legacy.expcore.roles") --- @dep expcore.roles

local production_container

local precision = {
    [1] = defines.flow_precision_index.five_seconds,
    [2] = defines.flow_precision_index.one_minute,
    [3] = defines.flow_precision_index.ten_minutes,
    [4] = defines.flow_precision_index.one_hour,
    [5] = defines.flow_precision_index.ten_hours,
}

local font_color = {
    -- positive
    [1] = { r = 0.3, g = 1, b = 0.3 },
    -- negative
    [2] = { r = 1, g = 0.3, b = 0.3 },
}

local function format_n(n)
    local _i, _j, m, i, f = tostring(n):find("([-]?)(%d+)([.]?%d*)")
    i = i:reverse():gsub("(%d%d%d)", "%1,")

    if f ~= "" then
        return m .. i:reverse():gsub("^,", "") .. f
    else
        return m .. i:reverse():gsub("^,", "") .. ".0"
    end
end

--- Display group
-- @element production_data_group
local production_data_group =
    Gui.element(function(_definition, parent, i)
        local item

        if i == 0 then
            item = parent.add{
                type = "drop-down",
                name = "production_0_e",
                items = { "5s", "1m", "10m", "1h", "10h" },
                selected_index = 3,
            }
            item.style.width = 80
        else
            item = parent.add{
                type = "choose-elem-button",
                name = "production_" .. i .. "_e",
                elem_type = "item",
                style = "slot_button",
            }
            item.style.height = 32
            item.style.width = 32
        end

        local data_1 = parent.add{
            type = "label",
            name = "production_" .. i .. "_1",
            caption = "0.0",
            style = "heading_2_label",
        }
        data_1.style.width = 90
        data_1.style.horizontal_align = "right"
        data_1.style.font_color = font_color[1]

        local data_2 = parent.add{
            type = "label",
            name = "production_" .. i .. "_2",
            caption = "0.0",
            style = "heading_2_label",
        }
        data_2.style.width = 90
        data_2.style.horizontal_align = "right"
        data_2.style.font_color = font_color[2]

        local data_3 = parent.add{
            type = "label",
            name = "production_" .. i .. "_3",
            caption = "0.0",
            style = "heading_2_label",
        }
        data_3.style.width = 90
        data_3.style.horizontal_align = "right"
        data_3.style.font_color = font_color[1]

        return item
    end)

--- A vertical flow containing all the production data
-- @element production_data_set
local production_data_set =
    Gui.element(function(_, parent, name)
        local production_set = parent.add{ type = "flow", direction = "vertical", name = name }
        local disp = Gui.scroll_table(production_set, 350, 4, "disp")

        production_data_group(disp, 0)

        disp["production_0_1"].caption = { "production.label-prod" }
        disp["production_0_2"].caption = { "production.label-con" }
        disp["production_0_3"].caption = { "production.label-bal" }

        for i = 1, 8 do
            production_data_group(disp, i)
        end

        return production_set
    end)

production_container =
    Gui.element(function(definition, parent)
        local container = Gui.container(parent, definition.name, 350)

        production_data_set(container, "production_st")

        return container.parent
    end)
    :static_name(Gui.unique_static_name)
    :add_to_left_flow()

Gui.left_toolbar_button("entity/assembling-machine-3", { "production.main-tooltip" }, production_container, function(player)
    return Roles.player_allowed(player, "gui/production")
end)

Event.on_nth_tick(60, function()
    for _, player in pairs(game.connected_players) do
        local frame = Gui.get_left_element(player, production_container)
        local stat = player.force.get_item_production_statistics(player.surface) -- Allow remote view
        local precision_value = precision[frame.container["production_st"].disp.table["production_0_e"].selected_index]
        local table = frame.container["production_st"].disp.table

        for i = 1, 8 do
            local production_prefix = "production_" .. i
            local item = table[production_prefix .. "_e"].elem_value

            if item then
                local add = math.floor(stat.get_flow_count{ name = item, category = "input", precision_index = precision_value, count = false } / 6) / 10
                local minus = math.floor(stat.get_flow_count{ name = item, category = "output", precision_index = precision_value, count = false } / 6) / 10
                local sum = add - minus

                table[production_prefix .. "_1"].caption = format_n(add)
                table[production_prefix .. "_2"].caption = format_n(minus)
                table[production_prefix .. "_3"].caption = format_n(sum)

                if sum < 0 then
                    table[production_prefix .. "_3"].style.font_color = font_color[2]
                else
                    table[production_prefix .. "_3"].style.font_color = font_color[1]
                end
            else
                table[production_prefix .. "_1"].caption = "0.0"
                table[production_prefix .. "_2"].caption = "0.0"
                table[production_prefix .. "_3"].caption = "0.0"
                table[production_prefix .. "_3"].style.font_color = font_color[1]
            end
        end
    end
end)