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:

Function FindeBestenZug (Spieler, Gegner : TPlayer;  Brett : TBoard; SpielTiefe, MaxTiefe : Integer; 
  Var BesterZug : TMove; Patt : Boolean) : Integer;
Var
  MovePossible : Boolean;
  M : TMoveList;
  MaxS, S, N, i : Integer;
  DummyZug : TMove;

Begin
  MovePossible := False;
  CreateAllMoves (Spieler, Brett, M, N);      // M ist die Liste der Züge, N die Anzahl der möglichen Züge.
  For i:=0 to N-1 do Begin
     MovePossible := True;
     Board.DoMove(M[i]);                      // Führe ihn aus
     If SpielTiefe = MaxTiefe Then            // Max. Vorschautiefe erreicht?
        S := Board.BewerteStellung (Spieler); // Je höher S, desto besser für den 'Spieler'
     Else                                     // Ansonsten liefert dieser Aufruf ja den besten Zug des Gegners
        S := -FindeBestenZug (Gegner, Spieler, Brett, SpielTiefe + 1, MaxTiefe, DummyZug, False); // wir wollen den Zug,
     If S > MaxS Then          // auf den der Gegner die schlechteste Anwort parat hat, daher das '-FindeBesten....'
        MaxS := S
        BesterZug := M
     End;
     Board.UndoMove (M[i]);    // Mache den Zug abschließend wieder rückgängig, denn wir probieren ja nur
  End

  if Not MovePossible Then // Spieler kann nicht ziehen
     If Patt Then          // der Vorherige auch nicht
        Result := Board.BewerteEndstellung (Spieler)      // Diese Funktion bewertet nicht die strategische 
     else                                                    // Stellung, sondern einfach, wer gewonnen hat
        Result := -FindeBestenZug (Gegner, Spieler, Brett, SpielTiefe + 1, MaxTiefe, DummyZug, True);
End;					

1:

S := FindeBestenZug (plHuman, plComputer, MyBoard, 0, MaxLevel, M, False);					

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

procedure CreateMoveList(Player: TPlayer);
var
  B, N: Byte;
begin
 Form1.ListBox1.Clear;

 {Spieler, gerade nach oben ziehen}
 for B := 0 to nPlayerCount-1 do
 begin
  for N := 0 to nPlayerCount-1 do
   if (TBoard[B, N] = Human) and (TBoard[B, N-1] = '') then  //Feld oberhalb einer Figur ist frei
    Form1.ListBox1.Items.Add(IntToStr(B)+' '+IntToStr(N-1));
 end;
end;					

1:
2:
3:
4:
5:

Type
  TPosition = Record
    pRow,
    pCol : Integer;
  End;					

1:
2:
3:
4:
5:
6:

Type
  TMove = Record
    mFrom,
    mTo : TPosition;
    mCapture : Boolean; // True: auf mTo wird der Gegner weggefegt!
  End;					

1:
2:

  
TMoveList = Array [0..ccMaxMoves] Of TMove;					

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

Procedure DoMove (aBoard : TBoard; aPlayer : TPlayer; aMove : TMove);
Begin
  With aMove do Begin
    aBoard[mFrom.pRow, mFrom.pCol] := plEmpty; // von Start-pos wegnehmen
    aBoard[mTo.pRow, ,mTo.pCol] := aPlayer;   // und zur Ziel-pos bewegen
  End;                                 // was vorher dort war ist nun weg
End;

Procedure UndoMove  (aBoard : TBoard; aPlayer, aOpponent : TPlayer; aMove : TMove);
Begin
  With aMove do Begin
    aBoard[mFrom.pRow, mFrom.pCol] := aPlayer;  // Spieler wieder zurück
    If mCapture Then                   // Wenn der Zug ein Schlagzug war
      aBoard[mTo.pRow, ,mTo.pCol] := aOpponent  // Geschlagenen Stein
    Else
      aBoard[mTo.pRow, ,mTo.pCol] := plEmtpy;  // Sonst leeres Feld
  End;
End;					

1:

Log(Format('L=%d, S=%d', [tbLevel.Position, l]));					

1:

Log(Format('Rechentiefe=%d, Bester Zug=%d', [tbLevel.Position, l]));					

1:
2:
3:
4:
5:
6:

    if l >= sWinScore then // Der Zug führt zum Gewinn (kann aber später sein)
      if GameOver then begin
        ShowMessage(szIWin);
        StartGame;
        Exit;
      end;