eqemu-server/zone/perl_entity.cpp

#include "../common/features.h"

#ifdef EMBPERL_XS_CLASSES

#include "../common/global_define.h"
#include "../common/strings.h"
#include "embperl.h"
#include "entity.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)
{
	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, float x, float y, float z, float distance) // @categories Account and Character, Script Utility
{
	return entity_list.GetRandomClient(glm::vec3(x, y, z), (distance * 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 entity_list.GetRandomClient(glm::vec3(x, y, z), (distance * 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;
}

#ifdef BOTS
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);
}

perl::array Perl_EntityList_GetBotList(EntityList* self) // @categories Script Utility, Bot
{
	perl::array result;
	auto current_bot_list = self->GetBotList();
	for (Bot* bot_iterator : current_bot_list)
	{
		result.push_back(bot_iterator);
	}
	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_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;
}
#endif

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, uint32_t data) // @categories Script Utility
{
	entity_list.SignalAllClients(data);
}

Mob* Perl_EntityList_GetRandomMob(EntityList* self, float x, float y, float z, float distance) // @categories Account and Character, Script Utility
{
	return entity_list.GetRandomMob(glm::vec3(x, y, z), (distance * 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 entity_list.GetRandomMob(glm::vec3(x, y, z), (distance * distance), exclude_mob);
}

NPC* Perl_EntityList_GetRandomNPC(EntityList* self, float x, float y, float z, float distance) // @categories Account and Character, Script Utility
{
	return entity_list.GetRandomNPC(glm::vec3(x, y, z), (distance * 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 entity_list.GetRandomNPC(glm::vec3(x, y, z), (distance * distance), exclude_npc);
}

void perl_register_entitylist()
{
	perl::interpreter perl(PERL_GET_THX);

	auto package = perl.new_class<EntityList>("EntityList");
	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);
#ifdef BOTS
	package.add("GetBotByID", &Perl_EntityList_GetBotByID);
	package.add("GetBotByName", &Perl_EntityList_GetBotByName);
	package.add("GetBotList", &Perl_EntityList_GetBotList);
	package.add("GetBotListByCharacterID", &Perl_EntityList_GetBotListByCharacterID);
	package.add("GetBotListByClientName", &Perl_EntityList_GetBotListByClientName);
#endif
	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("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("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("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*, 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*, float, float, float, float))&Perl_EntityList_GetRandomNPC);
	package.add("GetRandomNPC", (NPC*(*)(EntityList*, float, float, float, float, NPC*))&Perl_EntityList_GetRandomNPC);
	package.add("HalveAggro", &Perl_EntityList_HalveAggro);
	package.add("IsMobSpawnedByNpcTypeID", &Perl_EntityList_IsMobSpawnedByNpcTypeID);
	package.add("MakeNameUnique", &Perl_EntityList_MakeNameUnique);
	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("SignalAllClients", &Perl_EntityList_SignalAllClients);
	package.add("SignalMobsByNPCID", &Perl_EntityList_SignalMobsByNPCID);
}

#endif //EMBPERL_XS_CLASSES