Bref, j'ai complètement revus mes objectif, et j'ai décidé de faire un jeu avec pour base, la fonction Output(.
J'ai d'ailleurs réussit quelque chose de bien plus avancé qu'en utilisant le graph.
Enfin, il reste un truc qui me chiffonne. Ce nouveau jeu (qui en faite, au fils des modification, n'as strictement plus rien a voir avec le premier
) consiste a dirigé un "vaisseau", et a éviter des obstacle qui travers l'écran.
Donc, les grande ligne du code: (je vous explique mon problème a la fin)
:5->E:15->F:5->S:1->A:1->B:0->D
:ClrHome
:Menu(...etc...)
:While 1
: F-1->F
:ClrHome (j'ai remarqué qu'un ClrHome n'était pas vraiment gênant avec un Output(... )
:Output(E,F,"X") (un obstacle)
:Output(8,9, «VIE» )
:Output(8,15,S)
Output(A,B,">") (le personnage “vaisseau” )
:GetKey->K
:If K=25 or D=1 :Then :A-1->A: 1->D:End
:If K=34 or D=2 :Then :A+1->A: 2->D:End
:If K=24 or D=3 :Then :B-1->B: 3->D:End
:If K=26 or D=4 :Then :B-1->B: 4->D:End
:If A<1 : Then :A+7->A:End
:If B<1 : Then :B+15->B : End
:If A>7 : Then :A-7->A : End
:If B>15 : Then :B-15->B : End
:If F<1 : Then : F+15->F : End (ligne qui devrait faire revenire le x à droite de l'écran...enfin, je crois)
:If A=E and B=F: Then : S-1->S: End
:If K=105 : Then : Disp “Pause” : Pause : End
:End
)
Bon, voilà, en gros, le problème c’est que lorsque le X (l’obstacle) arrive a gauche de l’écran, au lieux de suivre la ligne :
:If F<1 : Then : F+15->F : End
J’ai une ERR : DOMAIN
Voilà, si vous avez une idée sur le pourquoi du comment…