hedgewars/uGears.pas
changeset 14991 dc50766f6d0c
parent 14956 225839af5272
child 15064 96244def1cc0
--- a/hedgewars/uGears.pas	Fri May 17 14:38:12 2019 +0200
+++ b/hedgewars/uGears.pas	Fri May 17 16:49:28 2019 +0200
@@ -69,7 +69,8 @@
     stNTurn);
     NewTurnTick: LongWord;
 
-const delaySDStart = 1600;
+const delayInit = 50;
+      delaySDStart = 1600;
       delaySDWarning = 1000;
       delayDamageTagFull = 1500;
       delayDamageTagShort = 500;
@@ -332,11 +333,14 @@
         begin
         if (not bBetweenTurns) and (not isInMultiShoot) then
             ScriptCall('onEndTurn');
+        delay:= delayInit;
         inc(step)
         end;
     stDelay1:
+        begin
         if DoDelay() then
             inc(step);
+        end;
     stChDmg:
     if CheckNoDamage then
         inc(step)