[FilterScript] Sistema VIP v2.0 (ZCMD + SSCANF) (ATUALIZADO)

/*

                        * Sistema de VIP criado por: MiqueiasBarros *
                                * MSN: [email protected]  *
                              *** Não retire os créditos! ***

*/


#include a_samp
#include zcmd
#include dof2

new pVip [ MAX_PLAYERS ] ;
forward SalvarVip ( playerid ) ;
forward CarregarVip ( playerid ) ;

public OnFilterScriptInit ( )
{
    print ( "** Filterscript ligado com sucesso! **" ) ;
    print ( "*** Criado por: MiqueiasBarros ***" ) ;
    return 1;
}

public OnFilterScriptExit ( )
{
    print ( "** Filterscript desligado com sucesso! **" ) ;
    print ( "*** Criado por: MiqueiasBarros ***" ) ;
    DOF2_Exit();
    return 1;
}

public OnPlayerConnect ( playerid )
{
    SendClientMessage ( playerid , 0xFFA500AA , "* Este servidor possui um sistema de Vip criado por MiqueiasBarros *" ) ;
    CarregarVip ( playerid ) ;
    return 1;
}

public OnPlayerDisconnect ( playerid )
{
    SendClientMessage ( playerid , 0xFFA500AA , "* Este servidor possui um sistema de Vip criado por MiqueiasBarros *" ) ;
    SalvarVip ( playerid ) ;
    return 1;
}

public OnPlayerCommandPerformed ( playerid , cmdtext [ ] , success )
{
    return 1;
}

//      * Inicio dos comandos *     //
CMD :darvip ( playerid , params [ ] )
{
    if ( IsPlayerConnected ( playerid ) )
    {
        if ( IsPlayerAdmin ( playerid ) )
        {
            new
                nom [ MAX_PLAYER_NAME ] ,
                str [ 79 ] ,
                pid ,
                level
            ;

            if ( sscanf ( params, "ui" , pid , level ) ) return SendClientMessage ( playerid , 0xBEBEBEAA , "USO CORRETO: /darvip [playerid] [level ~ 0-3]" ) ;
            if ( level <= 0 && level >= 3 ) return SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Level de 0 à 3!" ) ;
            if ( level <= 0 ) return SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você só pode setar de 1 à 3!" ) ;
            if ( level >= 1 && level < 3)
            {
                pVip [ pid ] = level ;
                GetPlayerName ( playerid , nom , sizeof ( nom ) ) ;
                GetPlayerName ( pid , nom , sizeof ( nom ) ) ;
                format ( str , sizeof ( str ) , "* Você setou o level vip de %s para %d." , pid , level ) ;
                SendClientMessage ( playerid , 0x00FF00AA , str ) ;
                format ( str , sizeof ( str ) , "* %s setou seu level vip para %d." , nom , level ) ;
                SendClientMessage ( playerid , 0x00FF00AA , str ) ;
            }
        }
        else
            SendClientMessage ( playerid, 0x8B1A1AAA , "[ERRO] Você não está logado na RCON!" ) ;
    }
    else
        SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Player não conectado!" ) ;
    return 1;
}

CMD :vips ( playerid , params [ ] )
{
    if ( IsPlayerConnected ( playerid ) )
    {
        new
            pn [ MAX_PLAYER_NAME ] ,
            str [ 56 ],
            Count = 0
        ;


        for ( new i = 0 ; i < MAX_PLAYERS; i++ )
        {
            if ( IsPlayerConnected ( i ) )
            {
                GetPlayerName ( i , pn , sizeof ( pn ) ) ;
                if ( pVip [ i ] >= 1 )
                {
                    Count ++ ;
                    format ( str , sizeof ( str ) , "Vip Level %d: %s" , pVip[i] , pn ) ;
                    SendClientMessage ( playerid , 0xB22222AA , str ) ;
                }
            }
        }
        if ( Count == 0 )
        {
            SendClientMessage ( playerid , 0x8B1A1AAA , "* Nenhum player VIP Online" ) ;
        }
    }
    return 1;
}

