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

[Quest API] Add AddNimbusEffect(effect_id) to Perl. (#1412)

Browse Source 
- Add $client->AddNimbusEffect(effect_id) to Perl.
This commit is contained in:
Alex 2021-06-16 11:06:30 -04:00 committed by GitHub
parent 65150b0581
commit 797eaf308d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
zone/perl_mob.cpp
View File

@ -6257,6 +6257,20 @@ XS(XS_Mob_GetLastName) {
XSRETURN(1);
}
XS(XS_Mob_AddNimbusEffect);
XS(XS_Mob_AddNimbusEffect) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: Mob::AddNimbusEffect(THIS, int effect_id)"); // @categories Script Utility
{
Mob* THIS;
int effect_id = (int) SvIV(ST(1));
VALIDATE_THIS_IS_MOB;
THIS->AddNimbusEffect(effect_id);
}
XSRETURN_EMPTY;
}
#ifdef BOTS
XS(XS_Mob_CastToBot); /* prototype to pass -Wmissing-prototypes */
XS(XS_Mob_CastToBot)
@ -6625,6 +6639,7 @@ XS(boot_Mob) {
newXSproto(strcpy(buf, "GetHateClosest"), XS_Mob_GetHateClosest, file, "$");
newXSproto(strcpy(buf, "GetHateListByDistance"), XS_Mob_GetHateListByDistance, file, "$;$");
newXSproto(strcpy(buf, "GetLastName"), XS_Mob_GetLastName, file, "$");
newXSproto(strcpy(buf, "AddNimbusEffect"), XS_Mob_AddNimbusEffect, file, "$$");
#ifdef BOTS
newXSproto(strcpy(buf, "CastToBot"), XS_Mob_CastToBot, file, "$");
#endif