hedgewars/uGame.pas
changeset 7442 9bb6abdb5675
parent 7386 e82a076df09b
parent 7418 f611ee4760c0
child 7447 01111960a48d
equal deleted inserted replaced
7392:bc3306c59a08 7442:9bb6abdb5675
    46     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    46     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    47         Lag:= 2500;
    47         Lag:= 2500;
    48 
    48 
    49     if (GameType = gmtDemo) then 
    49     if (GameType = gmtDemo) then 
    50         if isSpeed then
    50         if isSpeed then
    51             Lag:= Lag * 10
    51         Lag:= Lag * 10
       
    52             i:= RealTicks-SpeedStart;
       
    53             if i < 2000 then Lag:= Lag*5
       
    54             else if i < 4000 then Lag:= Lag*10
       
    55             else if i < 6000 then Lag:= Lag*20
       
    56             else if i < 8000 then Lag:= Lag*40
       
    57             else Lag:= Lag*80;
       
    58         end
    52         else
    59         else
    53             if cOnlyStats then
    60             if cOnlyStats then
    54                 Lag:= High(LongInt);
    61                 Lag:= High(LongInt);
    55     end;
    62     end;
    56 PlayNextVoice;
    63 PlayNextVoice;