Jeu "Typing Maniac"

Bonjour,

J'ai un projet scolaire à faire pour la semaine prochaine (bien sûr, il faut toujours être dernière minute) sur Turbo Pascal. J'ai décidé de faire un jeu semblable à Typing Maniac sur Facebook. :ccool:

http://apps.facebook.com/typing-maniac/

En résumé, un mot défile d'en haut jusqu'en bas et il faut taper le mot avant qu'il touche le bas. Pour faire moins compliqué, j'ai décidé de seulement faire défiler une lettre plutôt qu'un mot.

Pour faire une lettre random:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var s,lettre:string; num,a,b,c,:integer;   procedure lettrerandom;   begin   randomize; s:=``; num:=random(26); lettre:=chr(ord(`A`)+num); s:=s+lettre; end;

---

Lettre qui défile:

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

procedure jeu;   repeat   lettrerandom;(*générer la lettre random*) randomize; a:=random(500); (*l'axe des x random pour la lettre*) b:=50; (*l'axe des y*); c:=0; (*nombre de fois que le jeu répète*)   repeat   delay(10); clrscr; a:=a; b:=b+5; gotoxy(a,b); write(s); (*lettre générée*) m:=readkey;   if m=s then b:=430 and clrscr; (*la lettre disparait et on recommence*)   until b=430;(*la lettre atteint le bas de l'écran*)   c:=c+1;   until c:=10; (*le jeu se fait 10 fois*)   until c=10;

---

Problème

1) Je ne peux pas faire défiler la lettre car le readkey demande de taper une letttre.

2) Incapable de faire défiler plusieurs lettres à la fois sur l'écran.

3) Le m=s ne fonctionne pas. Incapable de faire readkey pour la lettre générée.

Je réalise maintenant que mon programme est très complexe...:calim2:

Des solutions?

bonjour,

pense à ajouter des balises "code" autour de ton code :)

alors ça fait longtemps que j'ai pas touché à TP mais tu dois avoir la fonction Keypressed qui te permet de savoir si une touche a été pressée avant de faire appel à Readkey...et si mon souvenir est bon ReadKey renvoie #0 lors de la première lecture si c'est une touche "étendue" genre F1...et il faut alors faire une seconde lecture.

dans ton code "m" ne semble pas être déclaré

"s" devrait être un Char et non un string

pour faire défiler plusieurs lettres c'est le même principe avec des tableaux à la place des variables simples et une boucle sur la longueur du tableau pour traiter chaque lettre

d'autre part, je n'utiliserais pas un clrscr mais je mettrais juste un espace à l'ancienne position de la lettre...car c'est tout ce dont tu as besoin pour effacer l'écran :) ça te permet même d'afficher un score ou un titre sans qu'il soit effacé à chaque fois :)

Citation:

---

Envoyé par halfguru

Je réalise maintenant que mon programme est très complexe...:calim2:

Des solutions?

---

:D

Tu as des problemes de syntaxe dans ton programme actuel. L'acffectation se fait avec l'operateur :=, et l'operateur = est utilisé pour les tests.


L'instruction

Code:

---

1 2	if m=s then b:=430 and clrscr;

---

s'ecrit

Code:

---

1 2 3 4 5 6

if (m=s) then begin b := 430; clrscr; end;

---

La procedure lettrerandom serait mieux en fonction pour eviter des effets de bord éventuels.

Sinon pour les reste, c'est comme l'a dit Paul TOTH.

Citation:

---

Envoyé par Paul TOTH

alors ça fait longtemps que j'ai pas touché à TP mais tu dois avoir la fonction Keypressed qui te permet de savoir si une touche a été pressée avant de faire appel à Readkey

"s" devrait être un Char et non un string

pour faire défiler plusieurs lettres c'est le même principe avec des tableaux à la place des variables simples et une boucle sur la longueur du tableau pour traiter chaque lettre

d'autre part, je n'utiliserais pas un clrscr mais je mettrais juste un espace à l'ancienne position de la lettre...car c'est tout ce dont tu as besoin pour effacer l'écran :) ça te permet même d'afficher un score ou un titre sans qu'il soit effacé à chaque fois :)

---

Ok bon...je sais que c'est beaucoup demander mais pourriez-vous tout simplement retranscrire le code dont j'ai besoin? J'ai montré votre post à mon professeur de TP, mais il est naze donc il comprend pas chose. Si je fais "if Keypressed..." alors la touche reste enfoncée donc la boucle va toujours se terminer aussitôt :cry:

