RedMew/features/redmew_commands.lua

local Game = require 'utils.game'
local Timestamp = require 'utils.timestamp'
local Command = require 'utils.command'
local Settings = require 'utils.redmew_settings'
local Utils = require 'utils.core'
local Server = require 'features.server'
local PlayerStats = require 'features.player_stats'
local Rank = require 'features.rank_system'
local Donator = require 'features.donator'
local Color = require 'resources.color_presets'

local format = string.format
local concat = table.concat
local pcall = pcall
local tostring = tostring
local tonumber = tonumber
local pairs = pairs

--- Informs the actor that there is no target. Acts as a central place where this message can be changed.
local function print_no_target(target_name)
    Game.player_print({'common.fail_no_target', target_name}, Color.fail)
end

--- Kill a player with fish as the cause of death.
local function do_fish_kill(player, suicide)
    local c = player.character
    if not c then
        return false
    end

    local e = player.surface.create_entity {name = 'fish', position = player.position}
    c.die(player.force, e)

    -- Don't want people killing themselves for free fish.
    if suicide then
        e.destroy()
    end

    return true
end

--- Kill a player: admins and the server can kill others, non-admins can only kill themselves
local function kill(args, player)
    local target_ident = args.player
    local target, target_name = Utils.validate_player(target_ident)
    if target_ident and not target then
        if not target then
            print_no_target(target_ident)
            return
        end
    end

    if player then
        if not target or target == player then -- player suicide
            if not do_fish_kill(player, true) then
                Game.player_print({'redmew_commands.kill_fail_suicide_no_character'})
            end
        elseif target and player.admin then -- admin killing target
            if not do_fish_kill(target) then
                Game.player_print({'redmew_commands.kill_fail_target_no_character'}, target_name)
            end
        else -- player failing to kill target
            Game.player_print({'redmew_commands.kill_fail_no_perm'})
        end
    elseif target then -- server killing target
        if not do_fish_kill(target) then
            Game.player_print({'redmew_commands.kill_fail_target_no_character'}, target_name)
        end
    end
end

--- Check players' afk times
local function afk()
    local count = 0
    for _, v in pairs(game.players) do
        if v.afk_time > 300 then
            count = count + 1
            local time = ' '
            if v.afk_time > 21600 then
                time = time .. math.floor(v.afk_time / 216000) .. ' hours '
            end
            if v.afk_time > 3600 then
                time = time .. math.floor(v.afk_time / 3600) % 60 .. ' minutes and '
            end
            time = time .. math.floor(v.afk_time / 60) % 60 .. ' seconds.'
            Game.player_print(v.name .. ' has been afk for' .. time)
        end
    end
    if count == 0 then
        Game.player_print({'redmew_commands.afk_no_afk'})
    end
end

--- Lets a player set their zoom level
local function zoom(args, player)
    local zoom_val = tonumber(args.zoom)
    if zoom_val then
        player.zoom = zoom_val
    else
        Game.player_print({'redmew_commands.zoom_fail'})
    end
end

--- Creates an alert for the player at the location of their target
local function find_player(args, player)
    local target_ident = args.player
    local target, target_name = Utils.validate_player(target_ident)

    if not target then
        print_no_target(target_ident)
        return
    end

    target = target.character
    if not target or not target.valid then
        Game.player_print({'redmew_commands.find_player_fail_no_character', target_name})
        return
    end

    player.add_custom_alert(target, {type = 'virtual', name = 'signal-F'}, target_name, true)
end

--- Turns on rail block visualization for player
local function show_rail_block(_, player)
    local vs = player.game_view_settings
    local show = not vs.show_rail_block_visualisation
    vs.show_rail_block_visualisation = show

    Game.player_print({'redmew_commands.show_rail_block_success', tostring(show)})
end

--- Provides the time on the server
local function server_time(_, player)
    local p
    if not player then
        p = print
    elseif player.valid then
        p = player.print
    else
        return
    end

    local secs = Server.get_current_time()
    if secs == nil then
        p({'redmew_commands.server_time_fail'})
    else
        p(Timestamp.to_string(secs))
    end
end

