Section courante

A propos

Section administrative du site

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 :

  1. Program SpaceJockey;
  2.  
  3. Uses Crt,DOS;
  4.  
  5. Var
  6.  Score,Live:LongInt;
  7.  XShip,YShip,BK:Byte;
  8.  XShipBall,YShipBall:Array[0..7]of Byte;
  9.  XAlien,YAlien,AlienType:Array[0..3]of Byte;
  10.  
  11. {$IFNDEF FPC}
  12.  Procedure CursorOff;
  13.  Var
  14.   Regs:Registers;
  15.  Begin
  16.   Regs.AH:=1;
  17.   Regs.CH:=32;
  18.   Regs.CL:=0;
  19.   Intr($10,Regs);
  20.  End;
  21.  
  22.  Procedure CursorOn;
  23.  Var
  24.   Regs:Registers;
  25.  Begin
  26.   Regs.AX:=$0100;
  27.   Regs.CX:=(7 shl 8)+9;
  28.   Intr($10,Regs);
  29.  End;
  30.  
  31.  Procedure LoadFont(AscII:Word;Table,Matrice,Nombre:Byte;Buffer:Pointer);
  32.  Var
  33.   Registre:Registers;
  34.  Begin
  35.   With Registre do Begin
  36.    AX:=$1100;
  37.    BH:=Matrice;
  38.    BL:=Table;
  39.    CX:=Nombre;
  40.    DX:=AscII;
  41.    BP:=Ofs(Buffer^);
  42.    ES:=Seg(Buffer^);
  43.    Intr($10,Registre);
  44.   End;
  45.  End;
  46.  
  47.  Procedure Font224;Assembler;ASM
  48.    { 224 }
  49.   DB 00000001b
  50.   DB 00000001b
  51.   DB 00000011b
  52.   DB 00000011b
  53.   DB 00000111b
  54.   DB 00000111b
  55.   DB 00001111b
  56.   DB 00001111b
  57.   DB 00011111b
  58.   DB 00011111b
  59.   DB 00111111b
  60.   DB 00111111b
  61.   DB 01111111b
  62.   DB 01111111b
  63.   DB 11111111b
  64.   DB 11111111b
  65.  
  66.    {225 }
  67.   DB 10000000b
  68.   DB 10000000b
  69.   DB 11000000b
  70.   DB 11000000b
  71.   DB 11100000b
  72.   DB 11100000b
  73.   DB 11110000b
  74.   DB 11110000b
  75.   DB 11111000b
  76.   DB 11111000b
  77.   DB 11111100b
  78.   DB 11111100b
  79.   DB 11111110b
  80.   DB 11111110b
  81.   DB 11111111b
  82.   DB 11111111b
  83.  
  84.    { 226 }
  85.   DB 00000011b
  86.   DB 00001111b
  87.   DB 00011111b
  88.   DB 00111111b
  89.   DB 00111111b
  90.   DB 01111111b
  91.   DB 11111111b
  92.   DB 11111111b
  93.   DB 11111111b
  94.   DB 11111111b
  95.   DB 01111111b
  96.   DB 00111111b
  97.   DB 00111111b
  98.   DB 00011111b
  99.   DB 00001111b
  100.   DB 00000011b
  101.  
  102.    { 227 }
  103.   DB 11000000b
  104.   DB 11110000b
  105.   DB 11111000b
  106.   DB 11111100b
  107.   DB 11111100b
  108.   DB 11111110b
  109.   DB 11111111b
  110.   DB 11111111b
  111.   DB 11111111b
  112.   DB 11111111b
  113.   DB 11111110b
  114.   DB 11111100b
  115.   DB 11111100b
  116.   DB 11111000b
  117.   DB 11110000b
  118.   DB 11000000b
  119.  
  120.    { 228 }
  121.   DB 10101010b
  122.   DB 10101010b
  123.   DB 10101010b
  124.   DB 10101010b
  125.   DB 10101010b
  126.   DB 10101010b
  127.   DB 10101010b
  128.   DB 10101010b
  129.   DB 10010010b
  130.   DB 01010100b
  131.   DB 01010100b
  132.   DB 01010100b
  133.   DB 01010100b
  134.   DB 01010100b
  135.   DB 01010110b
  136.   DB 01010100b
  137.  
  138.    { 229 }
  139.   DB 11111111b
  140.   DB 10000001b
  141.   DB 11111111b
  142.   DB 11111111b
  143.   DB 11111111b
  144.   DB 11111111b
  145.   DB 11111111b
  146.   DB 01111110b
  147.   DB 00111100b
  148.   DB 00000000b
  149.   DB 00000000b
  150.   DB 00000000b
  151.   DB 00000000b
  152.   DB 00000000b
  153.   DB 00000000b
  154.   DB 00000000b
  155.  
  156.    { 230 }
  157.   DB 00111111b
  158.   DB 01000001b
  159.   DB 10000001b
  160.   DB 10000001b
  161.   DB 10000001b
  162.   DB 10000001b
  163.   DB 10000001b
  164.   DB 10000001b
  165.   DB 11111111b
  166.   DB 11111111b
  167.   DB 11111111b
  168.   DB 11111111b
  169.   DB 11111111b
  170.   DB 11111111b
  171.   DB 01111111b
  172.   DB 00111110b
  173.  
  174.    { 231 }
  175.   DB 11111110b
  176.   DB 11111110b
  177.   DB 11111111b
  178.   DB 11111111b
  179.   DB 11111111b
  180.   DB 11111111b
  181.   DB 11111111b
  182.   DB 11111111b
  183.   DB 11111111b
  184.   DB 11111111b
  185.   DB 11111111b
  186.   DB 11111111b
  187.   DB 11111111b
  188.   DB 11111111b
  189.   DB 11111110b
  190.   DB 11111110b
  191.  
  192.    { 232 }
  193.   DB 00011000b
  194.   DB 00111100b
  195.   DB 00111100b
  196.   DB 00111100b
  197.   DB 00111100b
  198.   DB 00111100b
  199.   DB 11111111b
  200.   DB 11111111b
  201.   DB 11111111b
  202.   DB 11111111b
  203.   DB 01111110b
  204.   DB 01111110b
  205.   DB 00111100b
  206.   DB 00111100b
  207.   DB 00011000b
  208.   DB 00011000b
  209.  
  210.    { 233 }
  211.   DB 00000000b
  212.   DB 00000000b
  213.   DB 00000000b
  214.   DB 00000000b
  215.   DB 00000000b
  216.   DB 00000000b
  217.   DB 11111111b
  218.   DB 11111111b
  219.   DB 11111111b
  220.   DB 11111111b
  221.   DB 00000000b
  222.   DB 00000000b
  223.   DB 00000000b
  224.   DB 00000000b
  225.   DB 00000000b
  226.   DB 00000000b
  227.  
  228.    { 234 }
  229.   DB 00000000b
  230.   DB 00000000b
  231.   DB 00000011b
  232.   DB 00000111b
  233.   DB 00001111b
  234.   DB 00011111b
  235.   DB 11111111b
  236.   DB 11111110b
  237.   DB 11111100b
  238.   DB 11111100b
  239.   DB 00000000b
  240.   DB 00000000b
  241.   DB 00000000b
  242.   DB 00000000b
  243.   DB 00000000b
  244.   DB 00000000b
  245.  
  246.    { 235 }
  247.   DB 00011000b
  248.   DB 01111110b
  249.   DB 01000010b
  250.   DB 01000010b
  251.   DB 10000001b
  252.   DB 00000000b
  253.   DB 00000000b
  254.   DB 00000000b
  255.   DB 00000000b
  256.   DB 00000000b
  257.   DB 00000000b
  258.   DB 00000000b
  259.   DB 00000000b
  260.   DB 00000000b
  261.   DB 00000000b
  262.   DB 00000000b
  263.  
  264.    { 236 }
  265.   DB 00000000b
  266.   DB 00000000b
  267.   DB 00000000b
  268.   DB 00111000b
  269.   DB 00111111b
  270.   DB 00111000b
  271.   DB 00111000b
  272.   DB 00111111b
  273.   DB 00111000b
  274.   DB 00000000b
  275.   DB 00000000b
  276.   DB 00000000b
  277.   DB 00000000b
  278.   DB 00000000b
  279.   DB 00000000b
  280.   DB 00000000b
  281.  
  282.    { 237 }
  283.   DB 00000000b
  284.   DB 00000000b
  285.   DB 00000000b
  286.   DB 00000000b
  287.   DB 11111111b
  288.   DB 00000000b
  289.   DB 00000000b
  290.   DB 11111111b
  291.   DB 00000000b
  292.   DB 00000000b
  293.   DB 00000000b
  294.   DB 00000000b
  295.   DB 00000000b
  296.   DB 00000000b
  297.   DB 00000000b
  298.   DB 00000000b
  299.  
  300.    { 238 }
  301.   DB 00000000b
  302.   DB 00000000b
  303.   DB 00000000b
  304.   DB 00000000b
  305.   DB 11111111b
  306.   DB 00000111b
  307.   DB 00000111b
  308.   DB 11111111b
  309.   DB 00000000b
  310.   DB 00000000b
  311.   DB 00000000b
  312.   DB 00000000b
  313.   DB 00000000b
  314.   DB 00000000b
  315.   DB 00000000b
  316.   DB 00000000b
  317.  
  318.    { 239 }
  319.   DB 00000000b
  320.   DB 00000000b
  321.   DB 00000000b
  322.   DB 00111111b
  323.   DB 11111111b
  324.   DB 11111111b
  325.   DB 11111111b
  326.   DB 11111111b
  327.   DB 01111111b
  328.   DB 01111111b
  329.   DB 01111111b
  330.   DB 00011111b
  331.   DB 00011111b
  332.   DB 00111111b
  333.   DB 01111111b
  334.   DB 11111111b
  335.  
  336.    { 240 }
  337.   DB 00000000b
  338.   DB 00000000b
  339.   DB 00000000b
  340.   DB 11111100b
  341.   DB 11111111b
  342.   DB 11111111b
  343.   DB 11111111b
  344.   DB 11111111b
  345.   DB 11111110b
  346.   DB 11111110b
  347.   DB 11111110b
  348.   DB 11111000b
  349.   DB 11111000b
  350.   DB 11111100b
  351.   DB 11111110b
  352.   DB 11111111b
  353.  
  354.    { 241 }
  355.   DB 00000000b
  356.   DB 00000000b
  357.   DB 00000000b
  358.   DB 00000000b
  359.   DB 00000000b
  360.   DB 00000011b
  361.   DB 00001111b
  362.   DB 00111111b
  363.   DB 11111111b
  364.   DB 11111111b
  365.   DB 11111111b
  366.   DB 11111111b
  367.   DB 11111111b
  368.   DB 11111111b
  369.   DB 11111111b
  370.   DB 00000111b
  371.  
  372.    { 242 }
  373.   DB 00000000b
  374.   DB 00000011b
  375.   DB 00000011b
  376.   DB 00001111b
  377.   DB 00111111b
  378.   DB 11111111b
  379.   DB 11111111b
  380.   DB 11111111b
  381.   DB 11111111b
  382.   DB 11111111b
  383.   DB 11111111b
  384.   DB 11111111b
  385.   DB 11111111b
  386.   DB 11111111b
  387.   DB 11111111b
  388.   DB 11111111b
  389.  
  390.    { 243 }
  391.   DB 11111111b
  392.   DB 11111111b
  393.   DB 01111111b
  394.   DB 01111111b
  395.   DB 00111111b
  396.   DB 00111111b
  397.   DB 00011111b
  398.   DB 00011111b
  399.   DB 00001111b
  400.   DB 00001111b
  401.   DB 00001111b
  402.   DB 00001111b
  403.   DB 00000000b
  404.   DB 00000000b
  405.   DB 00000000b
  406.   DB 00000000b
  407.  
  408.    { 244 }
  409.   DB 11111111b
  410.   DB 11111111b
  411.   DB 11111110b
  412.   DB 11111110b
  413.   DB 11111110b
  414.   DB 11111110b
  415.   DB 11111100b
  416.   DB 11111100b
  417.   DB 11111100b
  418.   DB 11111100b
  419.   DB 11111000b
  420.   DB 11110000b
  421.   DB 00000000b
  422.   DB 00000000b
  423.   DB 00000000b
  424.   DB 00000000b
  425.  
  426.    { 245 }
  427.   DB 00000000b
  428.   DB 00000011b
  429.   DB 00000111b
  430.   DB 00011111b
  431.   DB 00111000b
  432.   DB 01111000b
  433.   DB 11111111b
  434.   DB 11111111b
  435.   DB 11111111b
  436.   DB 11111111b
  437.   DB 11111111b
  438.   DB 11111111b
  439.   DB 00111111b
  440.   DB 00011111b
  441.   DB 00000111b
  442.   DB 00000000b
  443.  
  444.    { 246 }
  445.   DB 00000000b
  446.   DB 11111111b
  447.   DB 11111111b
  448.   DB 11111111b
  449.   DB 11111111b
  450.   DB 11111111b
  451.   DB 11111111b
  452.   DB 11111111b
  453.   DB 11111111b
  454.   DB 11111111b
  455.   DB 11111111b
  456.   DB 11111111b
  457.   DB 11111111b
  458.   DB 11111111b
  459.   DB 11111111b
  460.   DB 00000000b
  461.  
  462.    { 247 }
  463.   DB 00111100b
  464.   DB 11111111b
  465.   DB 11111111b
  466.   DB 11111111b
  467.   DB 11111111b
  468.   DB 11111111b
  469.   DB 11111111b
  470.   DB 11111111b
  471.   DB 11111111b
  472.   DB 11111111b
  473.   DB 11111111b
  474.   DB 11111111b
  475.   DB 11111111b
  476.   DB 11111111b
  477.   DB 11111111b
  478.   DB 00111100b
  479.  
  480.    { 248 }
  481.   DB 00000000b
  482.   DB 11111111b
  483.   DB 11111111b
  484.   DB 11111111b
  485.   DB 11111111b
  486.   DB 11111111b
  487.   DB 11111111b
  488.   DB 11111111b
  489.   DB 11111111b
  490.   DB 11111111b
  491.   DB 11111111b
  492.   DB 11111111b
  493.   DB 11111111b
  494.   DB 11111111b
  495.   DB 11111111b
  496.   DB 00000000b
  497.  
  498.    { 249 }
  499.   DB 01111110b
  500.   DB 11111110b
  501.   DB 11111110b
  502.   DB 11111100b
  503.   DB 11111100b
  504.   DB 11111000b
  505.   DB 11111000b
  506.   DB 11110000b
  507.   DB 11110000b
  508.   DB 11100000b
  509.   DB 11100000b
  510.   DB 11000000b
  511.   DB 11000000b
  512.   DB 10000000b
  513.   DB 10000000b
  514.   DB 00000000b
  515.  
  516.    { 250 }
  517.   DB 00000000b
  518.   DB 00000000b
  519.   DB 00000000b
  520.   DB 00000000b
  521.   DB 00000000b
  522.   DB 00000000b
  523.   DB 00000000b
  524.   DB 00000000b
  525.   DB 00000000b
  526.   DB 00000000b
  527.   DB 00000000b
  528.   DB 00000000b
  529.   DB 00000111b
  530.   DB 00001111b
  531.   DB 00011111b
  532.   DB 00111110b
  533.  END;
  534.  
  535. {$ENDIF}
  536.  
  537. Procedure ShowLive;Begin
  538.  TextColor(Black);
  539.  TextBackground(6);
  540.  GotoXY(1,24);
  541.  ClrEol;
  542.  Write('Vie : ',Live);
  543.  GotoXY(1,25);
  544.  ClrEol;
  545. End;
  546.  
  547. Procedure InitGame;
  548. Begin
  549.  TextMode(CO40);
  550.  TextBackground(Black);
  551.  ClrScr;
  552.  CursorOff;
  553.  {$IFNDEF FPC}
  554.   LoadFont(224,0,16,27,@Font224);
  555.  {$ENDIF}
  556.  Live:=3;
  557.  BK:=0;
  558.  XShip:=4;
  559.  YShip:=12;
  560.  Score:=0;
  561.  FillChar(XShipBall,SizeOf(XShipBall),0);
  562.  FillChar(YSHipBall,SizeOf(YShipBall),0);
  563.  FillChar(XAlien,SizeOf(XAlien),0);
  564.  FillChar(YAlien,SizeOf(YAlien),0);
  565.  FillChar(AlienType,SizeOf(AlienType),0);
  566.  ShowLive;
  567. End;
  568.  
  569. Procedure ShowGround;
  570. Var
  571.  I:Byte;
  572. Begin
  573.  GotoXY(1,23);
  574.  TextColor(6);
  575.  TextBackground(0);
  576.  For I:=1 to 40 do Begin
  577.   Case(BK)of
  578.    0,1,2:Write(' ');
  579.    3:Write(Chr(220));
  580.    4,5,6:Write(Chr(219));
  581.    7:Write(Chr(220));
  582.   End;
  583.   BK:=(BK+1) and 7;
  584.  End;
  585. End;
  586.  
  587. Procedure ShowScore;Begin
  588.  GotoXY(20,1);
  589.  TextBackground(0);
  590.  TextColor(LightBlue);
  591.  Write(Score);
  592. End;
  593.  
  594. Procedure ShowAlien(N:Byte);Begin
  595.  GotoXY(XAlien[N],YAlien[N]);
  596.  TextColor(Cyan);
  597.  Case AlienType[N]of
  598.   1:Begin
  599.    TextColor(Blue);
  600.    Write({$IFDEF FPC}
  601.            ' ( ) '
  602.           {$ELSE}
  603.            ' '+Chr(226)+Chr(219)+Chr(227)+' '
  604.           {$ENDIF}); { Ballon }
  605.    TextColor(Cyan);
  606.   End;
  607.   2:Write({$IFDEF FPC}
  608.            ' / '
  609.           {$ELSE}
  610.            ' / '+Chr(250)
  611.           {$ENDIF});{ Avion }
  612.   3:Begin
  613.    TextColor(7);
  614.    Write({$IFDEF FPC}
  615.           '/---\'
  616.          {$ELSE}
  617.           Chr(224)+Chr(219)+Chr(219)+Chr(219)+Chr(225)
  618.          {$ENDIF}); { Maison }
  619.    TextColor(Cyan);       
  620.   End;
  621.   4:Write({$IFDEF FPC}
  622.            '--+--'
  623.           {$ELSE}
  624.            Chr(196)+Chr(196)+Chr(194)+Chr(196)+Chr(196)
  625.           {$ENDIF}); { Hélicoptère }
  626.   5:Write({$IFDEF FPC}
  627.            ' --+ '
  628.           {$ELSE}
  629.            Chr(236)+Chr(237)+Chr(238)+Chr(239)+Chr(240)
  630.           {$ENDIF}); { Tank }
  631.  End;
  632.  GotoXY(XAlien[N],YAlien[N]+1);
  633.  Case AlienType[N]of
  634.   1:Write({$IFDEF FPC} { Ballon }
  635.      ' \|/ '
  636.     {$ELSE}
  637.      ' '+Chr(228)+' '
  638.     {$ENDIF});
  639.   2:Write({$IFDEF FPC}
  640.      '-<--/'
  641.     {$ELSE}
  642.      Chr(245)+Chr(246)+Chr(247)+Chr(248)+Chr(249)
  643.     {$ENDIF}); { Avion }
  644.   3:Write({$IFDEF FPC}
  645.            '+-+-+'
  646.           {$ELSE}
  647.            Chr(218)+Chr(196)+Chr(194)+Chr(196)+Chr(191)
  648.           {$ENDIF});
  649.   4:Write({$IFDEF FPC}
  650.            '<-+-+'
  651.           {$ELSE}
  652.            Chr(230)+Chr(231)+Chr(232)+Chr(233)+Chr(234)
  653.           {$ENDIF}); { Hélicoptère }
  654.   5:Write({$IFDEF FPC} { Tank }
  655.      '---- '
  656.      {$ELSE}
  657.       Chr(241)+Chr(242)+Chr(219)+Chr(219)+Chr(219)
  658.      {$ENDIF});
  659.  End;
  660.  GotoXY(XAlien[N],YAlien[N]+2);
  661.  Case AlienType[N]of
  662.   1:Write({$IFDEF FPC}
  663.      ' U '
  664.     {$ELSE}
  665.      ' '+Chr(229)+' '
  666.     {$ENDIF});
  667.   2:Write(' \ ');
  668.   3:Write(
  669.     {$IFDEF FPC}
  670.      '+-+-+'
  671.     {$ELSE}
  672.      Chr(212)+Chr(205)+Chr(207)+Chr(205)+Chr(190)
  673.     {$ENDIF});
  674.   4:Write({$IFDEF FPC}
  675.      ' T '
  676.     {$ELSE}
  677.      ' '+Chr(235)+' '
  678.     {$ENDIF}); { Hélicoptère }
  679.   5:Write({$IFDEF FPC}
  680.      '-ooo '
  681.     {$ELSE}
  682.      Chr(243)+'ooo'+Chr(244)
  683.     {$ENDIF});
  684.  End;
  685. End;
  686.  
  687. Procedure HideAlien(N:Byte);Begin
  688.  GotoXY(XAlien[N],YAlien[N]);
  689.  Write(' ':5);
  690.  GotoXY(XAlien[N],YAlien[N]+1);
  691.  Write(' ':5);
  692.  GotoXY(XAlien[N],YAlien[N]+2);
  693.  Write(' ':5);
  694. End;
  695.  
  696. Procedure ShowShip;Begin
  697.  GotoXY(XShip,YShip);
  698.  TextBackground(Black);
  699.  TextColor(LightCyan);
  700.  Write({$IFDEF FPC}'+---+'{$ELSE}' '+Chr(220)+Chr(219)+Chr(220)+' '{$ENDIF});
  701.  GotoXY(XShip,YShip+1);
  702.  TextBackground(Cyan);
  703.  TextColor(Black);
  704.  Write(' - - ');
  705.  GotoXY(XShip,YShip+2);
  706.  TextBackground(Black);
  707.  TextColor(LightCyan);
  708.  Write({$IFDEF FPC}'+-'{$ELSE}' '+Chr(223){$ENDIF});
  709.  TextBackground(Red);
  710.  TextColor(LightCyan);
  711.  Write({$IFDEF FPC}'='{$ELSE}Chr(223){$ENDIF});
  712.  TextBackground(Black);
  713.  TextColor(LightCyan);
  714.  Write({$IFDEF FPC}'-+'{$ELSE}Chr(223)+' '{$ENDIF});
  715. End;
  716.  
  717. Procedure HideShip;Begin
  718.  TextBackground(Black);
  719.  GotoXY(XShip,YShip);
  720.  Write(' ':5);
  721.  GotoXY(XShip,YShip+1);
  722.  Write(' ':5);
  723.  GotoXY(XShip,YShip+2);
  724.  Write(' ':5);
  725. End;
  726.  
  727. Procedure AddShipBall;
  728. Var
  729.  I:Byte;
  730. Begin
  731.  For I:=0 to 7 do If XShipBall[I]=0 Then Begin
  732.   XShipBall[I]:=XShip+5;
  733.   YShipBall[I]:=YShip+1;
  734.   Break;
  735.  End;
  736. End;
  737.  
  738. Function AlienCollision(N:Byte):Boolean;Begin
  739.  AlienCollision:=False;
  740.  If(XAlien[N]<=XShip+5)and
  741.    (YAlien[N]>=YShip)and(YAlien[N]<=YShip+2)Then AlienCollision:=True;
  742. End;
  743.  
  744. Function BallCollision(Ball,N:Byte):Boolean;Begin
  745.  BallCollision:=False;
  746.  IF(AlienType[N]=0)Then Exit;
  747.  If(XShipBall[Ball]>=XAlien[N])and
  748.    (YShipBall[Ball]>=YAlien[N])and
  749.    (YShipBall[Ball]<=(YAlien[N]+2))Then BallCollision:=True;
  750. End;
  751.  
  752. Procedure RunGame;
  753. Var
  754.  I,J:Byte;
  755.  K:Char;
  756.  NewAlien:Boolean;
  757. Begin
  758.  ShowScore;
  759.  ShowShip;
  760.  Repeat
  761.   Repeat
  762.    NewAlien:=True;
  763.    ShowGround;
  764.    BK:=(BK+1)and 7;
  765.    For I:=0 to 7 do Begin
  766.     If XShipBall[I]<>0 Then Begin
  767.      GotoXY(XShipBall[I],YShipBall[I]);
  768.      Write(' ');
  769.      Inc(XShipBall[I]);
  770.      For J:=0 to 3 do Begin
  771.       If BallCollision(I,J)Then Begin
  772.        Score:=Score+50;
  773.        ShowScore;
  774.        HideAlien(J);
  775.        XAlien[J]:=0;
  776.        YAlien[J]:=0;
  777.        AlienType[J]:=0;
  778.        XShipBall[I]:=0;
  779.        YShipBall[I]:=0;
  780.       End;
  781.      End;
  782.      If XShipBall[I]>40 Then Begin
  783.       XShipBall[I]:=0;
  784.       YShipBall[I]:=0;
  785.      End
  786.       Else
  787.      If XShipBall[I]>0Then Begin
  788.       GotoXY(XShipBall[I],YShipBall[I]);
  789.       TextColor(White);
  790.       Write('-');
  791.      End;
  792.     End;
  793.    End;
  794.    For I:=0 to 2 do Begin
  795.     If AlienType[I]=0 Then Begin
  796.      AlienType[I]:=Random(6);
  797.      XAlien[I]:=35;
  798.      If AlienType[I]in[3,5]Then YAlien[I]:=20
  799.                            Else YAlien[I]:=Random(5)*3+2;
  800.      NewAlien:=False;
  801.      Break;
  802.     End;
  803.    End;
  804.    For I:=0 to 3 do Begin
  805.     If AlienType[I]<>0 Then Begin
  806.      HideAlien(I);
  807.      Dec(XAlien[I]);
  808.      If AlienCollision(I)Then Begin
  809.       GotoXY(15,12);
  810.       TextColor(LightRed);
  811.       If Live=0 Then Begin
  812.        Write('PARTIE TERMINER !');
  813.        If ReadKey=#0Then ReadKey;
  814.        Exit;
  815.       End;
  816.       Dec(Live);
  817.       Write('BOOM !!! COLLISION');
  818.       If ReadKey=#0 Then ReadKey;
  819.       BK:=0;
  820.       XShip:=4;
  821.       YShip:=12;
  822.       FillChar(XShipBall,SizeOf(XShipBall),0);
  823.       FillChar(YSHipBall,SizeOf(YShipBall),0);
  824.       FillChar(XAlien,SizeOf(XAlien),0);
  825.       FillChar(YAlien,SizeOf(YAlien),0);
  826.       FillChar(AlienType,SizeOf(AlienType),0);
  827.       TextBackground(Black);
  828.       ClrScr;
  829.       ShowLive;
  830.       ShowGround;
  831.       ShowScore;
  832.       ShowShip;
  833.       Break;
  834.      End;
  835.      If XAlien[I]=0Then Begin
  836.       YAlien[I]:=0;
  837.       AlienType[I]:=0;
  838.      End
  839.       Else
  840.      ShowAlien(I);
  841.     End;
  842.    End;
  843.    Delay(100);
  844.   Until Keypressed;
  845.   K:=ReadKey;
  846.   Case K of
  847.    #0:Case ReadKey of
  848.     #72:If YShip>2 Then Begin { Up }
  849.      HideShip;
  850.      YShip:=YShip-1;
  851.      ShowShip;
  852.     End;
  853.     #80:If YShip+2<22 Then Begin { Down }
  854.      HideShip;
  855.      YShip:=YShip+1;
  856.      ShowShip;
  857.     End;
  858.    End;
  859.    ' ':AddShipBall; { Tir ? }
  860.   End;
  861.  Until K=#27;
  862. End;
  863.  
  864. BEGIN
  865.  InitGame;
  866.  RunGame;
  867.  TextMode(C80);
  868.  CursorOn;
  869.  TextBackground(Black);
  870.  TextColor(7);
  871.  ClrScr;
  872. 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