hedgewars/uGame.pas
changeset 9317 a04c30940d2d
parent 9309 7e8f91634f80
child 9521 8054d9d775fd
child 9651 c0a389ccb0c1
equal deleted inserted replaced
9315:15487f7fed42 9317:a04c30940d2d
    49     if Lag > 100 then
    49     if Lag > 100 then
    50         Lag:= 100
    50         Lag:= 100
    51     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    51     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    52         Lag:= 2500;
    52         Lag:= 2500;
    53 
    53 
    54     if (GameType = gmtDemo) then 
    54     if (GameType = gmtDemo) then
    55         if isSpeed then
    55         if isSpeed then
    56             begin
    56             begin
    57             i:= RealTicks-SpeedStart;
    57             i:= RealTicks-SpeedStart;
    58             if i < 2000 then Lag:= Lag*5
    58             if i < 2000 then Lag:= Lag*5
    59             else if i < 4000 then Lag:= Lag*10
    59             else if i < 4000 then Lag:= Lag*10
    88     if not CurrentTeam^.ExtDriven then
    88     if not CurrentTeam^.ExtDriven then
    89         begin
    89         begin
    90         if CurrentHedgehog^.BotLevel <> 0 then
    90         if CurrentHedgehog^.BotLevel <> 0 then
    91             ProcessBot;
    91             ProcessBot;
    92         ProcessGears;
    92         ProcessGears;
    93         {$IFDEF SDL13}ProcessTouch;{$ENDIF}
    93         {$IFDEF SDL2}ProcessTouch;{$ENDIF}
    94         end
    94         end
    95     else
    95     else
    96         begin
    96         begin
    97         NetGetNextCmd;
    97         NetGetNextCmd;
    98         if isInLag then
    98         if isInLag then