[Turbo Pascal] JS-Echecs : Jeu d'échecs en mode texte [Sources]

[forum]

Bonjour,

Je vous propose un nouveau code source à télécharger : JS-Echecs.

C'est un programme allemand que j'ai étudié et modifié. J'ai mis les noms des variables et des fonctions en français, et refait l'affichage (mode texte).

Ce programme est court, simple et d'une grande efficacité. J'y ai pour ma part appris plusieurs choses.

L'adversaire artificiel joue instantanément et, autant que je puis le dire, il joue très correctement.



Qu'en pensez-vous ?

[Roland Chastain]

Pour jouer, tapez par ex. "e2e4" ou "E2E4" puis appuyez sur Entrée.

Autres commandes :

9999 Quitter le programme
9900 Faire jouer l'ordinateur
9001 Reprendre le dernier coup

[Roland Chastain]

Bonjour ! Je vous présente la nouvelle version de JS-Echecs.

Cette version propose une très simple interface graphique basée sur l'API Win32. Les pièces du jeu sont représentées au moyen d'une police True Type.

Pour jouer, cliquez sur la case de départ puis sur la case d'arrivée.



Qu'en pensez-vous ?

[Alcatîz]

Très joli !

Deux petites remarques :

- Le programme ne détecte pas une situation de mat, donnant sans fin un message "Coup illégal" jusqu'à ce que je ferme la fenêtre. C'est sûrement un détail.

- Il serait possible de remplacer l'utilisation de la police TrueType par l'inclusion dans les ressources de petites bitmaps représentant les pièces.

Mais je pinaille, c'est un beau programme... nettement plus fort que moi aux échecs.

[Roland Chastain]

Envoyé par Alcatîz

- Le programme ne détecte pas une situation de mat, donnant sans fin un message "Coup illégal" jusqu'à ce que je ferme la fenêtre. C'est sûrement un détail.

Grâce à ta remarque j'ai trouvé l'erreur que j'ai faite mais elle n'est pas évidente à corriger.

Le point qui m'avait échappé, c'est que l'échec n'est pas testé dans la procédure de génération des coups. De ce fait la liste des coups possibles n'est jamais vide. C'est au dernier moment que le coup est refusé. Cela m'a échappé quand j'ai posé la condition suivante, qui n'est jamais vraie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    //
    generateur2(courante);
    //
    if courante.compteur = 0 then // jamais vrai !
      begin
        if echec(courante) then
          etatPartie := NoirGagnant
        else
          etatPartie := Pat;
      end
    else
      begin
        {$IfDef Dev}
        if echec(courante) then
          ecriture_fichier('Echec au roi blanc !', false);
        {$EndIf}
      end;

Soit dit en passant, voilà pourquoi le programme est si rapide.

Le texte de présentation inclus dans le programme original précise que l'échec et mat est détecté seulement pour l'ordinateur :

- Prü�fung auf Schach fü�r den Spieler sowie Matt&Patt f�ür den Computer

Dans le cas de l'ordinateur, l'échec et mat est détecté d'une façon qui paraît bizarre à première vue mais qui est simple et efficace :

Code :

1
2
3
4
5
6
7
8
9
10
    deja_en_echec := echec(courante);
    mouvement(courante, admissiblesProv[i], admissiblesDest[i]);
    courante.couleur := -1 * courante.couleur;
    if echec(courante) then
    begin
      if deja_en_echec
      then writeln('Mat !')
      else writeln('Pat !');
      halt;
    end;

Si l'ordinateur est en échec après avoir joué, c'est qu'il n'y avait pas de coup "meilleur". Dans le cas du joueur, la même déduction ne peut pas être faite. Voilà l'origine du problème. Je vais voir comment je peux le résoudre.

Envoyé par Alcatîz

- Il serait possible de remplacer l'utilisation de la police TrueType par l'inclusion dans les ressources de petites bitmaps représentant les pièces.

Je vais étudier cette possibilité. J'ai un programme qui convertit les polices True Type en bitmaps. J'aime bien aussi les bitmaps au format texte qu'on peut obtenir avec Workshop. Il faut que j'apprenne à m'en servir.