hedgewars/uGame.pas
changeset 5130 3602ede67ec5
parent 4976 088d40d8aba2
child 5167 7b515d0945b1
--- a/hedgewars/uGame.pas	Sat Apr 09 15:54:28 2011 -0400
+++ b/hedgewars/uGame.pas	Sun Apr 10 20:24:25 2011 +0400
@@ -40,7 +40,11 @@
     end;
 if Lag > 100 then Lag:= 100
 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500;
-if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
+
+if (GameType = gmtDemo) then 
+    if isSpeed then Lag:= Lag * 10
+    else
+        if cOnlyStats then Lag:= High(LongInt);
 
 i:= 1;
 while (GameState <> gsExit) and (i <= Lag) do