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