--- 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;