lover-lol le 11/02/2011 à 20:08
Voici un programme de base que j'ai fait afin de comprendre à quoi servait et surtout, comment utiliser ce getkey
La chose que je voudrais faire c'est, que le petit ° se déplace vers nous d'une case lorsque l'on se déplace d'une case (enfin de crans).
En gros si on considère mon plan comme ceci sachant que * c'est moi et ° le méchant :
_________________
| | J'aimerais que si je me déplace à gauche, il aille à
| * | gauche, que si je me déplace à droite, il aille en haut,
| ° | que si je me déplace vers le bas, il aille à gauche.
|_______________|
Merci d'avance,
Lover-lol
Le code :
Code
ClrHome
:5→Y
:8→X
:Lbl 1
:randInt(1,8)→V
:randInt(1,16)→W
:If V=5 and W=8:Goto 1
:Lbl 0
:Y→B
:X→A
:V→F
:W→G
:getKey→K
:If K=24:X-1→X
:If K=25:Y-1→Y
:If K=26:X+1→X
:If K=34:Y+1→Y
:If X>16:1→X
:If X<1:16→X
:If Y>8:1→Y
:If Y<1:8→Y
:If X=W and Y>V:Then:V+1→V:Goto H:End
:Lbl H
:If Y=V and X=W:Goto 6
:Output(B,A," "
:Output(Y,X,"*"
:Output(F,G," "
:Output(V,W,"°"
:Goto 9
:Lbl 6
:Goto Θ
:Lbl 9
:If K≠45
: Goto 0
:ClrHome
:Stop
:Lbl Θ
:Output(5,2,"::::PERDU::::"
linkakro le 11/02/2011 à 22:20
Il reste juste à étoffer cette partie, qui a d'ailleurs une petite erreur.
Code
:If X=W and Y>V:Then:V+1→V:Goto H:End
:Lbl H
Code
:If X=W and Y>V
:V+1->V
//ici des tests à partir de K
:Lbl H
Je suis (verbe suivre) persalteas dans son idée de te laisser essayer. Toutefois je te conseille d'utiliser les K.