#include <amxmodx>
#include <amxmisc>
#include <csx>

// Uncomment to activate log debug messages.
//#define STATSX_DEBUG

// HUD statistics duration in seconds (minimum 1.0 seconds).
#define HUD_DURATION_CVAR   "amx_statsx_duration"
#define HUD_DURATION        "12.0"

// HUD statistics stop relative freeze end in seconds.
// To stop before freeze end use a negative value.
#define HUD_FREEZE_LIMIT_CVAR   "amx_statsx_freeze"
#define HUD_FREEZE_LIMIT        "-2.0"

// HUD statistics minimum duration, in seconds, to trigger the display logic.
#define HUD_MIN_DURATION    0.2

// Config plugin constants.
#define MODE_HUD_DELAY      0   // Make a 0.01 sec delay on HUD reset process.

// You can also manualy enable or disable these options by setting them to 1
// For example:
// public ShowAttackers = 1
// However amx_statscfg command is recommended

public KillerChat           = 0 // displays killer hp&ap to victim console 
                                // and screen

public ShowAttackers        = 0 // shows attackers
public ShowVictims          = 0 // shows victims
public ShowKiller           = 0 // shows killer
public ShowTeamScore        = 0 // shows team score at round end
public ShowTotalStats       = 0 // shows round total stats
public ShowBestScore        = 0 // shows rounds best scored player
public ShowMostDisruptive   = 0 // shows rounds most disruptive player

public EndPlayer            = 0 // displays player stats at the end of map
public EndTop15             = 0 // displays top15 at the end of map

public SayHP                = 0 // displays information about user killer
public SayStatsMe           = 0 // displays user's stats and rank
public SayRankStats         = 0 // displays user's rank stats
public SayMe                = 0 // displays user's stats
public SayRank              = 0 // displays user's rank
public SayTop15             = 0 // displays first 15 players
public SayStatsAll          = 0 // displays all players stats and rank

public ShowStats            = 1 // set client HUD-stats switched off by default
public ShowDistHS           = 0 // show distance and HS in attackers and
                                //  victims HUD lists
public ShowFullStats        = 0 // show full HUD stats (more than 78 chars)

public SpecRankInfo         = 0 // displays rank info when spectating

// Standard Contstants.
#define MAX_TEAMS               2
#define MAX_PLAYERS             32 + 1

#define MAX_NAME_LENGTH         31
#define MAX_WEAPON_LENGTH       31
#define MAX_TEXT_LENGTH         255
#define MAX_BUFFER_LENGTH       2047

// User stats parms id
#define STATS_KILLS             0
#define STATS_DEATHS            1
#define STATS_HS                2
#define STATS_TKS               3
#define STATS_SHOTS             4
#define STATS_HITS              5
#define STATS_DAMAGE            6

// Global player flags.
new BODY_PART[8][] =
{
    "WHOLEBODY", 
    "HEAD", 
    "CHEST", 
    "STOMACH", 
    "LEFTARM", 
    "RIGHTARM", 
    "LEFTLEG", 
    "RIGHTLEG"
}

// Killer information, save killer info at the time when player is killed.
#define KILLED_KILLER_ID        0   // Killer userindex/user-ID
#define KILLED_KILLER_HEALTH    1   // Killer's health
#define KILLED_KILLER_ARMOUR    2   // Killer's armour
#define KILLED_TEAM             3   // Killer's team
#define KILLED_KILLER_STATSFIX  4   // Fix to register the last hit/kill

new g_izKilled[MAX_PLAYERS][5]

// Menu variables and configuration
#define MAX_PPL_MENU_ACTIONS    2   // Number of player menu actions
#define PPL_MENU_OPTIONS        7   // Number of player options per displayed menu

new g_iPluginMode                                   = 0

new g_izUserMenuPosition[MAX_PLAYERS]               = {0, ...}
new g_izUserMenuAction[MAX_PLAYERS]                 = {0, ...}
new g_izUserMenuPlayers[MAX_PLAYERS][32]

new g_izSpecMode[MAX_PLAYERS]                       = {0, ...}

new g_izShowStatsFlags[MAX_PLAYERS]                 = {0, ...}
new g_izStatsSwitch[MAX_PLAYERS]                    = {0, ...}
new Float:g_fzShowUserStatsTime[MAX_PLAYERS]        = {0.0, ...}
new Float:g_fShowStatsTime                          = 0.0
new Float:g_fFreezeTime                             = 0.0
new Float:g_fFreezeLimitTime                        = 0.0
new Float:g_fHUDDuration                            = 0.0

new g_iRoundEndTriggered                            = 0
new g_iRoundEndProcessed                            = 0

new Float:g_fStartGame                              = 0.0
new g_izTeamScore[MAX_TEAMS]                        = {0, ...}
new g_izTeamEventScore[MAX_TEAMS]                   = {0, ...}
new g_izTeamRndStats[MAX_TEAMS][8]
new g_izTeamGameStats[MAX_TEAMS][8]
new g_izUserUserID[MAX_PLAYERS]                     = {0, ...}
new g_izUserAttackerDistance[MAX_PLAYERS]           = {0, ...}
new g_izUserVictimDistance[MAX_PLAYERS][MAX_PLAYERS]
new g_izUserRndName[MAX_PLAYERS][MAX_NAME_LENGTH]
new g_izUserRndStats[MAX_PLAYERS][8]
new g_izUserGameStats[MAX_PLAYERS][8]

// Common buffer to improve performance, as Small always zero-initializes all vars
new g_sBuffer[MAX_BUFFER_LENGTH + 1]                = ""
new g_sScore[MAX_TEXT_LENGTH + 1]                   = ""
new g_sAwardAndScore[MAX_BUFFER_LENGTH + 1]         = ""

new t_sText[MAX_TEXT_LENGTH + 1]                    = ""
new t_sName[MAX_NAME_LENGTH + 1]                    = ""
new t_sWpn[MAX_WEAPON_LENGTH + 1]                   = ""

new g_HudSync_EndRound

//--------------------------------
// Initialize
//--------------------------------
public plugin_init()
{
    // Register plugin.
    register_plugin("StatsX", AMXX_VERSION_STR, "AMXX Dev Team")
    register_dictionary("statsx.txt")

    // Register events.
    register_event("TextMsg", "eventStartGame", "a", "2=#Game_Commencing", "2=#Game_will_restart_in")
    register_event("ResetHUD", "eventResetHud", "be")
    register_event("RoundTime", "eventStartRound", "bc")
    register_event("SendAudio", "eventEndRound", "a", "2=%!MRAD_terwin", "2=%!MRAD_ctwin", "2=%!MRAD_rounddraw")
    register_event("TeamScore", "eventTeamScore", "a")
    register_event("30", "eventIntermission", "a")
    register_event("TextMsg", "eventSpecMode", "bd", "2&ec_Mod")
    register_event("StatusValue", "eventShowRank", "bd", "1=2")

    // Register commands.
    register_clcmd("say /hp", "cmdHp", 0, "- display info. about your killer (chat)")
    register_clcmd("say /statsme", "cmdStatsMe", 0, "- display your stats (MOTD)")
    register_clcmd("say /rankstats", "cmdRankStats", 0, "- display your server stats (MOTD)")
    register_clcmd("say /me", "cmdMe", 0, "- display current round stats (chat)")
    register_clcmd("say /rank", "cmdRank", 0, "- display your rank (chat)")
    register_clcmd("say /top15", "cmdTop15", 0, "- display top 15 players (MOTD)")
    register_clcmd("say /stats", "cmdStats", 0, "- display players stats (menu/MOTD)")

    // Register menus.
    register_menucmd(register_menuid("Server Stats"), 1023, "actionStatsMenu")

    // Register special configuration setting and default value.
    register_srvcmd("amx_statsx_mode", "cmdPluginMode", ADMIN_CFG, "<flags> - sets plugin options")

#if defined STATSX_DEBUG
    register_clcmd("say /hudtest", "cmdHudTest")
#endif

    register_cvar(HUD_DURATION_CVAR, HUD_DURATION)
    register_cvar(HUD_FREEZE_LIMIT_CVAR, HUD_FREEZE_LIMIT)

    // Init buffers and some global vars.
    g_sBuffer[0] = 0
    save_team_chatscore()
    
    g_HudSync_EndRound = CreateHudSyncObj()
}

