hedgewars/uGears.pas
changeset 13760 6908d1e65cdc
parent 13754 0e8db74ec585
child 13766 6fd56a26e8b8
--- a/hedgewars/uGears.pas	Mon Sep 03 21:19:15 2018 +0200
+++ b/hedgewars/uGears.pas	Mon Sep 03 22:14:46 2018 +0200
@@ -62,8 +62,8 @@
 
 var delay: LongWord;
     delay2: LongWord;
-    step: (stInit, stDelay, stChDmg, stSweep, stChWin1, stTurnReact,
-    stAfterDelay, stChWin2, stWater, stChWin3, stHealth,
+    step: (stInit, stDelay, stChDmg, stSweep, stTurnStats, stChWin1,
+    stTurnReact, stAfterDelay, stChWin2, stWater, stChWin3, stHealth,
     stSpawn, stNTurn);
     NewTurnTick: LongWord;
     //SDMusic: shortstring;
@@ -289,6 +289,13 @@
     else
         inc(step);
 
+    stTurnStats:
+        begin
+        if (not bBetweenTurns) and (not isInMultiShoot) then
+            uStats.TurnStats;
+        inc(step)
+        end;
+
     stChWin1:
         begin
         CheckForWin();