--- a/hedgewars/uGame.pas	Wed Jul 26 13:44:11 2006 +0000
+++ b/hedgewars/uGame.pas	Thu Jul 27 15:24:14 2006 +0000
@@ -66,7 +66,9 @@
 if Lag > 100 then Lag:= 100
 else if GameType = gmtSave then Lag:= 2500;
 
-for i:= 1 to Lag do
+i:= 1;
+while (GameState <> gsExit) and (i <= Lag) do
+    begin
     if not CurrentTeam.ExtDriven then
        begin
        with CurrentTeam^ do
@@ -90,6 +92,8 @@
                end
           else ProcessGears
        end;
+    inc(i)
+    end;
 if not CurrentTeam.ExtDriven then isInLag:= false;
 
 MoveCamera