factorio-mod-PHI-CL/PHI-CL/control.lua

local cargo_landing = require('control/cargo-landing')
local chest = require('control/chest')
local inserter = require('control/inserter')
local pump = require('control/pump')
local rail_support = require('control/rail-support')
local trash = require('control/trash')

local function entity_build(event)
    cargo_landing.build(event)
    chest.build(event)
    rail_support.build(event)
    trash.build(event)
end

if (settings.startup['PHI-MI'].value and settings.startup['PHI-MI-GENERIC'].value) or (settings.startup['PHI-GM'].value and settings.startup['PHI-GM'].value ~= '') then
    script.on_event({defines.events.on_player_cheat_mode_enabled, defines.events.on_player_cheat_mode_disabled}, pump.recipe_hidden)
end

local function gui_create(player)
    for _, v in pairs({'phi_cl_inserter_config', 'phi_cl_combinator_config', 'phi_cl_inserter'}) do
        if player.gui.relative[v] then
            player.gui.relative[v].destroy()
        end
    end

    do
        local frame = player.gui.relative.add({type = 'frame', name = 'phi_cl_inserter', anchor = {gui = defines.relative_gui_type.inserter_gui, position = defines.relative_gui_position.right, type = 'inserter', ghost_mode = 'both'}})
        frame.add({type = 'label', name = 'inserter_throughput', caption = 0, style = 'heading_2_label'})
    end
end

local function gui_update(player, entity)
    if not entity.valid or not entity.type then
        return
    end

    if entity.type ~= 'inserter' then
        return
    end

    if entity.type == 'entity-ghost' and entity.ghost_type ~= 'inserter' then
        return
    end

    player.gui.relative.phi_cl_inserter['inserter_throughput'].caption = string.format('%.2f', inserter.calc(entity))
end

script.on_init(function()
    if settings.startup['PHI-MI'].value or (settings.startup['PHI-GM'].value and settings.startup['PHI-GM'].value ~= '') then
        for _, player in pairs(game.players) do
            gui_create(player)
        end
    end
end)

script.on_configuration_changed(function()
    if settings.startup['PHI-MI'].value or (settings.startup['PHI-GM'].value and settings.startup['PHI-GM'].value ~= '') then
        for _, player in pairs(game.players) do
            gui_create(player)

            if player.opened and player.opened.valid and player.opened.object_name == 'LuaEntity' then
                gui_update(player, player.opened.entity)
            end
        end
    end
end)

if settings.startup['PHI-MI'].value or (settings.startup['PHI-GM'].value and settings.startup['PHI-GM'].value ~= '') then
    script.on_event(defines.events.on_player_created, function(event)
        if not event.player_index or not game.players[event.player_index] then
            return
        end

        gui_create(game.players[event.player_index])
    end)

    script.on_event(defines.events.on_gui_opened, function(event)
        if not event.player_index or not game.players[event.player_index] then
            return
        end

        local player = game.players[event.player_index]

        if event.entity and player.opened and player.opened == event.entity then
            gui_update(player, event.entity)
        end
    end)

    script.on_event({defines.events.on_player_rotated_entity, defines.events.on_player_flipped_entity}, function(event)
        if not event.player_index or not game.players[event.player_index] then
            return
        end

        local player = game.players[event.player_index]

        if event.entity and player.opened == event.entity then
            gui_update(player, player.opened)
        end
    end)

    script.on_event({defines.events.on_built_entity, defines.events.on_robot_built_entity, defines.events.on_space_platform_built_entity, defines.events.script_raised_built, defines.events.script_raised_revive}, entity_build)
    script.on_event({defines.events.on_entity_died, defines.events.on_player_mined_entity, defines.events.on_robot_pre_mined, defines.events.script_raised_destroy}, rail_support.destroy)

    script.on_event(defines.events.on_entity_cloned, function(event)
        if not event.destination then
            return
        end

        entity_build({entity=event.destination})
    end)
end