[BielCOP]

Olб pessoal do Fуrum SA-MP!

Estou lhes lanзando um novo sistema que eu vim programando a algum tempo antes de ser desbanido daqui.

Ultimate VIP 0.3x!

Ele й o mais novo sistema de VIP, com o vencimento automбtico, feito com o uso da Unix getdate();

Devo dizer que este й um sistema mйdio, cujo nao й simples e nem avanзado.

Inicialmente, o mesmo foi feito por salvamento em Dini, mas depois com a ajuda do Paulo Ricardo, ou paulor, consegui um processo melhor e sem bugs.

Comandos

Quote:

/VIPS - VEJA TODOS OS VIPS ONLINE. /ARMASVIP - ADQUIRA O KIT DE ARMAS. /ROUPAVIP - TROQUE SUA SKIN. /MAJVIP - PEGUE UMA MOCHILA A JATO. /VIP - FALE NO BATE PAPO RESERVADO APENAS PARA VIPS. /BVIP - VEJA TODOS OS BENEFНCIOS VIP. /CREDITOSVIP - VEJA OS CRЙDITOS DO FILTERSCRIPT. /AJUDAVIP - VEJA TODOS OS COMANDOS DO FILTERSCRIPT. /PLANOSVIP - VEJA TODOS O PRECO DO VIP.

Bugs Conhecidos

1°: Caso vocк dк VIP a um jogador no dia 31/12, o mesmo nunca mais vencerб.

2°: Caso o seu gamemode for base GF, o sistema rcon bugarб na maioria das vezes.

3°: Vocк deve usar as includes que serao passadas no final do tуpico, para que possa compilar este script.

Fotos

Ajuda Vip:



Vips Online:



Remover Vip:



Dar Vip:



Mochila a Jato:



Equipamentos:



Vencimento:



Notas

1°: Crie a pasta Vips nas ScriptFiles.

2°: Compile o FilterScript apenas com as includes passadas, ou darб erro.

Download

Pastebin

Include DOF2

Include Sscanf

Include ZCMD

Espero que gostem

Atualizaзao V1.1

. Desbugado o /vip.
. Novo comando: /meuvip.
. Criado um SetTimerEx, evitando muito lag quando atualizar.

Pastebin

Caso tenha mais bugs, me avisem!

Atualizaзao V1.2

. Agora nao hб mais este bug:

Quote:

Originally Posted by BielCOP 1°: Caso vocк dк VIP a um jogador no dia 31/12, o mesmo nunca mais vencerб.

O mesmo Foi Resolvido com este cуdigo:

pawn Код:

if(Vencimento > Hoje)
{
    DOF2_SetInt(Fala,"Vencimento",Vencimento-365);
}

. Agora sу pode dar no mбximo 365 dias de VIP.

Pastebin

Novamente, qualquer bug me avisem!

[smiiir]

daor4,

depois dou uma olhada no code.

[BielCOP]

Porque todos os tуpicos que vocк posta, vocк posta com esta mesma escrita:

Quote:

Originally Posted by iSmirnoff daor4

@Tуpico: Up aew

[smiiir]

daora = daor4,

quer qe eu falo
zuado?

[Don_Speed]

pawn Код:

public OnPlayerUpdate(playerid)
{
        if(VIP[playerid] == 1)
        {
                GetPlayerName(playerid,Nome,sizeof(Nome));
                format(Fala,sizeof(Fala),"Vips/%s.ini",Nome);
 
                if(DOF2_FileExists(Fala))
                {
                        new Hoje = getdate();
 
                        new Vencimento = DOF2_GetInt(Fala,"Vencimento");
                        new Dias = DOF2_GetInt(Fala,"Dias");
 
                        if(Hoje-Vencimento >= Dias)
                        {
                            format(Fala,sizeof(Fala),"Olб %s, seu VIP expirou.\n\nPossнvel motivo: Vencimento.\n\nEsperamos que tenha aproveitado!\n\nPreзo do VIP: R$ %d,00",Nome,Preco_Vip);
                                ShowPlayerDialog(playerid,0,DIALOG_STYLE_MSGBOX,"VIP Expirado",Fala,"Cancelar","");
                                RemoverVip(playerid);
                        }
                }
                else
                {
                    format(Fala,sizeof(Fala),"Olб %s, seu VIP expirou.\n\nPossнvel motivo: Sua conta na pasta nгo existe mais.\n\nEsperamos que tenha aproveitado!\n\nPreзo do VIP: R$ %d,00",Nome,Preco_Vip);
                        ShowPlayerDialog(playerid,0,DIALOG_STYLE_MSGBOX,"VIP Expirado",Fala,"Cancelar","");
                        RemoverVip(playerid);
                }
        }
        return 1;
}

So pra comзar , vocк poderia fazer apenas 1 verificaзгo , ao conectar .
Essa callback e chamada milhoes de vezes.

[BielCOP]

Essa й a intenзao.

O vip sempre vencerб meia noite, que й quando reinicia o Unix

Caso o vip venзa e ele й chamado apenas quando conectar, ele ficarб com o VIP atй sair, entende ?

Aн claro, vai chamar mas nao vai dar lag. Jб testei com meu prуprio servidor de SA-MP.

E continua perfeito

[Falcon.]

pawn Код:

public OnPlayerUpdate(playerid)
{
        if(VIP[playerid] == 1)
        {
                GetPlayerName(playerid,Nome,sizeof(Nome));
                format(Fala,sizeof(Fala),"Vips/%s.ini",Nome);
 
                if(DOF2_FileExists(Fala))
                {
                        new Hoje = getdate();
 
                        new Vencimento = DOF2_GetInt(Fala,"Vencimento");
                        new Dias = DOF2_GetInt(Fala,"Dias");
 
                        if(Hoje-Vencimento >= Dias)
                        {
                            format(Fala,sizeof(Fala),"Olб %s, seu VIP expirou.\n\nPossнvel motivo: Vencimento.\n\nEsperamos que tenha aproveitado!\n\nPreзo do VIP: R$ %d,00",Nome,Preco_Vip);
                                ShowPlayerDialog(playerid,0,DIALOG_STYLE_MSGBOX,"VIP Expirado",Fala,"Cancelar","");
                                RemoverVip(playerid);
                        }
                }
                else
                {
                    format(Fala,sizeof(Fala),"Olб %s, seu VIP expirou.\n\nPossнvel motivo: Sua conta na pasta nгo existe mais.\n\nEsperamos que tenha aproveitado!\n\nPreзo do VIP: R$ %d,00",Nome,Preco_Vip);
                        ShowPlayerDialog(playerid,0,DIALOG_STYLE_MSGBOX,"VIP Expirado",Fala,"Cancelar","");
                        RemoverVip(playerid);
                }
        }
        return 1;
}

casou-me uma imensa dor nos rins !!

[BielCOP]

Jб disse, nao vai dar lag.

Eu mesmo testei

@OFF:

E esse Republic Adventure ? Sai quando ?

[Falcon.]

aн que estб o problema rs, VOCE testou. multiplique-se por 30 e teste novamente em um gamemode com outros sistemas sendo executado.

-----
jб estб pronto, falta fazer mais mapas.

[Pingo]

Quote:

Originally Posted by Falcon. aн que estб o problema rs, VOCE testou. multiplique-se por 30 e teste novamente em um gamemode com outros sistemas sendo executado.

Concordo fora isso #UP