CMD :cvip ( playerid , params [ ] )
{
    if ( IsPlayerConnected ( playerid ) )
    {
        new
            pnom [ MAX_PLAYER_NAME ] ,
            texto [ 128 ] ,
            str [ 79 ]
        ;

        if ( pVip [ playerid ] >= 1 )
        {
            GetPlayerName ( playerid , pnom , sizeof ( pnom ) ) ;
            if ( sscanf ( params, "s" , texto ) ) return SendClientMessage ( playerid , 0x8B1A1AAA , "USO CORRETO: /cvip [texto]" ) ;
            format ( str , sizeof ( str ) , "|| Chat Vip: Player %s | Mensagem: %s" , pnom , texto ) ;
            for ( new i = 0 ; i < MAX_PLAYERS; i++ )
            {
                if ( pVip [ i ] > 0 )
                {
                    SendClientMessage ( i , 0x00FFFFAA, str ) ;
                }
            }
        }
    }
    else
        SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Player não conectado!" ) ;
    return 1;
}

CMD :ajudavip ( playerid , params [ ] )
{
    if ( pVip [ playerid ] >= 1 )
    {
        new
            dial [ 500 ]
        ;

        format ( dial , sizeof ( dial ) , "{6495ED}Todos comandos vip\n{EE82EE}Para dar vip: {FFFFFF}/darvip\n{EE82EE}Para vêr vips online: {FFFFFF}/vips\n{EE82EE}Chat vip: {FFFFFF}/cvip" ) ;
        ShowPlayerDialog ( playerid , 999 , DIALOG_STYLE_MSGBOX , "{FFFF00}Comandos Vip" , dial , "OK" , "" ) ;
    }
    else
        SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é VIP!" ) ;
    return 1;
}
//      * Fim dos comandos *      //

public SalvarVip ( playerid )
{
    new
        ArquivoVIP [ 50 ] ,
        NomeP [ MAX_PLAYER_NAME ]
    ;

    GetPlayerName ( playerid , NomeP , MAX_PLAYER_NAME ) ;
    format ( ArquivoVIP , 50 , "pVips/%s" , NomeP ) ;
    if ( !DOF2_FileExists ( ArquivoVIP ) ) return DOF2_CreateFile ( ArquivoVIP ) ;
    DOF2_SetInt ( ArquivoVIP , "VipLevel" , pVip [ playerid ] ) ;
    DOF2_SaveFile ( ) ;
    return 1;
}

public CarregarVip ( playerid )
{
    new
        ArquivoVIP [ 50 ] ,
        NomeP [ MAX_PLAYER_NAME ]
    ;

    GetPlayerName ( playerid, NomeP, MAX_PLAYER_NAME ) ;
    format ( ArquivoVIP , 50 , "pVips/%s" , NomeP ) ;
    if ( DOF2_FileExists ( ArquivoVIP ) )
    {
        pVip [ playerid ] = ( playerid , DOF2_GetInt ( ArquivoVIP , "VipLevel" ) ) ;
    }
    return 1;
}

