pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-09-02 16:46:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add Group/Raid overloads to Perl/Lua. (#2526)

Browse Source 
# Perl
- Add `$raid->GetGroup(client)` to Perl.
- Add `$raid->GetGroupMember(member_index)` to Perl.
- Add `$raid->IsLeader(client)` to Perl.

# Lua
- Add `group:GroupMessage(sender, message)` to Lua.
This commit is contained in:
Kinglykrab
2022-11-14 14:04:38 -05:00
committed by GitHub
parent 3cb13969ff
commit c5c57b7541
6 changed files with 72 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_raids.cpp
+33 -8
View File
@@ -2,6 +2,7 @@
#ifdef EMBPERL_XS_CLASSES
#include "../common/data_verification.h"
#include "../common/global_define.h"
#include "embperl.h"
#include "raids.h"
@@ -32,6 +33,11 @@ uint32_t Perl_Raid_GetGroup(Raid* self, const char* name) // @categories Group,
return self->GetGroup(name);
}
uint32_t Perl_Raid_GetGroup(Raid* self, Client* client) // @categories Group, Raid
{
return self->GetGroup(client);
}
void Perl_Raid_SplitExp(Raid* self, uint32 experience, Mob* other) // @categories Experience and Level, Raid
{
self->SplitExp(experience, other);
@@ -57,6 +63,11 @@ bool Perl_Raid_IsLeader(Raid* self, const char* name) // @categories Raid
return self->IsLeader(name);
}
bool Perl_Raid_IsLeader(Raid* self, Client* client) // @categories Raid
{
return self->IsLeader(client);
}
bool Perl_Raid_IsGroupLeader(Raid* self, const char* who) // @categories Group, Raid
{
return self->IsGroupLeader(who);
@@ -72,9 +83,9 @@ uint32_t Perl_Raid_GetLowestLevel(Raid* self) // @categories Raid
return self->GetLowestLevel();
}
Client* Perl_Raid_GetClientByIndex(Raid* self, uint16_t raid_index) // @categories Raid
Client* Perl_Raid_GetClientByIndex(Raid* self, uint16_t member_index) // @categories Raid
{
return self->GetClientByIndex(raid_index);
return self->GetClientByIndex(member_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
@@ -92,13 +103,13 @@ uint32_t Perl_Raid_GetID(Raid* self) // @categories Raid
return self->GetID();
}
Client* Perl_Raid_GetMember(Raid* self, int index) // @categories Raid
Client* Perl_Raid_GetMember(Raid* self, int member_index) // @categories Raid
{
if (index < 0 || index >= MAX_RAID_MEMBERS)
{
if (!EQ::ValueWithin(member_index, 0, (MAX_RAID_MEMBERS - 1))) {
return nullptr;
}
return self->members[index].member;
return self->members[member_index].member;
}
bool Perl_Raid_DoesAnyMemberHaveExpeditionLockout(Raid* self, std::string expedition_name, std::string event_name)
@@ -111,6 +122,17 @@ bool Perl_Raid_DoesAnyMemberHaveExpeditionLockout(Raid* self, std::string expedi
return self->DoesAnyMemberHaveExpeditionLockout(expedition_name, event_name, max_check_count);
}
int Perl_Raid_GetGroupNumber(Raid* self, int member_index) {
if (
!EQ::ValueWithin(member_index, 0, 71) ||
self->members[member_index].GroupNumber == RAID_GROUPLESS
) {
return -1;
}
return self->members[member_index].GroupNumber;
}
void perl_register_raid()
{
perl::interpreter perl(PERL_GET_THX);
@@ -121,7 +143,9 @@ void perl_register_raid()
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("GetGroup", (uint32(*)(Raid*, const char*))&Perl_Raid_GetGroup);
package.add("GetGroup", (uint32(*)(Raid*, Client*))&Perl_Raid_GetGroup);
package.add("GetGroupNumber", &Perl_Raid_GetGroupNumber);
package.add("GetHighestLevel", &Perl_Raid_GetHighestLevel);
package.add("GetID", &Perl_Raid_GetID);
package.add("GetLowestLevel", &Perl_Raid_GetLowestLevel);
@@ -129,7 +153,8 @@ void perl_register_raid()
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("IsLeader", (bool(*)(Raid*, const char*))&Perl_Raid_IsLeader);
package.add("IsLeader", (bool(*)(Raid*, Client*))&Perl_Raid_IsLeader);
package.add("IsRaidMember", &Perl_Raid_IsRaidMember);
package.add("RaidCount", &Perl_Raid_RaidCount);
package.add("SplitExp", &Perl_Raid_SplitExp);