From 393c63795402350a7b26dd080fab592a59e394c1 Mon Sep 17 00:00:00 2001
From: Sally Coolatta <tehrealsalt@gmail.com>
Date: Sun, 10 May 2020 03:19:21 -0400
Subject: [PATCH] Gravity is higher underwater when going down

---
 src/p_mobj.c | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/p_mobj.c b/src/p_mobj.c
index 676709e32..a13112ae5 100644
--- a/src/p_mobj.c
+++ b/src/p_mobj.c
@@ -1248,9 +1248,16 @@ fixed_t P_GetMobjGravity(mobj_t *mo)
 	}
 
 	// Less gravity underwater.
-	if ((mo->eflags & MFE_UNDERWATER) && !goopgravity && mo->momz > 0)
+	if ((mo->eflags & MFE_UNDERWATER) && !goopgravity)
 	{
-		gravityadd = gravityadd/3;
+		if (mo->momz <= 0)
+		{
+			gravityadd = 4*gravityadd/3;
+		}
+		else
+		{
+			gravityadd = gravityadd/3;
+		}
 	}
 
 	if (mo->player)