mirror of
https://github.com/EQEmu/Server.git
synced 2026-04-02 16:32:26 +00:00
7ab909ee47
- License was intended to be GPLv3 per earlier commit of GPLv3 LICENSE FILE - This is confirmed by the inclusion of libraries that are incompatible with GPLv2 - This is also confirmed by KLS and the agreement of KLS's predecessors - Added GPLv3 license headers to the compilable source files - Removed Folly licensing in strings.h since the string functions do not match the Folly functions and are standard functions - this must have been left over from previous implementations - Removed individual contributor license headers since the project has been under the "developer" mantle for many years - Removed comments on files that were previously automatically generated since they've been manually modified multiple times and there are no automatic scripts referencing them (removed in 2023)
930 lines
32 KiB
C++
930 lines
32 KiB
C++
/* EQEmu: EQEmulator
|
|
|
|
Copyright (C) 2001-2026 EQEmu Development Team
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
#include "common/features.h"
|
|
|
|
#ifdef EMBPERL_XS_CLASSES
|
|
|
|
#include "common/rulesys.h"
|
|
#include "common/say_link.h"
|
|
#include "zone/embperl.h"
|
|
#include "zone/entity.h"
|
|
#include "zone/mob.h"
|
|
|
|
#include <list>
|
|
|
|
Mob* Perl_EntityList_GetMobID(EntityList* self, uint16_t mob_id) // @categories Script Utility
|
|
{
|
|
return self->GetMobID(mob_id);
|
|
}
|
|
|
|
Mob* Perl_EntityList_GetMob(EntityList* self, const char* name)
|
|
{
|
|
return self->GetMob(name);
|
|
}
|
|
|
|
Mob* Perl_EntityList_GetMobByID(EntityList* self, uint16_t mob_id) // @categories Script Utility
|
|
{
|
|
return self->GetMob(mob_id);
|
|
}
|
|
|
|
Mob* Perl_EntityList_GetMobByNpcTypeID(EntityList* self, uint32_t npc_type_id) // @categories Script Utility
|
|
{
|
|
return self->GetMobByNpcTypeID(npc_type_id);
|
|
}
|
|
|
|
bool Perl_EntityList_IsMobSpawnedByNpcTypeID(EntityList* self, uint32_t npc_type_id) // @categories Script Utility
|
|
{
|
|
return self->IsMobSpawnedByNpcTypeID(npc_type_id);
|
|
}
|
|
|
|
NPC* Perl_EntityList_GetNPCByID(EntityList* self, uint16_t id) // @categories Script Utility
|
|
{
|
|
return self->GetNPCByID(id);
|
|
}
|
|
|
|
NPC* Perl_EntityList_GetNPCByNPCTypeID(EntityList* self, uint32_t npc_id) // @categories Script Utility
|
|
{
|
|
return self->GetNPCByNPCTypeID(npc_id);
|
|
}
|
|
|
|
NPC* Perl_EntityList_GetNPCBySpawnID(EntityList* self, uint32_t spawn_id) // @categories Script Utility, Spawns
|
|
{
|
|
return self->GetNPCBySpawnID(spawn_id);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetClientByName(EntityList* self, const char* name) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetClientByName(name);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetClientByAccID(EntityList* self, uint32_t account_id) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetClientByAccID(account_id);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetClientByID(EntityList* self, uint16_t client_id) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetClientByID(client_id);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetClientByCharID(EntityList* self, uint32_t character_id) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetClientByCharID(character_id);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetClientByWID(EntityList* self, uint32_t wid) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetClientByWID(wid);
|
|
}
|
|
|
|
Object* Perl_EntityList_GetObjectByDBID(EntityList* self, uint32_t database_id) // @categories Script Utility, Objects
|
|
{
|
|
return self->GetObjectByDBID(database_id);
|
|
}
|
|
|
|
Object* Perl_EntityList_GetObjectByID(EntityList* self, uint32_t entity_id) // @categories Script Utility, Objects
|
|
{
|
|
return self->GetObjectByID(entity_id);
|
|
}
|
|
|
|
Doors* Perl_EntityList_GetDoorsByDBID(EntityList* self, uint32_t database_id) // @categories Script Utility, Doors
|
|
{
|
|
return self->GetDoorsByDBID(database_id);
|
|
}
|
|
|
|
Doors* Perl_EntityList_GetDoorsByDoorID(EntityList* self, uint32_t door_id) // @categories Script Utility, Doors
|
|
{
|
|
return self->GetDoorsByDoorID(door_id);
|
|
}
|
|
|
|
Doors* Perl_EntityList_GetDoorsByID(EntityList* self, uint32_t entity_id) // @categories Script Utility, Doors
|
|
{
|
|
return self->GetDoorsByID(entity_id);
|
|
}
|
|
|
|
Doors* Perl_EntityList_FindDoor(EntityList* self, uint32_t door_id) // @categories Script Utility, Doors
|
|
{
|
|
return self->FindDoor(door_id);
|
|
}
|
|
|
|
Group* Perl_EntityList_GetGroupByMob(EntityList* self, Mob* mob) // @categories Account and Character, Script Utility, Group
|
|
{
|
|
return self->GetGroupByMob(mob);
|
|
}
|
|
|
|
Group* Perl_EntityList_GetGroupByClient(EntityList* self, Client* client) // @categories Account and Character, Script Utility, Group
|
|
{
|
|
return self->GetGroupByClient(client);
|
|
}
|
|
|
|
Group* Perl_EntityList_GetGroupByID(EntityList* self, uint32_t id) // @categories Account and Character, Script Utility, Group
|
|
{
|
|
return self->GetGroupByID(id);
|
|
}
|
|
|
|
Group* Perl_EntityList_GetGroupByLeaderName(EntityList* self, const char* leader_name) // @categories Account and Character, Script Utility, Group
|
|
{
|
|
return self->GetGroupByLeaderName(leader_name);
|
|
}
|
|
|
|
Raid* Perl_EntityList_GetRaidByID(EntityList* self, uint32_t id) // @categories Script Utility, Raid
|
|
{
|
|
return self->GetRaidByID(id);
|
|
}
|
|
|
|
Raid* Perl_EntityList_GetRaidByClient(EntityList* self, Client* client) // @categories Account and Character, Script Utility, Raid
|
|
{
|
|
return self->GetRaidByClient(client);
|
|
}
|
|
|
|
Corpse* Perl_EntityList_GetCorpseByOwner(EntityList* self, Client* client) // @categories Script Utility, Corpse
|
|
{
|
|
return self->GetCorpseByOwner(client);
|
|
}
|
|
|
|
Corpse* Perl_EntityList_GetCorpseByID(EntityList* self, uint16_t id) // @categories Script Utility, Corpse
|
|
{
|
|
return self->GetCorpseByID(id);
|
|
}
|
|
|
|
Corpse* Perl_EntityList_GetCorpseByName(EntityList* self, const char* name) // @categories Script Utility, Corpse
|
|
{
|
|
return self->GetCorpseByName(name);
|
|
}
|
|
|
|
void Perl_EntityList_ClearClientPetitionQueue(EntityList* self) // @categories Script Utility
|
|
{
|
|
self->ClearClientPetitionQueue();
|
|
}
|
|
|
|
bool Perl_EntityList_CanAddHateForMob(EntityList* self, Mob* target) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
return self->CanAddHateForMob(target);
|
|
}
|
|
|
|
void Perl_EntityList_Clear(EntityList* self) // @categories Script Utility
|
|
{
|
|
self->Clear();
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveMob(EntityList* self, uint16_t delete_id) // @categories Script Utility
|
|
{
|
|
return self->RemoveMob(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveClient(EntityList* self, uint16_t delete_id) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->RemoveClient(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveNPC(EntityList* self, uint16_t delete_id) // @categories Script Utility
|
|
{
|
|
return self->RemoveNPC(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveGroup(EntityList* self, uint32_t delete_id) // @categories Script Utility, Group
|
|
{
|
|
return self->RemoveGroup(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveCorpse(EntityList* self, uint16_t delete_id) // @categories Corpse
|
|
{
|
|
return self->RemoveCorpse(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveDoor(EntityList* self, uint16_t delete_id) // @categories Doors
|
|
{
|
|
return self->RemoveDoor(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveTrap(EntityList* self, uint16_t delete_id) // @categories Script Utility
|
|
{
|
|
return self->RemoveTrap(delete_id);
|
|
}
|
|
|
|
bool Perl_EntityList_RemoveObject(EntityList* self, uint16_t delete_id) // @categories Script Utility, Objects
|
|
{
|
|
return self->RemoveObject(delete_id);
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllMobs(EntityList* self) // @categories Script Utility
|
|
{
|
|
self->RemoveAllMobs();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllClients(EntityList* self) // @categories Script Utility
|
|
{
|
|
self->RemoveAllClients();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllNPCs(EntityList* self) // @categories Script Utility
|
|
{
|
|
self->RemoveAllNPCs();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllGroups(EntityList* self) // @categories Group
|
|
{
|
|
self->RemoveAllGroups();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllCorpses(EntityList* self) // @categories Corpse
|
|
{
|
|
self->RemoveAllCorpses();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllDoors(EntityList* self) // @categories Doors
|
|
{
|
|
self->RemoveAllDoors();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllTraps(EntityList* self) // @categories Script Utility
|
|
{
|
|
self->RemoveAllTraps();
|
|
}
|
|
|
|
void Perl_EntityList_RemoveAllObjects(EntityList* self) // @categories Objects
|
|
{
|
|
self->RemoveAllObjects();
|
|
}
|
|
|
|
void Perl_EntityList_Message(EntityList* self, uint32 guild_id, uint32 color_type, const char* message) // @categories Script Utility
|
|
{
|
|
self->Message(guild_id, color_type, message);
|
|
}
|
|
|
|
void Perl_EntityList_MessageStatus(EntityList* self, uint32 guild_id, int to_minstatus, uint32 color_type, const char* message) // @categories Script Utility
|
|
{
|
|
self->MessageStatus(guild_id, to_minstatus, color_type, message);
|
|
}
|
|
|
|
void Perl_EntityList_MessageClose(EntityList* self, Mob* sender, bool skip_sender, float distance, uint32 color_type, const char* message)
|
|
{
|
|
if (RuleB(Chat, AutoInjectSaylinksToClientMessage))
|
|
{
|
|
std::string new_message = EQ::SayLinkEngine::InjectSaylinksIfNotExist(message);
|
|
self->MessageClose(sender, skip_sender, distance, color_type, new_message.c_str());
|
|
}
|
|
else
|
|
{
|
|
self->MessageClose(sender, skip_sender, distance, color_type, message);
|
|
}
|
|
}
|
|
|
|
void Perl_EntityList_RemoveFromTargets(EntityList* self, Mob* mob) // @categories Script Utility
|
|
{
|
|
self->RemoveFromTargets(mob);
|
|
}
|
|
|
|
void Perl_EntityList_ReplaceWithTarget(EntityList* self, Mob* old_mob, Mob* new_target) // @categories Script Utility
|
|
{
|
|
self->ReplaceWithTarget(old_mob, new_target);
|
|
}
|
|
|
|
void Perl_EntityList_OpenDoorsNear(EntityList* self, Mob* opener) // @categories Script Utility, Doors
|
|
{
|
|
self->OpenDoorsNear(opener);
|
|
}
|
|
|
|
std::string Perl_EntityList_MakeNameUnique(EntityList* self, char* name) // @categories Script Utility
|
|
{
|
|
char buf[64] = {0};
|
|
strn0cpy(buf, name, sizeof(buf));
|
|
return self->MakeNameUnique(buf); // todo: this function is unsafe
|
|
}
|
|
|
|
std::string Perl_EntityList_RemoveNumbers(EntityList* self, char* name)
|
|
{
|
|
char buf[64] = {0};
|
|
strn0cpy(buf, name, sizeof(buf));
|
|
return EntityList::RemoveNumbers(buf); // todo: this function is unsafe
|
|
}
|
|
|
|
void Perl_EntityList_SignalMobsByNPCID(EntityList* self, uint32 npc_type_id, int signal_id) // @categories Script Utility
|
|
{
|
|
self->SignalMobsByNPCID(npc_type_id, signal_id);
|
|
}
|
|
|
|
void Perl_EntityList_RemoveEntity(EntityList* self, uint16_t id) // @categories Script Utility
|
|
{
|
|
self->RemoveEntity(id);
|
|
}
|
|
|
|
uint32_t Perl_EntityList_DeleteNPCCorpses(EntityList* self) // @categories Corpse
|
|
{
|
|
return self->DeleteNPCCorpses();
|
|
}
|
|
|
|
uint32_t Perl_EntityList_DeletePlayerCorpses(EntityList* self) // @categories Account and Character, Corpse
|
|
{
|
|
return self->DeletePlayerCorpses();
|
|
}
|
|
|
|
void Perl_EntityList_HalveAggro(EntityList* self, Mob* who) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->HalveAggro(who);
|
|
}
|
|
|
|
void Perl_EntityList_DoubleAggro(EntityList* self, Mob* who) // @categories Script Utility
|
|
{
|
|
self->DoubleAggro(who);
|
|
}
|
|
|
|
void Perl_EntityList_ClearFeignAggro(EntityList* self, Mob* target) // @categories Script Utility
|
|
{
|
|
self->ClearFeignAggro(target);
|
|
}
|
|
|
|
bool Perl_EntityList_Fighting(EntityList* self, Mob* target) // @categories Script Utility
|
|
{
|
|
return self->Fighting(target);
|
|
}
|
|
|
|
void Perl_EntityList_RemoveFromHateLists(EntityList* self, Mob* mob) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->RemoveFromHateLists(mob);
|
|
}
|
|
|
|
void Perl_EntityList_RemoveFromHateLists(EntityList* self, Mob* mob, bool set_to_one) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->RemoveFromHateLists(mob, set_to_one);
|
|
}
|
|
|
|
void Perl_EntityList_MessageGroup(EntityList* self, Mob* sender, bool skip_close, uint32_t emote_color_type, const char* message) // @categories Script Utility, Group
|
|
{
|
|
self->MessageGroup(sender, skip_close, emote_color_type, message);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetRandomClient(EntityList* self) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomClient();
|
|
}
|
|
|
|
Client* Perl_EntityList_GetRandomClient(EntityList* self, float x, float y, float z, float distance) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomClient(glm::vec3(x, y, z), distance);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetRandomClient(EntityList* self, float x, float y, float z, float distance, Client* exclude_client) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomClient(glm::vec3(x, y, z), distance, exclude_client);
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetMobList(EntityList* self) // @categories Script Utility
|
|
{
|
|
perl::array result;
|
|
|
|
std::list<Mob*> mob_list;
|
|
entity_list.GetMobList(mob_list);
|
|
for (Mob* entry : mob_list)
|
|
{
|
|
result.push_back(entry);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetClientList(EntityList* self) // @categories Account and Character, Script Utility
|
|
{
|
|
perl::array result;
|
|
|
|
std::list<Client*> client_list;
|
|
entity_list.GetClientList(client_list);
|
|
for (Client* entry : client_list)
|
|
{
|
|
result.push_back(entry);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
Bot* Perl_EntityList_GetBotByID(EntityList* self, uint32_t bot_id) // @categories Script Utility, Bot
|
|
{
|
|
return self->GetBotByBotID(bot_id);
|
|
}
|
|
|
|
Bot* Perl_EntityList_GetBotByName(EntityList* self, std::string bot_name) // @categories Script Utility, Bot
|
|
{
|
|
return self->GetBotByBotName(bot_name);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetBotOwnerByBotEntityID(EntityList* self, uint32_t entity_id) // @categories Script Utility, Bot
|
|
{
|
|
return self->GetBotOwnerByBotEntityID(entity_id);
|
|
}
|
|
|
|
Client* Perl_EntityList_GetBotOwnerByBotID(EntityList* self, uint32_t bot_id) // @categories Script Utility, Bot
|
|
{
|
|
return self->GetBotOwnerByBotID(bot_id);
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetBotList(EntityList* self) // @categories Script Utility, Bot
|
|
{
|
|
perl::array result;
|
|
auto current_bot_list = self->GetBotList();
|
|
auto it = current_bot_list.begin();
|
|
|
|
while (it != current_bot_list.end()) {
|
|
result.push_back(it->second);
|
|
++it;
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetBotListByCharacterID(EntityList* self, uint32_t character_id) // @categories Script Utility, Bot
|
|
{
|
|
perl::array result;
|
|
auto current_bot_list = self->GetBotListByCharacterID(character_id);
|
|
for (int i = 0; i < current_bot_list.size(); ++i)
|
|
{
|
|
result.push_back(current_bot_list[i]);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetBotListByCharacterID(EntityList* self, uint32_t character_id, uint8_t class_id) // @categories Script Utility, Bot
|
|
{
|
|
perl::array result;
|
|
auto current_bot_list = self->GetBotListByCharacterID(character_id, class_id);
|
|
for (int i = 0; i < current_bot_list.size(); ++i)
|
|
{
|
|
result.push_back(current_bot_list[i]);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetBotListByClientName(EntityList* self, std::string client_name) // @categories Script Utility, Bot
|
|
{
|
|
perl::array result;
|
|
auto current_bot_list = self->GetBotListByClientName(client_name);
|
|
for (int i = 0; i < current_bot_list.size(); ++i)
|
|
{
|
|
result.push_back(current_bot_list[i]);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetBotListByClientName(EntityList* self, std::string client_name, uint8 class_id) // @categories Script Utility, Bot
|
|
{
|
|
perl::array result;
|
|
auto current_bot_list = self->GetBotListByClientName(client_name, class_id);
|
|
for (int i = 0; i < current_bot_list.size(); ++i)
|
|
{
|
|
result.push_back(current_bot_list[i]);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
void Perl_EntityList_SignalAllBotsByOwnerCharacterID(EntityList* self, uint32_t character_id, int signal_id) // @categories Script Utility
|
|
{
|
|
entity_list.SignalAllBotsByOwnerCharacterID(character_id, signal_id);
|
|
}
|
|
|
|
void Perl_EntityList_SignalAllBotsByOwnerName(EntityList* self, std::string owner_name, int signal_id) // @categories Script Utility
|
|
{
|
|
entity_list.SignalAllBotsByOwnerName(owner_name, signal_id);
|
|
}
|
|
|
|
void Perl_EntityList_SignalBotByBotID(EntityList* self, uint32_t bot_id, int signal_id) // @categories Script Utility
|
|
{
|
|
entity_list.SignalBotByBotID(bot_id, signal_id);
|
|
}
|
|
|
|
void Perl_EntityList_SignalBotByBotName(EntityList* self, std::string bot_name, int signal_id) // @categories Script Utility
|
|
{
|
|
entity_list.SignalBotByBotName(bot_name, signal_id);
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetNPCList(EntityList* self) // @categories Script Utility
|
|
{
|
|
perl::array result;
|
|
|
|
std::list<NPC*> npc_list;
|
|
entity_list.GetNPCList(npc_list);
|
|
for (NPC* entry : npc_list)
|
|
{
|
|
result.push_back(entry);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetCorpseList(EntityList* self) // @categories Script Utility, Corpse
|
|
{
|
|
perl::array result;
|
|
|
|
std::list<Corpse*> corpse_list;
|
|
entity_list.GetCorpseList(corpse_list);
|
|
for (Corpse* entry : corpse_list)
|
|
{
|
|
result.push_back(entry);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetObjectList(EntityList* self) // @categories Script Utility, Objects
|
|
{
|
|
perl::array result;
|
|
|
|
std::list<Object*> object_list;
|
|
entity_list.GetObjectList(object_list);
|
|
for (Object* entry : object_list)
|
|
{
|
|
result.push_back(entry);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetDoorsList(EntityList* self) // @categories Script Utility, Doors
|
|
{
|
|
perl::array result;
|
|
|
|
std::list<Doors*> door_list;
|
|
entity_list.GetDoorsList(door_list);
|
|
for (Doors* entry : door_list)
|
|
{
|
|
result.push_back(entry);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
void Perl_EntityList_SignalAllClients(EntityList* self, int signal_id) // @categories Script Utility
|
|
{
|
|
entity_list.SignalAllClients(signal_id);
|
|
}
|
|
|
|
Mob* Perl_EntityList_GetRandomMob(EntityList* self) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomMob();
|
|
}
|
|
|
|
Mob* Perl_EntityList_GetRandomMob(EntityList* self, float x, float y, float z, float distance) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomMob(glm::vec3(x, y, z), distance);
|
|
}
|
|
|
|
Mob* Perl_EntityList_GetRandomMob(EntityList* self, float x, float y, float z, float distance, Mob* exclude_mob) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomMob(glm::vec3(x, y, z), distance, exclude_mob);
|
|
}
|
|
|
|
NPC* Perl_EntityList_GetRandomNPC(EntityList* self) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomNPC();
|
|
}
|
|
|
|
NPC* Perl_EntityList_GetRandomNPC(EntityList* self, float x, float y, float z, float distance) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomNPC(glm::vec3(x, y, z), distance);
|
|
}
|
|
|
|
NPC* Perl_EntityList_GetRandomNPC(EntityList* self, float x, float y, float z, float distance, NPC* exclude_npc) // @categories Account and Character, Script Utility
|
|
{
|
|
return self->GetRandomNPC(glm::vec3(x, y, z), distance, exclude_npc);
|
|
}
|
|
|
|
void Perl_EntityList_Marquee(EntityList* self, uint32 type, std::string message)
|
|
{
|
|
self->Marquee(type, message);
|
|
}
|
|
|
|
void Perl_EntityList_Marquee(EntityList* self, uint32 type, std::string message, uint32 duration)
|
|
{
|
|
self->Marquee(type, message, duration);
|
|
}
|
|
|
|
void Perl_EntityList_Marquee(EntityList* self, uint32 type, uint32 priority, uint32 fade_in, uint32 fade_out, uint32 duration, std::string message)
|
|
{
|
|
self->Marquee(type, priority, fade_in, fade_out, duration, message);
|
|
}
|
|
|
|
Bot* Perl_EntityList_GetRandomBot(EntityList* self) // @categories Bots, Script Utility
|
|
{
|
|
return self->GetRandomBot();
|
|
}
|
|
|
|
Bot* Perl_EntityList_GetRandomBot(EntityList* self, float x, float y, float z, float distance) // @categories Bot, Script Utility
|
|
{
|
|
return self->GetRandomBot(glm::vec3(x, y, z), distance);
|
|
}
|
|
|
|
Bot* Perl_EntityList_GetRandomBot(EntityList* self, float x, float y, float z, float distance, Bot* exclude_bot) // @categories Bot, Script Utility
|
|
{
|
|
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;
|
|
for (const auto& e : self->GetCloseMobList(mob, distance)) {
|
|
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;
|
|
for (const auto& e : self->GetCloseMobList(mob, distance)) {
|
|
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);
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetSpawnList(EntityList* self) {
|
|
perl::array ret;
|
|
|
|
std::list<Spawn2*> l;
|
|
|
|
self->GetSpawnList(l);
|
|
|
|
for (const auto& e : l) {
|
|
ret.push_back(e);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
void Perl_EntityList_AreaAttack(EntityList* self, Mob* attacker, float distance)
|
|
{
|
|
self->AEAttack(attacker, distance);
|
|
}
|
|
|
|
void Perl_EntityList_AreaAttack(EntityList* self, Mob* attacker, float distance, int16 slot_id)
|
|
{
|
|
self->AEAttack(attacker, distance, slot_id);
|
|
}
|
|
|
|
void Perl_EntityList_AreaAttack(EntityList* self, Mob* attacker, float distance, int16 slot_id, int count)
|
|
{
|
|
self->AEAttack(attacker, distance, slot_id, count);
|
|
}
|
|
|
|
void Perl_EntityList_AreaAttack(EntityList* self, Mob* attacker, float distance, int16 slot_id, int count, bool is_from_spell)
|
|
{
|
|
self->AEAttack(attacker, distance, slot_id, count, is_from_spell);
|
|
}
|
|
|
|
void Perl_EntityList_AreaAttack(EntityList* self, Mob* attacker, float distance, int16 slot_id, int count, bool is_from_spell, int attack_rounds)
|
|
{
|
|
self->AEAttack(attacker, distance, slot_id, count, is_from_spell, attack_rounds);
|
|
}
|
|
|
|
void Perl_EntityList_AreaSpell(EntityList* self, Mob* caster, Mob* center, uint16 spell_id)
|
|
{
|
|
self->AESpell(caster, center, spell_id);
|
|
}
|
|
|
|
void Perl_EntityList_AreaSpell(EntityList* self, Mob* caster, Mob* center, uint16 spell_id, bool affect_caster)
|
|
{
|
|
self->AESpell(caster, center, spell_id, affect_caster);
|
|
}
|
|
|
|
void Perl_EntityList_AreaSpell(EntityList* self, Mob* caster, Mob* center, uint16 spell_id, bool affect_caster, int16 resist_adjust)
|
|
{
|
|
self->AESpell(caster, center, spell_id, affect_caster, resist_adjust);
|
|
}
|
|
|
|
void Perl_EntityList_AreaSpell(EntityList* self, Mob* caster, Mob* center, uint16 spell_id, bool affect_caster, int16 resist_adjust, int max_targets)
|
|
{
|
|
self->AESpell(caster, center, spell_id, affect_caster, resist_adjust, &max_targets);
|
|
}
|
|
|
|
void Perl_EntityList_AreaTaunt(EntityList* self, Client* caster)
|
|
{
|
|
self->AETaunt(caster);
|
|
}
|
|
|
|
void Perl_EntityList_AreaTaunt(EntityList* self, Client* caster, float range)
|
|
{
|
|
self->AETaunt(caster, range);
|
|
}
|
|
|
|
void Perl_EntityList_AreaTaunt(EntityList* self, Client* caster, float range, int bonus_hate)
|
|
{
|
|
self->AETaunt(caster, range, bonus_hate);
|
|
}
|
|
|
|
void Perl_EntityList_MassGroupBuff(EntityList* self, Mob* caster, Mob* center, uint16 spell_id)
|
|
{
|
|
self->MassGroupBuff(caster, center, spell_id);
|
|
}
|
|
|
|
void Perl_EntityList_MassGroupBuff(EntityList* self, Mob* caster, Mob* center, uint16 spell_id, bool affect_caster)
|
|
{
|
|
self->MassGroupBuff(caster, center, spell_id, affect_caster);
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetNPCsByExcludedIDs(EntityList* self, perl::array npc_ids)
|
|
{
|
|
std::vector<uint32> ids;
|
|
|
|
for (int i = 0; i < npc_ids.size(); i++) {
|
|
ids.emplace_back(npc_ids[i]);
|
|
}
|
|
|
|
const auto& l = self->GetExcludedNPCsByIDs(ids);
|
|
|
|
perl::array npcs;
|
|
|
|
for (const auto& e : l) {
|
|
npcs.push_back(e);
|
|
}
|
|
|
|
return npcs;
|
|
}
|
|
|
|
perl::array Perl_EntityList_GetNPCsByIDs(EntityList* self, perl::array npc_ids)
|
|
{
|
|
std::vector<uint32> ids;
|
|
|
|
for (int i = 0; i < npc_ids.size(); i++) {
|
|
ids.emplace_back(npc_ids[i]);
|
|
}
|
|
|
|
const auto& l = self->GetNPCsByIDs(ids);
|
|
|
|
perl::array npcs;
|
|
|
|
for (const auto& e : l) {
|
|
npcs.push_back(e);
|
|
}
|
|
|
|
return npcs;
|
|
}
|
|
|
|
void perl_register_entitylist()
|
|
{
|
|
perl::interpreter perl(PERL_GET_THX);
|
|
|
|
auto package = perl.new_class<EntityList>("EntityList");
|
|
package.add("AreaAttack", (void(*)(EntityList*, Mob*, float))&Perl_EntityList_AreaAttack);
|
|
package.add("AreaAttack", (void(*)(EntityList*, Mob*, float, int16))&Perl_EntityList_AreaAttack);
|
|
package.add("AreaAttack", (void(*)(EntityList*, Mob*, float, int16, int))&Perl_EntityList_AreaAttack);
|
|
package.add("AreaAttack", (void(*)(EntityList*, Mob*, float, int16, int, bool))&Perl_EntityList_AreaAttack);
|
|
package.add("AreaAttack", (void(*)(EntityList*, Mob*, float, int16, int, bool, int))&Perl_EntityList_AreaAttack);
|
|
package.add("AreaSpell", (void(*)(EntityList*, Mob*, Mob*, uint16))&Perl_EntityList_AreaSpell);
|
|
package.add("AreaSpell", (void(*)(EntityList*, Mob*, Mob*, uint16, bool))&Perl_EntityList_AreaSpell);
|
|
package.add("AreaSpell", (void(*)(EntityList*, Mob*, Mob*, uint16, bool, int16))&Perl_EntityList_AreaSpell);
|
|
package.add("AreaSpell", (void(*)(EntityList*, Mob*, Mob*, uint16, bool, int16, int))&Perl_EntityList_AreaSpell);
|
|
package.add("AreaTaunt", (void(*)(EntityList*, Client*))&Perl_EntityList_AreaTaunt);
|
|
package.add("AreaTaunt", (void(*)(EntityList*, Client*, float))&Perl_EntityList_AreaTaunt);
|
|
package.add("AreaTaunt", (void(*)(EntityList*, Client*, float, int))&Perl_EntityList_AreaTaunt);
|
|
package.add("CanAddHateForMob", &Perl_EntityList_CanAddHateForMob);
|
|
package.add("Clear", &Perl_EntityList_Clear);
|
|
package.add("ClearClientPetitionQueue", &Perl_EntityList_ClearClientPetitionQueue);
|
|
package.add("ClearFeignAggro", &Perl_EntityList_ClearFeignAggro);
|
|
package.add("DeleteNPCCorpses", &Perl_EntityList_DeleteNPCCorpses);
|
|
package.add("DeletePlayerCorpses", &Perl_EntityList_DeletePlayerCorpses);
|
|
package.add("DoubleAggro", &Perl_EntityList_DoubleAggro);
|
|
package.add("Fighting", &Perl_EntityList_Fighting);
|
|
package.add("FindDoor", &Perl_EntityList_FindDoor);
|
|
package.add("GetBotByID", &Perl_EntityList_GetBotByID);
|
|
package.add("GetBotByName", &Perl_EntityList_GetBotByName);
|
|
package.add("GetBotList", &Perl_EntityList_GetBotList);
|
|
package.add("GetBotOwnerByBotEntityID", (Client*(*)(EntityList*, uint32))&Perl_EntityList_GetBotOwnerByBotEntityID);
|
|
package.add("GetBotOwnerByBotID", (Client*(*)(EntityList*, uint32))&Perl_EntityList_GetBotOwnerByBotID);
|
|
package.add("GetBotListByCharacterID", (perl::array(*)(EntityList*, uint32))&Perl_EntityList_GetBotListByCharacterID);
|
|
package.add("GetBotListByCharacterID", (perl::array(*)(EntityList*, uint32, uint8))&Perl_EntityList_GetBotListByCharacterID);
|
|
package.add("GetBotListByClientName", (perl::array(*)(EntityList*, std::string))&Perl_EntityList_GetBotListByClientName);
|
|
package.add("GetBotListByClientName", (perl::array(*)(EntityList*, std::string, uint8))&Perl_EntityList_GetBotListByClientName);
|
|
package.add("GetClientByAccID", &Perl_EntityList_GetClientByAccID);
|
|
package.add("GetClientByCharID", &Perl_EntityList_GetClientByCharID);
|
|
package.add("GetClientByID", &Perl_EntityList_GetClientByID);
|
|
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);
|
|
package.add("GetCorpseList", &Perl_EntityList_GetCorpseList);
|
|
package.add("GetDoorsByDBID", &Perl_EntityList_GetDoorsByDBID);
|
|
package.add("GetDoorsByDoorID", &Perl_EntityList_GetDoorsByDoorID);
|
|
package.add("GetDoorsByID", &Perl_EntityList_GetDoorsByID);
|
|
package.add("GetDoorsList", &Perl_EntityList_GetDoorsList);
|
|
package.add("GetGroupByClient", &Perl_EntityList_GetGroupByClient);
|
|
package.add("GetGroupByID", &Perl_EntityList_GetGroupByID);
|
|
package.add("GetGroupByLeaderName", &Perl_EntityList_GetGroupByLeaderName);
|
|
package.add("GetGroupByMob", &Perl_EntityList_GetGroupByMob);
|
|
package.add("GetMob", &Perl_EntityList_GetMob);
|
|
package.add("GetMobByID", &Perl_EntityList_GetMobByID);
|
|
package.add("GetMobByNpcTypeID", &Perl_EntityList_GetMobByNpcTypeID);
|
|
package.add("GetMobID", &Perl_EntityList_GetMobID);
|
|
package.add("GetMobList", &Perl_EntityList_GetMobList);
|
|
package.add("GetNPCByID", &Perl_EntityList_GetNPCByID);
|
|
package.add("GetNPCByNPCTypeID", &Perl_EntityList_GetNPCByNPCTypeID);
|
|
package.add("GetNPCBySpawnID", &Perl_EntityList_GetNPCBySpawnID);
|
|
package.add("GetNPCList", &Perl_EntityList_GetNPCList);
|
|
package.add("GetNPCsByExcludedIDs", &Perl_EntityList_GetNPCsByExcludedIDs);
|
|
package.add("GetNPCsByIDs", &Perl_EntityList_GetNPCsByIDs);
|
|
package.add("GetObjectByDBID", &Perl_EntityList_GetObjectByDBID);
|
|
package.add("GetObjectByID", &Perl_EntityList_GetObjectByID);
|
|
package.add("GetObjectList", &Perl_EntityList_GetObjectList);
|
|
package.add("GetRaidByClient", &Perl_EntityList_GetRaidByClient);
|
|
package.add("GetRaidByID", &Perl_EntityList_GetRaidByID);
|
|
package.add("GetRandomBot", (Bot*(*)(EntityList*))&Perl_EntityList_GetRandomBot);
|
|
package.add("GetRandomBot", (Bot*(*)(EntityList*, float, float, float, float))&Perl_EntityList_GetRandomBot);
|
|
package.add("GetRandomBot", (Bot*(*)(EntityList*, float, float, float, float, Bot*))&Perl_EntityList_GetRandomBot);
|
|
package.add("GetRandomClient", (Client*(*)(EntityList*))&Perl_EntityList_GetRandomClient);
|
|
package.add("GetRandomClient", (Client*(*)(EntityList*, float, float, float, float))&Perl_EntityList_GetRandomClient);
|
|
package.add("GetRandomClient", (Client*(*)(EntityList*, float, float, float, float, Client*))&Perl_EntityList_GetRandomClient);
|
|
package.add("GetRandomMob", (Mob*(*)(EntityList*))&Perl_EntityList_GetRandomMob);
|
|
package.add("GetRandomMob", (Mob*(*)(EntityList*, float, float, float, float))&Perl_EntityList_GetRandomMob);
|
|
package.add("GetRandomMob", (Mob*(*)(EntityList*, float, float, float, float, Mob*))&Perl_EntityList_GetRandomMob);
|
|
package.add("GetRandomNPC", (NPC*(*)(EntityList*))&Perl_EntityList_GetRandomNPC);
|
|
package.add("GetRandomNPC", (NPC*(*)(EntityList*, float, float, float, float))&Perl_EntityList_GetRandomNPC);
|
|
package.add("GetRandomNPC", (NPC*(*)(EntityList*, float, float, float, float, NPC*))&Perl_EntityList_GetRandomNPC);
|
|
package.add("GetSpawnByID", (Spawn2*(*)(EntityList*, uint32))&Perl_EntityList_GetSpawnByID);
|
|
package.add("GetSpawnList", (perl::array(*)(EntityList*))&Perl_EntityList_GetSpawnList);
|
|
package.add("HalveAggro", &Perl_EntityList_HalveAggro);
|
|
package.add("IsMobSpawnedByNpcTypeID", &Perl_EntityList_IsMobSpawnedByNpcTypeID);
|
|
package.add("MakeNameUnique", &Perl_EntityList_MakeNameUnique);
|
|
package.add("Marquee", (void(*)(EntityList*, uint32, std::string))&Perl_EntityList_Marquee);
|
|
package.add("Marquee", (void(*)(EntityList*, uint32, std::string, uint32))&Perl_EntityList_Marquee);
|
|
package.add("Marquee", (void(*)(EntityList*, uint32, uint32, uint32, uint32, uint32, std::string))&Perl_EntityList_Marquee);
|
|
package.add("MassGroupBuff", (void(*)(EntityList*, Mob*, Mob*, uint16))&Perl_EntityList_MassGroupBuff);
|
|
package.add("MassGroupBuff", (void(*)(EntityList*, Mob*, Mob*, uint16, bool))&Perl_EntityList_MassGroupBuff);
|
|
package.add("Message", &Perl_EntityList_Message);
|
|
package.add("MessageClose", &Perl_EntityList_MessageClose);
|
|
package.add("MessageGroup", &Perl_EntityList_MessageGroup);
|
|
package.add("MessageStatus", &Perl_EntityList_MessageStatus);
|
|
package.add("OpenDoorsNear", &Perl_EntityList_OpenDoorsNear);
|
|
package.add("RemoveAllClients", &Perl_EntityList_RemoveAllClients);
|
|
package.add("RemoveAllCorpses", &Perl_EntityList_RemoveAllCorpses);
|
|
package.add("RemoveAllDoors", &Perl_EntityList_RemoveAllDoors);
|
|
package.add("RemoveAllGroups", &Perl_EntityList_RemoveAllGroups);
|
|
package.add("RemoveAllMobs", &Perl_EntityList_RemoveAllMobs);
|
|
package.add("RemoveAllNPCs", &Perl_EntityList_RemoveAllNPCs);
|
|
package.add("RemoveAllObjects", &Perl_EntityList_RemoveAllObjects);
|
|
package.add("RemoveAllTraps", &Perl_EntityList_RemoveAllTraps);
|
|
package.add("RemoveClient", &Perl_EntityList_RemoveClient);
|
|
package.add("RemoveCorpse", &Perl_EntityList_RemoveCorpse);
|
|
package.add("RemoveDoor", &Perl_EntityList_RemoveDoor);
|
|
package.add("RemoveEntity", &Perl_EntityList_RemoveEntity);
|
|
package.add("RemoveFromHateLists", (void(*)(EntityList*, Mob*))&Perl_EntityList_RemoveFromHateLists);
|
|
package.add("RemoveFromHateLists", (void(*)(EntityList*, Mob*, bool))&Perl_EntityList_RemoveFromHateLists);
|
|
package.add("RemoveFromTargets", &Perl_EntityList_RemoveFromTargets);
|
|
package.add("RemoveGroup", &Perl_EntityList_RemoveGroup);
|
|
package.add("RemoveMob", &Perl_EntityList_RemoveMob);
|
|
package.add("RemoveNPC", &Perl_EntityList_RemoveNPC);
|
|
package.add("RemoveNumbers", &Perl_EntityList_RemoveNumbers);
|
|
package.add("RemoveObject", &Perl_EntityList_RemoveObject);
|
|
package.add("RemoveTrap", &Perl_EntityList_RemoveTrap);
|
|
package.add("ReplaceWithTarget", &Perl_EntityList_ReplaceWithTarget);
|
|
package.add("SignalAllBotsByOwnerCharacterID", &Perl_EntityList_SignalAllBotsByOwnerCharacterID);
|
|
package.add("SignalAllBotsByOwnerName", &Perl_EntityList_SignalAllBotsByOwnerName);
|
|
package.add("SignalAllClients", &Perl_EntityList_SignalAllClients);
|
|
package.add("SignalBotByBotID", &Perl_EntityList_SignalBotByBotID);
|
|
package.add("SignalBotByBotName", &Perl_EntityList_SignalBotByBotName);
|
|
package.add("SignalMobsByNPCID", &Perl_EntityList_SignalMobsByNPCID);
|
|
}
|
|
|
|
#endif //EMBPERL_XS_CLASSES
|