Programme Snake Débutant. Besoin d'aide.

[Pock]

J'ai modifié le programme en pensant faire ce qu'il fallait !

Code: Tout sélectionner

nbrAléatEnt(2,25→P
nbrAléatEnt(2,9→Q
2→X:2→Y
0→K:1→I
EffÉcran
For(I,1,26
Output(1,I,".
Output(10,I,".
End
For(J,2,10
Output(J,26,":
Output(J,1,":
End
{X→L₁:{Y→L₂
1→L:1→M
Repeat K=105 et non(P=X et Q=Y
suite(L₁(max(1,θ-1)),θ,1,dim(L₁))
Output(1,20,L₁
Output(1,1,L₁(L
Output(10,1,L₂(L
Output(L₂(L),L₁(L),"."
Output(Y,X,"O"
Output(Q,P,"+"
X→L₁(1:Y→L₂(1
If X=P et Y=Q
Then
L+1→L
L→dim(L₁
L→dim(L₂
L₁(L-1)→L₁(L:L₂(L-1)→L₂(L
nbrAléatEnt(2,9→Q
nbrAléatEnt(2,25→P
Output(Q,P,"+"
End
getKey→K
If K=24:1→D
If K=26:3→D
If K=25:2→D
If K=34:4→D
X-(D=1)+(D=3)→X
Y-(D=2)+(D=4)→Y
If X=1:2→X
If X=26:25→X
If Y=1:2→Y
If Y=10:9→Y
End

Les O ne sont pas effacés.

[Pock]

Petit Up.
Après discussion avec Hayleia, il m'a donné bcp de conseil, je suis de nouveau bloqué :

Voilà le code :

Code: Tout sélectionner

nbrAléatEnt(2,25→P
nbrAléatEnt(2,9→Q
2→X:2→Y
0→K:1→I
EffÉcran
For(I,1,26
Output(1,I,".
Output(10,I,".
End
For(J,2,10
Output(J,26,":
Output(J,1,":
End
{X→L₁:{Y→L₂
1→L:1→M
Repeat K=105 et non(P=X et Q=Y
X→L₁(1:Y→L₂(1
suite(L₁(max(1,θ-1)),θ,1,dim(L₁))
suite(L₂(max(1,θ-1)),θ,1,dim(L₂))
Output(L₂(L,L₁(L,"."
Output(Y,X,"O"
Output(Q,P,"+"
If X=P et Y=Q
Then
L+1→L
L→dim(L₁
L→dim(L₂
L₁(L-1)→L₁(L:L₂(L-1)→L₂(L
nbrAléatEnt(2,9→Q
nbrAléatEnt(2,25→P
Output(Q,P,"+"
End
getKey→K
If K=24:1→D
If K=26:3→D
If K=25:2→D
If K=34:4→D
X-(D=1)+(D=3)→X
Y-(D=2)+(D=4)→Y
If X=1:2→X
If X=26:25→X
If Y=1:2→Y
If Y=10:9→Y
End


Et voilà ce que j'obtiens : http://www.noelshack.com/2016-38-1474806371-snakeprobleme.png
Je vois clairement que les "0" ne sont pas effacés... De plus quand on marche sur une pomme, elle deviens un "." (donc l'équivalent d'un effacé de "0")...

Merci d'avance ! ^^

[Hayleia]

La ligne X→L₁(1:Y→L₂(1, à mon avis elle doit se trouver après les deux seq.

[Pock]

Rien ne change !