Snake, comme tout le monde

Bonjour!
Voici mon nouveau programme en TI-basic, vous l'aurez deviné il s'agit d'un snake.
Je l'ai fait hier soir et j'étais un peu fatigué donc il est possible de trouver quelques bugs et quelques labels manquant
Je vous laisse voir les fonctions qu'il possède.
DOWNLOAD

éditeur des niveaux, pour l'instant il n'y en a que 7
[Vous devez être inscrit et connecté pour voir cette image]
20 points après le changement d'une map, vous avez la possibilité de rester sur celle ci ou de passer à la suivante en mangeant le petit carré
[Vous devez être inscrit et connecté pour voir cette image]

Réglage de la vitesse 50 maximum (elle peut être négative, ça ralentira plus )
[Vous devez être inscrit et connecté pour voir cette image]
Si on mange le score, on crève

:O pour un premier snake en basic c'est vachement bien

pourquoi ne pas l'avoir fait en axe ?

:O pour un premier snake en basic c'est vachement bien

pourquoi ne pas l'avoir fait en assembleur ?

:troll:

euh peut etre parceque samsam programme en Axe et pas en assembleur ?

breffffffffffffff

on peut voir le code source pour te donner eventuellement des conseils samsam ?

Je l'ai fait en basic parce que je n'avais qu'une 82 sous la main
Voilà la source, il sort tout droit de TI editor alors il est plutôt incompréhensible sur certains points

SNAKE

Code:

:DelVar M‾62/3→Ymin:0→Xmin:0→Ymax:.25→∆X
:18→Θ
:While 1
:  Menu("SNAKE BY SAM","PLAY",A,"EDIT MAP",B,"SPEED",C,"QUIT",D
:  Lbl B
:  prgmMPDTR
:End
:Lbl C
:ClrHome
:Repeat A=45
:  getKey→A
:  L+(A=25)-(A=34→L
:  Output(1,1,"ANNUL TO QUIT
:  Output(4,7," 
:  Output(4,6,L
:End
:ClrHome
:End
:Lbl A
:DelVar MDelVar Θ10→I:‾Ans→J:26→G:DelVar ADelVar Θ:2→F:DelVar Z1→D
:ClrDraw
:Repeat Ans
:  Θ+1→Θ
:  If I=E and J=F
:      prgmMAP
:  Repeat not(Pxl-Test(‾3C,4B
:      randInt(0,23→B
:      randInt(0,‾20→C
:  End
:  Pt-On(B,C,3
:  If Θ=20
:  Then
:      Repeat not(Pxl-Test(‾3F,4E
:        randInt(0,23→E
:        randInt(0,‾20→F
:      End
:      Pt-On(E,F,2
:      Pt-On(E,F
:  End
:  Θ+2→dim(L1
:  Ans→dim(L2
:  Text(57,0,Θ+Z
:  Repeat Pxl-Test(‾3J,4I
:      1+D(D≠Θ+2→D
:      Pt-Off(L1(D),L2(D),3
:      For(K,L,50:End
:      getKey→A
:      Pt-On(I,J,3
:      I→L1(D
:      J→L2(D
:      If not(A) or (A≠24 and A≠25 and A≠26 and A≠34) or abs(A-G)=2 or 9=abs(A-G
:        G→A
:      A→G
:      I+(A-25)(A≠34→I
:      J+(A=25)-(A=34→J
:      I-24(I>23)+24(I<0→I
:      J-21(J>0)+21(J<Ymin→J
:  End
:  not(I=B and C=J or I=E and J=F
:End
:Lbl D

MAP

Code:

:ClrDraw
:Θ+Z→Z
:M+1→M
:1→D
:DelVar L1DelVar L210→I:‾Ans→J:DelVar Θ3→F
:If M=1
:  ᴸL1
:If M=2
:  ᴸL2
:If M=3
:  ᴸL3
:If M=4
:  ᴸL4
:If M=5
:  ᴸL5
:If M=6
:  ᴸL6
:If M=7
:  ᴸL7
:prgmLISTREAD

MPDTR

Code:

:0→Xmin:.25→∆X:0→Ymax:‾62/3→Ymin:DelVar BClrDraw:3→D:Ans→dim(ᴸEDIT
:10→I:‾Ans→J
:Repeat A=45
:  getKey→A
:dim(lEDIT
:If A=23 et Ans>3
:Ans-4 -> dim(lEDIT
:/* j'ai rajouté ces lignes afin de pouvoir supprimer les actions précédentes effectuées, n'efface pas les lignes directement. */
:
:  If A=21
:  Then
:      If not(B
:        StorePic 1
:      I→ᴸEDIT(D
:      J→ᴸEDIT(D+1
:      D+2→D
:      If B
:      Then
:        RecallPic 1
:        Line(ᴸEDIT(D-4),ᴸEDIT(D-3),I,J
:        10→I:‾Ans→J
:      End
:      not(B→B
:  End
:  If B
:      Line(ᴸEDIT(D-2),ᴸEDIT(D-1),I,J,0
:  Pt-Off(I,J,2
:  I+(A=26)-(A=24→I
:  J+(A=25)-(A=34→J
:  Pt-On(I,J,2
:  If B
:      Line(ᴸEDIT(D-2),ᴸEDIT(D-1),I,J
:End
:ᴸEDIT
:Menu("SAVE","LVL1",1,"LVL2",2,"LVL3",3,"LVL4",4,"LVL5",5,"LVL6",6,"LVL7",7
:Lbl 1
:Ans→ᴸL1
:Return
:Lbl 2
:Ans→ᴸL2
:Return
:Lbl 3
:Ans→ᴸL3
:Return
:Lbl 4
:Ans→ᴸL4
:Return
:Lbl 5
:Ans→ᴸL5
:Return
:Lbl 6
:Ans→ᴸL6
:Return
:Lbl 7
:Ans→ᴸL7

LISTREAD

Code:

:Ans→L3
:For(A,3,dim(Ans),4
:  Line(L3(A),L3(A+1),L3(A+2),L3(A+3
:End

Ya moyen de gagner de l'octet, j'avoue

EDIT: C'est magique, Espace-TI affiche correctement les caractères de TI-forge Editor

fais le en axe tu as juste a traduire le code ;)n et du coup tu pourras faire pleeeeiiinn d'optimisation

quand jaissaie de jouer , sa fait juste metre un x au milieu de mon graphique pis sa arrete

aidez moi svp!!!

Le codeur du est souvent ici je pense qu'il saura mieux te repondre que quinconce

Plus de précisions et une meilleure expression aideront à recevoir de l'aide.

Lorsque la calculatrice arrête un programme, elle ouvre un menu qui indique le type d'erreur, et quand elle peut, l'option "voir"/"Goto" indique l'emplacement de l'erreur.
Nous avons besoin de connaître l'emplacement et type pour envisager de chercher le problème.

le probleme c'est qu'il n'y a pas d'erreur
le programme finit après avoir mit le premier x du snake

Si tu l'as téléchargé, tu as peut-être pris une ancienne version où je n'ai pas enlevé les bugs.
Si tu l'as recopié à la main, il peut éventuellement y avoir quelques erreurs de recopiage.
J'Upload la dernière version du snake cet après-midi.

Voilà, j'ai changé le lien de téléchargement