From b27ab8f51b160a72865627ec5409a932521fc090 Mon Sep 17 00:00:00 2001
From: Wolfy <wolfy852@hotmail.com>
Date: Wed, 11 Oct 2017 21:14:14 -0500
Subject: [PATCH] oops

---
 src/p_local.h |  1 +
 src/p_mobj.c  | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 61 insertions(+)

diff --git a/src/p_local.h b/src/p_local.h
index ca6d39d0b..c86256aec 100644
--- a/src/p_local.h
+++ b/src/p_local.h
@@ -216,6 +216,7 @@ boolean P_SetPlayerMobjState(mobj_t *mobj, statenum_t state);
 boolean P_SetMobjState(mobj_t *mobj, statenum_t state);
 void P_RunShields(void);
 void P_RunOverlays(void);
+void P_RunShadows(void);
 void P_MobjThinker(mobj_t *mobj);
 boolean P_RailThinker(mobj_t *mobj);
 void P_PushableThinker(mobj_t *mobj);
diff --git a/src/p_mobj.c b/src/p_mobj.c
index baa380422..c06bdb354 100644
--- a/src/p_mobj.c
+++ b/src/p_mobj.c
@@ -6206,6 +6206,66 @@ static void P_RemoveOverlay(mobj_t *thing)
 		}
 }
 
+void P_RunShadows(void)
+{
+	thinker_t * th;
+	mobj_t * mobj;
+
+	for (th = thinkercap.next; th != &thinkercap; th = th->next)
+	{
+		if (th->function.acp1 != (actionf_p1)P_MobjThinker)
+			continue;
+
+		mobj = (mobj_t *)th;
+
+		if (mobj->type != MT_SHADOW)
+			continue;
+
+		if (mobj->target && (mobj->target->health || mobj->target->player)) // only players keep shadows after death, but only until their mobj is killed
+		{
+			if ((mobj->target->flags2 & MF2_DONTDRAW)
+				|| (((mobj->target->eflags & MFE_VERTICALFLIP) && mobj->target->z+mobj->target->height > mobj->target->ceilingz)
+				|| (!(mobj->target->eflags & MFE_VERTICALFLIP) && mobj->target->z < mobj->target->floorz)))
+				mobj->flags2 |= MF2_DONTDRAW;
+			else
+				mobj->flags2 &= ~MF2_DONTDRAW;
+
+			// First scale to the same radius
+			P_SetScale(mobj, FixedDiv(mobj->target->radius, mobj->info->radius));
+
+			P_TeleportMove(mobj, mobj->target->x, mobj->target->y, mobj->target->z);
+
+			if (mobj->floorz < mobj->z)
+			{
+				INT32 i;
+				fixed_t prevz;
+
+				mobj->z = mobj->floorz;
+
+				for (i = 0; i < MAXFFLOORS; i++)
+				{
+					prevz = mobj->z;
+
+					// Now scale again based on height difference
+					P_SetScale(mobj, FixedDiv(mobj->scale, max(FRACUNIT, ((mobj->target->z-mobj->z)/200)+FRACUNIT)));
+
+					// Check new position to see if you should still be on that ledge
+					P_TeleportMove(mobj, mobj->target->x, mobj->target->y, mobj->z);
+
+					mobj->z = mobj->floorz;
+
+					if (mobj->z == prevz)
+						break;
+				}
+			}
+		}
+		else
+		{
+			P_KillMobj(mobj, NULL, NULL);
+		}
+	}
+}
+
 void A_BossDeath(mobj_t *mo);
 // AI for the Koopa boss.
 static void P_KoopaThinker(mobj_t *koopa)