pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-01-18 04:43:52 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add GetLowestLevel() to Perl. (#2517)

Browse Source 
# Perl
- Add `$group->GetLowestLevel()` to Perl.

# Notes
- This exists in Lua, but not Perl.
This commit is contained in:
Kinglykrab 2022-11-05 08:34:29 -04:00 committed by GitHub
parent 2218f46b5b
commit 8d1dd52db3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
zone/perl_groups.cpp
View File

@ -121,6 +121,11 @@ bool Perl_Group_DoesAnyMemberHaveExpeditionLockout(Group* self, std::string expe
return self->DoesAnyMemberHaveExpeditionLockout(expedition_name, event_name, max_check_count);
}
uint32_t Perl_Group_GetLowestLevel(Group* self) // @categories Script Utility, Group
{
return self->GetLowestLevel();
}
void perl_register_group()
{
perl::interpreter perl(PERL_GET_THX);
@ -134,6 +139,7 @@ void perl_register_group()
package.add("GetID", &Perl_Group_GetID);
package.add("GetLeader", &Perl_Group_GetLeader);
package.add("GetLeaderName", &Perl_Group_GetLeaderName);
package.add("GetLowestLevel", &Perl_Group_GetLowestLevel);
package.add("GetMember", &Perl_Group_GetMember);
package.add("GetTotalGroupDamage", &Perl_Group_GetTotalGroupDamage);
package.add("GroupCount", &Perl_Group_GroupCount);