1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  game.initgame;
  while ( Done <> -1 ) do
  begin
    glHandleEvents;   //  Tastatur, Maus, Video
    Render(FALSE);    //  alles hinschmieren
    ProcessGame(NIL); //  das eigentliche Spiel fortführen
    Inc(FPSCount);    //  der Rest ist FPS-Counter und Frameratenbegrenzer (Weil P4-CPU's sonst an die Decke gehen :) )
    game.FrameElapsedTime := GetTimeNeeded(game.TimeStruct);
    while GetTimeNeeded(game.TimeStruct) <0.01500 do sleep(1);
    game.FrameElapsedTime := GetTimeNeeded(game.TimeStruct);
    BeginCounting(game.TimeStruct);
    if Game.gameEnds then Done := -1;
  end;
  game.settings.SaveToFile;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

  
  glDisable(GL_LIGHTING);
  glPushMatrix;
  glEnable(GL_CULL_FACE);

  for stein:=0 To Pred(Steine.count) do
  begin
    if Picken then  //  Im Pickmodus (Mausklick) wird ohne Texturen gerendert. Kommt daher, dass die 
                    //  originale OGL-Selektion mit NVidia-Karten unperformant ist. Daher ein Rendern ohne Texturen
                    //  sondern nur mit Farben, welche die ObjektID enthalten. Wenn man nun die Farbe an der               
                    //  Klickposition ausliest, hat man wieder die ObjektID.
    begin
      glDisable(GL_TEXTURE_2D);
      glColor4b(KlickOffset+stein, 0, 0, 0);
      glTranslatef( Steine.steine[stein].Posi.x+Steine.steine[stein].Offset.x,
                    Steine.steine[stein].Posi.y+Steine.steine[stein].Offset.y,  
                    Steine.steine[stein].Posi.z+Steine.steine[stein].Offset.z);
      glRotatef( Steine.steine[stein].Posi.rx,
                 Steine.steine[stein].Posi.rx, 
                 Steine.steine[stein].Posi.ry, 
                 Steine.steine[stein].Posi.rz);
      if Steine.Steine[stein].aktiv
         then glCallList(Steine.GetDispListe(stein));  // Ich verwende Displaylisten. Damit läuft alles auf der Graka.
    end else
    begin  // Jetzt normal rendern. Mit Texturen und später noch mehr Schnickschnack (Licht/Partikel/...).
      glEnable(GL_TEXTURE_2D);
      glEnable(GL_BLEND);
      glColor4f(1,1,1,Steine.Steine[stein].transparenz);
      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);       
      glTranslatef( Steine.steine[stein].Posi.x+Steine.steine[stein].Offset.x,   //Wo ist das Objekt, Translation
                    Steine.steine[stein].Posi.y+Steine.steine[stein].Offset.y,      
                    Steine.steine[stein].Posi.z+Steine.steine[stein].Offset.z);
      glRotatef( Steine.steine[stein].Posi.rx,                                  // Ist es gedreht? Rotation
                 Steine.steine[stein].Posi.rx, 
                 Steine.steine[stein].Posi.ry, 
                 Steine.steine[stein].Posi.rz);
      if Steine.Steine[stein].aktiv
         then glCallList(Steine.GetDispListe(stein));                            // Rendern
      glDisable(GL_BLEND);
    end;
    glPopMatrix;
    glPushMatrix;
  end;
  if not Picken then Partikel.ParticleEffect(FrameElapsedTime);      // Partikeleffekte einfügen. Als Parameter noch 
  glPopMatrix;                                                       // die abgelaufene Zeit zum letzten Rendern. Damit
                                                                     // Läuft es auf allen Maschinen gleich schnell.

  ...

   // Jetzt noch das Spielerinterface (in den Ecken) reinrendern. Das passiert im Orthomodus. Man kann es also
   // pixelgenau setzen

   for PlayerNum := 0 to Pred(steine.Players.GetNumPlayer) do
   begin
     if PlayerNum = steine.Players.GetActivePlayer then
     begin
       ZeitOffset := MilliSecondsBetween(ZeitMesspunkt,now);
     end else
     begin
       ZeitOffset := 0;
     end;

     score := steine.Players.GetScoreOfPlayer(PlayerNum);
     zeit  := steine.Players.GetTimeOfPlayer(PlayerNum);

     if GameState = gsInGame then
     begin
       try
         ShowPlayerInterface(PlayerNum,score, zeit+ZeitOffset)
       except
         sleep(2);
       end;
     end else
     begin
       try
         ShowPlayerInterface(PlayerNum,score, zeit);
       except
         sleep(2);
       end;
     end;
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

ChangeGameState(gsmainmenu);

...

 // TGame hat eine Variable Gamestate, welche den aktuellen Status trägt  //

procedure TGame.ChangeGameState(NewState: TGameState);
begin
  if NewState <> GameState then
  begin
    case Gamestate of
    gsIntro: // Intro beenden. Klasse freigeben. ...
    end; //case

    case Newstate of
    gsMainmenu: // Laden, initialisieren, starten
    end; //case
    Gamestate := NewState;  // und den neuen State setzen.
  end;
end;