[Pedido] VIP por meses - 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)
+---- Thread: [Pedido] VIP por meses (/showthread.php?tid=459274)

---

VIP por meses - xGamminG - 21.08.2013

alguem me ajuda como fazer um vip por mes
exemplo
/darvip [id] [tipo] [meses]
ai quando ele conectar aparece seu vip expira em: 21/08/2013
achei essa base na net mas n to conseguindo alguem ajuda

#include a_samp
#include zcmd
#include sscanf2
#include dof2

enum pInfo { pAdmin, pVIP, pMesesVIP};
new PlayerInfo[MAX_PLAYERS][pInfo];

stock Nome(playerid){ new Nome[21];GetPlayerName(playerid,Nome,21) ; return Nome ; }

public OnFilterScriptExit () {
DOF2::Exit () ;
return true ;
}

public OnPlayerSpawn(playerid)
{

new Arquivo[64];
format(Arquivo,64,"Contas/%s.ini",Nome(playerid));

if(DOF2_GetInt(Arquivo,"Tipo VIP")>=1){

if(gettime()>= DOF2_GetInt(Arquivo,"Tempo VIP")) {
DOF2_SetInt(Arquivo,"Tempo VIP",0);
DOF2_SetInt(Arquivo,"Tipo VIP",0);
SendClientMessage(playerid,-1,"Seu VIP acabou");
}
PlayerInfo[playerid][pVIP]=DOF2_GetInt(Arquivo,"Tipo VIP");
PlayerInfo[playerid][pMesesVIP]=DOF2_GetInt(Arquivo,"Tempo VIP");
SendClientMessage(playerid, -1, "Seu ainda nгo acabou" ) ;
}
return true;
}
CMD:darvip(playerid,params[])
{
new pID,pType,pMonth,Celulas[128],Arquivo[128];

if(sscanf(params, "udd",pID,pType,pMonth))
return SendClientMessage ( playerid, -1, "/darvip [id] [tipo] [meses]" ) ;

PlayerInfo[pID][pMesesVIP]=(gettime()+(pMonth*60*24*30));
PlayerInfo[pID][pVIP]=pType;
format ( Arquivo, 128, "Contas/%s.ini",Nome(pID));
if(!DOF2::FileExists(Arquivo)) {

DOF2::CreateFile(Arquivo);
DOF2::SetInt(Arquivo,"Tempo VIP",PlayerInfo[pID][pMesesVIP]);
DOF2::SetInt(Arquivo,"Tipo VIP",PlayerInfo[pID][pVIP ]);
DOF2::SetInt(Arquivo,"Vencimento VIP",getdate());
DOF2::SaveFile();
}
else {

DOF2::SetInt(Arquivo,"Tempo VIP",PlayerInfo[pID][pMesesVIP]);
DOF2::SetInt(Arquivo,"Tipo VIP",PlayerInfo[pID][pVIP]);
DOF2::SaveFile();
}
return true ;
}

---

Re: VIP por meses - xGamminG - 21.08.2013

ngm ajuda ne

essas pessoa fala que e scripter profissional mais na hr de ajuda ngm ajuda

---

Re: VIP por meses - [THs]ShadoW - 21.08.2013

Aн fera, espero que ajude: CLIQUE AQUI

-

E aqui ninguйm diz que й Scripter profissional (ao menos a maioria nгo) pq programar Pawn ainda nгo й uma profissгo ^^ E outra: Leia as regras, й proibido postar duas mensagens seguidas no mesmo tуpico sem um intervalo de 24 horas.

---

Re: VIP por meses - Standby - 21.08.2013

o melhor do geito que vocк pediu

https://sampforum.blast.hk/showthread.php?tid=404067

Crйditos >> Paulor

---

Re: VIP por meses - xGamminG - 21.08.2013

hehe, mt engraзado vc
se n for ajudar n atrapalhe


brigado mas queria por meses

---

Re: VIP por meses - Don_Speed - 21.08.2013

Quote:

Originally Posted by xGamminG hehe, mt engraзado vc se n for ajudar n atrapalhe brigado mas queria por meses

30 dias = 1 mes

---

Re: VIP por meses - [THs]ShadoW - 21.08.2013

Rachei asdasjoidjsaoidjioasdjoasd'

@Topic

Estuda as funзхes e edite.

---

Re: VIP por meses - WeslleyScript - 21.08.2013

Sem comentarios e.e

---