pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-01-24 14:53:51 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #449 from KinglyKrab/master

Browse Source 
GetAccountAge() for Perl.
This commit is contained in:
Michael Cook (mackal) 2015-08-08 19:26:30 -04:00
commit 4a3701f05a
3 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
zone/client.cpp
View File

@ -8667,3 +8667,7 @@ uint32 Client::GetMoney(uint8 type, uint8 subtype) {
}
return value;
}
int Client::GetAccountAge() {
return (time(nullptr) - GetAccountCreation());
}

1
zone/client.h
View File

@ -664,6 +664,7 @@ public:
uint64 GetCarriedMoney();
uint64 GetAllMoney();
uint32 GetMoney(uint8 type, uint8 subtype);
int GetAccountAge();
bool IsDiscovered(uint32 itemid);
void DiscoverItem(uint32 itemid);

27
zone/perl_client.cpp
View File

@ -6309,6 +6309,32 @@ XS(XS_Client_GetMoney)
XSRETURN(1);
}
XS(XS_Client_GetAccountAge);
XS(XS_Client_GetAccountAge) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: GetAccountAge(THIS)");
{
Client* THIS;
int RETVAL;
dXSTARG;
if (sv_derived_from(ST(0), "Client")) {
IV tmp = SvIV((SV*)SvRV(ST(0)));
THIS = INT2PTR(Client *,tmp);
}
else
Perl_croak(aTHX_ "THIS is not of type Client");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetAccountAge();
XSprePUSH; PUSHn((int)RETVAL);
}
XSRETURN(1);
}
#ifdef __cplusplus
extern "C"
@ -6558,6 +6584,7 @@ XS(boot_Client)
newXSproto(strcpy(buf, "QuestReward"), XS_Client_QuestReward, file, "$$;$$$$$$$");
newXSproto(strcpy(buf, "CalcEXP"), XS_Client_CalcEXP, file, "$");
newXSproto(strcpy(buf, "GetMoney"), XS_Client_GetMoney, file, "$$$");
newXSproto(strcpy(buf, "GetAccountAge"), XS_Client_GetAccountAge, file, "$");
XSRETURN_YES;
}