hedgewars/uGame.pas
changeset 8027 e5ba3dd12531
parent 7837 3e031b3b33e6
child 8204 9a6030d96273
equal deleted inserted replaced
8024:1d5baba66cb6 8027:e5ba3dd12531
    48     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    48     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    49         Lag:= 2500;
    49         Lag:= 2500;
    50 
    50 
    51     if (GameType = gmtDemo) then 
    51     if (GameType = gmtDemo) then 
    52         if isSpeed then
    52         if isSpeed then
    53         begin
    53             begin
    54             i:= RealTicks-SpeedStart;
    54             i:= RealTicks-SpeedStart;
    55             if i < 2000 then Lag:= Lag*5
    55             if i < 2000 then Lag:= Lag*5
    56             else if i < 4000 then Lag:= Lag*10
    56             else if i < 4000 then Lag:= Lag*10
    57             else if i < 6000 then Lag:= Lag*20
    57             else if i < 6000 then Lag:= Lag*20
    58             else if i < 8000 then Lag:= Lag*40
    58             else if i < 8000 then Lag:= Lag*40
    59             else Lag:= Lag*80;
    59             else Lag:= Lag*80;
    60         end
    60             end
    61         else
    61         else if cOnlyStats then
    62             if cOnlyStats then
    62             Lag:= High(LongInt)
    63                 Lag:= High(LongInt);
       
    64     end;
    63     end;
    65 PlayNextVoice;
    64 PlayNextVoice;
    66 i:= 1;
    65 i:= 1;
    67 while (GameState <> gsExit) and (i <= Lag) do
    66 while (GameState <> gsExit) and (i <= Lag) do
    68     begin
    67     begin