SA-MP Forums Archive
[FilterScript] Ultimate VIP 0.3x - Printable Version

+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Português/Portuguese (https://sampforum.blast.hk/forumdisplay.php?fid=34)
+----- Forum: Lançamentos/Releases (https://sampforum.blast.hk/forumdisplay.php?fid=56)
+----- Thread: [FilterScript] Ultimate VIP 0.3x (/showthread.php?tid=435633)



Ultimate VIP 0.3x - BielCOP - 07.05.2013

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!



Re: Ultimate VIP 0.3x - smiiir - 07.05.2013

daor4,

depois dou uma olhada no code.


Re: Ultimate VIP 0.3x - BielCOP - 07.05.2013

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

Quote:
Originally Posted by iSmirnoff
daor4
@Tуpico: Up aew


Re: Ultimate VIP 0.3x - smiiir - 07.05.2013

daora = daor4,

quer qe eu falo
zuado?


Re: Ultimate VIP 0.3x - Don_Speed - 07.05.2013

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.



Re: Ultimate VIP 0.3x - BielCOP - 07.05.2013

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


Re: Ultimate VIP 0.3x - Falcon. - 07.05.2013

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 !!


Re: Ultimate VIP 0.3x - BielCOP - 07.05.2013

Jб disse, nao vai dar lag.

Eu mesmo testei

@OFF:

E esse Republic Adventure ? Sai quando ?


Re: Ultimate VIP 0.3x - Falcon. - 07.05.2013

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.


Re: Ultimate VIP 0.3x - Pingo - 08.05.2013

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