[Quest API] Add GetLeader() and GetLeaderName() to Perl/Lua. (#2701)

* [Quest API] Add $raid->GetLeader() and $raid->GetLeaderName()

* Remove semicolon

* Tweaks

* Remove inline

* Add LUA compatibility

* Add GetLeaderName() to LUA

* Cast leadername to string

* Fix GetLeaderName return type

* Tweak
This commit is contained in:
Vayle
2023-01-03 20:17:19 -05:00
committed by GitHub
parent a80a6de59f
commit 6e1c4b768f
4 changed files with 27 additions and 0 deletions
+12
View File
@@ -78,6 +78,16 @@ bool Perl_Raid_IsLeader(Raid* self, Client* c) // @categories Raid
return self->IsLeader(c);
}
Client* Perl_Raid_GetLeader(Raid* self) // @categories Raid
{
return self->GetLeader();
}
std::string Perl_Raid_GetLeaderName(Raid* self) // @categories Raid
{
return self->GetLeaderName();
}
bool Perl_Raid_IsGroupLeader(Raid* self, const char* who) // @categories Group, Raid
{
return self->IsGroupLeader(who);
@@ -165,6 +175,8 @@ void perl_register_raid()
package.add("GetID", &Perl_Raid_GetID);
package.add("GetLowestLevel", &Perl_Raid_GetLowestLevel);
package.add("GetMember", &Perl_Raid_GetMember);
package.add("GetLeader", &Perl_Raid_GetLeader);
package.add("GetLeaderName", &Perl_Raid_GetLeaderName);
package.add("GetTotalRaidDamage", &Perl_Raid_GetTotalRaidDamage);
package.add("GroupCount", &Perl_Raid_GroupCount);
package.add("IsGroupLeader", (bool(*)(Raid*, const char*))&Perl_Raid_IsGroupLeader);