pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-06-10 15:00:25 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

[Quest API] Add HTML color tag method to Perl and Lua. (#1324)

Browse Source 
* Add HTML color tag method to Perl and Lua.
- Add quest::gethexcolorcode(color_name) to Perl.
- Add eq.get_hex_color_code(color_name) to Lua.

Full color list here: https://pastebin.com/rUYKr1ye

* Convert to static and use strcasecmp over strcmp.

Co-authored-by: Chris Miles <akkadius1@gmail.com>
This commit is contained in:
Alex
2021-04-23 00:52:00 -04:00
committed by GitHub
parent c18562b150
commit 13a50f7806
4 changed files with 347 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser_api.cpp
+18
View File
@@ -6477,6 +6477,23 @@ XS(XS__secondstotime) {
XSRETURN(1);
}
XS(XS__gethexcolorcode);
XS(XS__gethexcolorcode) {
dXSARGS;
if (items != 1) {
Perl_croak(aTHX_ "Usage: quest::gethexcolorcode(std::string color_name)");
}
dXSTARG;
std::string hex_color_code;
std::string color_name = SvPV_nolen(ST(0));
hex_color_code = quest_manager.gethexcolorcode(color_name);
sv_setpv(TARG, hex_color_code.c_str());
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
/*
This is the callback perl will look for to setup the
quest package's XSUBs
@@ -6685,6 +6702,7 @@ EXTERN_C XS(boot_quest) {
newXS(strcpy(buf, "forcedooropen"), XS__forcedooropen, file);
newXS(strcpy(buf, "getcharidbyname"), XS__getcharidbyname, file);
newXS(strcpy(buf, "getclassname"), XS__getclassname, file);
newXS(strcpy(buf, "gethexcolorcode"), XS__gethexcolorcode, file);
newXS(strcpy(buf, "getcurrencyid"), XS__getcurrencyid, file);
newXS(strcpy(buf, "get_expedition"), XS__get_expedition, file);
newXS(strcpy(buf, "get_expedition_by_char_id"), XS__get_expedition_by_char_id, file);