hedgewars/hwengine.dpr
changeset 956 19003f7fc174
parent 949 866729775535
child 988 cdff3f6f9b38
equal deleted inserted replaced
955:474afaab0365 956:19003f7fc174
   102               end;
   102               end;
   103       gsGame: begin
   103       gsGame: begin
   104               ProcessKbd;
   104               ProcessKbd;
   105               DoGameTick(Lag);
   105               DoGameTick(Lag);
   106               ProcessVisualGears(Lag);
   106               ProcessVisualGears(Lag);
   107               DrawWorld(Lag, SDLPrimSurface);
   107               DrawWorld(Lag);
   108               end;
   108               end;
   109    gsConsole: begin
   109    gsConsole: begin
   110               DoGameTick(Lag);
   110               DoGameTick(Lag);
   111               ProcessVisualGears(Lag);
   111               ProcessVisualGears(Lag);
   112               DrawWorld(Lag, SDLPrimSurface);
   112               DrawWorld(Lag);
   113               DrawConsole(SDLPrimSurface);
   113               DrawConsole(SDLPrimSurface);
   114               end;
   114               end;
   115       gsChat: begin
   115       gsChat: begin
   116               DoGameTick(Lag);
   116               DoGameTick(Lag);
   117               ProcessVisualGears(Lag);
   117               ProcessVisualGears(Lag);
   118               DrawWorld(Lag, SDLPrimSurface);
   118               DrawWorld(Lag);
   119               end;
   119               end;
   120       gsExit: begin
   120       gsExit: begin
   121               OnDestroy;
   121               OnDestroy;
   122               end;
   122               end;
   123      end;
   123      end;