factorio-scenario-ExpCluster/modules/ExpGamingPlayer/playerList/control.lua

--- A full ranking system for factorio.
-- @module ExpGamingPlayer.playerList@4.0.0
-- @author Cooldude2606
-- @license https://github.com/explosivegaming/scenario/blob/master/LICENSE

local Game = require('FactorioStdLib.Game@^0.8.0')
local Gui = require('ExpGamingCore.Gui@^4.0.0')
local Admin -- ExpGamingAdmin.AdminLib@^4.0.0

-- Local Varibles
local playerInfo = function(player,frame)
    frame.add{
        type='label',
        caption={'ExpGamingPlayer-playerList.no-info-file'}
    }
end

local getPlayers = function()
    local rtn = {{{r=233,g=63,b=233},'Admin',{}},{{r=255,g=159,b=27},'',{}}}
    for _,player in pairs(game.connected_players) do
        if player.admin then table.insert(rtn[2][3],player)
        else table.insert(rtn[1][3],player) end
    end
    return rtn
end

-- Module Define
local module_verbose = false
local ThisModule = {
    on_init=function(self)
        if loaded_modules['ExpGamingPlayer.playerInfo'] then playerInfo = require('ExpGamingPlayer.playerInfo') end
        if loaded_modules['ExpGamingCore.Role@^4.0.0'] then getPlayers = require(module_path..'/src/ranking') end
        if loaded_modules['ExpGamingAdmin.AdminLib@^4.0.0'] then Admin = require('ExpGamingAdmin.AdminLib@^4.0.0') end
    end
}

-- Global Define
local global = global{
    update=0,
    delay=10,
    intervial=54000
}

function ThisModule.update(tick)
    local tick = is_type(tick,'table') and tick.tick or is_type(tick,'number') and tick or game.tick
    if tick + global.delay > global.update - global.intervial then
        global.update = tick + global.delay
    end
end

local back_btn = Gui.inputs.add{
    type='button',
    caption='utility/enter',
    name='player-list-back'
}:on_event('click',function(event)
    event.element.parent.parent.scroll.style.visible = true
    event.element.parent.destroy()
end)

Gui.left.add{
    name='player-list',
    caption='entity/player',
    tooltip={'ExpGamingPlayer-playerList.tooltip'},
    draw=function(frame)
        frame.caption = ''
        local player_list = frame.add{
            name='scroll',
            type = 'scroll-pane',
            direction = 'vertical',
            vertical_scroll_policy='auto',
            horizontal_scroll_policy='never'
        }
        player_list.vertical_scroll_policy = 'auto'
        player_list.style.maximal_height=195
        local done = {}
        local players = getPlayers() -- list of [colour,shortHand,[playerOne,playerTwo]]
        for _,rank in pairs(players) do
            for _,player in pairs(rank[3]) do
                if not done[player.index] then
                    done[player.index] = true
                    local flow = player_list.add{type='flow'}
                    if rank[2] == '' then
                        flow.add{
                            type='label',
                            name=player.name,
                            style='caption_label',
                            caption={'ExpGamingPlayer-playerList.format-nil',tick_to_display_format(player.online_time),player.name}
                        }.style.font_color = rank[1]
                    else
                        flow.add{
                            type='label',
                            name=player.name,
                            style='caption_label',
                            caption={'ExpGamingPlayer-playerList.format',tick_to_display_format(player.online_time),player.name,rank[2]}
                        }.style.font_color = rank[1]
                    end
                    if Admin and Admin.report_btn then
                        if not rank[4] and player.index ~= frame.player_index then
                            local btn = Admin.report_btn:draw(flow)
                            btn.style.height = 20
                            btn.style.width = 20
                        end
                    end
                end
            end
        end
    end,
    open_on_join=true
}

script.on_event(defines.events.on_tick,function(event)
    if event.tick > global.update then
        Gui.left.update('player-list')
        global.update = event.tick + global.intervial
    end
end)

script.on_event(defines.events.on_gui_click,function(event)
    -- lots of checks for it being valid
    if event.element and event.element.valid 
    and event.element.parent and event.element.parent.parent and event.element.parent.parent.parent 
    and event.element.parent.parent.parent.name == 'player-list' then else return end
    -- must be a right click
    if event.button == defines.mouse_button_type.right then else return end
    local player_list = event.element.parent.parent.parent
    -- hides the player list to show the info
    player_list.scroll.style.visible = false
    local flow = player_list.add{type='flow',direction='vertical'}
    back_btn:draw(flow)
    playerInfo(event.element.name,flow,true)
    if Game.get_player(event.element.name) and event.player_index == Game.get_player(event.element.name).index then return end
    if Admin and Admin.allowed(event.player_index) then Admin.btn_flow(flow).caption = event.element.name end
end)

script.on_event(defines.events.on_player_joined_game,ThisModule.update)
script.on_event(defines.events.on_player_left_game,ThisModule.update)
script.on_event(defines.events.rank_change,ThisModule.update)

ThisModule.force_update = function() return Gui.left.update('player-list') end
return ThisModule