From 69c6a7b89a82a57444cafe14e05d0e0c2f10100c Mon Sep 17 00:00:00 2001
From: Alex King <89047260+Kinglykrab@users.noreply.github.com>
Date: Tue, 28 Feb 2023 20:31:20 -0500
Subject: [PATCH] [Quest API] Add IsBerserk() to Perl/Lua (#2997)

* [Quest API] Add IsBerserk() to Perl/Lua

# Perl
- Add `$client->IsBerserk()`.

# Lua
- Add `client:IsBerserk()`.
- Remove `mob:IsBerserk()` to move to client.

# Notes
- Allows operators to check if a client is berserk.

* Move to Mob.

* Update lua_client.cpp
---
 zone/lua_client.cpp | 1 -
 zone/perl_mob.cpp   | 6 ++++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/zone/lua_client.cpp b/zone/lua_client.cpp
index ac45a26b2..2c8fb559e 100644
--- a/zone/lua_client.cpp
+++ b/zone/lua_client.cpp
@@ -3049,7 +3049,6 @@ bool Lua_Client::IsAutoFireEnabled()
 {
 	Lua_Safe_Call_Bool();
 	return self->AutoFireEnabled();
-
 }
 
 luabind::scope lua_register_client() {
diff --git a/zone/perl_mob.cpp b/zone/perl_mob.cpp
index 1d8a5298b..d6e12fb48 100644
--- a/zone/perl_mob.cpp
+++ b/zone/perl_mob.cpp
@@ -2786,6 +2786,11 @@ Bot* Perl_Mob_GetHateRandomBot(Mob* self) // @categories Hate and Aggro
 	return self->GetHateRandomBot();
 }
 
+bool Perl_Mob_IsBerserk(Mob* self) // @categories Script Utility
+{
+	return self->IsBerserk();
+}
+
 float Perl_Mob_GetDefaultRaceSize(Mob* self) // @categories Script Utility
 {
 	return self->GetDefaultRaceSize();
@@ -3118,6 +3123,7 @@ void perl_register_mob()
 	package.add("IsAttackAllowed", (bool(*)(Mob*, Mob*, bool))&Perl_Mob_IsAttackAllowed);
 	package.add("IsBeacon", &Perl_Mob_IsBeacon);
 	package.add("IsBeneficialAllowed", &Perl_Mob_IsBeneficialAllowed);
+	package.add("IsBerserk", &Perl_Mob_IsBerserk);
 	package.add("IsBlind", &Perl_Mob_IsBlind);
 	package.add("IsBot", &Perl_Mob_IsBot);
 	package.add("IsCasting", &Perl_Mob_IsCasting);