hedgewars/uGears.pas
changeset 14410 dce60c706f01
parent 14407 234bb36d3b8c
child 14411 b48c270328a5
--- a/hedgewars/uGears.pas	Mon Dec 10 08:55:45 2018 +0100
+++ b/hedgewars/uGears.pas	Mon Dec 10 09:01:27 2018 +0100
@@ -71,8 +71,9 @@
 
 const delaySDStart = 1600;
       delaySDWarning = 1000;
-      delayDamageTag = 500;
-      delayTurnReact = 1500;
+      delayDamageTagFull = 1500;
+      delayDamageTagShort = 500;
+      delayTurnReact = 1000;
       delayFinal = 100;
 
 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs
@@ -320,7 +321,10 @@
         inc(step)
     else
         begin
-        delay:= delayDamageTag;
+        if (not bBetweenTurns) and (not isInMultiShoot) then
+            delay:= delayDamageTagShort
+        else
+            delay:= delayDamageTagFull;
         step:= stDelay1;
         end;