pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-08-29 12:47:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add IsAlwaysAggro() to Perl/Lua (#4152)

Browse Source 
- Add `$mob->IsAlwaysAggro()`.

- Add `mob:IsAlwaysAggro()`.

- Allows operators to determine if a mob is set to always aggro.
This commit is contained in:
Alex King
2024-03-03 20:40:20 -05:00
committed by GitHub
parent b766a79c11
commit 8ee7910569
3 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_mob.cpp
+6
View File
@@ -3415,6 +3415,11 @@ int Perl_Mob_GetHeroicStrikethrough(Mob* self)
return self->GetHeroicStrikethrough();
}
bool Perl_Mob_IsAlwaysAggro(Mob* self)
{
return self->AlwaysAggro();
}
void perl_register_mob()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3780,6 +3785,7 @@ void perl_register_mob()
package.add("InterruptSpell", (void(*)(Mob*))&Perl_Mob_InterruptSpell);
package.add("InterruptSpell", (void(*)(Mob*, uint16))&Perl_Mob_InterruptSpell);
package.add("IsAIControlled", &Perl_Mob_IsAIControlled);
package.add("IsAlwaysAggro", &Perl_Mob_IsAlwaysAggro);
package.add("IsAmnesiad", &Perl_Mob_IsAmnesiad);
package.add("IsAnimation", &Perl_Mob_IsAnimation);
package.add("IsAttackAllowed", (bool(*)(Mob*, Mob*))&Perl_Mob_IsAttackAllowed);