Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - reop

Pages: [1]
1
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]
.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 !

Pages: [1]