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

#ifdef EMBPERL_XS_CLASSES

#include "../common/global_define.h"
#include "embperl.h"
#include "raids.h"
#include "client.h"

bool Perl_Raid_IsRaidMember(Raid* self, const char* name) // @categories Raid
{
	return self->IsRaidMember(name);
}

void Perl_Raid_CastGroupSpell(Raid* self, Mob* caster, uint16 spell_id, uint32 group_id) // @categories Group, Raid
{
	self->CastGroupSpell(caster, spell_id, group_id);
}

int Perl_Raid_GroupCount(Raid* self, uint32_t group_id) // @categories Group, Raid
{
	return self->GroupCount(group_id);
}

int Perl_Raid_RaidCount(Raid* self) // @categories Raid
{
	return self->RaidCount();
}

uint32_t Perl_Raid_GetGroup(Raid* self, const char* name) // @categories Group, Raid
{
	return self->GetGroup(name);
}

void Perl_Raid_SplitExp(Raid* self, uint32 experience, Mob* other) // @categories Experience and Level, Raid
{
	self->SplitExp(experience, other);
}

uint32_t Perl_Raid_GetTotalRaidDamage(Raid* self, Mob* other) // @categories Raid
{
	return self->GetTotalRaidDamage(other);
}

void Perl_Raid_SplitMoney(Raid* self, uint32 gid, uint32 copper, uint32 silver, uint32 gold, uint32 platinum) // @categories Currency and Points, Raid
{
	self->SplitMoney(gid, copper, silver, gold, platinum);
}

void Perl_Raid_BalanceHP(Raid* self, int32_t penalty, uint32_t group_id) // @categories Raid
{
	self->BalanceHP(penalty, group_id);
}

bool Perl_Raid_IsLeader(Raid* self, const char* name) // @categories Raid
{
	return self->IsLeader(name);
}

bool Perl_Raid_IsGroupLeader(Raid* self, const char* who) // @categories Group, Raid
{
	return self->IsGroupLeader(who);
}

uint32_t Perl_Raid_GetHighestLevel(Raid* self) // @categories Raid
{
	return self->GetHighestLevel();
}

uint32_t Perl_Raid_GetLowestLevel(Raid* self) // @categories Raid
{
	return self->GetLowestLevel();
}

Client* Perl_Raid_GetClientByIndex(Raid* self, uint16_t raid_index) // @categories Raid
{
	return self->GetClientByIndex(raid_index);
}

void Perl_Raid_TeleportGroup(Raid* self, Mob* sender, uint32 zone_id, float x, float y, float z, float heading, uint32 group_id) // @categories Group, Raid
{
	self->TeleportGroup(sender, zone_id, 0, x, y, z, heading, group_id);
}

void Perl_Raid_TeleportRaid(Raid* self, Mob* sender, uint32 zone_id, float x, float y, float z, float heading) // @categories Raid
{
	self->TeleportRaid(sender, zone_id, 0, x, y, z, heading);
}

uint32_t Perl_Raid_GetID(Raid* self) // @categories Raid
{
	return self->GetID();
}

Client* Perl_Raid_GetMember(Raid* self, int index) // @categories Raid
{
	if (index < 0 || index >= MAX_RAID_MEMBERS)
	{
		return nullptr;
	}
	return self->members[index].member;
}

bool Perl_Raid_DoesAnyMemberHaveExpeditionLockout(Raid* self, std::string expedition_name, std::string event_name)
{
	return self->DoesAnyMemberHaveExpeditionLockout(expedition_name, event_name);
}

bool Perl_Raid_DoesAnyMemberHaveExpeditionLockout(Raid* self, std::string expedition_name, std::string event_name, int max_check_count)
{
	return self->DoesAnyMemberHaveExpeditionLockout(expedition_name, event_name, max_check_count);
}

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

	auto package = perl.new_class<Raid>("Raid");
	package.add("BalanceHP", &Perl_Raid_BalanceHP);
	package.add("CastGroupSpell", &Perl_Raid_CastGroupSpell);
	package.add("DoesAnyMemberHaveExpeditionLockout", (bool(*)(Raid*, std::string, std::string))&Perl_Raid_DoesAnyMemberHaveExpeditionLockout);
	package.add("DoesAnyMemberHaveExpeditionLockout", (bool(*)(Raid*, std::string, std::string, int))&Perl_Raid_DoesAnyMemberHaveExpeditionLockout);
	package.add("GetClientByIndex", &Perl_Raid_GetClientByIndex);
	package.add("GetGroup", &Perl_Raid_GetGroup);
	package.add("GetHighestLevel", &Perl_Raid_GetHighestLevel);
	package.add("GetID", &Perl_Raid_GetID);
	package.add("GetLowestLevel", &Perl_Raid_GetLowestLevel);
	package.add("GetMember", &Perl_Raid_GetMember);
	package.add("GetTotalRaidDamage", &Perl_Raid_GetTotalRaidDamage);
	package.add("GroupCount", &Perl_Raid_GroupCount);
	package.add("IsGroupLeader", &Perl_Raid_IsGroupLeader);
	package.add("IsLeader", &Perl_Raid_IsLeader);
	package.add("IsRaidMember", &Perl_Raid_IsRaidMember);
	package.add("RaidCount", &Perl_Raid_RaidCount);
	package.add("SplitExp", &Perl_Raid_SplitExp);
	package.add("SplitMoney", &Perl_Raid_SplitMoney);
	package.add("TeleportGroup", &Perl_Raid_TeleportGroup);
	package.add("TeleportRaid", &Perl_Raid_TeleportRaid);
}

#endif //EMBPERL_XS_CLASSES