From ab77bceb886ff92afd08ecaaebe33968a452564e Mon Sep 17 00:00:00 2001
From: James R <justsomejames2@gmail.com>
Date: Mon, 6 Dec 2021 20:33:41 -0800
Subject: [PATCH] Adjust underwater strafing

- 3/4 steering ability while underwater (not drifting).
- A little less friction while underwater.
---
 src/k_kart.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/k_kart.c b/src/k_kart.c
index 40ca0ca8f..e4761ef59 100644
--- a/src/k_kart.c
+++ b/src/k_kart.c
@@ -7694,6 +7694,10 @@ INT32 K_GetUnderwaterTurnAdjust(player_t *player)
 	{
 		INT32 steer = (K_GetKartTurnValue(player,
 					player->steering) << TICCMD_REDUCE);
+
+		if (!player->drift)
+			steer = 3 * steer / 2;
+
 		return FixedMul(steer, 8 * FixedDiv(player->speed,
 					2 * K_GetKartSpeed(player, false) / 3));
 	}
@@ -8472,6 +8476,10 @@ void K_AdjustPlayerFriction(player_t *player)
 	{
 		player->mo->friction += 614;
 	}
+	else if (player->mo->eflags & MFE_UNDERWATER)
+	{
+		player->mo->friction += 312;
+	}
 
 	// Wipeout slowdown
 	if (player->spinouttimer && player->wipeoutslow)