Ensuite, pourquoi mettre un "s" en char? Et je ne peux pas write un Char non plus, non? Je ne comprends pas non plus bien le tableau de variables et le Clrscr qu'on peut remplacer par un espace dans l'ancienne position?

Bref, quelques codes me seront bien utiles.

Merci d'avance!

Citation:

---

Envoyé par halfguru

Ok bon...je sais que c'est beaucoup demander mais pourriez-vous tout simplement retranscrire le code dont j'ai besoin? J'ai montré votre post à mon professeur de TP, mais il est naze donc il comprend pas chose. Si je fais "if Keypressed..." alors la touche reste enfoncée donc la boucle va toujours se terminer aussitôt :cry:

Ensuite, pourquoi mettre un "s" en char? Et je ne peux pas write un Char non plus, non? Je ne comprends pas non plus bien le tableau de variables et le Clrscr qu'on peut remplacer par un espace dans l'ancienne position?

Bref, quelques codes me seront bien utiles.

Merci d'avance!

---

et quelques efforts également :)

Bonjour

@halfguru : je crois que ceux qui sont intervenus dans la discussion t'ont donné des pistes, tu peux donc commencer à revoir tout ça, et sur les petites questions que tu poses, un peu de recherche sur les tutoriels te donnera des réponses. Et surtout l'aide de TP est là alors penses à t'en servir sur 'keypressed', 'clrscr' etc :P

Ok! J'ai mis "s" comme une variable Char comme vous me l'avez conseillé. De plus, j'ai utilisé le Keypressed et la lettre défile comme prévu! 8-)


Lettre qui défile:

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 32 33 34 35 36 37 38 39 40 41 42 43

procedure jeu;   repeat   lettrerandom;(*générer la lettre random*) randomize; a:=random(500); (*l'axe des x random pour la lettre*) b:=50; (*l'axe des y*); c:=0; (*nombre de fois que le jeu répète*)   repeat   delay(10); clrscr; a:=a; b:=b+5; gotoxy(a,b); write(s); (*lettre générée*)   delay(20); setcolor(0); write(s);   if Keypressed then   begin   m:=readkey;   if (m=s) then   begin b:=430; clrscr; (*la lettre disparait et on recommence*) end; end; until b=430;(*la lettre atteint le bas de l'écran*)   c:=c+1;   until c:=10; (*le jeu se fait 10 fois*)   until c=10;

---

Il ne me reste plus qu'à savoir comment faire pour détecter les lettres majuscules et minuscules. Deusio, je veux mettre maintenant un scoreboard, mais le Clrscr gâche tout. Pour l'instant, j'utilise une petite astuce qui consiste à réécrire par-dessus le texte avec la couleur du background (noir) mais cela crée un petite clignotement désagréable xD. J'aimerai effectuer ce qu'on m'a recommander mais, je n'ai pas bien saisi:

Citation:

---

d'autre part, je n'utiliserais pas un clrscr mais je mettrais juste un espace à l'ancienne position de la lettre...car c'est tout ce dont tu as besoin pour effacer l'écran ça te permet même d'afficher un score ou un titre sans qu'il soit effacé à chaque fois

---

Comment est-ce possible de déplacer l'ancienne position d'un write(s)? Pourquoi ça n'existe pas un Clrscr dans un zone précise!? XD

Et aussi, je suis désolée d'avoir été profiteur en vous demandant de tout faire le travail.

Code:

---

1 2 3 4 5 6 7 8

//clrscr; // a:=a; ???!!! gotoxy(a,b); write(' '); (* ancienne lettre effacée*) b:=b+5; gotoxy(a,b); write(s); (*lettre générée*)

---

sinon il y a la fonction Window()

Ça ne fonctionne pas avec OutTextXY(a,b,s)

OutTextXY s'utilise en mode graphique, pas en mode texte

J'ai remis mon travail aujourd'hui :D

Merci beaucoup les gars pour votre aide!!

tu peux faire

Code:

---

1 2 3 4 5 6 7 8 9 10

repeat //faire défiler ta lettre until keypressed; e : readkey; // stock la touche pressée dans e; que tu déclare en char; case ord(e) of 1 : ... 2 : ... ........ end;

---