hedgewars/uGame.pas
changeset 2814 71e80c6e74bb
parent 2786 85f6425a4d74
child 2948 3f21a9dc93d0
equal deleted inserted replaced
2813:25213bcab42f 2814:71e80c6e74bb
    44 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    44 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    45 
    45 
    46 i:= 1;
    46 i:= 1;
    47 while (GameState <> gsExit) and (i <= Lag) do
    47 while (GameState <> gsExit) and (i <= Lag) do
    48     begin
    48     begin
    49 	ScriptCall('onGameTick');
    49     ScriptCall('onGameTick');
    50     if not CurrentTeam^.ExtDriven then
    50     if not CurrentTeam^.ExtDriven then
    51        begin
    51        begin
    52        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;
    52        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;
    53        ProcessGears
    53        ProcessGears
    54        end else
    54        end else