[Axe Parser] Problème dans la programmation d'un morpion

[reop]

Bonjour tout le monde,

suite à la lecture du tutoriel du maintenant célèbre kindermoumoute sur la programmation en Axe Parser, j'ai décidé de créer un petit morpion, jeu assez simple pour commencer, pour m'exercer un peu dans ce langage. Mais je rencontre quelques difficultés. Voici l'état du code actuellement :

Code: Select All | Copy To Clipboard

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

.A for(Z,0,713 0=>{l1+Z} end clrdraw 1=>Y=>T=>A-1=>P=>Q 31=>X line(31,20,94,20 line(31,41,94,41 line(51,1,51,60 line(29,0,29,63 line(73,1,73,60 .mise en place de la grille dans le buffer storepic lbl 1 recallpic repeat getkey(15) or getkey(33) line(X,Y,X+18,Y line(X,Y,X,Y+17 line(X,Y+17,X+18,Y+17 line(X+18,Y,X+18,Y+17 dispgraph .Affichage du curseur permettant le choix de la case où l'on souhaite poser son pion (getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>V V*22+X=>X (getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>W W*21+Y=>Y if V≠0 or W≠0 (X-31)/22=>P (Y-1)/21=>Q pause 250 goto 1 end .déplacement du curseur end if getkey(33) .si l'utilisateur appuie sur "0" if {l1+(P+3Q}=0 .si la case est vide ... if T=1 recallpic circle(X+9,Y+9,8 storepic end .si c'est au joueur 1, trace un cercle if T=0 line(X+1,Y+1,X+17,Y+16)r line(X+17,Y+1,X+1,Y+16)r end .si c'est au joueur 2, trace une croix T+1=>{l1+(P+3Q)} 1-T=>T .changement de tour end goto 1 end clrhome

Je n'obtiens pas ce que j'aurais souhaité. Quand j'appuie sur la touche "0", les ronds et les cercles s'affichent aléatoirement, quand ils le souhaitent .... L'appuie sur cette touche provoque même parfois l'arrêt du programme ! Et je ne vois pas l'erreur commise. Là est le problème.

En espérant que vous ayez la réponse à mon problème,

Au revoir !

[kindermoumoute]

Bienvenue à toi !

suite à la lecture du tutoriel du maintenant célèbre kindermoumoute

Il ne faut pas exagérer quand même. ^^'

Si j'ai bien compris il n'y a pas tout ton code. Dans ce que tu montre il y a un truc un peu violent à voir :

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7

(getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>V V*22+X=>X (getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>W W*21+Y=>Y if V≠0 or W≠0 (X-31)/22=>P (Y-1)/21=>Q

Je ne comprend pas ce que tu essaye de faire. D'abord explique ce que tu compte faire exactement avec ce calcul, puis vérifie que c'est bien comme ça qu'il faut faire. Comme il n'y a pas de variable oublié, ou de fonction rand, c'est forcément ce calcul qui te donne des nombres non voulu.

[DJ Omnimaga]

Bienvenue sur le forum

[reop]

Bienvenue à toi !

Bienvenue sur le forum

Merci à vous deux !

Si j'ai bien compris il n'y a pas tout ton code.

Le code n'est en fait pas terminé. Pour l'instant il affiche la grille, le curseur de déplacement et l'affichage des pions (enfin presque, sinon je ne serais pas là ^^).

Dans ce que tu montre il y a un truc un peu violent à voir :

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7

(getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>V V*22+X=>X (getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>W W*21+Y=>Y if V≠0 or W≠0 (X-31)/22=>P (Y-1)/21=>Q

Je vais expliquer cette partie du code pas à pas pour que tu comprennes mieux.

Code: Select All | Copy To Clipboard

1 2	(getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>V V*22+X=>X

Si le joueur appuie sur la flèche droite, V=1 et V*22 c'est-à-dire 22 s'ajoute à X tant que le curseur reste dans les limites du plateau c'est-à-dire si X≠75 pour que le déplacement ne s'opère pas pixel par pixel mais case par case. De même pour la flèche de gauche, sauf que dans ce cas-là V=-1 et on enlève 22 à X toujours s'il est dans les limites du plateau.

Code: Select All | Copy To Clipboard

1 2	(getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>W W*21+Y=>Y

C'est exactement le même principe pour les Y.

Code: Select All | Copy To Clipboard

1	if V≠0 or W≠0

Si V≠0 ou W≠0, c'est-à-dire si le curseur a bougé ...

Code: Select All | Copy To Clipboard

1 2	(X-31)/22=>P (Y-1)/21=>Q

Je pense que c'est cela qui est peu compréhensible pour toi. En fait, je n'est pas trouvé comment fonctionnaient les matrices. J'ai fais sous forme de liste où {l1+0}= la case 1, {l1+1}= la case 2, etc jusqu'à la case 9 qui est égale à {l1+8} en comptant à partir de la case en haut à gauche et à la fin de la ligne en revenant à gauche une ligne en-dessous. Pour associer les abscisses et les ordonnées à ce seul chiffre, j'ai donc procéder à un petit calcul. Et P+3Q donne le numéro à associer à la liste pour tomber sur la bonne case.
Petit exemple :
Le curseur est placé à X=31 et Y=1 au début du programme. Donc imaginons que le curseur est au centre de la grille, c'est-à-dire à la case (2;2). X est donc égale à 31+22*1=53 et Y est donc égale à 1+21*1=22
Cela donne :
P=(X-31)/22=(53-31)/22=22/22=1
Q=(Y-1)/21=(22-1)/21=21/21=1
P+3*Q=1+3*1=4
Or {l1+4} est bien associé à la case du centre puisque :
{l1+0}=case en haut à gauche (1;1)
{l1+1}=case en haut au centre (2;1)
{l1+2}=case en haut à droite (3;1)
{l1+3}=case au milieu à gauche (1;2)

Donc voilà ce calcul permet juste cela. A chaque fois que le joueur bouge le curseur, les variables sont mises à jour.

J'espère que mon explication t'auras aidé à comprendre.

Si tu veux tester pour encore plus de compréhension : http://www.mediafire.com/?d5bhyd4c9cgb7f3

Salut !

[kindermoumoute]

Ok, donc en fait ce sont tes coordonnées X qui sont mal formulé. Pour mieux comprendre ton code, il faut que X et Y correspondent aux coordonnées comme tu l'a dis (X;Y), c'est à dire compris entre 1 et 3. En gros ce qu'il faut faire c'est un mini tilemapping, sauf qu'ici on utilisera des cercles e des ronds. Pour simplifier les choses, les coordonnées de X et Y seront entre 0 et 2 (tu verra pourquoi). En gros, avant chaque affichage en fonction de X et Y, il faudra faire un calcul du genre X*22+31=>X, et à la fin X-31/22 (c'est ce que tu avais commencé à peu près à faire). Le déplacement est donc à peu près similaire :

Code: Select All | Copy To Clipboard

1 2	:(getKey(3) and (X≠2))-(getKey(2) and (X≠0))+X→X :(getKey(1) and (Y≠0))-(getKey(4) and (Y≠2))+Y→Y

Lorsqu'on appuie sur la touche pour jouer :

Code: Select All | Copy To Clipboard

1 2 3

:If getKey(33) and ({Y*3+X+L1}=0) :T=>{Y*3+X+L1} :End

Et pour afficher après c'est à peu près la même chose que le tilemapping :

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11

:For(Y,0,2) :For(X,0,2) :X*22+31=>X :If T :.Cercle :Else!If T :.Carre :End :X-31/22=>X :End :End

Si ton programme se quitte de temps en temps, c'est que dans ta boucle principale tu as autorisé la touche "0" pour le quitter :

Code: Select All | Copy To Clipboard

1	:Repeat getKey(15) or getKey(33)

Voili voilou, tu me redis si ça ne marche toujours pas.

PS : C'est marrant, c'est en faisant un programme de morpion que j'ai appris l'astuce 1-T=>T, c'est là que c'est très puissant.

[reop]

En effet, quand j'enlève la condition :

Code: Select All | Copy To Clipboard

1	if {l1+(P+3Q}=0

tout fonctionne bien. Ce doit être donc que c'est mal formulé. Mais pourtant que je fais les calculs avec n'importe quel position du curseur, tout est juste.

Deuxième truc bizarre, tu me dis :

Si ton programme se quitte de temps en temps, c'est que dans ta boucle principale tu as autorisé la touche "0" pour le quitter :

Code: Select All | Copy To Clipboard

1	:Repeat getKey(15) or getKey(33)

Oui mais il y a une condition juste à la sortie de la boucle :

Code: Select All | Copy To Clipboard

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

if getkey(33) .si l'utilisateur appuie sur "0" if {l1+(P+3Q}=0 .si la case est vide ... if T=1 recallpic circle(X+9,Y+9,8 storepic end .si c'est au joueur 1, trace un cercle if T=0 line(X+1,Y+1,X+17,Y+16)r line(X+17,Y+1,X+1,Y+16)r end .si c'est au joueur 2, trace une croix T+1=>{l1+(P+3Q)} 1-T=>T .changement de tour end goto 1

... qui finalement se termine par un Goto qui se dirige juste avant le début de la boucle principale. Donc cela ne devrait pas quitter.

[kindermoumoute]

Cela dépend de quand est ce que tu appuie sur la touche.

[reop]

J'ai résolu une partie du problème. La condition est maintenant placé dans la boucle principale.
Le deuxième problème qui affichait les pions aléatoirement était en fait du au fait qu'il ne fallait pas mettre :

Code: Select All | Copy To Clipboard

1

P+3Q

mais :

Code: Select All | Copy To Clipboard

1

P+3*Q

Cependant ce n'est pas entièrement résolu puisque maintenant seul un des trois case du haut peut être occupé par un pion sinon cela ne fonctionne pas et, bizarrement les deux dernières case sont identifiés par {l+8} et {l+10} alors que toutes les autres ont le bon emplacement.

[reop]

En fait oublie mon message précédent. J'avais oublié que l'Axe Parser ne tenait pas compte des priorités. Il fallait donc mettre :

Code: Select All | Copy To Clipboard

1

P+(3*Q)

Le jeu a l'air de fonctionner parfaitement pour l'instant, sans aucun problème !

[kindermoumoute]

En fait oublie mon message précédent. J'avais oublié que l'Axe Parser ne tenait pas compte des priorités. Il fallait donc mettre :

Code: Select All | Copy To Clipboard

1

P+(3*Q)

Le jeu a l'air de fonctionner parfaitement pour l'instant, sans aucun problème !

Ou plus simplement Q*3+P

[reop]

Ah oui je n'y avais pas pensé sur le coup. Merci !