pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-23 08: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 Perl_croak(aTHX_ "Usage: Client::GetCarriedMoney(THIS)"); // @categories Currency and Points
{ {
Client *THIS; Client *THIS;
int RETVAL; uint64 RETVAL;
dXSTARG; dXSTARG;
VALIDATE_THIS_IS_CLIENT; VALIDATE_THIS_IS_CLIENT;
RETVAL = THIS->GetCarriedMoney(); RETVAL = THIS->GetCarriedMoney();
XSprePUSH; XSprePUSH;
PUSHi((IV) RETVAL); PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
@ -4097,12 +4097,12 @@ XS(XS_Client_GetAllMoney) {
Perl_croak(aTHX_ "Usage: Client::GetAllMoney(THIS)"); // @categories Currency and Points Perl_croak(aTHX_ "Usage: Client::GetAllMoney(THIS)"); // @categories Currency and Points
{ {
Client *THIS; Client *THIS;
int RETVAL; uint64 RETVAL;
dXSTARG; dXSTARG;
VALIDATE_THIS_IS_CLIENT; VALIDATE_THIS_IS_CLIENT;
RETVAL = THIS->GetAllMoney(); RETVAL = THIS->GetAllMoney();
XSprePUSH; XSprePUSH;
PUSHi((IV) RETVAL); PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }