hedgewars/uGears.pas
changeset 9672 8663d299ba62
parent 9651 c0a389ccb0c1
child 9685 7d925e82e572
--- a/hedgewars/uGears.pas	Sun Nov 03 22:39:00 2013 +0400
+++ b/hedgewars/uGears.pas	Sun Nov 03 14:45:07 2013 -0500
@@ -167,7 +167,9 @@
 var t: PGear;
     i, AliveCount: LongInt;
     s: shortstring;
+    prevtime: LongWord;
 begin
+prevtime:= TurnTimeLeft;
 ScriptCall('onGameTick');
 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20');
 if GameTicks = NewTurnTick then
@@ -463,7 +465,7 @@
         inc(hiTicks) // we do not recieve a message for this
     end;
 AddRandomness(CheckSum);
-
+TurnClockActive:= prevtime <> TurnTimeLeft;
 inc(GameTicks)
 end;