pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-06-09 22:20:24 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add GetLanguageName() to Perl/Lua. (#1860)

Browse Source 
- Add quest::getlanguagename(language_id) to Perl.
- Add eq.get_language_name(language_id) to Lua.
This commit is contained in:
Kinglykrab
2021-12-01 20:31:20 -05:00
committed by GitHub
parent 9a0c98397e
commit 29dfe9d404
4 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser_api.cpp
+18
View File
@@ -8023,6 +8023,23 @@ XS(XS__getspell) {
}
}
XS(XS__getlanguagename);
XS(XS__getlanguagename) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::getlanguagename(int language_id)");
{
dXSTARG;
int language_id = (int) SvIV(ST(0));
std::string language_name = quest_manager.getlanguagename(language_id);
sv_setpv(TARG, language_name.c_str());
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
}
/*
This is the callback perl will look for to setup the
quest package's XSUBs
@@ -8315,6 +8332,7 @@ EXTERN_C XS(boot_quest) {
newXS(strcpy(buf, "get_expedition_by_zone_instance"), XS__get_expedition_by_zone_instance, file);
newXS(strcpy(buf, "get_expedition_lockout_by_char_id"), XS__get_expedition_lockout_by_char_id, file);
newXS(strcpy(buf, "get_expedition_lockouts_by_char_id"), XS__get_expedition_lockouts_by_char_id, file);
newXS(strcpy(buf, "getlanguagename"), XS__getlanguagename, file);
newXS(strcpy(buf, "getinventoryslotid"), XS__getinventoryslotid, file);
newXS(strcpy(buf, "getitemname"), XS__getitemname, file);
newXS(strcpy(buf, "getItemName"), XS_qc_getItemName, file);