public plugin_cfg()
{
    new addStast[] = "amx_statscfg add ^"%s^" %s"

    server_cmd(addStast, "Show killer hp&ap", "KillerChat")
    server_cmd(addStast, "Show Attackers", "ShowAttackers")
    server_cmd(addStast, "Show Victims", "ShowVictims")
    server_cmd(addStast, "Show killer", "ShowKiller")
    server_cmd(addStast, "Show Team Score", "ShowTeamScore")
    server_cmd(addStast, "Show Total Stats", "ShowTotalStats")
    server_cmd(addStast, "Show Best Score", "ShowBestScore")
    server_cmd(addStast, "Show Most Disruptive", "ShowMostDisruptive")
    server_cmd(addStast, "HUD-stats default", "ShowStats")
    server_cmd(addStast, "Dist&HS in HUD lists", "ShowDistHS")
    server_cmd(addStast, "Stats at the end of map", "EndPlayer")
    server_cmd(addStast, "Top15 at the end of map", "EndTop15")
    server_cmd(addStast, "Say /hp", "SayHP")
    server_cmd(addStast, "Say /statsme", "SayStatsMe")
    server_cmd(addStast, "Say /rankstats", "SayRankStats")
    server_cmd(addStast, "Say /me", "SayMe")
    server_cmd(addStast, "Say /rank", "SayRank")
    server_cmd(addStast, "Say /top15", "SayTop15")
    server_cmd(addStast, "Say /stats", "SayStatsAll")
    server_cmd(addStast, "Spec. Rank Info", "SpecRankInfo")

    // Update local configuration vars with value in cvars.
    get_config_cvars()
}

public client_color(id,msg[]){
        new playerslist[32],playerscount//,i
        get_players(playerslist,playerscount,"c")
        while(replace(msg,255,"!W","^x01")){}
                while(replace(msg,255,"0x02","^x02")){}
                while(replace(msg,255,"!T","^x03")){}
                while(replace(msg,255,"!G","^x04")){}
        if(id==0){
            message_begin(MSG_ALL, get_user_msgid("SayText"), {0,0,0},id) 
            write_byte(id)
            write_string(msg)
            message_end()
                
        }
        else{
            message_begin(MSG_ONE, get_user_msgid("SayText"), {0,0,0}, id) 
            write_byte(id)
            write_string(msg)
            message_end()
        }
}

// Set hudmessage format.
set_hudtype_killer(Float:fDuration)
    set_hudmessage(220, 80, 0, 0.05, 0.15, 0, 6.0, fDuration, (fDuration >= g_fHUDDuration) ? 1.0 : 0.0, 1.0, -1)

set_hudtype_endround(Float:fDuration)
{
    set_hudmessage(100, 200, 0, 0.05, 0.55, 0, 0.02, fDuration, (fDuration >= g_fHUDDuration) ? 1.0 : 0.0, 1.0)
}

set_hudtype_attacker(Float:fDuration)
    set_hudmessage(220, 80, 0, 0.55, 0.35, 0, 6.0, fDuration, (fDuration >= g_fHUDDuration) ? 1.0 : 0.0, 1.0, -1)

set_hudtype_victim(Float:fDuration)
    set_hudmessage(0, 80, 220, 0.55, 0.60, 0, 6.0, fDuration, (fDuration >= g_fHUDDuration) ? 1.0 : 0.0, 1.0, -1)

set_hudtype_specmode()
{
    set_hudmessage(255, 255, 255, 0.02, 0.87, 2, 0.05, 0.1, 0.01, 3.0, -1)
}

#if defined STATSX_DEBUG
public cmdHudTest(id)
{
    new i, iLen
    iLen = 0
    
    for (i = 1; i < 20; i++)
        iLen += format(g_sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "....x....1....x....2....x....3....x....4....x....^n")
    
    set_hudtype_killer(50.0)
    show_hudmessage(id, "%s", g_sBuffer)
}
#endif

// Stats formulas
Float:accuracy(izStats[8])
{
    if (!izStats[STATS_SHOTS])
        return (0.0)
    
    return (100.0 * float(izStats[STATS_HITS]) / float(izStats[STATS_SHOTS]))
}

Float:effec(izStats[8])
{
    if (!izStats[STATS_KILLS])
        return (0.0)
    
    return (100.0 * float(izStats[STATS_KILLS]) / float(izStats[STATS_KILLS] + izStats[STATS_DEATHS]))
}

// Distance formula (metric)
Float:distance(iDistance)
{
    return float(iDistance) * 0.0254
}

// Get plugin config flags.
set_plugin_mode(id, sFlags[])
{
    if (sFlags[0])
        g_iPluginMode = read_flags(sFlags)
    
    get_flags(g_iPluginMode, t_sText, MAX_TEXT_LENGTH)
    console_print(id, "%L", id, "MODE_SET_TO", t_sText)
    
    return g_iPluginMode
}

// Get config parameters.
get_config_cvars()
{
    g_fFreezeTime = get_cvar_float("mp_freezetime")
    
    if (g_fFreezeTime < 0.0)
        g_fFreezeTime = 0.0

    g_fHUDDuration = get_cvar_float(HUD_DURATION_CVAR)
    
    if (g_fHUDDuration < 1.0)
        g_fHUDDuration = 1.0

    g_fFreezeLimitTime = get_cvar_float(HUD_FREEZE_LIMIT_CVAR)
}

// Get and format attackers header and list.
get_attackers(id, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new izStats[8], izBody[8]
    new iAttacker
    new iFound, iLen
    new iMaxPlayer = get_maxplayers()

    iFound = 0
    sBuffer[0] = 0

    // Get and format header. Add killing attacker statistics if user is dead.
    // Make sure shots is greater than zero or division by zero will occur.
    // To print a '%', 4 of them must done in a row.
    izStats[STATS_SHOTS] = 0
    iAttacker = g_izKilled[id][KILLED_KILLER_ID]
    
    if (iAttacker)
        get_user_astats(id, iAttacker, izStats, izBody)
    
    if (izStats[STATS_SHOTS] && ShowFullStats)
    {
        get_user_name(iAttacker, t_sName, MAX_NAME_LENGTH)
        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L -- %s -- %0.2f%% %L:^n", id, "ATTACKERS", t_sName, accuracy(izStats), id, "ACC")
    }
    else
        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L:^n", id, "ATTACKERS")

    // Get and format attacker list.
    for (iAttacker = 1; iAttacker <= iMaxPlayer; iAttacker++)
    {
        if (get_user_astats(id, iAttacker, izStats, izBody, t_sWpn, MAX_WEAPON_LENGTH))
        {
            iFound = 1
            get_user_name(iAttacker, t_sName, 32)
            
            if (izStats[STATS_KILLS])
            {
                if (!ShowDistHS)
                    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L / %s^n", t_sName, izStats[STATS_HITS], id, "HIT_S", 
                                    izStats[STATS_DAMAGE], id, "DMG", t_sWpn)
                else if (izStats[STATS_HS])
                    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L / %s / %0.0f m / %L^n", t_sName, izStats[STATS_HITS], id, "HIT_S",
                                    izStats[STATS_DAMAGE], id, "DMG", t_sWpn, distance(g_izUserAttackerDistance[id]), id, "HS_1")
                else
                    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L / %s / %0.0f m^n", t_sName, izStats[STATS_HITS], id, "HIT_S", 
                                    izStats[STATS_DAMAGE], id, "DMG", t_sWpn, distance(g_izUserAttackerDistance[id]))
            }
            else
                iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L^n", t_sName, izStats[STATS_HITS], id, "HIT_S", izStats[STATS_DAMAGE], id, "DMG")
        }
    }
    
    if (!iFound)
        sBuffer[0] = 0
    
    return iFound
}

