Je l'ai tout tapé à la main et relus 3 fois
ET... SYNTAX ERROR
Un truc vraiment bizarre ...
Voilà le programme
Code
ClrHome
Output(1,3,"XSNAKE V4.7
Output(3,8,"BY
Output(5,7,"XprO
Output(8,2,"HIGH SCORE:
Output(8,14,ZÖMin
Normal
PlotsOff
AxesOff
FnOff
GridOff
For(A,1,999
End
0üXmin
94üXmax
0üYmin
62üYmax
0üN
0üP
0üO
39üdim(áY
1üM
ClrDraw
Lbl 0
Repeat 0
Fill(99,áY
áYüáX
49üB
47üA
34üD
1üE
10üL
0üH
0üI
Horizontal 0
Horizontal 1
Horizontal 2
Horizontal 60
Horizontal 61
Horizontal 62
Vertical 0
Vertical 1
Vertical 2
Vertical 3
Vertical 91
Vertical 92
Vertical 93
Vertical 94
getKey
While M
While H
While not(I)D=24
DüC
Repeat Ans+I
A-3üA
pxl-Test(61-B,AüI
Pt-On(A,B,2
AüáY(E
BüáX(E
1+E(EøLüE
Pt-Off(áY(E),áX(E),2
getKey
End
AnsüD
End
While not(I)(D=25
DüC
Repeat Ans+I
B+3üB
pxl-Test(61-B,AüI
Pt-On(A,B,2
AüáY(E
BüáX(E
1+E(EøLüE
Pt-Off(áY(E),áX(E),2
getKey
End
AnsüD
End
While not(I)(D=26
DüC
Repeat Ans+I
A+3üA
pxl-Test(61-B,AüI
Pt-On(A,B,2
AüáY(E
BüáX(E
1+E(EøLüE
Pt-Off(áY(E),áX(E),2
getKey
End
AnsüD
End
While not(I)(D=34
DüC
Repeat Ans+I
B-3üB
pxl-Test(61-B,AüI
Pt-On(A,B,2
AüáY(E
BüáX(E
1+E(EøLüE
Pt-Off(áY(E),áX(E),2
getKey
End
AnsüD
End
If D=21
Pause
If D=45
Then
Lbl 2
ClrHome
Output(2,7,"GAME
Output(3,7,"OVER
Lbl 3
ClrDraw
10N+(L-10)/3+OüO
If O>ZÖMin
Then
OüZÖMin Et là ça bug
Output(5,5,"NEW HIGH
End
Output(6,5,"SCORE:
Output(6,11,O
DelVar áX
DelVar áY
Return
End
If I
Then
If A=J and B=K
Then
Pt-Off(J,K
L+3üL
0üI
0üH
Else
For(A,3,31
Horizontal A
Horizontal 62-A
End
P+1üP
If P=3
Goto 2
(L-10)/3+OüO
0üM
N-1üN
Goto 0
End
End
If D<24 or D>26 and Dø34
CüD
End
While not(H
1+3randInt(1,19üK
2+3randInt(1,29üJ
not(pxl-Test(62-K,J+1üH
End
Pt-On(J,K,3
If L=40
0üM
0üI
End
ClrDraw
N+1üN
If N=7
Then
ClrHome
Output(1,1,"CONGRATULATIONS!
Output(3,3,"YOU'VE WON!!
Goto 3
End
If N
{32,9,32,53,62,9,62,53üáX
If N>1
augment(áX,{34,52,60,52,34,10,42,10,52,10,60,10üáX
If N>2
augment(áX,{2,31,12,31,22,31,42,31,52,31,72,31,82,31,90,31üáX
If N>3
augment(áX,{2,52,12,52,22,52,72,52,82,52,90,52,2,10,12,10,22,10,42,10,52,10,72,10,82,10,92,10üáX
If N>4
augment(áX,{11,41,11,21,23,41,23,21,71,41,71,21,83,41,83,21üáX
If N>5
augment(áX,{41,41,41,21,53,41,53,21üáX
If 99-áX(1
Then
For(X,1,dim(áX),4
áX(XüA
áX(X+1üB
áX(X+2üC
áX(X+3üD
If A=C
Then
Line(A-1,B,A-1,D
Line(A+1,B,A+1,D
Else
Line(A,B-1,C,B-1
Line(A,B+1,C,B+1
End
Line(A,B,C,D
End
End
1üM
End
Assez incompréhensible puisque le symbole a été utilisé au moins trois fois...
Quelqu'un a une idée??
Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Posté le : Sam 17 Nov 2007, 11:37
Et bien quand le jeu bug, il y a ecrit err:????? et aprés tu fais quitter ou goto ("voir" si la calculette est en francais!)! Et là tu te retrouve dans le programme, dis nous à quelle ligne tu te retrouve
Autorisation : Membre
Nb de messages : 57
Inscrit le : Mer 14 Nov 2007, 18:29
Posté le : Dim 18 Nov 2007, 13:50
en fait, j'ai viré le nmin donc il reste plus que Z et ça ne me le fait plus
par contre il y a des truc bizarres comme un meilleur score de 156 (je n'ai jamais fait plus de 10 ) ... je pense que c'est lié.