#include <a_samp>
#include <zcmd>

CMD:fpst(playerid, params[])
{
    new str[2000];
    for(new i = 0; i < MAX_PLAYERS; i++)
    {
        if(IsPlayerConnected(i) && GetPlayerFPS(i) < 20) format(str, sizeof(str),           "%s%s\t\t\t%FPS:{CC0000}[%d]{FFFFFF}\n", str, pName(i), GetPlayerFPS(i));
        if(IsPlayerConnected(i) && GetPlayerFPS(i) > 30) format(str, sizeof(str), "%s%s\t\t\t%FPS:{00FF00}[%d]{FFFFFF}\n", str, pName(i), GetPlayerFPS(i));
        if(IsPlayerConnected(i) && GetPlayerFPS(i) >= 20 && GetPlayerFPS(i) <= 30) format(str, sizeof(str), "%s%s\t\t\t%FPS:{FFAF00}[%d]{FFFFFF}\n", str, pName(i), GetPlayerFPS(i));
    }
    ShowPlayerDialog(playerid,0, DIALOG_STYLE_MSGBOX, "{CC0000}Player FPS List", str, "Aceptar","");
    return 1;
}

stock pName(playerid)
{
    new
        iName[MAX_PLAYER_NAME];

    GetPlayerName(playerid, iName, sizeof(iName));
    return iName;
}

stock GetPlayerFPS(playerid)
    {
        SetPVarInt(playerid, "DrunkL", GetPlayerDrunkLevel(playerid));
        if(GetPVarInt(playerid, "DrunkL") < 100) SetPlayerDrunkLevel(playerid, 2000);
        else {
            if(GetPVarInt(playerid, "LDrunkL") != GetPVarInt(playerid, "DrunkL")) {
                SetPVarInt(playerid, "FPS", (GetPVarInt(playerid, "LDrunkL") - GetPVarInt(playerid, "DrunkL")));
                SetPVarInt(playerid, "LDrunkL", GetPVarInt(playerid, "DrunkL"));
                if((GetPVarInt(playerid, "FPS") > 0) && (GetPVarInt(playerid, "FPS") < 256)) {
                    return GetPVarInt(playerid, "FPS") - 1;
                }
            }
        }
        return 0;
    }