0 Members and 3 Guests are viewing this topic.
.Afor(Z,0,7130=>{l1+Z}endclrdraw1=>Y=>T=>A-1=>P=>Q31=>Xline(31,20,94,20line(31,41,94,41line(51,1,51,60line(29,0,29,63line(73,1,73,60.mise en place de la grille dans le bufferstorepic lbl 1recallpic repeat getkey(15) or getkey(33)line(X,Y,X+18,Yline(X,Y,X,Y+17line(X,Y+17,X+18,Y+17line(X+18,Y,X+18,Y+17dispgraph.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))=>VV*22+X=>X(getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>WW*21+Y=>Yif V≠0 or W≠0(X-31)/22=>P(Y-1)/21=>Qpause 250goto 1end.déplacement du curseurendif getkey(33).si l'utilisateur appuie sur "0"if {l1+(P+3Q}=0.si la case est vide ...if T=1recallpic circle(X+9,Y+9,8storepic end.si c'est au joueur 1, trace un cercleif T=0line(X+1,Y+1,X+17,Y+16)rline(X+17,Y+1,X+1,Y+16)rend.si c'est au joueur 2, trace une croixT+1=>{l1+(P+3Q)}1-T=>T.changement de tourendgoto 1endclrhome
suite à la lecture du tutoriel du maintenant célèbre kindermoumoute
(getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>VV*22+X=>X(getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>WW*21+Y=>Yif V≠0 or W≠0(X-31)/22=>P(Y-1)/21=>Q
Bienvenue à toi !
Bienvenue sur le forum
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](getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>VV*22+X=>X(getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>WW*21+Y=>Yif V≠0 or W≠0(X-31)/22=>P(Y-1)/21=>Q
(getkey(3) and (X≠75))-(getkey(2) and (X≠31))=>VV*22+X=>X
(getkey(1) and (Y≠43))-(getkey(4) and (Y≠1))=>WW*21+Y=>Y
if V≠0 or W≠0
(X-31)/22=>P(Y-1)/21=>Q
:(getKey(3) and (X≠2))-(getKey(2) and (X≠0))+X→X:(getKey(1) and (Y≠0))-(getKey(4) and (Y≠2))+Y→Y
:If getKey(33) and ({Y*3+X+L1}=0):T=>{Y*3+X+L1}:End
: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
:Repeat getKey(15) or getKey(33)
if {l1+(P+3Q}=0
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]:Repeat getKey(15) or getKey(33)
if getkey(33).si l'utilisateur appuie sur "0"if {l1+(P+3Q}=0.si la case est vide ...if T=1recallpic circle(X+9,Y+9,8storepic end.si c'est au joueur 1, trace un cercleif T=0line(X+1,Y+1,X+17,Y+16)rline(X+17,Y+1,X+1,Y+16)rend.si c'est au joueur 2, trace une croixT+1=>{l1+(P+3Q)}1-T=>T.changement de tourendgoto 1
P+3Q
P+3*Q
P+(3*Q)
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]P+(3*Q)Le jeu a l'air de fonctionner parfaitement pour l'instant, sans aucun problème !