// Get and format victims header and list
get_victims(id, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new izStats[8], izBody[8]
    new iVictim
    new iFound, iLen
    new iMaxPlayer = get_maxplayers()

    iFound = 0
    sBuffer[0] = 0

    // Get and format header.
    // Make sure shots is greater than zero or division by zero will occur.
    // To print a '%', 4 of them must done in a row.
    izStats[STATS_SHOTS] = 0
    get_user_vstats(id, 0, izStats, izBody)
    
    if (izStats[STATS_SHOTS])
        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L -- %0.2f%% %L:^n", id, "VICTIMS", accuracy(izStats), id, "ACC")
    else
        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L:^n", id, "VICTIMS")

    for (iVictim = 1; iVictim <= iMaxPlayer; iVictim++)
    {
        if (get_user_vstats(id, iVictim, izStats, izBody, t_sWpn, MAX_WEAPON_LENGTH))
        {
            iFound = 1
            get_user_name(iVictim, t_sName, MAX_NAME_LENGTH)
            
            if (izStats[STATS_DEATHS])
            {
                if (!ShowDistHS)
                    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L / %s^n", t_sName, izStats[STATS_HITS], id, "HIT_S", 
                                    izStats[STATS_DAMAGE], id, "DMG", t_sWpn)
                else if (izStats[STATS_HS])
                    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L / %s / %0.0f m / %L^n", t_sName, izStats[STATS_HITS], id, "HIT_S",
                                    izStats[STATS_DAMAGE], id, "DMG", t_sWpn, distance(g_izUserVictimDistance[id][iVictim]), id, "HS_1")
                else
                    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L / %s / %0.0f m^n", t_sName, izStats[STATS_HITS], id, "HIT_S", 
                                    izStats[STATS_DAMAGE], id, "DMG", t_sWpn, distance(g_izUserVictimDistance[id][iVictim]))
            }
            else
                iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%s -- %d %L / %d %L^n", t_sName, izStats[STATS_HITS], id, "HIT_S", izStats[STATS_DAMAGE], id, "DMG")
        }
    }
    
    if (!iFound)
        sBuffer[0] = 0

    return iFound
}

// Get and format kill info.
get_kill_info(id, iKiller, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new iFound, iLen

    iFound = 0
    sBuffer[0] = 0

    if (iKiller && iKiller != id)
    {
        new izAStats[8], izABody[8], izVStats[8], iaVBody[8]

        iFound = 1
        get_user_name(iKiller, t_sName, MAX_NAME_LENGTH)

        izAStats[STATS_HITS] = 0
        izAStats[STATS_DAMAGE] = 0
        t_sWpn[0] = 0
        get_user_astats(id, iKiller, izAStats, izABody, t_sWpn, MAX_WEAPON_LENGTH)

        izVStats[STATS_HITS] = 0
        izVStats[STATS_DAMAGE] = 0
        get_user_vstats(id, iKiller, izVStats, iaVBody)

        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L^n", id, "KILLED_YOU_DIST", t_sName, t_sWpn, distance(g_izUserAttackerDistance[id]))
        iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%L^n", id, "DID_DMG_HITS", izAStats[STATS_DAMAGE], izAStats[STATS_HITS], g_izKilled[id][KILLED_KILLER_HEALTH], g_izKilled[id][KILLED_KILLER_ARMOUR])
        iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%L^n", id, "YOU_DID_DMG", izVStats[STATS_DAMAGE], izVStats[STATS_HITS])
    }
    
    return iFound
}

// Get and format most disruptive.
add_most_disruptive(sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new id, iMaxDamageId, iMaxDamage, iMaxHeadShots

    iMaxDamageId = 0
    iMaxDamage = 0
    iMaxHeadShots = 0

    // Find player.
    for (id = 1; id < MAX_PLAYERS; id++)
    {
        if (g_izUserRndStats[id][STATS_DAMAGE] >= iMaxDamage && (g_izUserRndStats[id][STATS_DAMAGE] > iMaxDamage || g_izUserRndStats[id][STATS_HS] > iMaxHeadShots))
        {
            iMaxDamageId = id
            iMaxDamage = g_izUserRndStats[id][STATS_DAMAGE]
            iMaxHeadShots = g_izUserRndStats[id][STATS_HS]
        }
    }

    // Format statistics.
    if (iMaxDamageId)
    {
        id = iMaxDamageId
        
        new Float:fGameEff = effec(g_izUserGameStats[id])
        new Float:fRndAcc = accuracy(g_izUserRndStats[id])
        
        format(t_sText, MAX_TEXT_LENGTH, "%L: %s^n%d %L / %d %L -- %0.2f%% %L / %0.2f%% %L^n", LANG_SERVER, "MOST_DMG", g_izUserRndName[id], 
                g_izUserRndStats[id][STATS_HITS], LANG_SERVER, "HIT_S", iMaxDamage, LANG_SERVER, "DMG", fGameEff, LANG_SERVER, "EFF", fRndAcc, LANG_SERVER, "ACC")
        add(sBuffer, MAX_BUFFER_LENGTH, t_sText)
    }
    
    return iMaxDamageId
}

// Get and format best score.
add_best_score(sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new id, iMaxKillsId, iMaxKills, iMaxHeadShots

    iMaxKillsId = 0
    iMaxKills = 0
    iMaxHeadShots = 0

    // Find player
    for (id = 1; id < MAX_PLAYERS; id++)
    {
        if (g_izUserRndStats[id][STATS_KILLS] >= iMaxKills && (g_izUserRndStats[id][STATS_KILLS] > iMaxKills || g_izUserRndStats[id][STATS_HS] > iMaxHeadShots))
        {
            iMaxKillsId = id
            iMaxKills = g_izUserRndStats[id][STATS_KILLS]
            iMaxHeadShots = g_izUserRndStats[id][STATS_HS]
        }
    }

    // Format statistics.
    if (iMaxKillsId)
    {
        id = iMaxKillsId
        
        new Float:fGameEff = effec(g_izUserGameStats[id])
        new Float:fRndAcc = accuracy(g_izUserRndStats[id])
        
        format(t_sText, MAX_TEXT_LENGTH, "%L: %s^n%d %L / %d %L -- %0.2f%% %L / %0.2f%% %L^n", LANG_SERVER, "BEST_SCORE", g_izUserRndName[id],
                iMaxKills, LANG_SERVER, "KILL_S", iMaxHeadShots, LANG_SERVER, "Bt_1", fGameEff, LANG_SERVER, "EFF", fRndAcc, LANG_SERVER, "ACC")
        add(sBuffer, MAX_BUFFER_LENGTH, t_sText)
    }
    
    return iMaxKillsId
}

// Get and format team score.
add_team_score(sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new Float:fzMapEff[MAX_TEAMS], Float:fzMapAcc[MAX_TEAMS], Float:fzRndAcc[MAX_TEAMS]

    // Calculate team stats
    for (new iTeam = 0; iTeam < MAX_TEAMS; iTeam++)
    {
        fzMapEff[iTeam] = effec(g_izTeamGameStats[iTeam])
        fzMapAcc[iTeam] = accuracy(g_izTeamGameStats[iTeam])
        fzRndAcc[iTeam] = accuracy(g_izTeamRndStats[iTeam])
    }

    // Format round team stats, MOTD
    format(t_sText, MAX_TEXT_LENGTH, "%L %d / %0.2f%% %L / %0.2f%% %L^n%L %d / %0.2f%% %L / %0.2f%% %L^n", LANG_SERVER, "TERRORISTS", g_izTeamScore[0],
            fzMapEff[0], LANG_SERVER, "EFF", fzRndAcc[0], LANG_SERVER, "ACC", LANG_SERVER, "CTS", g_izTeamScore[1], fzMapEff[1], LANG_SERVER, "EFF", fzRndAcc[1], LANG_SERVER, "ACC")
    add(sBuffer, MAX_BUFFER_LENGTH, t_sText)
}

