[Commands] Cleanup #corpse Command. (#1790)

- Cleanup message and logic.
- Add ConvertMoneyToString(platinum, gold, silver, copper) helper method.
- Cleanup NPC::QueryLoot() and Corpse::QueryLoot().
This commit is contained in:
Kinglykrab
2021-11-21 14:02:03 -05:00
committed by GitHub
parent 1acdc6034b
commit 5470ec6293
10 changed files with 566 additions and 252 deletions
+4 -4
View File
@@ -1040,12 +1040,12 @@ XS(XS_EntityList_DeleteNPCCorpses) {
Perl_croak(aTHX_ "Usage: EntityList::DeleteNPCCorpses(THIS)"); // @categories Corpse
{
EntityList *THIS;
int32 RETVAL;
uint32 RETVAL;
dXSTARG;
VALIDATE_THIS_IS_ENTITY;
RETVAL = THIS->DeleteNPCCorpses();
XSprePUSH;
PUSHi((IV) RETVAL);
PUSHu((UV) RETVAL);
}
XSRETURN(1);
}
@@ -1057,12 +1057,12 @@ XS(XS_EntityList_DeletePlayerCorpses) {
Perl_croak(aTHX_ "Usage: EntityList::DeletePlayerCorpses(THIS)"); // @categories Account and Character, Corpse
{
EntityList *THIS;
int32 RETVAL;
uint32 RETVAL;
dXSTARG;
VALIDATE_THIS_IS_ENTITY;
RETVAL = THIS->DeletePlayerCorpses();
XSprePUSH;
PUSHi((IV) RETVAL);
PUSHu((UV) RETVAL);
}
XSRETURN(1);
}