hedgewars/hwengine.pas
changeset 8027 e5ba3dd12531
parent 7984 619a399bece8
child 8039 a3b86c1f63b4
equal deleted inserted replaced
8024:1d5baba66cb6 8027:e5ba3dd12531
    88             ScriptCall('onGameStart');
    88             ScriptCall('onGameStart');
    89             GameState:= gsGame;
    89             GameState:= gsGame;
    90             end;
    90             end;
    91         gsConfirm, gsGame:
    91         gsConfirm, gsGame:
    92             begin
    92             begin
    93             DrawWorld(Lag);
    93             if not cOnlyStats then DrawWorld(Lag);
    94             DoGameTick(Lag);
    94             DoGameTick(Lag);
    95             ProcessVisualGears(Lag);
    95             if not cOnlyStats then ProcessVisualGears(Lag);
    96             end;
    96             end;
    97         gsChat:
    97         gsChat:
    98             begin
    98             begin
    99             DrawWorld(Lag);
    99             if not cOnlyStats then DrawWorld(Lag);
   100             DoGameTick(Lag);
   100             DoGameTick(Lag);
   101             ProcessVisualGears(Lag);
   101             if not cOnlyStats then ProcessVisualGears(Lag);
   102             end;
   102             end;
   103         gsExit:
   103         gsExit:
   104             begin
   104             begin
   105             DoTimer:= true;
   105             DoTimer:= true;
   106             end;
   106             end;