// Get and format team stats, chat version
save_team_chatscore()
{
    new Float:fzMapEff[MAX_TEAMS], Float:fzMapAcc[MAX_TEAMS], Float:fzRndAcc[MAX_TEAMS]

    // Calculate team stats
    for (new iTeam = 0; iTeam < MAX_TEAMS; iTeam++)
    {
        fzMapEff[iTeam] = effec(g_izTeamGameStats[iTeam])
        fzMapAcc[iTeam] = accuracy(g_izTeamGameStats[iTeam])
        fzRndAcc[iTeam] = accuracy(g_izTeamRndStats[iTeam])
    }

    // Format game team stats, chat
    format(g_sScore, MAX_BUFFER_LENGTH, "%L %d / %0.2f%% %L / %0.2f%% %L  --  %L %d / %0.2f%% %L / %0.2f%% %L", LANG_SERVER, "TERRORISTS", g_izTeamScore[0],
            fzMapEff[0], LANG_SERVER, "EFF", fzMapAcc[0], LANG_SERVER, "ACC", LANG_SERVER, "CTS", g_izTeamScore[1], fzMapEff[1], LANG_SERVER, "EFF", fzMapAcc[1], LANG_SERVER, "ACC")
}

// Get and format total stats.
add_total_stats(sBuffer[MAX_BUFFER_LENGTH + 1])
{
    format(t_sText, MAX_TEXT_LENGTH, "%L: %d %L / %d hs -- %d %L / %d %L^n", LANG_SERVER, "TOTAL", g_izUserRndStats[0][STATS_KILLS], LANG_SERVER, "KILL_S", 
            g_izUserRndStats[0][STATS_HS], g_izUserRndStats[0][STATS_HITS], LANG_SERVER, "HITS", g_izUserRndStats[0][STATS_SHOTS], LANG_SERVER, "SHOT_S")
    add(sBuffer, MAX_BUFFER_LENGTH, t_sText)
}

// Get and format a user's list of body hits from an attacker.
add_attacker_hits(id, iAttacker, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new iFound = 0
    
    if (iAttacker && iAttacker != id)
    {
        new izStats[8], izBody[8], iLen

        izStats[STATS_HITS] = 0
        get_user_astats(id, iAttacker, izStats, izBody)

        if (izStats[STATS_HITS])
        {
            iFound = 1
            iLen = strlen(sBuffer)
            get_user_name(iAttacker, t_sName, MAX_NAME_LENGTH)
            
            iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%L:^n", id, "HITS_YOU_IN", t_sName)
            
            for (new i = 1; i < 8; i++)
            {
                if (!izBody[i])
                    continue
                
                iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%L: %d^n", id, BODY_PART[i], izBody[i])
            }
        }
    }
    
    return iFound
}

// Get and format killed stats: killer hp, ap, hits.
format_kill_ainfo(id, iKiller, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new iFound = 0
    
    if (iKiller && iKiller != id)
    {
        new izStats[8], izBody[8]
        new iLen
        
        iFound = 1
        get_user_name(iKiller, t_sName, MAX_NAME_LENGTH)
        izStats[STATS_HITS] = 0
        get_user_astats(id, iKiller, izStats, izBody, t_sWpn, MAX_WEAPON_LENGTH)

        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L ^x03[^x04%dHp,%dAp^x03] ^x01>>", id, "KILLED_BY_WITH", t_sName, t_sWpn, distance(g_izUserAttackerDistance[id]), 
                        g_izKilled[id][KILLED_KILLER_HEALTH], g_izKilled[id][KILLED_KILLER_ARMOUR])

        if (izStats[STATS_HITS])
        {
            for (new i = 1; i < 8; i++)
            {
                if (!izBody[i])
                    continue
                
                iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, " ^x03%L^x01: ^x03%d", id, BODY_PART[i], izBody[i])
            }
        }
        else
            iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, " %L", id, "NO_HITS")
    }
    else
        format(sBuffer, MAX_BUFFER_LENGTH, "%L", id, "YOU_NO_KILLER")
    
    return iFound
}

// Get and format killed stats: hits, damage on killer.
format_kill_vinfo(id, iKiller, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new iFound = 0
    new izStats[8]
    new izBody[8]
    new iLen

    izStats[STATS_HITS] = 0
    izStats[STATS_DAMAGE] = 0
    get_user_vstats(id, iKiller, izStats, izBody)

    if (iKiller && iKiller != id)
    {
        iFound = 1
        get_user_name(iKiller, t_sName, MAX_NAME_LENGTH)
        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L >>", id, "YOU_HIT", t_sName, izStats[STATS_HITS], izStats[STATS_DAMAGE])
    }
    else
        iLen = format(sBuffer, MAX_BUFFER_LENGTH, "%L >>", id, "LAST_RES", izStats[STATS_HITS], izStats[STATS_DAMAGE])

    if (izStats[STATS_HITS])
    {
        for (new i = 1; i < 8; i++)
        {
            if (!izBody[i])
                continue
            
            iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, " ^x03%L^x01: ^x03%d", id, BODY_PART[i], izBody[i])
        }
    }
    else
        iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, " %L", id, "NO_HITS")
    
    return iFound
}

// Get and format top 15.
format_top15(sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new iMax = get_statsnum()
    new izStats[8], izBody[8], istate[4]
    new iLen = 0

    if (iMax > 15)
        iMax = 15

    new lNick[16], lKills[16], lDeaths[16], lHs[16], lAcc[16]
    format(lNick, 15, "%L", LANG_SERVER, "NICK_1")
    format(lKills, 15, "%L", LANG_SERVER, "KILLS")
    format(lDeaths, 15, "%L", LANG_SERVER, "DEATHS")
    format(lHs, 15, "%L", LANG_SERVER, "HS_1")
    format(lAcc, 15, "%L", LANG_SERVER, "ACC")

    ucfirst(lAcc)

    iLen = format( sBuffer, MAX_BUFFER_LENGTH,
                  "<head><META http-equiv=Content-Type content='text/html ;charset=UTF-8'></head><style>body{color:#ffffff;background-image: url('http://projektspark.pl/rozne/ciemnytlo.png');margin-top:5}td</style><center><img src= http://i.imgur.com/UDdtvmd.png><hr size=1 color=#A50000><table width=750>" )
    iLen += format( sBuffer[iLen], MAX_BUFFER_LENGTH - iLen,
                  "<tr style=color:#A50000;><td><b>%s</b><td><b>%s</b><td><b>%s</b><td><b>%s</b><td><b>%s</b><td><b>%s</b>",
                  "#", lNick, lKills, lDeaths, lHs, lAcc )
    
    for (new i = 0; i < iMax && MAX_BUFFER_LENGTH - iLen > 0; i++)
    {
        if (equal(istate,"A")) copy(istate,3,"B")
                else copy(istate,3,"A")
                get_stats(i, izStats, izBody, t_sName, MAX_NAME_LENGTH)
        while( contain ( t_sName, "<" ) != -1 )
                replace( t_sName,MAX_BUFFER_LENGTH + 1,"<", "[" )
        while( contain ( t_sName, ">" ) != -1 )
                replace( t_sName,MAX_BUFFER_LENGTH + 1,">", "]" )
        iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "<tr class=%s><td>%d<td>%s<td>%d<td>%d<td>%d<td>%0.2f% %",istate, i + 1, t_sName, izStats[STATS_KILLS], 
                        izStats[STATS_DEATHS], izStats[STATS_HS], accuracy(izStats))
    }
    copy(sBuffer[iLen],MAX_BUFFER_LENGTH - iLen,"</table><hr size=1 color=#A50000></font>")
}

