Projet d'un jeu inspiré de Candy Crush

Bonjour,

Je suis en train de programmer avec mon groupe le jeu Candy Crush à l'aide du langage Pascal (c'est un projet noté). La génération de grille marche plutôt bien ainsi que le déplacement dans la grille. Le seul problème concerne la possibilité d'échanger deux bonbons. Je pense savoir d'où vient le problème mais je ne sais pas comment le résoudre. Si quelqu'un pourrait m'aider à résoudre ce problème, je lui serais très reconnaissant.
Dites-moi si vous pouvez ouvrir et lire le fichier :
Pièce jointe 606310

Bonjour et bienvenue dans le forum.

Il me semble qu'il suffit d'ajouter un var ici :

Code:

---

procedure switch(var grid1: Grid;

---

Autrement la valeur de la variable à l'extérieur de la procédure n'est pas modifiée.

En revanche, je remarque qu'ici vous avez mis un var qui n'est pas nécessaire :

Code:

---

procedure afficherGrille(pos: Coordinates; var grid1: Grid);

---

Quelques petites remarques supplémentaires.

Pour éviter l'ambiguïté j'aurais nommé mes variables comme ceci (par exemple) :

Code:

---

1 2 3 4 5 6 7 8 9

procedure switch(var AGrid: Grid; { ... }); // ... begin // ... end;   procedure jeuPrincipal(); var LGrid: Grid;

---

Plutôt que d'utiliser deux fois le même nom.

Autre chose sans grande importance. Ici begin et end sont inutiles :

Code:

---

1 2 3 4 5

repeat begin // ... end; until quit = False;

---

Enfin votre code serait plus agréable à lire si l'indentation était plus régulière. Si vous ne voulez pas vous fatiguer, vous pouvez corriger cela en utilisant cet excellent outil. :)

Bonjour,

Je vous remercie, grâce à vous, le code marche très bien. Merci beaucoup pour tous vos conseils :D !!!