hello jai repris un jeux nomé mini snake et jaimerais 2choses:
1)le meilleur score sauvgarder
2le serpent se teleporte a un endroit quand jappui sur une touche ou quand il passe quele que part
j'esspaire que vous pourez maider (je suis nul en programation...) merci @+
VOILA LE PRGM
0üXmin:94üXmax:0üYmin:62üYmax:AxesOff:ClrDraw:1üX
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
Line(24,47,71,47
Line(71,47,71,16
Line(71,16,24,16
Line(23,15,23,45
Text(5,6,"==>"
Text(5,29,"MINI SNAKE"
Text(5,78,"<=="
Text(55,2,"BY: MR"
Text(55,59,"SCORE:"
47üW:31üH:1üR:3üL:L+1üC:0üK:1üV:1üX:0üD:0üS:1üJ
Lbl H
1üL(R)
R+1üR
If R=C
Then
LüL‚
1üR
Goto P
End
Goto H
Lbl P
int(25+rand44)üX
int(17+rand28)üV
pxl-Test(V,X)üP
If P=1
Goto P
Pxl-On(V,X)
If D=0
Goto U
Text(55,83,L-2
L+1üL
LüC
1üL(C):1üL‚(C)
HüL(R):WüL‚(R)
R+1üR
If R=C
1üR
Pxl-Off(L(R),L‚(R)
0üT
If L=999
Goto Q
If D=1
Goto U
If D=2
Goto L
If D=3
Goto R
If D=4
Goto D
Lbl U
1üD
H-1üH
pxl-Test(H,W)üT
If T=1:Goto Q
Pxl-On(H,W
HüL(R):WüL‚(R)
R+1üR
If R=C
1üR
Pxl-Off(L(R),L‚(R)
getKeyüK
If K=24
Goto L
If K=26
Goto R
If K=21
Pause
Goto U
Lbl L
2üD
W-1üW
pxl-Test(H,W)üT
If T=1:Goto Q
Pxl-On(H,W
HüL(R):WüL‚(R)
R+1üR
If R=C
1üR
Pxl-Off(L(R),L‚(R)
getKeyüK
If K=25
Goto U
If K=34
Goto D
If K=21
Pause
Goto L
Lbl R
3üD
W+1üW
pxl-Test(H,W)üT
If T=1:Goto Q
Pxl-On(H,W
HüL(R):WüL‚(R)
R+1üR
If R=C
1üR
Pxl-Off(L(R),L‚(R)
getKeyüK
If K=25
Goto U
If K=34
Goto D
If K=21
Pause
Goto R
Lbl D
4üD
H+1üH
pxl-Test(H,W)üT
If T=1:Goto Q
Pxl-On(H,W
HüL(R):WüL‚(R)
R+1üR
If R=C
1üR
Pxl-Off(L(R),L‚(R)
getKeyüK
If K=24
Goto L
If K=26
Goto R
If K=21
Pause
Goto D
Lbl Q
If H=V and W=X
Goto P
ClrDraw
ZPrevious
Disp "SCORE:",L-3
Pause