[LG] Pb pour quitter un jeu (revenir au menu à la fin)

Version imprimable

17/06/2003, 20h59
zazou

[LG] Pb pour quitter un jeu (revenir au menu à la fin)

Bonsoir!!
J'aimerais savoir si quelqu'un peut me dire comment faire pour retourner à une page de présentation quand on a : soit perdu, soit gagné ,soit quitté en cours de partie.
En fait mon jeu se compose d'une première page de presentation
on peut alors acceder a trois niveaux de jeu.
Chaque niveau à une page de presentation .a partir de la on peut soit jouez , soit retourner au menu principal , soit lire les instructions.

J'ai reussi a faire retourner au menu principal a partir de ces pages de presentation , et pour les instructions aussi.
Mais je n'y arrive pas pour le jeu.

je pense que c'est parceque la partie de jeu , où on joue, c'est des boucles(repeat...until)

Merci d'avance pour vos réponses. :)
17/06/2003, 21h24
siocnarf

Pas facile de t'aider...

1) As-tu défini des procedures ou des fonctions pour structurer ton programme ?

2)

Citation:

je pense que c'est parceque la partie de jeu , où on joue, c'est des boucles(repeat...until)

Quelle est ta condition après le until ?
17/06/2003, 21h26
Raideman

Dans tes jeux, tu as donc des boucles qui gerent la partie.
Tu as bien une condition d'arret de la boucle qui determine une victoire ou un echec? Apres cette condition (quand ta partie est finie donc et fais

Code:

FormPrinciPale.Show

et tu fermes tes formes annexes.
Normalemet ce devrait suffire.
A plus
17/06/2003, 21h59
zazou

oui j'ai des procedures et fonctions.

Pour chaq nivo ca fait

repeat
repeat
effaceballon(i)
i:=i+1
dessineballon
until keypressed or f=0(plus de fleches)

case of...(touches pour fleches-1,une autre pour tirer les fleches,
une autre pour quitter<-la je voudrai retourner au menu
mais je retourne au prgm)
qd plu de fleche(perd)

until compter=0(tous les ballons crevés)
->la on gagne dc retour au prgm(la aussi je voudrai revenir au menu)

voilà ça donne à peu près ça , mais c'est un peu long pour copier-coller ici

Quand prends-tu en compte l'appui sur 'Quitter' dans tes until ?

Je te laisse réfléchir à une structure du jeu qui ressemblerait à ceci (les variables machinOk sont de type boolean):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure JouerNiveau1;
 
begin
sortieOk := false;
repeat 
   repeat 
   effaceballon(i) 
   i:=i+1 
   dessineballon 
if keypressed then
   begin
   readKey(choix);
   case of... {choix}
      { cas toucheFlecheTiree, tu fais f := f - 1; et je ne sais quoi }
      { cas toucheQuitte,  sortieOk := True; }
      end;
   end;
{ teste le gain }
if compter=0 then
   begin
   { petit message, marseillaise, ... pour avertir le joueur qu'il a gagné }
   sortieOk := true;
   end;
{ teste la perte }
if f = 0 then
   begin
   { petit message, marche funèbre, ... pour avertir le joueur qu'il a perdu }
   sortieOk := true;
   end;
until SortieOk;
end;

et le programme principal ressemblerait à ceci:

Code:

1
2
3
4
5
6
7
8
9
10
begin
{ Initialiser le jeu ici: score, ... }
FinJeuOk := false;
repeat
    Afficher menu;
    demander choix;
    if choix = '1' then JouerNiveau1;
    if choix = '2' then JouerNiveau2;
until choix = 'Q';  {Option quitter }
end;

J'ai pas trop compris quand tu fais avancer les fléches et si tu as une procedure par niveau ou une seule procédure avec un paramètre... mais bon cette structure devrait fonctionner.

18/06/2003, 13h36
zazou

Merci beaucoup.
Je vais surement te poser une question idiote mais il ne faut pas un deuxieme until dans la procedure jouernivo1? ou je ne l'ai pa vu.
18/06/2003, 14h01
siocnarf
Rassures toi: je n'ai jamais considéré qu'il y avait des questions idiotes.

Effectivement, il y a un bug: les joies du copier/coller allié à une relecture trop rapide :oops: . Dans mon esprit, il n'y a qu'un Repeat:
Code:

1 2 3 4 5 6 begin sortieOk := false; repeat effaceballon(i) i:=i+1 dessineballon
De plus, c'est juste une piste sans test. A toi d'adapter...
18/06/2003, 15h20
zazou

merci pour ta reponse!
je vais essayer de ce pas!

Sinon je fai avancer mes fleches en , quand l'utilisateur a appuye sur '0',
faisant a nouveau le cycle efface/dessine ballon mais en ajoutant le dessin de la fleche par alternance!! ca clignote mais bon c'est suffisant pr le projet qu'on doit faire!