hedgewars/uGame.pas
changeset 917 e59614bffc3f
parent 909 122c1b57bbf3
child 1066 1f1b3686a2b0
--- a/hedgewars/uGame.pas	Thu May 08 18:38:52 2008 +0000
+++ b/hedgewars/uGame.pas	Thu May 08 20:30:34 2008 +0000
@@ -23,6 +23,8 @@
 
 procedure DoGameTick(Lag: LongInt);
 
+var skipFlag: boolean = false;
+
 ////////////////////
    implementation
 ////////////////////
@@ -51,6 +53,7 @@
 i:= 1;
 while (GameState <> gsExit) and (i <= Lag) do
     begin
+    skipFlag:= false;
     if not CurrentTeam^.ExtDriven then
        begin
        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;
@@ -75,6 +78,7 @@
                end
           else ProcessGears
        end;
+    if skipFlag then TurnTimeLeft:= 0;
     inc(i)
     end
 end;