[Quest API] Add RemoveAllNimbusEffects() to Perl/Lua. (#1413)

* [Quest API] Add RemoveAllNimbusEffects() to Perl/Lua.
- Add $client->RemoveAllNimbusEffects() to Perl.
- Add client:RemoveAllNimbusEffects() to Lua.

* Optimize.
This commit is contained in:
Alex
2021-06-17 12:40:01 -04:00
committed by GitHub
parent 82ad8b5fe2
commit 3f8b67e500
5 changed files with 39 additions and 1 deletions
+14
View File
@@ -6257,6 +6257,19 @@ XS(XS_Mob_GetLastName) {
XSRETURN(1);
}
XS(XS_Mob_RemoveAllNimbusEffects); /* prototype to pass -Wmissing-prototypes */
XS(XS_Mob_RemoveAllNimbusEffects) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: Mob::RemoveAllNimbusEffects(THIS)"); // @categories Script Utility
{
Mob *THIS;
VALIDATE_THIS_IS_MOB;
THIS->RemoveAllNimbusEffects();
}
XSRETURN_EMPTY;
}
XS(XS_Mob_AddNimbusEffect);
XS(XS_Mob_AddNimbusEffect) {
dXSARGS;
@@ -6639,6 +6652,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, "RemoveAllNimbusEffects"), XS_Mob_RemoveAllNimbusEffects, file, "$");
newXSproto(strcpy(buf, "AddNimbusEffect"), XS_Mob_AddNimbusEffect, file, "$$");
#ifdef BOTS
newXSproto(strcpy(buf, "CastToBot"), XS_Mob_CastToBot, file, "$");