From 17daf2faa29f3746071745f995f06c8482604e3d Mon Sep 17 00:00:00 2001
From: lachwright <lachlanwright17@gmail.com>
Date: Sat, 4 Jul 2020 19:17:38 +0800
Subject: [PATCH] Reduce speed cut when gliding underwater

---
 src/p_user.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/p_user.c b/src/p_user.c
index 352200aaf5..0153056deb 100644
--- a/src/p_user.c
+++ b/src/p_user.c
@@ -5354,11 +5354,11 @@ static void P_DoJumpStuff(player_t *player, ticcmd_t *cmd)
 						if (player->mo->eflags & MFE_UNDERWATER)
 						{
 							glidespeed >>= 1;
-							playerspeed >>= 1;
+							playerspeed = 2*playerspeed/3;
 							if (!(player->powers[pw_super] || player->powers[pw_sneakers]))
 							{
-								player->mo->momx = ((player->mo->momx - player->cmomx)/2) + player->cmomx;
-								player->mo->momy = ((player->mo->momy - player->cmomy)/2) + player->cmomy;
+								player->mo->momx = (2*(player->mo->momx - player->cmomx)/3) + player->cmomx;
+								player->mo->momy = (2*(player->mo->momy - player->cmomy)/3) + player->cmomy;
 							}
 						}
 
-- 
GitLab