Mettre en pause un programme

[BlaSfaiMe]

Bonjour/Bonsoir

je souhaitais savoir comment je pourrais mettre en pause un programme, à un certain moment puis le reprendre par la suite (dans l'exemple d'un jeu, ici snake)

Merci d'avance

[Hamza.S]

Si ce n'est pas programmé dans le jeu, il faudra le faire si le jeu n'est pas écrit en langage machine (ASM/C...)

[BlaSfaiMe]

En fait, j'ai le jeu snake, codé par moi (re-codé de quelqu'un plus exactement) et j'aimerai y intégrer une fonction DD pause mais je ne sais pas comment faire sachant que c'est en draw mode et non en output(

[Hamza.S]

tu as dû utiliser la commande getkey, tu peux faire en sorte que quand tu appuies sur enter ou annul, ça le met en Pause

[BlaSfaiMe]

Mais j'ai un problème avec le fait que le jeu ne se reprend pas, il s'arrête !

[Hamza.S]

Partage ton code pour que les personnes qui te lisent puissent t'aider

[BlaSfaiMe]

Code: Select all

ClrHome
ClrDraw
{30,30→dim([A]
Fill(0,[A]
For(A,0,1
For(B,0,29
Pxl-On(29*A,B
Pxl-On(B,29*A
1→[A](1+A*29,B+1
1→[A](B+1,1+A*29
End
End

2→Z
1→L

15→E:15→F
26→U
14→G:15→H
U→V
randInt(1,28→I
randInt(1,28→J
Pxl-On(J,I

0→S
Text(5,35,"SCORE:"
Text(12,35,S
Text(19,35,"ULTIMATE:"
Text(26,35,100-S
0→θ

While θ=0
getKey→K
If K
Then
K→U
End
U→[A](F+1,E+1)
If (E=I) and (F=J)
Then
randInt(1,28→I
randInt(1,28→J

While [A](J+1,I+1)
randInt(1,28→I
randInt(1,28,J
End
Pxl-On(J,I
Z+1→Z
S+1→S
Text(12,35,S
Text(26,35,"                           "
Text(26,35,100-S
End
E+(U=26)-(U=24)→E
F+(U=34)-(U=25)→F

If Z
Then
Z-1→Z
Else
0→[A](H+1,G+1)
G+(V=26)-(V=24)→G
H+(V=34)-(V=25)→H
[A](H+1,G+1)→V
Pxl-Off(H,G
End
Pxl-On(F,E
[A](F+1,E+1)→θ
Pxl-Off(H,G
End
Disp S

Voilà

[Hamza.S]

Tu pourras mettre une pause sans pouvoir quitter le programme. Si jamais c'est ce que tu cherchais.
Tu peux rajouter par exemple

Code: Select all

If K=45 or K=23
Pause

Il y a un espace après Pause si jamais tu tapes manuel