SistemaVip

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//                            Desenvolvimento: Eduardo
//                            Tempo de desenvolvimento: 2 Dias.
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//


#include a_samp
#include zcmd
#include dof2

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

public OnFilterScriptInit ( )
{
	print ( "** Filterscript de VIP ligado com sucesso! **" ) ;
	return 1;
}

public OnFilterScriptExit ( )
{
	print ( "** Filterscript de VIP desligado com sucesso! **" ) ;
    DOF2_Exit();
	return 1;
}

public OnPlayerConnect ( playerid )
{
    CarregarVip ( playerid ) ;
	return 1;
}

public OnPlayerDisconnect ( playerid )
{
    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 && level < 4)
            {
				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
        ;

        SendClientMessage ( playerid , 0x00FF00AA , "~~~~~~~~~~~~~~~~ Vips ~~~~~~~~~~~~~~~~~~" ) ;

        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 ) , "* Vips Online Level %d: %s" , pVip[i] , pn ) ;
                    SendClientMessage ( playerid , -1 , str ) ;
                }
            }
        }
        if ( Count == 0 )
        {
            SendClientMessage ( playerid , 0x8B1A1AAA , "* Nenhum player VIP Online" ) ;
        }
        SendClientMessage ( playerid , 0x00FF00AA , "~~~~~~~~~~~~~~~~ Vips ~~~~~~~~~~~~~~~~~~" ) ;
    }
    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 ) , "I CHAT I Vip %s: %s" , pnom , texto ) ;
			for ( new i = 0 ; i < MAX_PLAYERS; i++ )
			{
    			if ( pVip [ i ] > 0 )
				{
					SendClientMessage ( i , 0x00FF00AA, str ) ;
				}
			}
		}
	}
	else
	    SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é Vip!" ) ;
	return 1;
}

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

		format ( dial , sizeof ( dial ) , "{6495ED}Todos comandos vip\n{EE82EE}Kit Vip: {FFFFFF}/kitvip\n{EE82EE}Para vêr vips online: {FFFFFF}/vips\n{EE82EE}Chat vip: {FFFFFF}/cvip \n{EE82EE}Enche vida: {FFFFFF}/vidav \n{EE82EE}Enche Colete: {FFFFFF}/coletev\n{EE82EE}Jetpack: {FFFFFF}/jetpackv\n{EE82EE}Reparar Veiculo: {FFFFFF}/repararv" ) ;
		ShowPlayerDialog ( playerid , 999 , DIALOG_STYLE_MSGBOX , "{FFFF00}Comandos Vip" , dial , "OK" , "" ) ;
	}
	else
	    SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é VIP!" ) ;
	return 1;
}

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

        if ( pVip [ playerid ] >= 1 )
        {
			GivePlayerWeapon ( playerid , 24 , 9999 );
			GivePlayerWeapon ( playerid , 26 , 9999 );
			GivePlayerWeapon ( playerid , 28 , 9999 );
			GivePlayerWeapon ( playerid , 31 , 9999 );
			GivePlayerWeapon ( playerid , 34 , 9999 );
            GetPlayerName ( playerid , pnom , sizeof ( pnom ) ) ;
			format ( str , sizeof ( str ) , "Vip %s pego o kit VIP" , pnom , texto ) ;
			for ( new i = 0 ; i < MAX_PLAYERS; i++ )
			{
    			if ( pVip [ i ] > 1 )
				{
					SendClientMessage ( i , 0x00FFFFAA, str ) ;
				}
			}
		}
	}
	else
	    SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é VIP" ) ;
	return 1;
}

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

        if ( pVip [ playerid ] >= 1 )
        {
			SetPlayerArmour(playerid, 100);
            GetPlayerName ( playerid , pnom , sizeof ( pnom ) ) ;
			format ( str , sizeof ( str ) , "Vip %s encheu o colete!" , pnom , texto ) ;
			for ( new i = 0 ; i < MAX_PLAYERS; i++ )
			{
    			if ( pVip [ i ] > 1 )
				{
					SendClientMessage ( i , 0x00FFFFAA, str ) ;
				}
			}
		}
	}
	else
	    SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é VIP" ) ;
	return 1;
}

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

        if ( pVip [ playerid ] >= 1 )
        {
			SetPlayerHealth ( playerid , 100 );
            GetPlayerName ( playerid , pnom , sizeof ( pnom ) ) ;
			format ( str , sizeof ( str ) , "Vip %s encheu a vida!" , pnom , texto ) ;
			for ( new i = 0 ; i < MAX_PLAYERS; i++ )
			{
    			if ( pVip [ i ] > 1 )
				{
					SendClientMessage ( i , 0x00FFFFAA, str ) ;
				}
			}
		}
	}
	else
	    SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é VIP" ) ;
	return 1;
}

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

        if ( pVip [ playerid ] >= 1 )
        {
            if(IsPlayerInAnyVehicle(playerid)) return  SendClientMessage(playerid, 0x8B1A1AAA, "Você Não Pode Usar JetPack em Um Veiculo !");
			new Float:X, Float:Y, Float:Z;
            GetPlayerPos(playerid, X, Y, Z);
		    CreatePickup(370, 3, X, Y, Z);
            GetPlayerName ( playerid , pnom , sizeof ( pnom ) ) ;
			format ( str , sizeof ( str ) , "Vip %s pegou JetPack!" , pnom , texto ) ;
			for ( new i = 0 ; i < MAX_PLAYERS; i++ )
			{
    			if ( pVip [ i ] > 1 )
				{
					SendClientMessage ( i , 0x00FFFFAA, str ) ;
				}
			}
		}
	}
	else
	    SendClientMessage ( playerid , 0x8B1A1AAA , "[ERRO] Você não é VIP" ) ;
	return 1;
}

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

        if ( pVip [ playerid ] >= 1 )
        {
			if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid, 0x8B1A1AAA, "Você não está em um veiculo!");
            RepairVehicle(GetPlayerVehicleID(playerid));
            GetPlayerName ( playerid , pnom , sizeof ( pnom ) ) ;
			format ( str , sizeof ( str ) , "Vip %s pegou JetPack!" , pnom , texto ) ;
			for ( new i = 0 ; i < MAX_PLAYERS; i++ )
			{
    			if ( pVip [ i ] > 1 )
				{
					SendClientMessage ( i , 0x00FFFFAA, str ) ;
				}
			}
		}
	}
	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 , "Vips/%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 , "Vips/%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;
}