From 6c68c956547c5b6b92d4fb41a7b8662829261f48 Mon Sep 17 00:00:00 2001
From: Latapostrophe <hyperclassic3@gmail.com>
Date: Thu, 14 May 2020 17:55:33 +0200
Subject: [PATCH] Make explosions cause earthquakes and initiate flashpals

---
 src/doomstat.h |  1 +
 src/g_game.c   |  1 +
 src/k_kart.c   | 26 ++++++++++++++++++++++++++
 src/p_tick.c   |  3 +++
 4 files changed, 31 insertions(+)

diff --git a/src/doomstat.h b/src/doomstat.h
index 9971fdfc5..cffecce9a 100644
--- a/src/doomstat.h
+++ b/src/doomstat.h
@@ -513,6 +513,7 @@ extern tic_t mapreset;
 extern boolean thwompsactive;
 extern SINT8 spbplace;
 
+extern tic_t bombflashtimer;	// Used to avoid causing seizures if multiple mines explode close to you :)
 extern boolean legitimateexit;
 extern boolean comebackshowninfo;
 extern tic_t curlap, bestlap;
diff --git a/src/g_game.c b/src/g_game.c
index 11cc2fbe8..4eafb9103 100644
--- a/src/g_game.c
+++ b/src/g_game.c
@@ -288,6 +288,7 @@ boolean thwompsactive; // Thwomps activate on lap 2
 SINT8 spbplace; // SPB exists, give the person behind better items
 
 // Client-sided, unsynched variables (NEVER use in anything that needs to be synced with other players)
+tic_t bombflashtimer = 0;	// Cooldown before another FlashPal can be intialized by a bomb exploding near a displayplayer. Avoids seizures.
 boolean legitimateexit; // Did this client actually finish the match?
 boolean comebackshowninfo; // Have you already seen the "ATTACK OR PROTECT" message?
 tic_t curlap; // Current lap time
diff --git a/src/k_kart.c b/src/k_kart.c
index eac5c4bad..e8b126e43 100644
--- a/src/k_kart.c
+++ b/src/k_kart.c
@@ -3321,6 +3321,8 @@ void K_SpawnKartExplosion(fixed_t x, fixed_t y, fixed_t z, fixed_t radius, INT32
 	}
 }
 
+#define MINEQUAKEDIST 4096
+
 // Spawns the purely visual explosion
 void K_SpawnMineExplosion(mobj_t *source, UINT8 color)
 {
@@ -3329,6 +3331,28 @@ void K_SpawnMineExplosion(mobj_t *source, UINT8 color)
 	mobj_t *dust;
 	mobj_t *truc;
 	INT32 speed, speed2;
+	INT32 pnum;
+	player_t *p;
+
+	// check for potential display players near the source so we can have a sick earthquake / flashpal.
+	for (pnum = 0; pnum < MAXPLAYERS; pnum++)
+	{
+		p = &players[pnum];
+
+		if (!playeringame[pnum] || !P_IsDisplayPlayer(p))
+			continue;
+
+		if (R_PointToDist2(p->mo->x, p->mo->y, source->x, source->y) < mapobjectscale*MINEQUAKEDIST)
+		{
+			P_StartQuake(55<<FRACBITS, 12);
+			if (!bombflashtimer && P_CheckSight(p->mo, source))
+			{
+				bombflashtimer = TICRATE*5;
+				P_FlashPal(p, 1, 1);
+			}
+			break;	// we can break right now because quakes are global to all split players somehow.
+		}
+	}
 
 	K_MatchGenericExtraFlags(smoldering, source);
 	smoldering->tics = TICRATE*3;
@@ -3399,6 +3423,8 @@ void K_SpawnMineExplosion(mobj_t *source, UINT8 color)
 	}
 }
 
+#undef MINEQUAKEDIST
+
 static mobj_t *K_SpawnKartMissile(mobj_t *source, mobjtype_t type, angle_t an, INT32 flags2, fixed_t speed)
 {
 	mobj_t *th;
diff --git a/src/p_tick.c b/src/p_tick.c
index 385985c34..d57a6dc43 100644
--- a/src/p_tick.c
+++ b/src/p_tick.c
@@ -722,6 +722,9 @@ void P_Ticker(boolean run)
 				K_CalculateBattleWanted();
 		}
 
+		if (bombflashtimer)
+			bombflashtimer--;	// Bomb seizure prevention
+
 		if (quake.time)
 		{
 			fixed_t ir = quake.intensity>>1;