local function list_seeds()
    local seeds = {}
    local count_of_seeds = 0
    for _, surface in pairs(game.surfaces) do
        seeds[count_of_seeds + 1] = surface.name
        seeds[count_of_seeds + 2] = ': '
        seeds[count_of_seeds + 3] = tostring(surface.map_gen_settings.seed)
        count_of_seeds = count_of_seeds + 4
        seeds[count_of_seeds] = ', '
    end

    seeds[#seeds] = nil
    seeds = concat(seeds)
    Game.player_print(seeds)
end

local function print_version()
    local version_str
    if global.redmew_version then
        version_str = global.redmew_version
    else
        version_str = {'redmew_commands.print_version_from_source'}
    end
    Game.player_print(version_str)
end

--- Prints information about the target player
local function print_player_info(args, player)
    local target_ident = args.player
    local target, target_name, index = Utils.validate_player(target_ident)

    if not target then
        print_no_target(target_ident)
        return
    end

    local info_t = {
        'redmew_commands.whois_formatter',
        {'format.1_colon_2', 'Name', target_name},
        {'format.single_item', target.connected and 'Online: yes' or 'Online: no'},
        {'format.1_colon_2', 'Index', target.index},
        {'format.1_colon_2', 'Rank', Rank.get_player_rank_name(target_name)},
        {'format.single_item', Donator.is_donator(target.name) and 'Donator: yes' or 'Donator: no'},
        {'format.1_colon_2', 'Time played', Utils.format_time(target.online_time)},
        {'format.1_colon_2', 'AFK time', Utils.format_time(target.afk_time or 0)},
        {'format.1_colon_2', 'Force', target.force.name},
        {'format.1_colon_2', 'Surface', target.surface.name},
        {'format.1_colon_2', 'Tag', target.tag},
        {'format.1_colon_2', 'Distance walked', PlayerStats.get_walk_distance(index)},
        {'format.1_colon_2', 'Coin earned', PlayerStats.get_coin_earned(index)},
        {'format.1_colon_2', 'Coin spent', PlayerStats.get_coin_spent(index)},
        {'format.1_colon_2', 'Deaths', PlayerStats.get_death_count(index)},
        {'format.1_colon_2', 'Crafted items', PlayerStats.get_crafted_item(index)},
        {'format.1_colon_2', 'Chat messages', PlayerStats.get_console_chat(index)}
    }
    Game.player_print(info_t)

    if (not player or player.admin) and args.inventory then
        local m_inventory = target.get_inventory(defines.inventory.player_main)
        m_inventory = m_inventory.get_contents()
        Game.player_print('Main and hotbar inventories: ')
        Game.player_print(serpent.line(m_inventory))
    end
end

-- Command registrations

Command.add(
    'kill',
    {
        description = {'command_description.kill'},
        arguments = {'player'},
        default_values = {player = false},
        allowed_by_server = true
    },
    kill
)

Command.add(
    'afk',
    {
        description = {'command_description.afk'},
        allowed_by_server = true
    },
    afk
)

Command.add(
    'zoom',
    {
        description = {'command_description.zoom'},
        arguments = {'zoom'}
    },
    zoom
)

Command.add(
    'find',
    {
        description = {'command_description.find'},
        arguments = {'player'}
    },
    find_player
)

Command.add(
    'show-rail-block',
    {
        description = {'command_description.show_rail_block'}
    },
    show_rail_block
)

Command.add(
    'server-time',
    {
        description = {'command_description.server_time'},
        allowed_by_server = true
    },
    server_time
)

Command.add(
    'seeds',
    {
        description = {'command_description.seeds'},
        allowed_by_server = true
    },
    list_seeds
)

Command.add(
    'redmew-version',
    {
        description = {'command_description.redmew_version'},
        allowed_by_server = true
    },
    print_version
)

Command.add(
    'whois',
    {
        description = {'command_description.whois'},
        arguments = {'player', 'inventory'},
        default_values = {inventory = false},
        allowed_by_server = true
    },
    print_player_info
)

-- No man's land / free for all
Command.add(
    'redmew-setting-set',
    {
        description = {'command_description.redmew_setting_set'},
        arguments = {'setting_name', 'new_value'},
        capture_excess_arguments = true
    },
    function(arguments, player)
        local value
        local setting_name = arguments.setting_name
        local success, data =
            pcall(
            function()
                value = Settings.set(player.index, setting_name, arguments.new_value)
            end
        )

        if not success then
            local i = data:find('%s')
            player.print(data:sub(i + 1))
            return
        end

        player.print(format('Changed "%s" to: "%s"', setting_name, value))
    end
)

Command.add(
    'redmew-setting-get',
    {
        description = {'command_description.redmew_setting_get'},
        arguments = {'setting_name'}
    },
    function(arguments, player)
        local value
        local setting_name = arguments.setting_name
        local success, data =
            pcall(
            function()
                value = Settings.get(player.index, setting_name)
            end
        )

        if not success then
            local i = data:find('%s')
            player.print(data:sub(i + 1))
            return
        end

        player.print(format('Setting "%s" has a value of: "%s"', setting_name, value))
    end
)

Command.add(
    'redmew-setting-all',
    {
        description = {'command_description.redmew_setting_all'}
    },
    function(_, player)
        for name, value in pairs(Settings.all(player.index)) do
            player.print(format('%s=%s', name, value))
        end
    end
)