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.

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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...

Des solutions?