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

[Quest API] Add GetCloseMobList() and CalculateDistance() overload to Perl/Lua (#3455)

Browse Source 
* [Quest API] Add GetCloseMobList() and CalculateDistance() overload to Perl/Lua

# Perl
- Add `$entity_list->GetCloseMobList(mob)`.
- Add `$entity_list->GetCloseMobList(mob, distance)`.
- Add `$mob->CalculateDistance(mob)`.
- Add `$mob->GetCloseMobList()`.
- Add `$mob->GetCloseMobList(distance)`.

# Lua
- Add `eq.get_entity_list():GetCloseMobList(mob)`.
- Add `eq.get_entity_list():GetCloseMobList(mob, distance)`.
- Add `mob:CalculateDistance(mob)`.
- Add `mob:GetCloseMobList()`.
- Add `mob:GetCloseMobList(distance)`.

* Ignore Self

* Update lua_entity_list.cpp

* Cleanup
This commit is contained in:
Alex King
2023-07-02 10:55:27 -04:00
committed by GitHub
parent 6a80bcecc7
commit 728ce0c519
9 changed files with 270 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_entity.cpp
+57
View File
@@ -4,6 +4,7 @@
#include "embperl.h"
#include "entity.h"
#include "mob.h"
#include "../common/global_define.h"
#include "../common/rulesys.h"
#include "../common/say_link.h"
@@ -610,6 +611,59 @@ Bot* Perl_EntityList_GetRandomBot(EntityList* self, float x, float y, float z, f
return self->GetRandomBot(glm::vec3(x, y, z), distance, exclude_bot);
}
perl::array Perl_EntityList_GetCloseMobList(EntityList* self, Mob* mob)
{
perl::array result;
const auto& l = self->GetCloseMobList(mob);
result.reserve(l.size());
for (const auto& e : l) {
result.push_back(e.second);
}
return result;
}
perl::array Perl_EntityList_GetCloseMobList(EntityList* self, Mob* mob, float distance)
{
perl::array result;
const auto& l = self->GetCloseMobList(mob, distance);
result.reserve(l.size());
for (const auto& e : l) {
if (mob->CalculateDistance(e.second) <= distance) {
result.push_back(e.second);
}
}
return result;
}
perl::array Perl_EntityList_GetCloseMobList(EntityList* self, Mob* mob, float distance, bool ignore_self)
{
perl::array result;
const auto& l = self->GetCloseMobList(mob, distance);
result.reserve(l.size());
for (const auto& e : l) {
if (ignore_self && e.second == mob) {
continue;
}
if (mob->CalculateDistance(e.second) <= distance) {
result.push_back(e.second);
}
}
return result;
}
Spawn2* Perl_EntityList_GetSpawnByID(EntityList* self, uint32 spawn_id) {
return self->GetSpawnByID(spawn_id);
}
@@ -657,6 +711,9 @@ void perl_register_entitylist()
package.add("GetClientByName", &Perl_EntityList_GetClientByName);
package.add("GetClientByWID", &Perl_EntityList_GetClientByWID);
package.add("GetClientList", &Perl_EntityList_GetClientList);
package.add("GetCloseMobList", (perl::array(*)(EntityList*, Mob*))&Perl_EntityList_GetCloseMobList);
package.add("GetCloseMobList", (perl::array(*)(EntityList*, Mob*, float))&Perl_EntityList_GetCloseMobList);
package.add("GetCloseMobList", (perl::array(*)(EntityList*, Mob*, float, bool))&Perl_EntityList_GetCloseMobList);
package.add("GetCorpseByID", &Perl_EntityList_GetCorpseByID);
package.add("GetCorpseByName", &Perl_EntityList_GetCorpseByName);
package.add("GetCorpseByOwner", &Perl_EntityList_GetCorpseByOwner);