hedgewars/hwengine.pas
changeset 7379 aa29a2f16cc7
parent 7306 3cff5c769509
child 7386 e82a076df09b
equal deleted inserted replaced
7376:48b79b3ca592 7379:aa29a2f16cc7
    80             ScriptCall('onGameStart');
    80             ScriptCall('onGameStart');
    81             GameState:= gsGame;
    81             GameState:= gsGame;
    82             end;
    82             end;
    83         gsConfirm, gsGame:
    83         gsConfirm, gsGame:
    84             begin
    84             begin
    85             DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible
       
    86             DoGameTick(Lag);
    85             DoGameTick(Lag);
    87             ProcessVisualGears(Lag);
    86             ProcessVisualGears(Lag);
       
    87             DrawWorld(Lag);
    88             end;
    88             end;
    89         gsChat:
    89         gsChat:
    90             begin
    90             begin
    91             DrawWorld(Lag);
       
    92             DoGameTick(Lag);
    91             DoGameTick(Lag);
    93             ProcessVisualGears(Lag);
    92             ProcessVisualGears(Lag);
       
    93             DrawWorld(Lag);
    94             end;
    94             end;
    95         gsExit:
    95         gsExit:
    96             begin
    96             begin
    97             DoTimer:= true;
    97             DoTimer:= true;
    98             end;
    98             end;