stock sscanf(string[], format[], {Float,_}:...)
{
    #if defined isnull
        if (isnull(string))
    #else
        if (string[0] == 0 || (string[0] == 1 && string[1] == 0))
    #endif
        {
            return format[0];
        }
    #pragma tabsize 4
    new
        formatPos = 0,
        stringPos = 0,
        paramPos = 2,
        paramCount = numargs(),
        delim = ' ';
    while (string[stringPos] && string[stringPos] <= ' ')
    {
        stringPos++;
    }
    while (paramPos < paramCount && string[stringPos])
    {
        switch (format[formatPos++])
        {
            case '\0':
            {
                return 0;
            }
            case 'i', 'd':
            {
                new
                    neg = 1,
                    num = 0,
                    ch = string[stringPos];
                if (ch == '-')
                {
                    neg = -1;
                    ch = string[++stringPos];
                }
                do
                {
                    stringPos++;
                    if ('0' <= ch <= '9')
                    {
                        num = (num * 10) + (ch - '0');
                    }
                    else
                    {
                        return -1;
                    }
                }
                while ((ch = string[stringPos]) > ' ' && ch != delim);
                setarg(paramPos, 0, num * neg);
            }
            case 'h', 'x':
            {
                new
                    num = 0,
                    ch = string[stringPos];
                do
                {
                    stringPos++;
                    switch (ch)
                    {
                        case 'x', 'X':
                        {
                            num = 0;
                            continue;
                        }
                        case '0' .. '9':
                        {
                            num = (num << 4) | (ch - '0');
                        }
                        case 'a' .. 'f':
                        {
                            num = (num << 4) | (ch - ('a' - 10));
                        }
                        case 'A' .. 'F':
                        {
                            num = (num << 4) | (ch - ('A' - 10));
                        }
                        default:
                        {
                            return -1;
                        }
                    }
                }
                while ((ch = string[stringPos]) > ' ' && ch != delim);
                setarg(paramPos, 0, num);
            }
            case 'c':
            {
                setarg(paramPos, 0, string[stringPos++]);
            }
            case 'f':
            {

                new changestr[16], changepos = 0, strpos = stringPos;
                while(changepos < 16 && string[strpos] && string[strpos] != delim)
                {
                    changestr[changepos++] = string[strpos++];
                    }
                changestr[changepos] = '\0';
                setarg(paramPos,0,_:floatstr(changestr));
            }
            case 'p':
            {
                delim = format[formatPos++];
                continue;
            }
            case '\'':
            {
                new
                    end = formatPos - 1,
                    ch;
                while ((ch = format[++end]) && ch != '\'') {}
                if (!ch)
                {
                    return -1;
                }
                format[end] = '\0';
                if ((ch = strfind(string, format[formatPos], false, stringPos)) == -1)
                {
                    if (format[end + 1])
                    {
                        return -1;
                    }
                    return 0;
                }
                format[end] = '\'';
                stringPos = ch + (end - formatPos);
                formatPos = end + 1;
            }
            case 'u':
            {
                new
                    end = stringPos - 1,
                    id = 0,
                    bool:num = true,
                    ch;
                while ((ch = string[++end]) && ch != delim)
                {
                    if (num)
                    {
                        if ('0' <= ch <= '9')
                        {
                            id = (id * 10) + (ch - '0');
                        }
                        else
                        {
                            num = false;
                        }
                    }
                }
                if (num && IsPlayerConnected(id))
                {
                    setarg(paramPos, 0, id);
                }
                else
                {
                    #if !defined foreach
                        #define foreach(%1,%2) for (new %2 = 0; %2 < MAX_PLAYERS; %2++) if (IsPlayerConnected(%2))
                        #define __SSCANF_FOREACH__
                    #endif
                    string[end] = '\0';
                    num = false;
                    new
                        name[MAX_PLAYER_NAME];
                    id = end - stringPos;
                    foreach (Player, playerid)
                    {
                        GetPlayerName(playerid, name, sizeof (name));
                        if (!strcmp(name, string[stringPos], true, id))
                        {
                            setarg(paramPos, 0, playerid);
                            num = true;
                            break;
                        }
                    }
                    if (!num)
                    {
                        setarg(paramPos, 0, INVALID_PLAYER_ID);
                    }
                    string[end] = ch;
                    #if defined __SSCANF_FOREACH__
                        #undef foreach
                        #undef __SSCANF_FOREACH__
                    #endif
                }
                stringPos = end;
            }
            case 's', 'z':
            {
                new
                    i = 0,
                    ch;
                if (format[formatPos])
                {
                    while ((ch = string[stringPos++]) && ch != delim)
                    {
                        setarg(paramPos, i++, ch);
                    }
                    if (!i)
                    {
                        return -1;
                    }
                }
                else
                {
                    while ((ch = string[stringPos++]))
                    {
                        setarg(paramPos, i++, ch);
                    }
                }
                stringPos--;
                setarg(paramPos, i, '\0');
            }
            default:
            {
                continue;
            }
        }
        while (string[stringPos] && string[stringPos] != delim && string[stringPos] > ' ')
        {
            stringPos++;
        }
        while (string[stringPos] && (string[stringPos] == delim || string[stringPos] <= ' '))
        {
            stringPos++;
        }
        paramPos++;
    }
    do
    {
        if ((delim = format[formatPos++]) > ' ')
        {
            if (delim == '\'')
            {
                while ((delim = format[formatPos++]) && delim != '\'') {}
            }
            else if (delim != 'z')
            {
                return delim;
            }
        }
    }
    while (delim > ' ');
    return 0;
}

/*

                        * Sistema de VIP criado por: MiqueiasBarros *
                                * MSN: [email protected]  *
                              *** Não retire os créditos! ***

*/