// Get and format rankstats
format_rankstats(id, sBuffer[MAX_BUFFER_LENGTH + 1], iMyId = 0)
{
    new izStats[8] = {0, ...}
    new izBody[8]
    new iRankPos, iLen
    new lKills[16], lHs[16], lDeaths[16], lHits[16], lShots[16], lDamage[16], lEff[16], lAcc[16], lLb[16]

    format(lKills, 15, "%L", id, "KILLS")
    format(lHs, 15, "%L", id, "HS_1")
    format(lDeaths, 15, "%L", id, "DEATHS")
    format(lHits, 15, "%L", id, "HITS")
    format(lShots, 15, "%L", id, "SHOTS")
    format(lDamage, 15, "%L", id, "DAMAGE")
    format(lEff, 15, "%L", id, "EFF")
    format(lAcc, 15, "%L", id, "ACC")
    format(lLb, 15, "%L", id, "LB_1")
    
    ucfirst(lEff)
    ucfirst(lAcc)
    
    iRankPos = get_user_stats(id, izStats, izBody)
    iLen = format( sBuffer, MAX_BUFFER_LENGTH,
                  "<head><META http-equiv=Content-Type content='text/html ;charset=UTF-8'></head><style>body{color:#ffffff;background-image: url('http://projektspark.pl/rozne/ciemnytlo.png');margin-top:5}td</style><center><img src= http://i.imgur.com/UDdtvmd.png><hr size=1 color=#A50000><table width=750>" )
    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "<tr><td colspan=2><center>%L %L^n^n</center></td></tr>", id, (!iMyId || iMyId == id) ? "YOUR" : "PLAYERS", id, "RANK_IS", iRankPos, get_statsnum())
    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "<table width=300><tr class=B><td>%s:<td>%d</tr><tr><td>%s:<td>%d</tr><tr class=A><td>%s:<td>%d<tr class=B><td>%s:<td>%d<tr class=A><td>%s:<td>%d<tr class=B><td>%s:<td>%d<tr class=A><td>%s:<td>%0.2f%%<tr class=B><td>%s:<td>%0.2f%%</tr></table><hr size=1 color=#A50000>",
                    lKills, izStats[STATS_KILLS], lHs, izStats[STATS_HS], lDeaths, izStats[STATS_DEATHS], lHits, izStats[STATS_HITS], lShots, izStats[STATS_SHOTS],
                    lDamage, izStats[STATS_DAMAGE], lEff, effec(izStats), lAcc, accuracy(izStats))
    
    new L_BODY_PART[8][32]
    
    for (new i = 1; i < 8; i++)
    {
        format(L_BODY_PART[i], 31, "%L", id, BODY_PART[i])
    }
    
    iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "<tr><td colspan=2>%10s:</td></tr><table width=300><tr class=B><td>%10s:<td> %d^n<tr class=A><td>%10s:<td> %d^n<tr class=B><td>%10s:<td> %d^n<tr class=A><td>%10s:<td> %d^n<tr class=B><td>%10s:<td> %d^n<tr class=A><td>%10s:<td> %d^n<tr class=B><td>%10s:<td> %d</table>",
                    lLb, L_BODY_PART[1], izBody[1], L_BODY_PART[2], izBody[2], L_BODY_PART[3], izBody[3], L_BODY_PART[4], izBody[4], L_BODY_PART[5],
                    izBody[5], L_BODY_PART[6], izBody[6], L_BODY_PART[7], izBody[7])
}

// Get and format stats.
format_stats(id, sBuffer[MAX_BUFFER_LENGTH + 1])
{
    new izStats[8] = {0, ...}
    new izBody[8], istate[4]
    new iWeapon, iLen
    new lKills[16], lHs[16], lDeaths[16], lHits[16], lShots[16], lDamage[16], lEff[16], lAcc[16], lWeapon[16]

    format(lKills, 15, "%L", id, "KILLS")
    format(lHs, 15, "%L", id, "HS_1")
    format(lDeaths, 15, "%L", id, "DEATHS")
    format(lHits, 15, "%L", id, "HITS")
    format(lShots, 15, "%L", id, "SHOTS")
    format(lDamage, 15, "%L", id, "DAMAGE")
    format(lEff, 15, "%L", id, "EFF")
    format(lAcc, 15, "%L", id, "ACC")
    format(lWeapon, 15, "%L", id, "WEAPON")
    
    ucfirst(lEff)
    ucfirst(lAcc)
    
    get_user_wstats(id, 0, izStats, izBody)
    
    iLen = format( sBuffer, MAX_BUFFER_LENGTH,
                  "<head><META http-equiv=Content-Type content='text/html ;charset=UTF-8'></head><style>body{color:#ffffff;background-image: url('http://projektspark.pl/rozne/ciemnytlo.png');margin-top:5}.A{background-color:#0f0f0f}.B{background-color:#353237}td{font-size:14px}</style><center><b><font size=4>STATSME</b></center><tr><td>&nbsp;</td><td>&nbsp;</td></tr>" )
    iLen += format( sBuffer[iLen], MAX_BUFFER_LENGTH - iLen,
                  "<table width=300><tr class=B><td>%s:<td>%d<td>[%s]:<td>%d</tr><tr class=A><td>%s:<td>%d<tr class=B><td>%s:<td>%d<tr class=A><td>%s:<td>%d<tr class=B><td>%s:<td>%d<tr class=A><td>%s:<td>%0.2f%%<tr class=B><td>%s:<td>%0.2f%%</tr><tr><td>&nbsp;</td><td>&nbsp;</td></tr></table>",
                  lKills, izStats[STATS_KILLS], lHs, izStats[STATS_HS],
                  lDeaths, izStats[STATS_DEATHS], lHits, izStats[STATS_HITS],
                  lShots, izStats[STATS_SHOTS], lDamage, izStats[STATS_DAMAGE],
                  lEff, effec( izStats ), lAcc, accuracy( izStats ) )
    iLen += format( sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "<table width=500><tr class=B><td>%s<td>%s<td>%s<td>%s<td>%s<td>%s<td>%s",
                  lWeapon, lKills, lDeaths, lHits, lShots, lDamage, lAcc )
    
    for (iWeapon = 1; iWeapon < xmod_get_maxweapons() && MAX_BUFFER_LENGTH - iLen > 0 ; iWeapon++)
    {
        if (get_user_wstats(id, iWeapon, izStats, izBody))
        {
            if (equal(istate,"A")) copy(istate,3,"B")
                        else copy(istate,3,"A")
                xmod_get_wpnname(iWeapon, t_sWpn, MAX_WEAPON_LENGTH)
            iLen += format(sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "<tr class=%s><td>%s<td>%d<td>%d<td>%d<td>%d<td>%d<td>%3.0f%%",istate, t_sWpn, izStats[STATS_KILLS], izStats[STATS_DEATHS], 
                            izStats[STATS_HITS], izStats[STATS_SHOTS], izStats[STATS_DAMAGE], accuracy(izStats))
        }
    }
}

