hedgewars/uGame.pas
changeset 4417 6bf00d99fc47
parent 4359 83ef50815535
child 4438 39ab70b37e01
equal deleted inserted replaced
4416:29d2d1548387 4417:6bf00d99fc47
    43 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    43 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    44 
    44 
    45 i:= 1;
    45 i:= 1;
    46 while (GameState <> gsExit) and (i <= Lag) do
    46 while (GameState <> gsExit) and (i <= Lag) do
    47     begin
    47     begin
    48     ScriptCall('onGameTick');
       
    49     if not CurrentTeam^.ExtDriven then
    48     if not CurrentTeam^.ExtDriven then
    50        begin
    49        begin
    51        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;
    50        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;
    52        ProcessGears
    51        ProcessGears
    53        end else
    52        end else