97                  isSoundEnabled:= false

    97                  isSoundEnabled:= false

    98                  end;

    98                  end;

    99               FinishProgress;

    99               FinishProgress;

   100               GameState:= gsGame

   100               GameState:= gsGame

   101               end;

   101               end;

   103               ProcessKbd;

   103               ProcessKbd;

   104               DoGameTick(Lag);

   104               DoGameTick(Lag);

   105               ProcessVisualGears(Lag);

   105               ProcessVisualGears(Lag);

   106               DrawWorld(Lag, SDLPrimSurface);

   106               DrawWorld(Lag, SDLPrimSurface);

   107               end;

   107               end;

   109               DoGameTick(Lag);

   109               DoGameTick(Lag);

   110               ProcessVisualGears(Lag);

   110               ProcessVisualGears(Lag);

   111               DrawWorld(Lag, SDLPrimSurface);

   111               DrawWorld(Lag, SDLPrimSurface);

   112               DrawConsole(SDLPrimSurface);

   112               DrawConsole(SDLPrimSurface);

   113               end;

   113               end;

   115               OnDestroy;

   120               OnDestroy;

   116               end;

   121               end;

   117      end;

   122      end;

   118 

   123 

   119 SDL_GL_SwapBuffers();

   124 SDL_GL_SwapBuffers();