From 8d1dd52db30e0d1d04edfb3e3c41dd21466d772d Mon Sep 17 00:00:00 2001
From: Kinglykrab <89047260+Kinglykrab@users.noreply.github.com>
Date: Sat, 5 Nov 2022 08:34:29 -0400
Subject: [PATCH] [Quest API] Add GetLowestLevel() to Perl. (#2517)

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

# Notes
- This exists in Lua, but not Perl.
---
 zone/perl_groups.cpp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/zone/perl_groups.cpp b/zone/perl_groups.cpp
index 0c7d66d22..cd1408904 100644
--- a/zone/perl_groups.cpp
+++ b/zone/perl_groups.cpp
@@ -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);