hedgewars/uGame.pas
branchwebgl
changeset 8096 453917e94e55
parent 8027 e5ba3dd12531
child 8204 9a6030d96273
--- a/hedgewars/uGame.pas	Wed Nov 14 00:23:29 2012 +0100
+++ b/hedgewars/uGame.pas	Thu Nov 22 00:41:53 2012 +0100
@@ -50,17 +50,16 @@
 
     if (GameType = gmtDemo) then 
         if isSpeed then
-        begin
+            begin
             i:= RealTicks-SpeedStart;
             if i < 2000 then Lag:= Lag*5
             else if i < 4000 then Lag:= Lag*10
             else if i < 6000 then Lag:= Lag*20
             else if i < 8000 then Lag:= Lag*40
             else Lag:= Lag*80;
-        end
-        else
-            if cOnlyStats then
-                Lag:= High(LongInt);
+            end
+        else if cOnlyStats then
+            Lag:= High(LongInt)
     end;
 PlayNextVoice;
 i:= 1;