From 95cc22ffbb959f7a614c98998a1387849ac4b3b2 Mon Sep 17 00:00:00 2001
From: Alex King <89047260+Kinglykrab@users.noreply.github.com>
Date: Wed, 13 Mar 2024 20:27:31 -0400
Subject: [PATCH] [Quest API] Add GetDeityName() to Perl/Lua (#4180)

# Perl
- Add `$mob->GetDeityName()`.

# Lua
- Add `mob:GetDeityName()`.

# Notes
- Allows operators to get a mob's deity name.
---
 zone/lua_mob.cpp  | 7 +++++++
 zone/lua_mob.h    | 1 +
 zone/perl_mob.cpp | 6 ++++++
 3 files changed, 14 insertions(+)

diff --git a/zone/lua_mob.cpp b/zone/lua_mob.cpp
index bb825e061..32ffe703b 100644
--- a/zone/lua_mob.cpp
+++ b/zone/lua_mob.cpp
@@ -3297,6 +3297,12 @@ bool Lua_Mob::IsAlwaysAggro()
 	return self->AlwaysAggro();
 }
 
+std::string Lua_Mob::GetDeityName()
+{
+	Lua_Safe_Call_String();
+	return EQ::deity::GetDeityName(static_cast<EQ::deity::DeityType>(self->GetDeity()));
+}
+
 luabind::scope lua_register_mob() {
 	return luabind::class_<Lua_Mob, Lua_Entity>("Mob")
 	.def(luabind::constructor<>())
@@ -3522,6 +3528,7 @@ luabind::scope lua_register_mob() {
 	.def("GetDefaultRaceSize", (float(Lua_Mob::*)(int))&Lua_Mob::GetDefaultRaceSize)
 	.def("GetDefaultRaceSize", (float(Lua_Mob::*)(int,int))&Lua_Mob::GetDefaultRaceSize)
 	.def("GetDeity", &Lua_Mob::GetDeity)
+	.def("GetDeityName", &Lua_Mob::GetDeityName)
 	.def("GetDisplayAC", &Lua_Mob::GetDisplayAC)
 	.def("GetDrakkinDetails", &Lua_Mob::GetDrakkinDetails)
 	.def("GetDrakkinHeritage", &Lua_Mob::GetDrakkinHeritage)
diff --git a/zone/lua_mob.h b/zone/lua_mob.h
index b945ac6c4..5c39d7f5b 100644
--- a/zone/lua_mob.h
+++ b/zone/lua_mob.h
@@ -582,6 +582,7 @@ public:
 	bool IsControllableBoat();
 	int GetHeroicStrikethrough();
 	bool IsAlwaysAggro();
+	std::string GetDeityName();
 };
 
 #endif
diff --git a/zone/perl_mob.cpp b/zone/perl_mob.cpp
index 751153448..c3029807f 100644
--- a/zone/perl_mob.cpp
+++ b/zone/perl_mob.cpp
@@ -3420,6 +3420,11 @@ bool Perl_Mob_IsAlwaysAggro(Mob* self)
 	return self->AlwaysAggro();
 }
 
+std::string Perl_Mob_GetDeityName(Mob* self)
+{
+	return EQ::deity::GetDeityName(static_cast<EQ::deity::DeityType>(self->GetDeity()));
+}
+
 void perl_register_mob()
 {
 	perl::interpreter perl(PERL_GET_THX);
@@ -3628,6 +3633,7 @@ void perl_register_mob()
 	package.add("GetDR", &Perl_Mob_GetDR);
 	package.add("GetDamageAmount", &Perl_Mob_GetDamageAmount);
 	package.add("GetDeity", &Perl_Mob_GetDeity);
+	package.add("GetDeityName", &Perl_Mob_GetDeityName);
 	package.add("GetDisplayAC", &Perl_Mob_GetDisplayAC);
 	package.add("GetDrakkinDetails", &Perl_Mob_GetDrakkinDetails);
 	package.add("GetDrakkinHeritage", &Perl_Mob_GetDrakkinHeritage);