En sortant de notre chapitre Getkey nous avions:

:4X
:4Y
:Lbl 1
:ClrHome
:OutPut(Y,X,"0"
:repeat Z0
:GetkeyZ
:End
:If Z=24
:X-1X
:If Z=26
:X+1X
:If Z=25
:Y-1Y
If Z=34
:Y+1Y
:Goto 1

Nous avons constaté dans le précédent chapitre que le programme plantait si nous allions hors de l'écran.
En effet, avec le code vu plus plus haut, la calculatrice voudra afficher notre personnage en une abscisse 0 ou 17 ou encore en une ordonnée 0 ou 9. Autrement dit vous demandez à votre machine d'afficher quelque chose à un endroit qui n'existe pas. Elle ne comprend pas, résultat elle plante. sympa non ?

Pour régler ce problème il suffit de dire à la calculatrice (avant que l'affichage foireux ait lieu) d'autoréguler ses abscisses et ses ordonnées autrement dit de mettre:

0 < Y < 9
0 < X < 17

Pour ce faire nous allons demander à la machine de changer la valeur de X dès qu'elle sortira de son domaine de définition.

En programmation nous traduirions cela par une série de conditions...
Si X=0
Le remettre à 1
Si X=17
Le remettre à 16
Et même chose pour notre variable Y avec son domaine de définition.

Evidemment vous ne pouvez pas placer ce morceau de code à n'importe quel endroit du programme. Si par exemple vous le placez après l'affichage cela ne servira à rien puisque la calculatrice plantera avant la régulation de vos variables...

Cela nous donnerait donc:

:4X
:4Y
:Lbl 1
:ClrHome
:OutPut(Y,X,"0"
:repeat Z0
:GetkeyZ
:End
:If Z=24
:X-1X
:If Z=26
:X+1X
:If Z=25
:Y-1Y
:If Z=34
:Y+1Y
:If X=0
:1X
:If X=9
:8X
:If Y=0
:1Y
:If Y=9
:8Y
:Goto 1

Tadaaa. maintenant vous ne pouvez plus sortir, vous avez l'impression que le bord de la caluclatrice est devenu "solide".

Pour aller plus loin

Servons nous à présent de notre nouvelle acquisition pour fabriquer un petit jeu.

Voici le but du jeu:

Un objet est invisible, il faut le chercher à coup de [ENTER]. Vous pouvez placer l'objet à la bourin c'est à dire en position fixe ou alors vous ordonnez à votre machine de choisir une place au hasard pour l'objet caché.

Ici nous choisirons de positionner l'objet par le biais du hasard. Comme vous le savez ,evidemment, (^^) vous utiliserez la fonction RandInt() pour tirer les coordonnées de l'objet au hasard. Si vous ne savez pas encore vous servir de cette magnifique fonction je vous invite à consulter la page concernant les notions évidentes.

Une fois votre soif de culture étanchée vous pourrez revenir

Je vous conseille d'essayer de refaire le programme pour se déplacer sans regarder du tout le mien. Au début on se plante beaucoup étant donné que le repère des ordonnées est orientée vers le bas mais cela finit par venir tout de même.

Essayez de multiples fois de réaliser ce jeu, plantez vous, recommencez et enfin suant et désespérant vous pourrez regarder la solution;).

Deux trois indices quand même:

• Mettez votre RandInt() à l'exterieur de la boucle sinon la position changera à chaque mouvement du personnage.

.

• Vous devez gettez la touche [ENTER] qui sert à fouiller (touche 105)

• Lorsque on appuye sur [ENTER] on vérifie si les coordonnées du personnages sont mêmes que celle de l'objet invisible.

Bonne chance et bonne programmation