C'est trop long et compliqué, je donne le code en entier et je surligne l'erreur :
EffEcr
Disp "PACMAN V1.0","BY JIM BUSH/GI","c1996
Pause
EffDessin
AxesNAff
ú60üYmin
2üYmax
97üXmax
3üXmin
[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,1,0,0,0,0,0,1,0,0,0,1][1,0,1,0,1,0,1,0,1,0,1,0,1,0,1][1,0,1,0,0,0,0,0,0,0,0,0,1,0,1][1,0,0,0,1,0,1,1,1,0,1,0,0,0,1][1,0,1,0,0,0,0,0,0,0,0,0,1,0,1][1,0,1,0,1,1,0,1,0,1,1,0,1,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]ü[A]
For(B,1,9
For(A,1,15
If [A](B,A
Then
Ligne(6A,ú6B,6A+5,ú6B
Ligne(6A,ú6B,6A,ú6B-5
Ligne(6A+5,ú6B,6A+5,ú6B-5
Ligne(6A+5,ú6B-5,6A,ú6B-5
Else
Ligne(6A+2,ú6B-2,6A+3,ú6B-2
Ligne(6A+2,ú6B-3,6A+3,ú6B-3
End
If (B=2 ou B= et (A=3 ou A=13)
Then
Ligne(6A+1,ú6B-1,6A+4,ú6B-1
Ligne(6A+4,ú6B-1,6A+4,ú6B-4
Ligne(6A+4,ú6B-4,6A+1,ú6B-4
Ligne(6A+1,ú6B-4,6A+1,ú6B-1
End
End
End
[[1]]ü[A]
SauveImage Img1
94üXmax
0üXmin
ú62üYmin
0üYmax
RappelImage Img1
0üD
0üE
3üO
Lbl A
EffEcr
Output(4,6,"READY!
Pause
45üA
ú38üB
45üF:6üH
ú14üG:0üI
FüJ:ú6üL
GüK:0üM
0üN
Lbl 2
If E=66:Goto B
Ligne(A+1,B,A+4,B
Ligne(A,B-1,A,B-4
Ligne(A+1,B-5,A+4,B-5
Ligne(A+5,B-1,A+5,B-4
Texte(0,0,"LIVES:",O," SCORE:",D
Lbl 0
If A=F et B=G ou A=J et B=K
Goto 8
Ligne(F,G-5,F,G-1,0
Ligne(F+1,G,F+4,G,0
Ligne(F+5,G-1,F+5,G-5,0
F+HüF
G+IüG
If A=F et B=G
Goto 8
Ligne(F,G-1,F,G-5
Ligne(F+1,G,F+4,G
Ligne(F+5,G-1,F+5,G-5
If pxl-Test(úG-I,F+H) ou NbrAl–at5<1
Goto 4
Lbl 5
Ligne(J,K-5,J,K-1,0
Ligne(J+1,K,J+4,K,0
Ligne(J+5,K-1,J+5,K-5,0
J+LüJ
K+MüK
If A=J et B=K
Goto 8
Ligne(J,K-1,J,K-5
Ligne(J+1,K,J+4,K
Ligne(J+5,K-1,J+5,K-5
If pxl-Test(úK-M,J+L) ou NbrAl–at5<1
Goto 6
Lbl 7
N-1üN
Texte(0,70,"TIME:",N(N>0)
codeTouch(üC
If Cù24 et C÷26 ou C=34
Goto 1
If C=105
Pause
Goto 0
Lbl 1 Texte(úB,A," "
If C=24 et non(pxl-Test(úB,A-6
A-6üA
If C=25 et non(pxl-Test(úB-6,A
B+6üB
If C=26 et non(pxl-Test(úB,A+6
A+6üA
If C=34 et non(pxl-Test(úB+6,A
B-6üB
If pxl-Test(úB+2,A+2
Goto 3
Goto 2
Lbl 3
D+1üD
E+1üE
If (A=15 ou A=75) et (B=ú14 ou B=ú50)
Then
D+24üD
6üN
End
Goto 2
Lbl 4
0üÁ
If H
1üÁ
0üH
0üI
If A<F et non(pxl-Test(úG,F-6
ú6üH
If AùF et non(pxl-Test(úG,F+6
6üH
If B÷G et non(pxl-Test(úG+6,F
ú6üI
If B>G et non(pxl-Test(úG-6,F
6üI
If H et I
Then
If Á=1
0üH
If non(Á
0üI
End
Goto 5
Lbl 6
0üÁ
If L
1üÁ
0üL
0üM
If A<J et non(pxl-Test(úK,J-6
ú6üL
If AùJ et non(pxl-Test(úK,J+6
6üL
If B>K et non(pxl-Test(úK-6,J
6üM
If B÷K et non(pxl-Test(úK+6,J
ú6üM
If L et M
Then
If Á=1
0üL
If non(Á
0üM
End
Goto 7
Lbl 8
If N>0
Goto 9
Texte(úB,A," "
Ligne(A,B-1,A,B-5,0
Ligne(A+1,B,A+4,B,0
Ligne(A+5,B-1,A+5,B-1,0
Ligne(J,K-1,J,K-5,0
Ligne(J+1,K,J+4,K,0
Ligne(J+5,K-1,J+5,K-5,0
Ligne(F,G-1,F,G-5,0
Ligne(F+1,G,F+4,G,0
Ligne(F+5,G-1,F+5,G-5,0
EffEcr
Disp "LOSER!!!
Pause
0üI:0üM
6üH:ú6üL
O-1üO
If O
Goto A
EffEcr
Disp "HA HA HA!",D
Stop
Lbl 9
EffEcr
Disp "GOT HIM!!
Pause
If A=F et B=G
Then
Ligne(F,G-1,F,G-5,0
Ligne(F+1,G,F+4,G,0
Ligne(F+5,G-1,F+5,G-5,0
45üF
ú14üG
D+100üD
End
If A=J et B=K
Then
Ligne(J,K-1,J,K-5,0
Ligne(J+1,K,J+4,K,0
Ligne(J+5,K-1,J+5,K-5,0
45üJ
ú14üK
D+100üD
End
Goto 2
Lbl B
EffEcr
Disp "ALL CLEAR!!
Pause
EffDessin
RappelImage Img1
500+DüD
0üE
Goto A
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 16 Oct 2010, 14:23
Plusieurs variables sont définies ici au démarrage.
Code
45üA //verrifie surtout ça ú38üB //
45üF:6üH ú14üG:0üI
FüJ:ú6üL
GüK:0üM
0üN
Toutefois nous ignorons toujours les valeurs de A et B au moment de l'erreur. Teste les en dehors du programme après l'arrêt.
PS: quand tu postes un programme, utilise des balises codes pour formater comme moi.
Edit: oups je te demande pardon, car les couleurs ne marchent pas dans les balises code.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 16 Oct 2010, 20:28
Ou bien ici
Code
If C=24 et non(pxl-Test(úB,A-6
A-6üA
If C=25 et non(pxl-Test(úB-6,A
B+6üB
If C=26 et non(pxl-Test(úB,A+6
A+6üA
If C=34 et non(pxl-Test(úB+6,A
B-6üB
If pxl-Test(úB+2,A+2
Les autres endroits suivent des mécanismes nettement plus compliqués, et je ne peux rien localiser.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 17 Oct 2010, 12:07
Sa signifie juste que le programme à fini d'être exécuter.
Si tu veux l'enlever, met à la fin de tes programmes (ou à l'étiquette qui s'y rapporte Output(1,1," ").
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 17 Oct 2010, 12:41
Il a précédemment dit que rien ne se passais dans le prog. Cela signifie probablement qu'il ne demandais pas juste comment effacer le "Fait".
Parmi les raisons pour lesquelles un programme se termine dès le lancement, il y a l'oubli d'un End fermant un If/Then (gênant quand le If n'est pas validé).
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)