diff --git a/accessibility.asm b/accessibility.asm
index 9c7a4c7..992a662 100644
--- a/accessibility.asm
+++ b/accessibility.asm
@@ -106,3 +106,20 @@ ConditionalGTFlash:
             INY #2
             INX #2 : CPX.b #$10 : BNE --
 RTL
+;================================================================================
+ConditionalRedFlash:
+        REP #$20
+        LDA.l DisableFlashing : BEQ +
+            LDA $00,X
+            LDA.w #$1D59 : LDA $7EC5DA
+            LDA.w #$25FF : LDA $7EC5DC
+            LDA.w #$0000
+            RTL
+
+        +
+            LDA $00
+            LDA.w #$1D59 : STA $7EC5DA
+            LDA.w #$25FF : STA $7EC5DC
+            LDA.w #$001A
+
+RTL
diff --git a/hooks.asm b/hooks.asm
index 9c72e80..bc29af5 100755
--- a/hooks.asm
+++ b/hooks.asm
@@ -753,6 +753,9 @@ JML DDMConditionalLightning
 ;--------------------------------------------------------------------------------
 org $07FACB ; <- 3FACB - Bank0E.asm : 4773 (REP #$20 : LDA #$F531, Y) 
 JSL.l ConditionalGTFlash : BRA + : NOP #11 : +
+;--------------------------------------------------------------------------------
+org $0AFF48 ; <- 57F48 - Bank0A.asm : 4935 (REP #$20 : LDA $7EC3DA)
+JSL.l ConditionalRedFlash : BRA + : NOP #13 : +
 ;================================================================================
 ; Ice Floor Toggle
 ;--------------------------------------------------------------------------------