MATER - Recherche de mat à partir d'une position donnée d'une partie d'échecs

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
(*  
    converts a string representing a FEN position to an internal  
    representation. 
*) 
 
FUNCTION FEN2Posit(fen: strg80): boolean; 
var 
  x, y, i, j: integer; 
  c: char; 
begin 
  x := 1; 
  y := 8; 
  i := 1; 
  with Posit do 
  begin 
    while i <= Length(fen) do 
    begin 
      c := fen[i]; 
      case Upcase(c) of 
        'P', 'N', 'B', 'R', 'Q', 'K': 
          begin 
            case c of 
              'p': Board[10 * (10 - y) + x + 1] := BlackPawn; 
              'n': Board[10 * (10 - y) + x + 1] := BlackKnight; 
              'b': Board[10 * (10 - y) + x + 1] := BlackBishop; 
              'r': Board[10 * (10 - y) + x + 1] := BlackRook; 
              'q': Board[10 * (10 - y) + x + 1] := BlackQueen; 
              'k': Board[10 * (10 - y) + x + 1] := BlackKing; 
              'P': Board[10 * (10 - y) + x + 1] := WhitePawn; 
              'N': Board[10 * (10 - y) + x + 1] := WhiteKnight; 
              'B': Board[10 * (10 - y) + x + 1] := WhiteBishop; 
              'R': Board[10 * (10 - y) + x + 1] := WhiteRook; 
              'Q': Board[10 * (10 - y) + x + 1] := WhiteQueen; 
              'K': Board[10 * (10 - y) + x + 1] := WhiteKing; 
            end; 
            Inc(x); 
          end; 
        '1'..'8': 
          begin 
            j := Ord(c) - Ord('0'); 
            while j > 0 do 
            begin 
              Board[10 * (10 - y) + x + 1] := Blank; 
              Inc(x); 
              Dec(j); 
            end; 
          end; 
        '/': 
          begin 
            x := 1; 
            Dec(y); 
          end; 
      end; 
      Inc(i); 
    end; 
    if Board[26] = BlackKing then KingCastle[Black] := true else KingCastle[Black] := false; 
    if Board[Top] = BlackRook then QueenRookCastle[Black] := true else QueenRookCastle[Black] := false; 
    if Board[29] = BlackRook then KingRookCastle[Black] := true else KingRookCastle[Black] := false; 
    if Board[96] = WhiteKing then KingCastle[White] := true else KingCastle[White] := false; 
    if Board[92] = WhiteRook then QueenRookCastle[White] := true else QueenRookCastle[White] := false; 
    if Board[Bot] = WhiteRook then KingRookCastle[White] := true else KingRookCastle[White] := false; 
    EnPassantSquare := None; 
  end; 
  result := true; 
end;