Omnimaga
Calculator Community => [FR] Section Francophone => [FR] Programmation Axe Parser => Topic started by: Belette furtive on October 16, 2011, 02:23:21 pm
-
Bonjour a tous !
J'ai commencé il y a peu la programmation en Axe Parser avec l'aide de l'excellent tuto de Kindermoumoute (encore merci) mais voilà ; je suis bloqué : J'arrive a faire une map plus grande que l'écran mais impossible de s'y déplacer et je ne trouves pas pourquoi.
Donc si quelqu'un pouvait m'aider, ce ne serait pas de refus s'il vous plaît.
PS : Je n'ai pas trop l'habitude des forums, comment on fait pour afficher le programme?
-
Bienvenue sur Omnimaga, est-ce que tu pourrais poster ton code (avec [code][/code]), peut-être que ça pourrait aider?
-
Salut et bienvenue sur le forum. Pour afficher le programme il faut utiliser les balises [ code] comme Juju dit. Au préalabe il faut bien sur avoir extrait le code du fichier de programme, par exemple avec TI-Graph Link, SourceCoder ou bien TokenIDE.
-
Comme ça ?
.MMM
[0020404204040000]→Pic1
[002255DD55DD5555
[22FF88FF22FF88FF
[222222222222222222222222222222222222→GDB1
[200000000000000000000000000000000002
[200000000000000000000000000000000002
[200000000000000000000000000000000002
[211111100000000000000000000000000002
[200000000000000000000000000000000002
[200000000000011111100000000000000002
[200000000000011001100000000000000002
[200000000000011001100000000000000002
[200000000000011111100000000000000002
[200000000000000000000000000000000002
[200000000000000000000000000000000002
[200000000000000000000000000022222222
[200000000000000000000000000022222002
[200000000000000000000000000020000002
[222222222222222222222222222222222222
Lbl DPL
Repeat getKey(15)
If getKey(3) and (sub(ZIP,A+1,B)=0)
A+1→A
ElseIf getKey(2) and (sub(ZIP,A-1,B)=0)
A-1→A
End
If getKey(1) and (sub(ZIP,A,B+1)=0
B+1→B
ElseIf getKey(4) and (sub(ZIP,A,B-1)=0
B-1→B
End
DispGraph
ClrDraw
sub(TLM)
End
Return
Lbl TLM
For(Y,0,7
For(X,0,11
sub(ZIP,X+A,Y+B)→r₁
Pt-On(X*8,Y*8,r₁*8+Pic1
End
End
DispGraph
Return
Lbl ZIP
r₂*36+r₁→r₁
{r₁/2+GDB1}→r₂
If r₁^2
r₂^16
Else
r₂/16
End
-
C'est farpait comme ça :D
Première impression : tes variables A et B ne sont pas initialisées c'est normal ou pas ? C'est peut être pour ça que quand tu les envoie dans ZIP, et qu'elles valent n'importe quoi, y a peu de chances que ça rende bien.
-
J'ai essayé en stockant 0 dans A et B mais ça ne fait rien : impossible de se déplacer
Si je met une valeur supérieure à 0,je peux me déplacer mais impossible d'aller tout en haut de la map, là où il y a les murs et un obstacle invisible me bloque mystérieusement à la 11ème ligne, jusque à ce que les barrières du milieux de la map soient au centre de l'écran.
-
C'est bon, j'ai fini par réussir :D
Merci quand même !