Le jeu Space Jockey est un jeu de tir de 1982 originaire du Atari 2600. Le jeu se déplace de droite vers la gauche de façon continue et divers objet (ballon, maison, tank, hélicoptère, avion) se déplace rapidement et on doit leur tirer dessus avant de se faire une collision sinon on perd une vie puis après trois fois on part la partie.
Le jeu est un gros défi d'animation car absolument tout bouge dans l'écran, que ce soit le bas de l'écran, les différents objets, le vaisseau et les balles. Pour pouvoir avoir une vitesse acceptable de jeu, on est nécessairement pousser vers l'écran de texte, car en écran graphique, l'animation serait trop lente, surtout sur une machine PC ou XT ne tournant qu'à une cadence de 4,77 Mhz. Le jeu nécessiterait en théorie au minimum 5 sprites, lequel n'est disponible que sur des machines comme Commodore 64, Commodore 128, Amiga,... L'autre possibilité, consiste bien sûr à faire jouer le joueur dans un écran de texte avec des images malheureusement assez médiocre. Par contre, les cartes EGA et VGA permettent une reprogrammation des matrices de caractères, et pour ce faire, on utilise donc cette avantage pour redonner un peu de réalisme au ballon, hélicoptère, tank et maison.
Le moteur du jeu est situé dans la procédure RunGame, dans lequel, il y a une boucle principale attendant une action du joueur et une boucle à l'intérieur, s'occupant de déplacer les balles du vaisseau, les différents objets, et le bas de l'image pour donner l'impression que l'écran avance. Le moteur appel chacun des emplacements du tableau XShipBall et YShipBall pour trouver une collision avec un objet indiqué par les tableaux XAlien et YAlien.
L'exemple de jeu Space Jockey suivant est développé en Turbo Pascal 7 et fonctionne également sous Free Pascal. Voici le code source en Turbo Pascal du jeu :
- Program SpaceJockey;
-
- Uses Crt,DOS;
-
- Var
- Score,Live:LongInt;
- XShip,YShip,BK:Byte;
- XShipBall,YShipBall:Array[0..7]of Byte;
- XAlien,YAlien,AlienType:Array[0..3]of Byte;
-
- {$IFNDEF FPC}
- Procedure CursorOff;
- Var
- Regs:Registers;
- Begin
- Regs.AH:=1;
- Regs.CH:=32;
- Regs.CL:=0;
- Intr($10,Regs);
- End;
-
- Procedure CursorOn;
- Var
- Regs:Registers;
- Begin
- Regs.AX:=$0100;
- Regs.CX:=(7 shl 8)+9;
- Intr($10,Regs);
- End;
-
- Procedure LoadFont(AscII:Word;Table,Matrice,Nombre:Byte;Buffer:Pointer);
- Var
- Registre:Registers;
- Begin
- With Registre do Begin
- AX:=$1100;
- BH:=Matrice;
- BL:=Table;
- CX:=Nombre;
- DX:=AscII;
- BP:=Ofs(Buffer^);
- ES:=Seg(Buffer^);
- Intr($10,Registre);
- End;
- End;
-
- Procedure Font224;Assembler;ASM
- { 224 }
- DB 00000001b
- DB 00000001b
- DB 00000011b
- DB 00000011b
- DB 00000111b
- DB 00000111b
- DB 00001111b
- DB 00001111b
- DB 00011111b
- DB 00011111b
- DB 00111111b
- DB 00111111b
- DB 01111111b
- DB 01111111b
- DB 11111111b
- DB 11111111b
-
- {225 }
- DB 10000000b
- DB 10000000b
- DB 11000000b
- DB 11000000b
- DB 11100000b
- DB 11100000b
- DB 11110000b
- DB 11110000b
- DB 11111000b
- DB 11111000b
- DB 11111100b
- DB 11111100b
- DB 11111110b
- DB 11111110b
- DB 11111111b
- DB 11111111b
-
- { 226 }
- DB 00000011b
- DB 00001111b
- DB 00011111b
- DB 00111111b
- DB 00111111b
- DB 01111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 01111111b
- DB 00111111b
- DB 00111111b
- DB 00011111b
- DB 00001111b
- DB 00000011b
-
- { 227 }
- DB 11000000b
- DB 11110000b
- DB 11111000b
- DB 11111100b
- DB 11111100b
- DB 11111110b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111110b
- DB 11111100b
- DB 11111100b
- DB 11111000b
- DB 11110000b
- DB 11000000b
-
- { 228 }
- DB 10101010b
- DB 10101010b
- DB 10101010b
- DB 10101010b
- DB 10101010b
- DB 10101010b
- DB 10101010b
- DB 10101010b
- DB 10010010b
- DB 01010100b
- DB 01010100b
- DB 01010100b
- DB 01010100b
- DB 01010100b
- DB 01010110b
- DB 01010100b
-
- { 229 }
- DB 11111111b
- DB 10000001b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 01111110b
- DB 00111100b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 230 }
- DB 00111111b
- DB 01000001b
- DB 10000001b
- DB 10000001b
- DB 10000001b
- DB 10000001b
- DB 10000001b
- DB 10000001b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 01111111b
- DB 00111110b
-
- { 231 }
- DB 11111110b
- DB 11111110b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111110b
- DB 11111110b
-
- { 232 }
- DB 00011000b
- DB 00111100b
- DB 00111100b
- DB 00111100b
- DB 00111100b
- DB 00111100b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 01111110b
- DB 01111110b
- DB 00111100b
- DB 00111100b
- DB 00011000b
- DB 00011000b
-
- { 233 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 234 }
- DB 00000000b
- DB 00000000b
- DB 00000011b
- DB 00000111b
- DB 00001111b
- DB 00011111b
- DB 11111111b
- DB 11111110b
- DB 11111100b
- DB 11111100b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 235 }
- DB 00011000b
- DB 01111110b
- DB 01000010b
- DB 01000010b
- DB 10000001b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 236 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00111000b
- DB 00111111b
- DB 00111000b
- DB 00111000b
- DB 00111111b
- DB 00111000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 237 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 11111111b
- DB 00000000b
- DB 00000000b
- DB 11111111b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 238 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 11111111b
- DB 00000111b
- DB 00000111b
- DB 11111111b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 239 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 01111111b
- DB 01111111b
- DB 01111111b
- DB 00011111b
- DB 00011111b
- DB 00111111b
- DB 01111111b
- DB 11111111b
-
- { 240 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 11111100b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111110b
- DB 11111110b
- DB 11111110b
- DB 11111000b
- DB 11111000b
- DB 11111100b
- DB 11111110b
- DB 11111111b
-
- { 241 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000011b
- DB 00001111b
- DB 00111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 00000111b
-
- { 242 }
- DB 00000000b
- DB 00000011b
- DB 00000011b
- DB 00001111b
- DB 00111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
-
- { 243 }
- DB 11111111b
- DB 11111111b
- DB 01111111b
- DB 01111111b
- DB 00111111b
- DB 00111111b
- DB 00011111b
- DB 00011111b
- DB 00001111b
- DB 00001111b
- DB 00001111b
- DB 00001111b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 244 }
- DB 11111111b
- DB 11111111b
- DB 11111110b
- DB 11111110b
- DB 11111110b
- DB 11111110b
- DB 11111100b
- DB 11111100b
- DB 11111100b
- DB 11111100b
- DB 11111000b
- DB 11110000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
-
- { 245 }
- DB 00000000b
- DB 00000011b
- DB 00000111b
- DB 00011111b
- DB 00111000b
- DB 01111000b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 00111111b
- DB 00011111b
- DB 00000111b
- DB 00000000b
-
- { 246 }
- DB 00000000b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 00000000b
-
- { 247 }
- DB 00111100b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 00111100b
-
- { 248 }
- DB 00000000b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 11111111b
- DB 00000000b
-
- { 249 }
- DB 01111110b
- DB 11111110b
- DB 11111110b
- DB 11111100b
- DB 11111100b
- DB 11111000b
- DB 11111000b
- DB 11110000b
- DB 11110000b
- DB 11100000b
- DB 11100000b
- DB 11000000b
- DB 11000000b
- DB 10000000b
- DB 10000000b
- DB 00000000b
-
- { 250 }
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000000b
- DB 00000111b
- DB 00001111b
- DB 00011111b
- DB 00111110b
- END;
-
- {$ENDIF}
-
- Procedure ShowLive;Begin
- TextColor(Black);
- TextBackground(6);
- GotoXY(1,24);
- ClrEol;
- Write('Vie : ',Live);
- GotoXY(1,25);
- ClrEol;
- End;
-
- Procedure InitGame;
- Begin
- TextMode(CO40);
- TextBackground(Black);
- ClrScr;
- CursorOff;
- {$IFNDEF FPC}
- LoadFont(224,0,16,27,@Font224);
- {$ENDIF}
- Live:=3;
- BK:=0;
- XShip:=4;
- YShip:=12;
- Score:=0;
- FillChar(XShipBall,SizeOf(XShipBall),0);
- FillChar(YSHipBall,SizeOf(YShipBall),0);
- FillChar(XAlien,SizeOf(XAlien),0);
- FillChar(YAlien,SizeOf(YAlien),0);
- FillChar(AlienType,SizeOf(AlienType),0);
- ShowLive;
- End;
-
- Procedure ShowGround;
- Var
- I:Byte;
- Begin
- GotoXY(1,23);
- TextColor(6);
- TextBackground(0);
- For I:=1 to 40 do Begin
- Case(BK)of
- 0,1,2:Write(' ');
- 3:Write(Chr(220));
- 4,5,6:Write(Chr(219));
- 7:Write(Chr(220));
- End;
- BK:=(BK+1) and 7;
- End;
- End;
-
- Procedure ShowScore;Begin
- GotoXY(20,1);
- TextBackground(0);
- TextColor(LightBlue);
- Write(Score);
- End;
-
- Procedure ShowAlien(N:Byte);Begin
- GotoXY(XAlien[N],YAlien[N]);
- TextColor(Cyan);
- Case AlienType[N]of
- 1:Begin
- TextColor(Blue);
- Write({$IFDEF FPC}
- ' ( ) '
- {$ELSE}
- ' '+Chr(226)+Chr(219)+Chr(227)+' '
- {$ENDIF}); { Ballon }
- TextColor(Cyan);
- End;
- 2:Write({$IFDEF FPC}
- ' / '
- {$ELSE}
- ' / '+Chr(250)
- {$ENDIF});{ Avion }
- 3:Begin
- TextColor(7);
- Write({$IFDEF FPC}
- '/---\'
- {$ELSE}
- Chr(224)+Chr(219)+Chr(219)+Chr(219)+Chr(225)
- {$ENDIF}); { Maison }
- TextColor(Cyan);
- End;
- 4:Write({$IFDEF FPC}
- '--+--'
- {$ELSE}
- Chr(196)+Chr(196)+Chr(194)+Chr(196)+Chr(196)
- {$ENDIF}); { Hélicoptère }
- 5:Write({$IFDEF FPC}
- ' --+ '
- {$ELSE}
- Chr(236)+Chr(237)+Chr(238)+Chr(239)+Chr(240)
- {$ENDIF}); { Tank }
- End;
- GotoXY(XAlien[N],YAlien[N]+1);
- Case AlienType[N]of
- 1:Write({$IFDEF FPC} { Ballon }
- ' \|/ '
- {$ELSE}
- ' '+Chr(228)+' '
- {$ENDIF});
- 2:Write({$IFDEF FPC}
- '-<--/'
- {$ELSE}
- Chr(245)+Chr(246)+Chr(247)+Chr(248)+Chr(249)
- {$ENDIF}); { Avion }
- 3:Write({$IFDEF FPC}
- '+-+-+'
- {$ELSE}
- Chr(218)+Chr(196)+Chr(194)+Chr(196)+Chr(191)
- {$ENDIF});
- 4:Write({$IFDEF FPC}
- '<-+-+'
- {$ELSE}
- Chr(230)+Chr(231)+Chr(232)+Chr(233)+Chr(234)
- {$ENDIF}); { Hélicoptère }
- 5:Write({$IFDEF FPC} { Tank }
- '---- '
- {$ELSE}
- Chr(241)+Chr(242)+Chr(219)+Chr(219)+Chr(219)
- {$ENDIF});
- End;
- GotoXY(XAlien[N],YAlien[N]+2);
- Case AlienType[N]of
- 1:Write({$IFDEF FPC}
- ' U '
- {$ELSE}
- ' '+Chr(229)+' '
- {$ENDIF});
- 2:Write(' \ ');
- 3:Write(
- {$IFDEF FPC}
- '+-+-+'
- {$ELSE}
- Chr(212)+Chr(205)+Chr(207)+Chr(205)+Chr(190)
- {$ENDIF});
- 4:Write({$IFDEF FPC}
- ' T '
- {$ELSE}
- ' '+Chr(235)+' '
- {$ENDIF}); { Hélicoptère }
- 5:Write({$IFDEF FPC}
- '-ooo '
- {$ELSE}
- Chr(243)+'ooo'+Chr(244)
- {$ENDIF});
- End;
- End;
-
- Procedure HideAlien(N:Byte);Begin
- GotoXY(XAlien[N],YAlien[N]);
- Write(' ':5);
- GotoXY(XAlien[N],YAlien[N]+1);
- Write(' ':5);
- GotoXY(XAlien[N],YAlien[N]+2);
- Write(' ':5);
- End;
-
- Procedure ShowShip;Begin
- GotoXY(XShip,YShip);
- TextBackground(Black);
- TextColor(LightCyan);
- Write({$IFDEF FPC}'+---+'{$ELSE}' '+Chr(220)+Chr(219)+Chr(220)+' '{$ENDIF});
- GotoXY(XShip,YShip+1);
- TextBackground(Cyan);
- TextColor(Black);
- Write(' - - ');
- GotoXY(XShip,YShip+2);
- TextBackground(Black);
- TextColor(LightCyan);
- Write({$IFDEF FPC}'+-'{$ELSE}' '+Chr(223){$ENDIF});
- TextBackground(Red);
- TextColor(LightCyan);
- Write({$IFDEF FPC}'='{$ELSE}Chr(223){$ENDIF});
- TextBackground(Black);
- TextColor(LightCyan);
- Write({$IFDEF FPC}'-+'{$ELSE}Chr(223)+' '{$ENDIF});
- End;
-
- Procedure HideShip;Begin
- TextBackground(Black);
- GotoXY(XShip,YShip);
- Write(' ':5);
- GotoXY(XShip,YShip+1);
- Write(' ':5);
- GotoXY(XShip,YShip+2);
- Write(' ':5);
- End;
-
- Procedure AddShipBall;
- Var
- I:Byte;
- Begin
- For I:=0 to 7 do If XShipBall[I]=0 Then Begin
- XShipBall[I]:=XShip+5;
- YShipBall[I]:=YShip+1;
- Break;
- End;
- End;
-
- Function AlienCollision(N:Byte):Boolean;Begin
- AlienCollision:=False;
- If(XAlien[N]<=XShip+5)and
- (YAlien[N]>=YShip)and(YAlien[N]<=YShip+2)Then AlienCollision:=True;
- End;
-
- Function BallCollision(Ball,N:Byte):Boolean;Begin
- BallCollision:=False;
- IF(AlienType[N]=0)Then Exit;
- If(XShipBall[Ball]>=XAlien[N])and
- (YShipBall[Ball]>=YAlien[N])and
- (YShipBall[Ball]<=(YAlien[N]+2))Then BallCollision:=True;
- End;
-
- Procedure RunGame;
- Var
- I,J:Byte;
- K:Char;
- NewAlien:Boolean;
- Begin
- ShowScore;
- ShowShip;
- Repeat
- Repeat
- NewAlien:=True;
- ShowGround;
- BK:=(BK+1)and 7;
- For I:=0 to 7 do Begin
- If XShipBall[I]<>0 Then Begin
- GotoXY(XShipBall[I],YShipBall[I]);
- Write(' ');
- Inc(XShipBall[I]);
- For J:=0 to 3 do Begin
- If BallCollision(I,J)Then Begin
- Score:=Score+50;
- ShowScore;
- HideAlien(J);
- XAlien[J]:=0;
- YAlien[J]:=0;
- AlienType[J]:=0;
- XShipBall[I]:=0;
- YShipBall[I]:=0;
- End;
- End;
- If XShipBall[I]>40 Then Begin
- XShipBall[I]:=0;
- YShipBall[I]:=0;
- End
- Else
- If XShipBall[I]>0Then Begin
- GotoXY(XShipBall[I],YShipBall[I]);
- TextColor(White);
- Write('-');
- End;
- End;
- End;
- For I:=0 to 2 do Begin
- If AlienType[I]=0 Then Begin
- AlienType[I]:=Random(6);
- XAlien[I]:=35;
- If AlienType[I]in[3,5]Then YAlien[I]:=20
- Else YAlien[I]:=Random(5)*3+2;
- NewAlien:=False;
- Break;
- End;
- End;
- For I:=0 to 3 do Begin
- If AlienType[I]<>0 Then Begin
- HideAlien(I);
- Dec(XAlien[I]);
- If AlienCollision(I)Then Begin
- GotoXY(15,12);
- TextColor(LightRed);
- If Live=0 Then Begin
- Write('PARTIE TERMINER !');
- If ReadKey=#0Then ReadKey;
- Exit;
- End;
- Dec(Live);
- Write('BOOM !!! COLLISION');
- If ReadKey=#0 Then ReadKey;
- BK:=0;
- XShip:=4;
- YShip:=12;
- FillChar(XShipBall,SizeOf(XShipBall),0);
- FillChar(YSHipBall,SizeOf(YShipBall),0);
- FillChar(XAlien,SizeOf(XAlien),0);
- FillChar(YAlien,SizeOf(YAlien),0);
- FillChar(AlienType,SizeOf(AlienType),0);
- TextBackground(Black);
- ClrScr;
- ShowLive;
- ShowGround;
- ShowScore;
- ShowShip;
- Break;
- End;
- If XAlien[I]=0Then Begin
- YAlien[I]:=0;
- AlienType[I]:=0;
- End
- Else
- ShowAlien(I);
- End;
- End;
- Delay(100);
- Until Keypressed;
- K:=ReadKey;
- Case K of
- #0:Case ReadKey of
- #72:If YShip>2 Then Begin { Up }
- HideShip;
- YShip:=YShip-1;
- ShowShip;
- End;
- #80:If YShip+2<22 Then Begin { Down }
- HideShip;
- YShip:=YShip+1;
- ShowShip;
- End;
- End;
- ' ':AddShipBall; { Tir ? }
- End;
- Until K=#27;
- End;
-
- BEGIN
- InitGame;
- RunGame;
- TextMode(C80);
- CursorOn;
- TextBackground(Black);
- TextColor(7);
- ClrScr;
- END.
Code source
Voici le code source du jeu sur GitHub :
| Lien | Langage de programmation | Projet |
|---|---|---|
| https://github.com/gladir/7iles/blob/main/SPACEJOC.PAS | Turbo Pascal, Free Pascal | 7iles |
Dernière mise à jour : Jeudi, le 28 juillet 2022