From 953a0c2967281f2fc106b78948c0a13d569be190 Mon Sep 17 00:00:00 2001
From: Monster Iestyn <iestynjealous@ntlworld.com>
Date: Thu, 2 May 2019 21:21:15 +0100
Subject: [PATCH] Hardcoded A_Boss5ExtraRepeat

---
 src/dehacked.c |  1 +
 src/info.h     |  1 +
 src/p_enemy.c  | 39 +++++++++++++++++++++++++++++++++++++++
 3 files changed, 41 insertions(+)

diff --git a/src/dehacked.c b/src/dehacked.c
index 5cec3dfca..155e2b5ce 100644
--- a/src/dehacked.c
+++ b/src/dehacked.c
@@ -2226,6 +2226,7 @@ static actionpointer_t actionpointers[] =
 	{{A_CryingToMomma},          "A_CRYINGTOMOMMA"},
 	{{A_CheckFlags2},            "A_CHECKFLAGS2"},
 	{{A_DoNPCPain},              "A_DONPCPAIN"},
+	{{A_Boss5ExtraRepeat},       "A_BOSS5EXTRAREPEAT"},
 	{{A_Boss5CheckOnGround},     "A_BOSS5CHECKONGROUND"},
 
 	{{NULL},                   "NONE"},
diff --git a/src/info.h b/src/info.h
index 1a4446f80..f623aaa1f 100644
--- a/src/info.h
+++ b/src/info.h
@@ -240,6 +240,7 @@ void A_ParentTriesToSleep();
 void A_CryingToMomma();
 void A_CheckFlags2();
 void A_DoNPCPain();
+void A_Boss5ExtraRepeat();
 void A_Boss5CheckOnGround();
 
 // ratio of states to sprites to mobj types is roughly 6 : 1 : 1
diff --git a/src/p_enemy.c b/src/p_enemy.c
index 099f87bc1..0746f629f 100644
--- a/src/p_enemy.c
+++ b/src/p_enemy.c
@@ -11912,6 +11912,45 @@ void A_DoNPCPain(mobj_t *actor)
 	P_InstaThrust(actor, actor->angle, -hspeed);
 }
 
+// Function: A_Boss5PinchRepeat
+//
+// Description: Simple way to prepare A_Repeat.
+//
+// var1 = maximum value to setextravalue2 to (normally)
+// var2 = pinch annoyance
+//
+void A_Boss5ExtraRepeat(mobj_t *actor)
+{
+	INT32 locvar1 = var1;
+	INT32 locvar2 = var2;
+	INT32 calc;
+	INT32 locspawn;
+	INT32 lochealth;
+#ifdef HAVE_BLUA
+	if (LUA_CallAction("A_Boss5ExtraRepeat", actor))
+		return;
+#endif
+
+	if (actor->extravalue2 > 0 && !(actor->flags2 & MF2_FRET))
+		return;
+
+	locspawn = actor->info->spawnhealth - actor->info->damage;
+	lochealth = actor->health - actor->info->damage;
+
+	if (locspawn <= 0 || lochealth <= 0)
+		calc = locvar1;
+	else
+		calc = (locvar1*(locspawn - lochealth))/locspawn;
+
+	if (calc > 2)
+		actor->extravalue2 = 1 + calc/2 + P_RandomKey(calc/2);
+	else
+		actor->extravalue2 = 1 + calc;
+
+	if (lochealth <= 0)
+		actor->extravalue2 += locvar2;
+}
+
 // Function: A_Boss5CheckOnGround
 //
 // Description: Ground checker.