mirror of
https://github.com/EQEmu/Server.git
synced 2026-05-19 13:28:25 +00:00
[Quest API] Add GetNPCAggro() and SetNPCAggro() to Perl/Lua (#3781)
* [Quest API] Add GetNPCAggro() and SetNPCAggro() to Perl/Lua # Perl - Add `$npc->GetNPCAggro()`. - Add `$npc->SetNPCAggro(in_npc_aggro)`. # Lua - Add `npc:GetNPCAggro()`. - Add `npc:SetNPCAggro(in_npc_aggro)`. # Notes - Allows operators to enable or disable an NPC's NPC aggro capability dynamically. * Update api_service.cpp
This commit is contained in:
@@ -775,6 +775,17 @@ bool Perl_NPC_HasSpecialAbilities(NPC* self) // @categories Script Utility
|
||||
return self->HasSpecialAbilities();
|
||||
}
|
||||
|
||||
bool Perl_NPC_GetNPCAggro(NPC* self) // @categories Script Utility
|
||||
{
|
||||
return self->GetNPCAggro();
|
||||
}
|
||||
|
||||
void Perl_NPC_SetNPCAggro(NPC* self, bool in_npc_aggro) // @categories Script Utility
|
||||
{
|
||||
self->SetNPCAggro(in_npc_aggro);
|
||||
}
|
||||
|
||||
|
||||
void perl_register_npc()
|
||||
{
|
||||
perl::interpreter perl(PERL_GET_THX);
|
||||
@@ -836,6 +847,7 @@ void perl_register_npc()
|
||||
package.add("GetMaxDamage", &Perl_NPC_GetMaxDamage);
|
||||
package.add("GetMaxWp", &Perl_NPC_GetMaxWp);
|
||||
package.add("GetMinDMG", &Perl_NPC_GetMinDMG);
|
||||
package.add("GetNPCAggro", &Perl_NPC_GetNPCAggro);
|
||||
package.add("GetNPCFactionID", &Perl_NPC_GetNPCFactionID);
|
||||
package.add("GetNPCHate", &Perl_NPC_GetNPCHate);
|
||||
package.add("GetNPCSpellsID", &Perl_NPC_GetNPCSpellsID);
|
||||
@@ -911,6 +923,7 @@ void perl_register_npc()
|
||||
package.add("SetLDoNTrapDetected", &Perl_NPC_SetLDoNTrapDetected);
|
||||
package.add("SetLDoNTrapSpellID", &Perl_NPC_SetLDoNTrapSpellID);
|
||||
package.add("SetLDoNTrapType", &Perl_NPC_SetLDoNTrapType);
|
||||
package.add("SetNPCAggro", &Perl_NPC_SetNPCAggro);
|
||||
package.add("SetGold", &Perl_NPC_SetGold);
|
||||
package.add("SetGrid", &Perl_NPC_SetGrid);
|
||||
package.add("SetNPCFactionID", &Perl_NPC_SetNPCFactionID);
|
||||
|
||||
Reference in New Issue
Block a user