hedgewars/uGears.pas
changeset 855 8842c71d16bf
parent 854 fef7f2d908bf
child 856 beecc5c5c71c
--- a/hedgewars/uGears.pas	Mon Apr 21 16:51:14 2008 +0000
+++ b/hedgewars/uGears.pas	Mon Apr 21 18:43:07 2008 +0000
@@ -404,8 +404,12 @@
         stChDmg: if CheckNoDamage then inc(step) else step:= stDelay;
         stChWin: if not CheckForWin then inc(step) else step:= stDelay;
     stTurnReact: begin
-                 if not isInMultiShoot then uStats.TurnReaction;
-                 inc(step)
+                 if not isInMultiShoot then
+                    begin
+                    uStats.TurnReaction;
+                    inc(step)
+                    end else
+                    inc(step, 2);
                  end;
    stAfterDelay: begin
                  if delay = 0 then