Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1387
Réponses : 6
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

[Aide] Faire bouger lettre

ViHack33 le 02/01/2012 à 13:21
Salut quelqu'un saurait comment faire bouger avec les flèches une lettre dans un décor fixe?
C'est pour un projet de jeux
metallica le 02/01/2012 à 15:21
Si tu veux faire bouger une lettre dans l'écran normal, tu peux faire :
Code
:ClrHome
:8->X
:4->Y
:Repeat K=45
:getkey->K
:If max(K={24,25,26,34
:Output(Y,X," "
:X-(K=24 and X>1)+(K=26 and X<16->X
:Y-(K=25 and Y>1)+(K=34 and Y<8->Y
:Output(Y,X,"O
:End

si tu veux le faire avec l'écran graphique :
Code
:ClrDraw
:44->X
:28->Y
:Repeat K=45
:getkey->K
:If max(K={24,25,26,34
:Text(Y,X,"    "
:X-(K=24 and X)+(K=26 and X<88->X
:Y-(K=25 and Y)+(K=34 and Y<56->Y
:Text(Y,X,"O
:End
ViHack33 le 02/01/2012 à 15:44
ok merci
Arcmokuro le 02/01/2012 à 17:50
Code
Effecr
Disp "QQQQQQQQQQQQQQQQ //16 Q
For(A,1,7
Output(A,16,"QQ
End
Output(8,2,"QQQQQQQQQQQQQQQ //15 Q cette fois
entaléat(2,15->S
entaléat(2,7->T
entaléat(2,15->J
entaléat(2,7->I
entaléat(2,15->D
entaléat(2,7->E
entaléat(2,15->K
entaléat(2,7->L
entaléat(2,15->P
entaléat(2,7->Q
7->X
5->Y
Repeat K=45
X-(K=24)(X=!=2)+(K=26)(K=!=15->X
Y-(K=25)(Y=!=2)+(K=34)(Y=!=7->Y
Output(O,N," " //Un Espace
Output(Y,X,"I


Tu peut vois Dans Le forum le Prgramme "beta"
que j'ai fait c'est une lettre qui bouge dans un Decor et si Tu marche sur un certain endroit un autre programme se lance cupsmiley.gif
sandro le 02/01/2012 à 20:22
le seul problème de cette méthode, c'est quand on marche SUR le décord : il ne sera pas réaffiché mais remplacé par un espace.

Pour y remédier, il faut stoquer quelquepart le "décord" à afficher à chaque emplacement, çoit à l'aide d'une matrice, soit à l'aide de tests en fonction des coordonnées du perso avant déplacement.

Sandro
The K le 02/01/2012 à 20:57
En plus t'as oublié un "CodeTouche -> K" Arc winkle.gif
metallica le 04/01/2012 à 16:59
Et il manque un "End" à la fin du code.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.