// Show round end stats. If gametime is zero then use default duration time. 
show_roundend_hudstats(id, Float:fGameTime)
{
    // Bail out if there no HUD stats should be shown
    // for this player or end round stats not created.
    if (!g_izStatsSwitch[id]) return
    if (!g_sAwardAndScore[0]) return

    // If round end timer is zero clear round end stats.
    if (g_fShowStatsTime == 0.0)
    {
        ClearSyncHud(id, g_HudSync_EndRound)
#if defined STATSX_DEBUG
        log_amx("Clear round end HUD stats for #%d", id)
#endif
    }

    // Set HUD-duration to default or remaining time.
    new Float:fDuration
    
    if (fGameTime == 0.0)
        fDuration = g_fHUDDuration
    else
    {
        fDuration = g_fShowStatsTime + g_fHUDDuration - fGameTime
        
        if (fDuration > g_fFreezeTime + g_fFreezeLimitTime)
            fDuration = g_fFreezeTime + g_fFreezeLimitTime
    }
    
    // Show stats only if more time left than coded minimum.
    if (fDuration >= HUD_MIN_DURATION)
    {
        set_hudtype_endround(fDuration)
        ShowSyncHudMsg(id, g_HudSync_EndRound, "%s", g_sAwardAndScore)
#if defined STATSX_DEBUG
        log_amx("Show %1.2fs round end HUD stats for #%d", fDuration, id)
#endif
    }
}

// Show round end stats.
show_user_hudstats(id, Float:fGameTime)
{
    // Bail out if there no HUD stats should be shown
    // for this player or user stats timer is zero.
    if (!g_izStatsSwitch[id]) return
    if (g_fzShowUserStatsTime[id] == 0.0) return

    // Set HUD-duration to default or remaining time.
    new Float:fDuration
    
    if (fGameTime == 0.0)
        fDuration = g_fHUDDuration
    else
    {
        fDuration = g_fzShowUserStatsTime[id] + g_fHUDDuration - fGameTime
        
        if (fDuration > g_fFreezeTime + g_fFreezeLimitTime)
            fDuration = g_fFreezeTime + g_fFreezeLimitTime
    }

    // Show stats only if more time left than coded minimum.
    if (fDuration >= HUD_MIN_DURATION)
    {
        if (ShowKiller)
        {
            new iKiller
            
            iKiller = g_izKilled[id][KILLED_KILLER_ID]
            get_kill_info(id, iKiller, g_sBuffer)
            add_attacker_hits(id, iKiller, g_sBuffer)
            set_hudtype_killer(fDuration)
            show_hudmessage(id, "%s", g_sBuffer)
#if defined STATSX_DEBUG
            log_amx("Show %1.2fs %suser HUD k-stats for #%d", fDuration, g_sBuffer[0] ? "" : "no ", id)
#endif
        }
        
        if (ShowVictims)
        {
            get_victims(id, g_sBuffer)
            set_hudtype_victim(fDuration)
            show_hudmessage(id, "%s", g_sBuffer)
#if defined STATSX_DEBUG
            log_amx("Show %1.2fs %suser HUD v-stats for #%d", fDuration, g_sBuffer[0] ? "" : "no ", id)
#endif
        }
        
        if (ShowAttackers)
        {
            get_attackers(id, g_sBuffer)
            set_hudtype_attacker(fDuration)
            show_hudmessage(id, "%s", g_sBuffer)
#if defined STATSX_DEBUG
            log_amx("Show %1.2fs %suser HUD a-stats for #%d", fDuration, g_sBuffer[0] ? "" : "no ", id)
#endif
        }
    }
}

//------------------------------------------------------------
// Plugin commands
//------------------------------------------------------------

// Set or get plugin config flags.
public cmdPluginMode(id, level, cid)
{
    if (!cmd_access(id, level, cid, 1)) 
        return PLUGIN_HANDLED
    
    if (read_argc() > 1)
        read_argv(1, g_sBuffer, MAX_BUFFER_LENGTH)
    else
        g_sBuffer[0] = 0
    
    set_plugin_mode(id, g_sBuffer)
    
    return PLUGIN_HANDLED
}

// Display MOTD stats.
public cmdStatsMe(id)
{
    new msg[256]
    if (!SayStatsMe)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }

    format_stats(id, g_sBuffer)
    get_user_name(id, t_sName, MAX_NAME_LENGTH)
    show_motd(id, g_sBuffer, t_sName)
    
    return PLUGIN_CONTINUE
}

// Display MOTD rank.
public cmdRankStats(id)
{
    new msg[256]
    if (!SayRankStats)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }
    
    format_rankstats(id, g_sBuffer)
    get_user_name(id, t_sName, MAX_NAME_LENGTH)
    show_motd(id, g_sBuffer, t_sName)
    
    return PLUGIN_CONTINUE
}

// Display MOTD top15 ranked.
public cmdTop15(id)
{
    new msg[256]
    if (!SayTop15)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }
    
    format_top15(g_sBuffer)
    show_motd(id, g_sBuffer, "Top 15")
    
    return PLUGIN_CONTINUE
}

// Display killer information.
public cmdHp(id)
{
    new msg[256]
    if (!SayHP)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }
    
    new iKiller = g_izKilled[id][KILLED_KILLER_ID]
    
    
    format_kill_ainfo(id, iKiller, g_sBuffer)
    format(msg,255,"%s", g_sBuffer)
    client_color( id, g_sBuffer)
    
    return PLUGIN_CONTINUE
}

// Display user stats.
public cmdMe(id)
{
    new msg[256]
    if (!SayMe)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }
    
    format_kill_vinfo(id, 0, g_sBuffer)
    format(msg,255, "%s", g_sBuffer)
    client_color(id,msg)
    
    return PLUGIN_CONTINUE
}

// Display user rank
public cmdRank(id)
{
    new msg[256]
    if (!SayRank)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }

    new izStats[8], izBody[8],imsg[128]
    new iRankPos, iRankMax
    new Float:fEff, Float:fAcc
    
    iRankPos = get_user_stats(id, izStats, izBody)
    iRankMax = get_statsnum()
    
    fEff = effec(izStats)
    fAcc = accuracy(izStats)
    
    format(imsg,255, "%L", id, "YOUR_RANK_IS", iRankPos, iRankMax, izStats[STATS_KILLS], izStats[STATS_HITS], fEff, fAcc)
    client_color( id, imsg)
    
    return PLUGIN_CONTINUE
}

// Client switch to enable or disable stats announcements.

// Player stats menu.
public cmdStats(id)
{
    new msg[256]
    if (!SayStatsAll)
    {
        format(msg,255, "%L", id, "DISABLED_MSG")
        client_color(id,msg)
        return PLUGIN_HANDLED
    }
    
    showStatsMenu(id, g_izUserMenuPosition[id] = 0)
    
    return PLUGIN_CONTINUE
}

//--------------------------------
// Menu
//--------------------------------

public actionStatsMenu(id, key)
{
    switch (key)
    {
        // Key '1' to '7', execute action on this option
        case 0..6:
        {
            new iOption, iIndex
            iOption = (g_izUserMenuPosition[id] * PPL_MENU_OPTIONS) + key
            
            if (iOption >= 0 && iOption < 32)
            {
                iIndex = g_izUserMenuPlayers[id][iOption]
            
                if (is_user_connected(iIndex))
                {
                    switch (g_izUserMenuAction[id])
                    {
                        case 0: format_stats(iIndex, g_sBuffer)
                        case 1: format_rankstats(iIndex, g_sBuffer, id)
                        default: g_sBuffer[0] = 0
                    }
                    
                    if (g_sBuffer[0])
                    {
                        get_user_name(iIndex, t_sName, MAX_NAME_LENGTH)
                        show_motd(id, g_sBuffer, t_sName)
                    }
                }
            }
            
            showStatsMenu(id, g_izUserMenuPosition[id])
        }
        // Key '8', change action
        case 7:
        {
            g_izUserMenuAction[id]++
            
            if (g_izUserMenuAction[id] >= MAX_PPL_MENU_ACTIONS)
                g_izUserMenuAction[id] = 0
            
            showStatsMenu(id, g_izUserMenuPosition[id])
        }
        // Key '9', select next page of options
        case 8: showStatsMenu(id, ++g_izUserMenuPosition[id])
        // Key '10', cancel or go back to previous menu
        case 9:
        {
            if (g_izUserMenuPosition[id] > 0)
                showStatsMenu(id, --g_izUserMenuPosition[id])
        }
    }
    
    return PLUGIN_HANDLED
}

