--- a/hedgewars/uGame.pas	Fri Jul 13 16:39:20 2012 +0400
+++ b/hedgewars/uGame.pas	Thu Jul 26 21:56:47 2012 +0400
@@ -48,7 +48,14 @@
 
     if (GameType = gmtDemo) then 
         if isSpeed then
-            Lag:= Lag * 10
+        Lag:= Lag * 10
+            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);