Le jeu Bowling est un originaire des consoles de jeux Atari 2600. Ce fut également un jeu n'ayant pas eu de suite autre que chez les amateurs de jeux vidéo. Le jeu est fort simple, il faut viser les 4 situés à la gauche de l'écran en tapant sur un bouton de tire ou la barre d'espacement sur un ordinateur au bon moment. L'ennui c'est que la boule de quille bouge assez vite et si vous visez trop tôt ou trop tard, vous viserez à côté des quilles. Le jeu peut se jouer avec 1 joueur jusqu'à 4 joueurs.
Tout d'abord, dans la procédure InitGame, il faut initialiser quelques variables, ainsi, on doit demander à l'utilisateur le nombre de joueur et le nom de chacun des joueurs. Afin de régler les problèmes d'affichage, on conserve uniquement les 8 premières caractères des noms entrées par l'utilisateur.
Ensuite, une fois que les jeux a les informations souhaitez, on peut dessiner les éléments de base du jeu à l'aide de la procédure DrawGameScreen. On commence par dessiner le tableau des tours pour chacun des joueurs. Ensuite, on indique les pointages totales de chacun des joueurs et finalement on dessine le salle du jeu du quille.
Ensuite, lors du lancement de la première balle (FirstBall), on dessine chacun des quilles en utilisant un protocole d'affichage ANSI. Ainsi, grâce à la méthode ainsi, on déplace le curseur d'une position à la fois la position du curseur et il s'agit d'un avantage très intéressant dans le cas des cas, puisqu'ils ont une distance de 1 caractère entre chacun d'eux. Il est certain qu'on pourrait dessiner 1 à 1 chacune des quilles, mais pour la plupart des programmeurs c'est moins amusant.
Ensuite, le moteur du jeux est situés dans la procédure MainLoop. Il permet aux joueurs de lancer chacun des boules de quilles jusqu'à ce que les 10 manches (indiqué par la variable Q) et chacun des joueurs (indiqué par Z9) soient accomplit. Par chacun des tours, il propose d'abord une première boule de quille à l'aide de la procédure FirstBall et s'il ne fait pas un abat indiqué par la variable J1 par la valeur 10, alors il propose une deuxième boule de quille à l'aide de la procédure SecondBall.
Lors de déplacement de la boule de quille, on doit vérifier à l'écran où sont situés les quilles. Pour y arriver on doit connaître le contenu de l'écran de texte. Malheureusement, bien qu'on peux facilement connaître l'information en consultant la mémoire vidéo (Mem[$B800:X]), elle n'est pas dans le standard officielle du Pascal. Pour contourner le problème, lorsqu'on affiche les quilles, on écran également dans le tableau Screen afin de connaître le contenu ce qui se trouve vraiment dans l'écran. De plus, lorsqu'on enlève une quille, on doit également effacer le contenu où est situé la quille. Ainsi, grâce à cette technique, il n'est pas nécessaire de connaître le contenu de l'écran pour déplacer la boule de quille.
L'exemple de jeu Bowling suivant est développé en Turbo Pascal 7 et fonctionne également sous Free Pascal. Voici le code source en Turbo Pascal du jeu :
- Program BOWLING;
-
- Uses Crt;
-
- Var
- Screen:Array[0..25,0..40]of Char;
- S,T:Array[0..4]of Integer;
- NA:Array[0..4]of String;
- A,B1,J,PS1,J1,Q,Score,T_,X1,X2,Z9:Integer;
- PS,Terminated:Boolean;
-
- Function Left(Const Str:String;Num:Byte):String;Begin
- Left:=Copy(Str,1,Num);
- End;
-
- Function PadRight(S:String;Space:Byte):String;
- Var
- I:Byte;
- Begin
- If Length(S)<Space Then For I:=Length(S)+1 to Space do S:=S+' ';
- PadRight:=S;
- End;
-
- Procedure InitGame;
- Var
- I:Byte;
- K:Char;
- Nom:String;
- Begin
- FillChar(Screen,SizeOf(Screen),#0);
- Terminated:=False;
- A:=1;
- For I:=0 to 4 do NA[I]:='';
- TextMode(CO80);
- TextBackground(4);
- TextColor(15);
- ClrScr;
- GotoXY(37,8);
- WriteLn('BOWLING');
- GotoXY(7,13);
- Write('Combien de quilleurs doivent jouer (entre 1 et 4) ? ');
- Repeat
- K:=ReadKey;
- Case K of
- #27:Halt;
- '1'..'4':Begin
- A:=Ord(K)-Ord('0');
- Break;
- End;
- End;
- Until False;
- For I:=1 to A do Begin
- GotoXY(8,15+I);
- Write('Entrez le nom du quilleur #',I,' : ');
- ReadLn(Nom);
- NA[I-1]:=Left(Nom,8);
- End;
- End;
-
- Procedure DrawGameScreen;
- Var
- I:Byte;
- Begin
- TextMode(CO40);
- TextBackground(4);
- TextColor(15);
- ClrScr;
- GotoXY(10,1);
- Write('1 2 3 4 5 6 7 8 9 10');
- GotoxY(10,2);
- For J:=1 to 31 do Write({$IFDEF FPC}'-'{$ELSE}Chr(196){$ENDIF});
- For I:=1 to A do Begin
- GotoXY(1,2*I+1);
- TextColor(I+1);
- Write(PadRight(NA[I-1],11));
- J:=12;
- While J<=36 do Begin
- Write({$IFDEF FPC}'|'{$ELSE}Chr(179){$ENDIF},' ');
- Inc(J,3);
- End;
- GotoXY(10,2*I+2);
- For J:=1 to 31 do Write({$IFDEF FPC}'-'{$ELSE}Chr(196){$ENDIF});
- End;
- GotoXY(1,12);
- For I:=0 to A-1 do Begin
- If I=2 Then GotoXY(1,14);
- TextColor(I+2);
- Write(NA[I],' :',' ':19-Length(NA[I]));
- End;
- GotoXY(1,15);
- For I:=1 to 39 do Write({$IFDEF FPC}'-'{$ELSE}Chr(196){$ENDIF});
- GotoXY(1,25);
- For I:=1 to 39 do Write({$IFDEF FPC}'-'{$ELSE}Chr(196){$ENDIF});
- End;
-
- Procedure InitScore;
- Var
- I:Byte;
- Begin
- For I:=0 to A-1 do S[I]:=1;
- End;
-
- Procedure RollBall;
- Var
- G,H,V,D:Integer;
- K:Char;
- Begin
- H:=1;V:=24;D:=-1;
- TextColor(0);
- TextBackground(Z9+2);
- While Not Keypressed do Begin
- GotoXY(H,V);
- Write(' ');
- V:=V+D;
- GotoXY(H,V);
- Write('O');
- Delay(200);
- If V in[16,24]Then D:=-D;
- End;
- If ReadKey=#27 Then Terminated:=True;
- For H:=2 to 35 do Begin
- GotoXY(H-1,V);
- Write(' O');
- Delay(100);
- End;
- J:=0;
- While H<40 do Begin
- If Screen[V,H]=#234 Then Begin
- J:=J+1;
- D:=-1;
- While D<=1 do Begin
- X1:=V;X2:=H;
- Repeat
- X1:=X1+D;
- X2:=X2+1;
- If Screen[X1,X2]=#234 Then Begin
- GotoXY(X2,X1);
- Screen[X1,X2]:=#32;
- Write(' ');
- J:=J+1;
- End
- Else
- Break;
- Until False;
- D:=D+2;
- End;
- End;
- GotoXY(H-1,V);
- Write(' O');
- H:=H+1;
- End;
- J1:=J1+J;
- GotoXY(7+3*Q+B1,2*Z9+3);
- TextColor(Abs(-(2+Z9)*Byte(B1=0)));
- TextBackground(Abs(-(2+Z9)*Byte(B1<>0)));
- G:=J+48;
- If J1=10 Then If PS Then G:=88 Else G:=47;
- Write(Chr(G));
- TextColor(0);
- TextBackground(2+Z9);
- GotoXY(H-1,V);
- Write(' ');
- End;
-
- Procedure FirstBall;
- Const
- PC:Array[1..31]of Byte=(
- 234,31,29,29,234,31,29,29,234,28,
- 234,31,29,29,29,29,234,28,234,31,
- 29,29,234,28,234,31,29,29,234,31,234
- );
- Var
- I:Byte;
- Begin
- GotoXY(39,17);
- TextColor(0);
- For I:=1 to 31 do Begin
- Case PC[I]of
- 28:GotoXY(WhereX+1,WhereY);
- 29:GotoXY(WhereX-1,WhereY);
- 31:GotoXY(WhereX,WhereY+1);
- Else Begin
- Screen[WhereY,WhereX]:=Chr(PC[I]);
- Write(Chr(PC[I]));
- End;
- End;
- End;
- PS1:=1;J1:=0;
- RollBall;
- T_:=T[Z9];Score:=S[Z9];T_:=T_+J;
- Case S[Z9]of
- 0:Begin
- If J1=10 Then If PS Then Score:=2 Else Score:=5;
- End;
- 1:Begin
- T_:=T_+J;
- If J=10 Then Score:=3 Else Score:=4;
- End;
- 2:Begin
- T_:=T_+J*2;
- If J<>10 Then Score:=4;
- End;
- 3:Begin
- T_:=T_+J;
- If J1=10 Then Score:=5 Else Score:=1;
- End;
- 4:Begin
- T_:=T_+J;
- If J=10 Then Score:=2 Else Score:=1;
- End;
- End;
- T[Z9]:=T_;S[Z9]:=Score;
- TextColor(Z9+2);
- TextBackground(0);
- GotoXY(31-Byte((Z9/2)=Trunc(Z9/2))*20,14-Byte(Z9<2)*2);
- Write(T[Z9]);
- TextColor(0);
- TextBackground(Z9+2);
- End;
-
- Procedure SecondBall;Begin
- PS:=False;
- RollBall;
- T_:=T[Z9];
- Score:=S[Z9];
- T_:=T_+J;
- Case S[Z9]of
- 0:Begin
- If J1=10 Then If PS Then Score:=2 Else Score:=5;
- End;
- 1:Begin
- T_:=T_+J;
- If J=10 Then Score:=3 Else Score:=4;
- End;
- 2:Begin
- T_:=T_+J*2;
- If J<>10 Then Score:=4;
- End;
- 3:Begin
- T_:=T_+J;
- If J1=10 Then Score:=5 Else Score:=1;
- End;
- 4:Begin
- T_:=T_+J;
- If J=10 Then Score:=2 Else Score:=1;
- End;
- End;
- T[Z9]:=T_;S[Z9]:=Score;
- TextColor(Z9+2);
- TextBackground(0);
- GotoXY(31-Byte((Z9/2)=Trunc(Z9/2))*20,14-Byte(Z9<2)*2);
- Write(T[Z9]);
- TextColor(0);
- TextBackground(Z9+2);
- End;
-
- Procedure ExtraBalls;Begin
- GotoXY(1,20);
- Write('Jouez deux autres boules,',NA[Z9]);
- Delay(1000);
- GotoXY(1,WhereY);
- Write(' ':29);
- S[Z9]:=Score-1;
- B1:=1;
- FirstBall;
- If J<>10 Then Begin
- S[Z9]:=1;
- B1:=2;
- SecondBall;
- End
- Else
- Begin
- S[Z9]:=1;
- B1:=2;
- FirstBall;
- End;
- End;
-
- Procedure MainLoop;
- Var
- I:Integer;
- K:Char;
- Begin
- For Q:=1 to 10 do For Z9:=0 to A-1 do Begin
- If Terminated Then Break;
- TextBackground(Z9+2);
- For I:=16 to 24 do Begin
- GotoXY(1,I);
- Write(' ':39);
- End;
- B1:=0;
- FirstBall;
- If J1<>10 Then Begin
- B1:=1;
- SecondBall;
- End;
- If Q=10 Then Begin
- Case Score of
- 0:;
- 1,2:ExtraBalls;
- 3:;
- 4:Begin
- GotoXY(1,20);
- Write('Jouez une autre boule, ',NA[Z9]);
- Delay(1000);
- GotoXY(1,WhereY);
- Write(' ':28);
- S[Z9]:=1;B1:=2;
- FirstBall;
- End;
- End;
- End;
- End;
- GotoXY(3,16);
- Write('Voulez-vous encore jouer (O ou N) ?');
- If UpCase(ReadKey)='O'Then Terminated:=False
- Else Terminated:=True;
- End;
-
- BEGIN
- InitGame;
- DrawGameScreen;
- InitScore;
- Repeat
- MainLoop;
- Until Terminated;
- END.
Code source
Voici le code source du jeu sur GitHub :
| Lien | Langage de programmation | Projet |
|---|---|---|
| https://github.com/gladir/7iles/blob/main/BOWLING.PAS | Turbo Pascal, Free Pascal | 7iles |