hedgewars/uGame.pas
changeset 7447 01111960a48d
parent 7442 9bb6abdb5675
child 7670 9485b88f6a44
equal deleted inserted replaced
7442:9bb6abdb5675 7447:01111960a48d
    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         begin
    52             i:= RealTicks-SpeedStart;
    52             i:= RealTicks-SpeedStart;
    53             if i < 2000 then Lag:= Lag*5
    53             if i < 2000 then Lag:= Lag*5
    54             else if i < 4000 then Lag:= Lag*10
    54             else if i < 4000 then Lag:= Lag*10
    55             else if i < 6000 then Lag:= Lag*20
    55             else if i < 6000 then Lag:= Lag*20
    56             else if i < 8000 then Lag:= Lag*40
    56             else if i < 8000 then Lag:= Lag*40