hedgewars/uGears.pas
changeset 13737 8092b54ba19d
parent 13651 56a925256039
child 13748 1a26c472f5ef
--- a/hedgewars/uGears.pas	Sat Sep 01 21:56:12 2018 +0200
+++ b/hedgewars/uGears.pas	Sat Sep 01 23:03:56 2018 +0200
@@ -62,8 +62,8 @@
 
 var delay: LongWord;
     delay2: LongWord;
-    step: (stInit, stDelay, stChDmg, stSweep, stTurnReact,
-    stAfterDelay, stChWin, stWater, stChWin2, stHealth,
+    step: (stInit, stDelay, stChDmg, stSweep, stChWin1, stTurnReact,
+    stAfterDelay, stChWin2, stWater, stChWin3, stHealth,
     stSpawn, stNTurn);
     NewTurnTick: LongWord;
     //SDMusic: shortstring;
@@ -289,6 +289,12 @@
     else
         inc(step);
 
+    stChWin1:
+        begin
+        CheckForWin();
+        inc(step)
+        end;
+
     stTurnReact:
         begin
         if (not bBetweenTurns) and (not isInMultiShoot) then
@@ -310,7 +316,7 @@
         if delay = 0 then
             inc(step)
             end;
-    stChWin:
+    stChWin2:
         begin
         CheckForWin();
         inc(step)
@@ -327,7 +333,7 @@
         end
     else // since we are not raising the water, a second win-check isn't needed
         inc(step,2);
-    stChWin2:
+    stChWin3:
         begin
         CheckForWin;
         inc(step)