hedgewars/uGears.pas
changeset 12925 21827fc9ca98
parent 12923 6deb29364723
child 12933 fa402ce826c2
--- a/hedgewars/uGears.pas	Wed Feb 07 12:30:11 2018 +0100
+++ b/hedgewars/uGears.pas	Thu Feb 08 07:09:39 2018 +0100
@@ -1044,20 +1044,27 @@
         exit;
 
     SuddenDeath:= true;
+    SuddenDeathActive:= true;
+
+    // Special effects (only w/ health decrease)
     if cHealthDecrease <> 0 then
     begin
         SuddenDeathDmg:= true;
-        // flash
+        // White screen flash
         ScreenFade:= sfFromWhite;
         ScreenFadeValue:= sfMax;
         ScreenFadeSpeed:= 1;
 
+        // Clouds, flakes, sky tint
         ChangeToSDClouds;
         ChangeToSDFlakes;
         SetSkyColor(SDSkyColor.r * (SDTint.r/255) / 255, SDSkyColor.g * (SDTint.g/255) / 255, SDSkyColor.b * (SDTint.b/255) / 255);
-        Ammoz[amTardis].SkipTurns:= 9999;
-        Ammoz[amTardis].Probability:= 0;
     end;
+
+    // Disable tardis
+    Ammoz[amTardis].SkipTurns:= 9999;
+    Ammoz[amTardis].Probability:= 0;
+
     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
     ScriptCall('onSuddenDeath');
     playSound(sndSuddenDeath);