pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-17 15:38:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add GetBodyTypeName() to Perl/Lua. (#1863)

Browse Source 
* [Quest API] Add GetBodyTypeName() to Perl/Lua.
- Add GetBodyTypeName() and GetBodyTypeMap() helper methods.
- Add quest::getbodytypename(bodytype_id) to Perl.
- Add eq.get_body_type_name(bodytype_id) to Lua.

* ShowStats() cleanup.
This commit is contained in:
Kinglykrab
2021-12-03 19:52:42 -05:00
committed by GitHub
parent e09f28c62c
commit 01a671918a
8 changed files with 119 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser_api.cpp
+18
View File
@@ -8057,6 +8057,23 @@ XS(XS__getlanguagename) {
}
}
XS(XS__getbodytypename);
XS(XS__getbodytypename) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::getbodytypename(uint32 bodytype_id)");
{
dXSTARG;
uint32 bodytype_id = (uint32) SvUV(ST(0));
std::string bodytype_name = quest_manager.getbodytypename(bodytype_id);
sv_setpv(TARG, bodytype_name.c_str());
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
}
/*
This is the callback perl will look for to setup the
quest package's XSUBs
@@ -8337,6 +8354,7 @@ EXTERN_C XS(boot_quest) {
newXS(strcpy(buf, "forcedoorclose"), XS__forcedoorclose, file);
newXS(strcpy(buf, "forcedooropen"), XS__forcedooropen, file);
newXS(strcpy(buf, "getaaexpmodifierbycharid"), XS__getaaexpmodifierbycharid, file);
newXS(strcpy(buf, "getbodytypename"), XS__getbodytypename, file);
newXS(strcpy(buf, "getcharidbyname"), XS__getcharidbyname, file);
newXS(strcpy(buf, "getclassname"), XS__getclassname, file);
newXS(strcpy(buf, "getcleannpcnamebyid"), XS__getcleannpcnamebyid, file);