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é.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 28 Nov 2007, 16:07
Egoutagny, j'ai mis dans la section article toutes les fonctions disponible sur une 83 donc je pense que tu aurais du commencer par la.
Pour ta ligne qui bug, tu à mis un moins (signe de la négativitée) devant le X car si tu regarde le code, tu voit le symbole de la flèche puis celui du signe de la négativitée.
Autorisation : Membre
Nb de messages : 13
Inscrit le : Ven 24 Sep 2010, 20:27
Posté le : Dim 13 Déc 2009, 19:26
Bonjour,
J'ai recopié le programme, tout marche bien sauf que, quand le serpent se dirige vers la droite, il va 2X moins vite que quand il va vers le haut, vers la gauche ou vers le bas. J'ai relu 3 fois mais je ne trouve pas d'erreur !
Quelqu'un saurait il ou se situe l'endroit pour indiquer la vitesse du serpent pour chaque touche indiqué ? ou alors comment faire pour régler le problème ?
) ... je pense que c'est lié.