new g_izUserMenuActionText[MAX_PPL_MENU_ACTIONS][] = {"Show stats", "Show rank stats"}

showStatsMenu(id, iMenuPos)
{
    new iLen, iKeyMask, iPlayers
    new iUserIndex, iMenuPosMax, iMenuOption, iMenuOptionMax
    
    get_players(g_izUserMenuPlayers[id], iPlayers)
    iMenuPosMax = ((iPlayers - 1) / PPL_MENU_OPTIONS) + 1
    
    // If menu pos does not excist use last menu (if players has left)
    if (iMenuPos >= iMenuPosMax)
        iMenuPos = iMenuPosMax - 1

    iUserIndex = iMenuPos * PPL_MENU_OPTIONS
    iLen = format(g_sBuffer, MAX_BUFFER_LENGTH, "\y%L\R%d/%d^n\w^n", id, "SERVER_STATS", iMenuPos + 1, iMenuPosMax)
    iMenuOptionMax = iPlayers - iUserIndex
    
    if (iMenuOptionMax > PPL_MENU_OPTIONS) 
        iMenuOptionMax = PPL_MENU_OPTIONS
    
    for (iMenuOption = 0; iMenuOption < iMenuOptionMax; iMenuOption++)
    {
        get_user_name(g_izUserMenuPlayers[id][iUserIndex++], t_sName, MAX_NAME_LENGTH)
        iKeyMask |= (1<<iMenuOption)
        iLen += format(g_sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "%d. %s^n\w", iMenuOption + 1, t_sName)
    }
    
    iKeyMask |= MENU_KEY_8|MENU_KEY_0
    iLen += format(g_sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "^n8. %s^n\w", g_izUserMenuActionText[g_izUserMenuAction[id]])
    
    if (iPlayers > iUserIndex)
    {
        iLen += format(g_sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "^n9. %L...", id, "MORE")
        iKeyMask |= MENU_KEY_9
    }
    
    if (iMenuPos > 0)
        iLen += format(g_sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "^n0. %L", id, "BACK")
    else
        iLen += format(g_sBuffer[iLen], MAX_BUFFER_LENGTH - iLen, "^n0. %L", id, "EXIT")
    
    show_menu(id, iKeyMask, g_sBuffer, -1, "Server Stats")
    
    return PLUGIN_HANDLED
}

//------------------------------------------------------------
// Plugin events
//------------------------------------------------------------

// Reset game stats on game start and restart.
public eventStartGame()
{
    read_data(2, t_sText, MAX_TEXT_LENGTH)
    
    if (t_sText[6] == 'w')
    {
        read_data(3, t_sText, MAX_TEXT_LENGTH)
        g_fStartGame = get_gametime() + float(str_to_num(t_sText))
    }
    else
        g_fStartGame = get_gametime()
    
    return PLUGIN_CONTINUE
}

// Round start
public eventStartRound()
{
    new iTeam, id, i
    new iRoundTime

    iRoundTime = read_data(1)
    
    if (iRoundTime >= get_cvar_float("mp_roundtime") * 60)
    {
#if defined STATSX_DEBUG
        log_amx("Reset round stats")
#endif
        
        // Reset game stats on game start and restart.
        if (g_fStartGame > 0.0 && g_fStartGame <= get_gametime())
        {
#if defined STATSX_DEBUG
            log_amx("Reset game stats")
#endif
            g_fStartGame = 0.0

            // Clear team and game stats.
            for (iTeam = 0; iTeam < MAX_TEAMS; iTeam++)
            {
                g_izTeamEventScore[iTeam] = 0
                
                for (i = 0; i < 8; i++)
                    g_izTeamGameStats[iTeam][i] = 0
            }

            // Clear game stats, incl '0' that is sum of all users.
            for (id = 0; id < MAX_PLAYERS; id++)
            {
                for (i = 0; i < 8; i++)
                    g_izUserGameStats[id][i] = 0
            }
        }

        // Update team score with "TeamScore" event values and
        // clear team round stats.
        for (iTeam = 0; iTeam < MAX_TEAMS; iTeam++)
        {
            g_izTeamScore[iTeam] = g_izTeamEventScore[iTeam]
            
            for (i = 0; i < 8; i++)
                g_izTeamRndStats[iTeam][i] = 0
        }

        // Clear user round stats, incl '0' that is sum of all users.
        for (id = 0; id < MAX_PLAYERS; id++)
        {
            g_izUserRndName[id][0] = 0
            
            for (i = 0; i < 8; i++)
                g_izUserRndStats[id][i] = 0
            
            g_fzShowUserStatsTime[id] = 0.0
        }

        // Allow end round stats and reset end round triggered indicator.
        g_iRoundEndTriggered = 0
        g_iRoundEndProcessed = 0
        g_fShowStatsTime = 0.0

        // Update local configuration vars with value in cvars.
        get_config_cvars()
    }

    return PLUGIN_CONTINUE
}

// Reset killer info on round restart.
public eventResetHud(id)
{
    new args[1]
    args[0] = id
    
    if (g_iPluginMode & MODE_HUD_DELAY)
        set_task(0.01, "delay_resethud", 200 + id, args, 1)
    else
        delay_resethud(args)
    
    return PLUGIN_CONTINUE
}

public delay_resethud(args[])
{
    new id = args[0]
    new Float:fGameTime

    // Show user and score round stats after HUD-reset
#if defined STATSX_DEBUG
    log_amx("Reset HUD for #%d", id)
#endif
    fGameTime = get_gametime()
    show_user_hudstats(id, fGameTime)
    show_roundend_hudstats(id, fGameTime)

    // Reset round stats
    g_izKilled[id][KILLED_KILLER_ID] = 0
    g_izKilled[id][KILLED_KILLER_STATSFIX] = 0
    g_izShowStatsFlags[id] = -1        // Initialize flags
    g_fzShowUserStatsTime[id] = 0.0
    g_izUserAttackerDistance[id] = 0
    
    for (new i = 0; i < MAX_PLAYERS; i++)
        g_izUserVictimDistance[id][i] = 0
    
    return PLUGIN_CONTINUE
}

// Save killer info on death.
public client_death(killer, victim, wpnindex, hitplace, TK)
{
    // Bail out if no killer.
    if (!killer)
        return PLUGIN_CONTINUE

    if (killer != victim)
    {
        new iaVOrigin[3], iaKOrigin[3]
        new iDistance
        
        get_user_origin(victim, iaVOrigin)
        get_user_origin(killer, iaKOrigin)
        
        g_izKilled[victim][KILLED_KILLER_ID] = killer
        g_izKilled[victim][KILLED_KILLER_HEALTH] = get_user_health(killer)
        g_izKilled[victim][KILLED_KILLER_ARMOUR] = get_user_armor(killer)
        g_izKilled[victim][KILLED_KILLER_STATSFIX] = 0

        iDistance = get_distance(iaVOrigin, iaKOrigin)
        g_izUserAttackerDistance[victim] = iDistance
        g_izUserVictimDistance[killer][victim] = iDistance
    }
    
    g_izKilled[victim][KILLED_TEAM] = get_user_team(victim)
    g_izKilled[victim][KILLED_KILLER_STATSFIX] = 1

    // Display kill stats for the player if round
    // end stats was not processed.
    if (!g_iRoundEndProcessed)
        kill_stats(victim)

    return PLUGIN_CONTINUE
}

