pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-16 01:01:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Perl Money Fixes. (#2098)

Browse Source 
- Fixes `$client->GetAllMoney()` to use `uint64` and not overflow int value.
- Fixes `$client->GetCarriedMoney()` to use `uint64` and not overflow int value.
This commit is contained in:
Kinglykrab 2022-05-03 22:55:56 -04:00 committed by GitHub
parent 9b075c28b6
commit 837c0a4385
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
zone/perl_client.cpp
View File

@ -4079,12 +4079,12 @@ XS(XS_Client_GetCarriedMoney) {
Perl_croak(aTHX_ "Usage: Client::GetCarriedMoney(THIS)"); // @categories Currency and Points
{
Client *THIS;
int RETVAL;
uint64 RETVAL;
dXSTARG;
VALIDATE_THIS_IS_CLIENT;
RETVAL = THIS->GetCarriedMoney();
XSprePUSH;
PUSHi((IV) RETVAL);
PUSHu((UV) RETVAL);
}
XSRETURN(1);
}
@ -4097,12 +4097,12 @@ XS(XS_Client_GetAllMoney) {
Perl_croak(aTHX_ "Usage: Client::GetAllMoney(THIS)"); // @categories Currency and Points
{
Client *THIS;
int RETVAL;
uint64 RETVAL;
dXSTARG;
VALIDATE_THIS_IS_CLIENT;
RETVAL = THIS->GetAllMoney();
XSprePUSH;
PUSHi((IV) RETVAL);
PUSHu((UV) RETVAL);
}
XSRETURN(1);
}