Discussion :

[forum]

Bonjour,

Je vous propose un nouvel élément à utiliser : Deep Ross

Jeu d'échecs écrit par Marcel Poots, incluant un adversaire artificiel.



Le code source a été légèrement retouché, sans conséquence sur le fonctionnement du programme, pour être compilé avec Delphi 7.

Le jeu a une option "Internet" (non testée). Cette fonctionnalité est basée sur la bibliothèque Indy.

Qu'en pensez-vous ?

[Charly910]

Je l'ai téléchargé : superbe programme !
Charly

[cantador]

excellente programmation !
un regret cependant que l'échiquier soit aussi petit..
Il présente hélas le même défaut que ces cousins du même genre consistant
à s'accrocher au gain de matériel sans faire attention à la position
ce qui le fait perdre facilement.
toutefois, je n'ai pas encore testé le niveau 10..
et peut-être qu'à ce niveau, la tâche risque d'être beaucoup plus rude

cantador

[cantador]

aïe, un bug au niveau 10, dès le deuxième coup, il m'annonce mat !

trop fort..

cantador

[Caribensila]

Le coup du berger ? ^ ^

[Jipété]

Le coup du berger ? ^ ^

Nan, c'est en 4 coups ! Je pense plutôt au mat des sots, à voir là en animation (premier échiquier, "début 1")

[cantador]

@Caribensila
salut Cari, comment vas-tu ?

@Jipété
je connais ces débuts..

DeepRoss, annonce Mat après
1 -e2-e4
2 Cb8-Cc6



de l'intimidation prémonitoire..

c'est beaucoup plus fort que toi !

cantador

[tourlourou]

Peut-être une très grande profondeur d'analyse ?

[Jipété]

Peut-être une très grande profondeur d'analyse ?

Salut, Yves

de l'intimidation prémonitoire..

c'est beaucoup plus fort que toi !

cantador

Bon, sans rire, tu devrais envoyer ta copie d'écran (elle est très claire, lumineuse, limpide) à l'auteur.

[cantador]

Bon, sans rire, tu devrais envoyer ta copie d'écran (elle est très claire, lumineuse, limpide) à l'auteur.

ce jeu est proposé par Developpez.com en nous demandant notre avis.
je pense que tout ceci se fait avec l'accord de l'auteur (qui normalement devrait suivre cette discussion..)
néanmoins, je laisse le soin à Developpez de transmettre à ce dernier, l'ensemble des remarques émises par les uns et les autres ou
celles qu'il aura jugé utile de retenir.

Cela dit, il ne faut jeter le bébé avec l'eau du bain (même si j'y ai mis un peu d'humour..)
il y néanmoins un excellent travail de réalisé par le programmeur (mobilité, graphisme, roques etc..)
il y a vraisemblablement un bug au niveau 10, incident qui peut arriver à tout le monde..
celui-ci devrait normalement être corrigé assez rapidement compte tenu du niveau de programmation réalisée.

cantador

[cantador]

des soucis de fuite mémoire apparaissent à partir du niveau 6 entraînant des difficultés d'affichage...

cantador

[Roland Chastain]

Bonjour ! Merci pour vos remarques, et spécialement à cantador pour le rapport de bug.

J'ai pris la liberté de déposer ici ce programme (que j'avais trouvé sur le site personnel d'un programmeur de Pologne), avec l'autorisation de l'auteur (qu'il ne m'a pas donnée personnellement, mais qu'il a donnée à tout le monde : voyez le texte de la fenêtre "à propos"). J'ai fait sur le programme une retouche minime sans laquelle le programme ne pouvait pas être compilé avec Delphi 7. Voir l'histoire de cette modification.

Depuis je me suis lancé dans un petit exercice qui consiste à séparer le moteur de la carrosserie et à l'équiper d'une interface UCI. Si je le finis, je me permettrai de le poster ici.

Pour le bug à la profondeur 10, j'aurais tendance à régler la profondeur maximale à 9.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
// Main.pas
 
