hedgewars/uGears.pas
changeset 869 daddcd31ef34
parent 868 4884bce5e5eb
child 870 dd418d9c18c5
--- a/hedgewars/uGears.pas	Thu Apr 24 19:55:10 2008 +0000
+++ b/hedgewars/uGears.pas	Thu Apr 24 20:53:35 2008 +0000
@@ -384,8 +384,8 @@
 
 procedure ProcessGears;
 const delay: LongWord = 0;
-      step: (stDelay, stChDmg, stChWin, stTurnReact,
-             stAfterDelay, stSpawn, stNTurn) = stDelay;
+      step: (stDelay, stChDmg, stTurnReact,
+             stAfterDelay, stChWin, stSpawn, stNTurn) = stDelay;
 var Gear, t: PGear;
 begin
 PrvInactive:= AllInactive;
@@ -410,7 +410,6 @@
                     inc(step)
                  end;
         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
                     begin
@@ -428,12 +427,12 @@
                  if delay = 0 then
                     inc(step)
                  end;
+        stChWin: if not CheckForWin then inc(step) else step:= stDelay;
         stSpawn: begin
                  if not isInMultiShoot then SpawnBoxOfSmth;
                  inc(step)
                  end;
         stNTurn: begin
-                 //AwareOfExplosion(0, 0, 0);
                  if isInMultiShoot then isInMultiShoot:= false
                     else begin
                     ParseCommand('/nextturn', true);
@@ -451,7 +450,7 @@
    ((GameTicks and $FFFF) = $FFFF) then
    begin
    SendIPCTimeInc;
-   inc(hiTicks) // we do not recieve a message for it
+   inc(hiTicks) // we do not recieve a message for this
    end;
 
 inc(GameTicks)