pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-16 22:58:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Allow heroforge textures to be manipulated via perl

Browse Source
This commit is contained in:
Akkadius
2016-03-28 21:13:37 -05:00
parent 6c5d686b22
commit a82f5f8bf6
3 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser_api.cpp
+12 -3
View File
@@ -3317,13 +3317,22 @@ XS(XS__wearchange);
XS(XS__wearchange)
{
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: wearchange(slot, texture)");
if (items < 4)
Perl_croak(aTHX_ "Usage: wearchange(slot, texture, [hero_forge_model], [elite_material])");
uint8 slot = (int)SvUV(ST(0));
uint16 texture = (int)SvUV(ST(1));
quest_manager.wearchange(slot, texture);
uint32 hero_forge_model = 0;
uint32 elite_material = 0;
if (items > 2)
hero_forge_model = (int)SvUV(ST(2));
if (items > 3)
elite_material = (int)SvUV(ST(3));
quest_manager.wearchange(slot, texture, hero_forge_model, elite_material);
XSRETURN_EMPTY;
}