procedure TfrmMain.cbDepthChange(Sender: TObject);
begin
  if (StrToInt(cbDepth.Text) > -1) and (StrToInt(cbDepth.Text) < {11}10) then // Roland 03/11/2015
    Depth := StrToInt(cbDepth.Text)
  else
    ShowMessage('Please enter somthing between 0 and 10');
end;

[Roland Chastain]

Je vous propose une version alpha du moteur "Deep Ross Engine". Il manque le protocole UCI mais le gros du travail est fait : le moteur est piloté depuis une application console.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
program Test;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  uMain,
  uChessFunctions,
  uChessValues,
  uAbout,
  uPromote,
  uASMTools;
 
begin
  {frmMain}chessEngine := {TfrmMain}TChessEngine.Create;
  with {frmMain}chessEngine do
  begin
    { Démarrage du moteur }
    Start;
    { Retour à la position de départ }
    Reset;
    { Régler la position en fonction d'une chaîne FEN }
    SetPosition('rnbqkbnr/pppppppp/8/8/4P3/8/PPPP1PPP/RNBQKBNR b KQkq e3 0 1');
    { Jouer un coup donné }
    UserMove('e7e5');
    { Jouer le meilleur coup }
    WriteLn(Format('bestmove %s', [BestMove]));
    { Arrêt du moteur }
    Stop;
 
    Free;
  end;
  ReadLn;
end.

Il se peut qu'il y ait encore quelques réglages à faire mais le programme de test donne des résultats cohérents.

[Roland Chastain]

Voici l'interface UCI.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
82
83
84
85
86
87
88
89
90
91
92
93
94
 
program DeepRoss;
 
{$APPTYPE CONSOLE}
 
uses
  Classes,
  SysUtils,
  uMain,
  uChessFunctions,
  uChessValues,
  uAbout,
  uPromote,
  uASMTools;
 
var
  EngineCreated: boolean = FALSE;
 
procedure OnCommandUCI;
begin
  chessEngine := TChessEngine.Create;
  chessEngine.Start;
  WriteLn(output, 'id name DeepRoss');
  WriteLn(output, 'id author Marcel Poots');
  WriteLn(output, 'uciok');
  Flush(output);
  EngineCreated := TRUE;
end;
 
procedure OnCommandQuit;
begin
  chessEngine.Stop;
  chessEngine.Free;
  Halt(0);
end;
 
procedure OnCommandUCINewGame;
begin
  chessEngine.Reset;
end;
 
procedure OnCommandPositionFen(const aCommand: string);
begin
  {
    À faire.
    La procédure à utiliser est SetPosition().
    Il est à noter cependant que tous les programmes que j'ai essayés utilisent
    la syntaxe 'position startpos'.
  }
end;
 
procedure OnCommandPositionStartPos(const aCommand: string);
var
  i: integer;
begin
  with TStringList.Create do
  begin
    DelimitedText := aCommand;
    for i := 3 to Count - 1 do
      chessEngine.UserMove(Strings[i]);
    Free;
  end;
end;
 
procedure OnCommandGo;
begin
  WriteLn(output, Format('bestmove %s', [chessEngine.BestMove]));
  Flush(output);
end;
 
procedure OnCommandIsReady;
begin
  WriteLn(output, 'readyok');
  Flush(output);
end;
 
var
  s: string;
 
begin
  WriteLn(output, 'Deep Ross UCI Engine');
 
  while TRUE do
  begin
    ReadLn(input, s);
    if (not EngineCreated) and (s = 'uci') then OnCommandUCI
    else if EngineCreated and (s = 'quit') then OnCommandQuit
    else if EngineCreated and (s = 'ucinewgame') then OnCommandUCINewGame
    else if EngineCreated and (Pos('position fen', s) = 1) then OnCommandPositionFen(s)
    else if EngineCreated and (Pos('position startpos', s) = 1) then OnCommandPositionStartPos(s)
    else if EngineCreated and (Pos('go', s) = 1) then OnCommandGo
    else if EngineCreated and (s = 'isready') then OnCommandIsReady;
  end;
end.

J'ai pu jouer une partie contre Deep Ross dans Arena :

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

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
2015-11-04 08:31:09,495-->1:uci
2015-11-04 08:31:09,565<--1:id name DeepRoss
2015-11-04 08:31:09,584<--1:id author Marcel Poots
2015-11-04 08:31:09,602<--1:uciok
2015-11-04 08:31:09,652-->1:isready
2015-11-04 08:31:09,709<--1:readyok
2015-11-04 08:31:09,903-->1:ucinewgame
2015-11-04 08:31:09,917-->1:isready
2015-11-04 08:31:09,933<--1:readyok
2015-11-04 08:31:09,948-->1:position startpos moves e2e4
2015-11-04 08:31:09,962-->1:go wtime 300000 btime 300000 winc 0 binc 0
2015-11-04 08:31:10,297<--1:bestmove d7d5
2015-11-04 08:31:19,767-->1:position startpos moves e2e4 d7d5 f1b5
2015-11-04 08:31:19,781-->1:go wtime 290984 btime 299676 winc 0 binc 0
2015-11-04 08:31:19,990<--1:bestmove c7c6
2015-11-04 08:31:23,013-->1:position startpos moves e2e4 d7d5 f1b5 c7c6 b5a4
2015-11-04 08:31:23,029-->1:go wtime 288422 btime 299462 winc 0 binc 0
2015-11-04 08:31:26,835<--1:bestmove d5e4
2015-11-04 08:31:32,655-->1:position startpos moves e2e4 d7d5 f1b5 c7c6 b5a4 d5e4 a4b3
2015-11-04 08:31:32,670-->1:go wtime 283079 btime 295655 winc 0 binc 0
2015-11-04 08:31:35,052<--1:bestmove c8e6
2015-11-04 08:31:41,261-->1:position startpos moves e2e4 d7d5 f1b5 c7c6 b5a4 d5e4 a4b3 c8e6 c2c4
2015-11-04 08:31:41,275-->1:go wtime 277360 btime 293285 winc 0 binc 0
2015-11-04 08:31:44,395<--1:bestmove d8d6
2015-11-04 08:31:59,740-->1:position startpos moves e2e4 d7d5 f1b5 c7c6 b5a4 d5e4 a4b3 c8e6 c2c4 d8d6 b1c3
2015-11-04 08:31:59,758-->1:go wtime 262485 btime 290149 winc 0 binc 0
2015-11-04 08:32:13,862<--1:bestmove g8f6
2015-11-04 08:32:53,948-->1:quit

[ALWEBER]

Si tu es équipe de XE7 je peux te passer cette version FMX pour voir de quelle manière on peut relier ton appli et celle ci

[Roland Chastain]

@ALWEBER

Ton échiquier est splendide. Non, malheureusement je n'ai pas XE7.

Connecter Deep Ross à ton échiquier est sûrement faisable. Pourquoi pas comme unité, tout simplement ? Attention, il y a des fonctions en assembleur.

Mais tu aurais besoin aussi d'un arbitre. Deep Ross est capable de remplir cette fonction (c'est ce qu'il fait d'ailleurs dans la version originale du programme) mais l'interface que j'ai faite pour la version console ne le permet pas : on ne peut pas demander au programme si un coup est légal.

Donc la première étape (à mon avis) serait d'équiper ton échiquier d'un arbitre, soit en refaisant l'interface de Deep Ross, soit en utilisant l'unité chessgame.pas de mon programme Eschecs.

[ALWEBER]

@ALWEBER

Ton échiquier est splendide. Non, malheureusement je n'ai pas XE7.
Connecter Deep Ross à ton échiquier est sûrement faisable. ...

Je vais tenter quelque chose (communiquer par message windows entre nos deux applis) mais auparavant je dois implémenter le déplacement des pièces.
Tu as une version de XE avec FMX ?

[Roland Chastain]

Tu as une version de XE avec FMX ?

J'ai XE2. Mais j'ai compilé Deep Ross avec Delphi 7.

[cantador]

@ALWEBER:

toujours les SENDMESSAGE..