Balanced das Spiel für Starke Nerven und Starke Graphikkarte

[Corpsman]

Das Programm besteht aus einem NONVCL Sample

Die Hauptprocecedur ist

Delphi-Quellcode:

  While Not done Do Begin // Emdlosschleife in der das Programm läuft
    If (PeekMessage(msg, 0, 0, 0, PM_REMOVE)) Then {// Pøišla zpráva?} Begin
      If msg.message = WM_QUIT Then // Obdrželi jsme zprávu pro ukonèení?
        done := true // Konec programu
      Else Begin
        TranslateMessage(msg); // Pøeloží zprávu
        DispatchMessage(msg); // Odešle zprávu
      End;
    End
    Else {// Pokud nedošla žádná zpráva} Begin
      // Je program aktivní, ale nelze kreslit? Byl stisknut ESC?
      If (active And Not (Render(Gpause)) {Or keys[VK_ESCAPE]}) Then
        done := true // Ukonèíme program
      Else Begin
        //        glflush; // Flush The Rendering Pipeline -- Dieser Befehl ist nur Notwendig wenn die GLscene nicht mehr mitkommt und es anfängt zu Flackern
        SwapBuffers(h_Dc); // Prohození bufferù (Double Buffering)
      End;
      handlekeys;
    End;
  End; // Konec smyèky while

Wie ihr sehen könnt habe ich keine Ahnung von NONVCL Programmierung. Der Übergabewert von Render steuert das Gendern.

er sorgt dann dafür das nicht mehr gerendert wird.

Wenn mir einer von euch verrät wie man diesen Teil hier mit weniger CPU Load macht, Übernehme ich das Glatt.

Wer den Kompletten Code sehen will bzw woher ich den habe der sehe sich http://nehe.gamedev.net/data/lessons....asp?lesson=01 an.