// Display hudmessage stats on death.
// This will also update all round and game stats.
// Must be called at least once per round.
kill_stats(id)
{
    // Bail out if user stats timer is non-zero, 
    // ie function already called.
    if (g_fzShowUserStatsTime[id] > 0.0)
        return

    // Flag kill stats displayed for this player.
    g_fzShowUserStatsTime[id] = get_gametime()

    // Add user death stats to user round stats
    new izStats[8], izBody[8], imsg[128]
    new iTeam, i
    new iKiller

    iKiller = g_izKilled[id][KILLED_KILLER_ID]

    // Get user's team (if dead use the saved team)
    if (iKiller)
        iTeam = g_izKilled[id][KILLED_TEAM] - 1
    else
        iTeam = get_user_team(id) - 1

    get_user_name(id, g_izUserRndName[id], MAX_NAME_LENGTH)

    if (get_user_rstats(id, izStats, izBody))
    {
        // Update user's team round stats
        if (iTeam >= 0 && iTeam < MAX_TEAMS)
        {
            for (i = 0; i < 8; i++)
            {
                g_izTeamRndStats[iTeam][i] += izStats[i]
                g_izTeamGameStats[iTeam][i] += izStats[i]
                g_izUserRndStats[0][i] += izStats[i]
                g_izUserGameStats[0][i] += izStats[i]
            }
        }

        // Update user's round stats
        if (g_izUserUserID[id] == get_user_userid(id))
        {
            for (i = 0; i < 8; i++)
            {
                g_izUserRndStats[id][i] += izStats[i]
                g_izUserGameStats[id][i] += izStats[i]
            }
        } else {
            g_izUserUserID[id] = get_user_userid(id)
            
            for (i = 0; i < 8; i++)
            {
                g_izUserRndStats[id][i] = izStats[i]
                g_izUserGameStats[id][i] = izStats[i]
            }
        }

    }    // endif (get_user_rstats())

    // Report stats in the chat section, if player is killed.
    if (KillerChat && iKiller && iKiller != id)
    {
        if (format_kill_ainfo(id, iKiller, g_sBuffer))
        {
            format(imsg,127,"%s",g_sBuffer)
            client_color(id, imsg)
            format_kill_vinfo(id, iKiller, g_sBuffer)
        }
        
        format(imsg,127,"%s",g_sBuffer)
        client_color(id, imsg)
    }

    // Display player stats info.
#if defined STATSX_DEBUG
    log_amx("Kill stats for #%d", id)
#endif
    show_user_hudstats(id, 0.0)
}

public eventEndRound()
{
    // Update local configuration vars with value in cvars.
    get_config_cvars()

    // If first end round event in the round, calculate team score.
    if (!g_iRoundEndTriggered)
    {
        read_data(2, t_sText, MAX_TEXT_LENGTH)
        
        if (t_sText[7] == 't')            // Terrorist wins
            g_izTeamScore[0]++
        else if (t_sText[7] == 'c')        // CT wins
            g_izTeamScore[1]++
    }

    set_task(0.3, "ERTask", 997)
    
    return PLUGIN_CONTINUE
}

public ERTask()
{
    // Flag round end triggered.
    g_iRoundEndTriggered = 1

    // Display round end stats to all players.
    endround_stats()
}

endround_stats()
{
    // Bail out if end round stats has already been processed
    // or round end not triggered.
    if (g_iRoundEndProcessed || !g_iRoundEndTriggered)
        return

    new iaPlayers[32], iPlayer, iPlayers, id

    get_players(iaPlayers, iPlayers)

    // Display attacker & victim list for all living players.
    // This will also update all round and game stats for all players
    // not killed.
#if defined STATSX_DEBUG
    log_amx("End round stats")
#endif
    
    for (iPlayer = 0; iPlayer < iPlayers; iPlayer++)
    {
        id = iaPlayers[iPlayer]
        
        if (g_fzShowUserStatsTime[id] == 0.0)
            kill_stats(id)
    }

    g_sAwardAndScore[0] = 0

    // Create round awards.
    if (ShowMostDisruptive)
        add_most_disruptive(g_sAwardAndScore)
    if (ShowBestScore)
        add_best_score(g_sAwardAndScore)

    // Create round score. 
    // Compensate HUD message if awards are disabled.
    if (ShowTeamScore || ShowTotalStats)
    {
        if (ShowMostDisruptive && ShowBestScore)
            add(g_sAwardAndScore, MAX_BUFFER_LENGTH, "^n^n")
        else if (ShowMostDisruptive || ShowBestScore)
            add(g_sAwardAndScore, MAX_BUFFER_LENGTH, "^n^n^n^n")
        else
            add(g_sAwardAndScore, MAX_BUFFER_LENGTH, "^n^n^n^n^n^n")

        if (ShowTeamScore)
            add_team_score(g_sAwardAndScore)
        
        if (ShowTotalStats)
            add_total_stats(g_sAwardAndScore)
    }

    save_team_chatscore()

    // Get and save round end stats time.
    g_fShowStatsTime = get_gametime()

    // Display round end stats to all players.
    for (iPlayer = 0; iPlayer < iPlayers; iPlayer++)
    {
        id = iaPlayers[iPlayer]
        show_roundend_hudstats(id, 0.0)
    }

    // Flag round end processed.
    g_iRoundEndProcessed = 1
}

public eventTeamScore()
{
    new sTeamID[1 + 1], iTeamScore
    read_data(1, sTeamID, 1)
    iTeamScore = read_data(2)
    g_izTeamEventScore[(sTeamID[0] == 'C') ? 1 : 0] = iTeamScore
    
    return PLUGIN_CONTINUE
}

public eventIntermission()
{
    if (EndPlayer || EndTop15)
        set_task(1.0, "end_game_stats", 900)
}

public end_game_stats()
{
    new iaPlayers[32], iPlayer, iPlayers, id

    if (EndPlayer)
    {
        get_players(iaPlayers, iPlayers)
        
        for (iPlayer = 0; iPlayer < iPlayers; iPlayer++)
        {
            id = iaPlayers[iPlayer]
            
            if (!g_izStatsSwitch[id])
                continue    // Do not show any stats
            
            cmdStatsMe(iaPlayers[iPlayer])
        }
    }
    else if (EndTop15)
    {
        get_players(iaPlayers, iPlayers)
        format_top15(g_sBuffer)
        
        for (iPlayer = 0; iPlayer < iPlayers; iPlayer++)
        {
            id = iaPlayers[iPlayer]
            
            if (!g_izStatsSwitch[id])
                continue    // Do not show any stats
            
            show_motd(iaPlayers[iPlayer], g_sBuffer, "Top 15")
        }
    }
    
    return PLUGIN_CONTINUE
}

public eventSpecMode(id)
{
    new sData[12]
    read_data(2, sData, 11)
    g_izSpecMode[id] = (sData[10] == '2')
    
    return PLUGIN_CONTINUE


public eventShowRank(id)
{
    if (SpecRankInfo && g_izSpecMode[id])
    {
        new iPlayer = read_data(2)
        
        if (is_user_connected(iPlayer))
        {
            new izStats[8], izBody[8]
            new iRankPos, iRankMax
            
            get_user_name(iPlayer, t_sName, MAX_NAME_LENGTH)
            
            iRankPos = get_user_stats(iPlayer, izStats, izBody)
            iRankMax = get_statsnum()
            
            set_hudtype_specmode()
            show_hudmessage(id, "%L", id, "X_RANK_IS", t_sName, iRankPos, iRankMax)
        }
    }
    
    return PLUGIN_CONTINUE
}

public client_connect(id)
{
    if (ShowStats)
    {
        get_user_info(id, "_amxstatsx", t_sText, MAX_TEXT_LENGTH)
        g_izStatsSwitch[id] = (t_sText[0]) ? str_to_num(t_sText) : -1
    }
    else
        g_izStatsSwitch[id] = 0

    g_izKilled[id][KILLED_KILLER_ID] = 0
    g_izKilled[id][KILLED_KILLER_STATSFIX] = 0
    g_izShowStatsFlags[id] = 0        // Clear all flags
    g_fzShowUserStatsTime[id] = 0.0

    return PLUGIN_CONTINUE
}