Section courante

A propos

Section administrative du site

La Patience, est un jeu de carte, dont il existe de très nombreuses variantes. Cette version repose sur 4 tas et un tas pour le reste des cartes dans lequel on tourne trois cartes à la fois afin d'offrir la possibilité au jour de faire avancé ses 4 mains. Le jeu se termine lorsque vos 4 mains sont pleins.

Contrairement à d'autres jeu, les symboles ASCII des cartes sont supportés (Coeur, Piques, Carreau, Trèfle) par la police de caractères. Ainsi, l'utilisation d'un écran de texte permettra d'afficher les cartes et leur jeu avec plus de clarté. Cependant, le valet, la reine et le roi n'auront pas de dessin car l'écran de texte le supporte pas. Malheureusement, bien que l'écran de texte soit excellente pour jouer a des jeux de cartes, la limite de 25 lignes est parfois assez pénible, il est donc préférable de faire passer le jeu en mode 80x43 ou 80x50 caractères pour avoir plus de place. Aussi, dans un jeu de carte pour ordinateur, le joueur ne pas fait que très peu d'action, ainsi, le trois/quatre du programme sont soit une validation que les coups sont possible et l'autre, c'est de se promener dans un tableau contenant l'ensemble des cartes à jouer.

Lorsqu'on tire une carte au hasard (à l'aide de la fonction XtrkCard), on ne choisis pas un nombre au hasard dans les 52 cartes, on choisit une position dans un jeu de carte indiqué par la chaîne de caractères (Card) contenant une chaîne de caractères avec les cartes restante. De cette façon, si par un curieux hasard, la fonction sortirait deux fois le même nombre, il n'y a pas de risque d'avoir deux fois la même carte à jouer.


L'exemple de jeu Patience 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 Patience;
  2.  
  3. Uses Crt,Strings;
  4.  
  5. Function Left(Const Str:String;Num:Byte):String;Begin
  6.  Left:=Copy(Str,1,Num);
  7. End;
  8.  
  9. Procedure DelChrAt(Var S:String;P:Byte);Begin
  10.  If P=1Then S:=Copy(S,2,255)
  11.        Else S:=Left(S,P-1)+Copy(S,P+1,255)
  12. End;
  13.  
  14. Procedure StrDel(Str:PChar;Start,Len:Word);
  15. Var
  16.  SL:Word;
  17. Begin
  18.  SL:=StrLen(Str);
  19.  If(SL=0)or(Start>SL)Then Exit;
  20.  If SL=1Then Str[0]:=#0
  21.   Else
  22.  Begin
  23.   If(Start<>SL)Then Move(Str[Start+Len],Str[Start],SL-Start);
  24.   Str[SL]:=#0;
  25.  End;
  26. End;
  27.  
  28. Procedure Play;
  29. Const
  30.  HomeX=4; HomeY=3;
  31.  CardImg:Array[0..52,0..4]of String[5]=(
  32.   (' ',' ',' ',' ',' '),
  33.   ('A ',' ',' '#3' ',' ',' A'),
  34.   ('2 '#3' ',#3' ',' ',' '#3,' '#3' 2'),
  35.   ('3 '#3' ',#3' ',' '#3' ',' '#3,' '#3' 3'),
  36.   ('4 ',' '#3' '#3' ',' ',' '#3' '#3' ',' 4'),
  37.   ('5 ',' '#3' '#3' ',' '#3' ',' '#3' '#3' ',' 5'),
  38.   ('6 ',' '#3' '#3' ',' '#3' '#3' ',' '#3' '#3' ',' 6'),
  39.   ('7 ',' '#3' '#3' ',' '#3#3#3' ',' '#3' '#3' ',' 7'),
  40.   ('8 ',' '#3#3#3' ',' '#3#3#3' ',' '#3' '#3' ',' 8'),
  41.   ('9 ',' '#3#3#3' ',' '#3#3#3' ',' '#3#3#3' ',' 9'),
  42.   ('10 ',#3#3#3#3#3,' ',#3#3#3#3#3,' 10'),
  43.   ('J ',#3'UUU ',' UUU ',' UUU'#3,' J'),
  44.   ('Q ',#3'UUU ',' UUU ',' UUU'#3,' Q'),
  45.   ('K ',#3'UUU ',' UUU ',' UUU'#3,' K'),
  46.   ('A ',' ',' '#6' ',' ',' A'),
  47.   ('2 '#6' ',#6' ',' ',' '#6,' '#6' 2'),
  48.   ('3 '#6' ',#6' ',' '#6' ',' '#6,' '#6' 3'),
  49.   ('4 ',' '#6' '#6' ',' ',' '#6' '#6' ',' 4'),
  50.   ('5 ',' '#6' '#6' ',' '#6' ',' '#6' '#6' ',' 5'),
  51.   ('6 ',' '#6' '#6' ',' '#6' '#6' ',' '#6' '#6' ',' 6'),
  52.   ('7 ',' '#6' '#6' ',' '#6#6#6' ',' '#6' '#6' ',' 7'),
  53.   ('8 ',' '#6#6#6' ',' '#6#6#6' ',' '#6' '#6' ',' 8'),
  54.   ('9 ',' '#6#6#6' ',' '#6#6#6' ',' '#6#6#6' ',' 9'),
  55.   ('10 ',#6#6#6#6#6,' ',#6#6#6#6#6,' 10'),
  56.   ('J ',#6'UUU ',' UUU ',' UUU'#6,' J'),
  57.   ('Q ',#6'UUU ',' UUU ',' UUU'#6,' Q'),
  58.   ('K ',#6'UUU ',' UUU ',' UUU'#6,' K'),
  59.   ('A ',' ',' '#4' ',' ',' A'),
  60.   ('2 '#4' ',#4' ',' ',' '#4,' '#4' 2'),
  61.   ('3 '#4' ',#4' ',' '#4' ',' '#4,' '#4' 3'),
  62.   ('4 ',' '#4' '#4' ',' ',' '#4' '#4' ',' 4'),
  63.   ('5 ',' '#4' '#4' ',' '#4' ',' '#4' '#4' ',' 5'),
  64.   ('6 ',' '#4' '#4' ',' '#4' '#4' ',' '#4' '#4' ',' 6'),
  65.   ('7 ',' '#4' '#4' ',' '#4#4#4' ',' '#4' '#4' ',' 7'),
  66.   ('8 ',' '#4#4#4' ',' '#4#4#4' ',' '#4' '#4' ',' 8'),
  67.   ('9 ',' '#4#4#4' ',' '#4#4#4' ',' '#4#4#4' ',' 9'),
  68.   ('10 ',#4#4#4#4#4,' ',#4#4#4#4#4,' 10'),
  69.   ('J ',#4'UUU ',' UUU ',' UUU'#4,' J'),
  70.   ('Q ',#4'UUU ',' UUU ',' UUU'#4,' Q'),
  71.   ('K ',#4'UUU ',' UUU ',' UUU'#4,' K'),
  72.   ('A ',' ',' '#5' ',' ',' A'),
  73.   ('2 '#5' ',#5' ',' ',' '#5,' '#5' 2'),
  74.   ('3 '#5' ',#5' ',' '#5' ',' '#5,' '#5' 3'),
  75.   ('4 ',' '#5' '#5' ',' ',' '#5' '#5' ',' 4'),
  76.   ('5 ',' '#5' '#5' ',' '#5' ',' '#5' '#5' ',' 5'),
  77.   ('6 ',' '#5' '#5' ',' '#5' '#5' ',' '#5' '#5' ',' 6'),
  78.   ('7 ',' '#5' '#5' ',' '#5#5#5' ',' '#5' '#5' ',' 7'),
  79.   ('8 ',' '#5#5#5' ',' '#5#5#5' ',' '#5' '#5' ',' 8'),
  80.   ('9 ',' '#5#5#5' ',' '#5#5#5' ',' '#5#5#5' ',' 9'),
  81.   ('10 ',#5#5#5#5#5,' ',#5#5#5#5#5,' 10'),
  82.   ('J ',#5'UUU ',' UUU ',' UUU'#5,' J'),
  83.   ('Q ',#5'UUU ',' UUU ',' UUU'#5,' Q'),
  84.   ('K ',#5'UUU ',' UUU ',' UUU'#5,' K'));
  85.  BackKr=$2B;
  86. Var
  87.  Card:String;
  88.  H,I,J,Y,StackPos:Byte;
  89.  Stack4:Array[0..3,0..2]of Byte;
  90.  Bank4:Array[0..3,0..13]of Byte;
  91.  Stack:Array[0..39]of Byte;
  92.  K:Char;
  93.  B:Word;
  94.  MX,MY:Byte;
  95.  
  96.  Function XtrkCard:Byte;Var R:Byte;Begin
  97.   R:=Random(Length(Card))+1;
  98.   XtrkCard:=Byte(Card[R]);
  99.   DelChrAt(Card,R);
  100.  End;
  101.  
  102.  Procedure PutCard(X,Y:Byte;Card:Byte);Var J,Kr:Byte;Begin
  103.   If Card>52Then Begin Card:=0; Kr:=$10;End Else
  104.   If Card=0Then Kr:=BackKr Else
  105.   If Card in[1..13,27..39]Then Kr:=$FC Else Kr:=$F0;
  106.   For J:=0to 4do Begin
  107.    TextBackground(Kr shr 4);
  108.    TextColor(Kr and $F);
  109.    GotoXY(HomeX+X,HomeY+Y+J);
  110.    Write(CardImg[Card,J]);
  111.   End;
  112.  End;
  113.  
  114.  Function Sort(Card:Byte):Byte;Begin
  115.   If Card=0Then Sort:=$FF Else Sort:=(Card-1)div 13;
  116.  End;
  117.  
  118.  Function Num(Card:Byte):Byte;Begin
  119.   If Card=0Then Num:=$FF Else Num:=(Card-1)mod 13;
  120.  End;
  121.  
  122.  Procedure UpDateStack4;Begin
  123.   Stack4[Y,I]:=0;
  124.   If I>0Then Dec(I);
  125.   PutCard(2,Y*6,Stack4[Y,I]);
  126.  End;
  127.  
  128.  Procedure Stack42Bank4;Var H:Byte;Begin
  129.   H:=0; While Bank4[J,H]<>0do Inc(H);
  130.   Bank4[J,H]:=Stack4[Y,I];
  131.   PutCard(10+H*4,J*6,Bank4[J,H]);
  132.   UpdateStack4;
  133.  End;
  134.  
  135.  Procedure UpdateStack;Var I,J:Byte;Begin
  136.   If StackPos<3Then J:=0 Else J:=StackPos-3;
  137.   For I:=0to 2do PutCard(27+I shl 2,25,Stack[J+I]);
  138.   If I<2Then Begin
  139.    TextBackground(BackKr shr 4);
  140.    Window(HomeX+28+(I+1)shl 2,HomeY+25,79,HomeY+30);
  141.    ClrScr;
  142.    Window(1,1,Lo(WindMax),Hi(WindMax));
  143.   End;
  144.  End;
  145.  
  146.  Procedure Stack2Bank4;Var H:Byte;Begin
  147.   H:=0; While Bank4[J,H]<>0do Inc(H);
  148.   Bank4[J,H]:=Stack[I];
  149.   StrDel(@Stack,I,1);
  150.   PutCard(10+H*4,J*6,Bank4[J,H]);
  151.   If StackPos>0Then Dec(StackPos);
  152.   UpdateStack;
  153.  End;
  154.  
  155. Begin
  156.  Card[0]:=#52;
  157.  For I:=1to 52do Card[I]:=Char(I);
  158.  For J:=0to 2do For I:=0to 3do Stack4[I,J]:=XtrkCard;
  159.  FillChar(Bank4,SizeOf(Bank4),0);
  160.  Bank4[0,0]:=XtrkCard;
  161.  StackPos:=0;
  162.  For I:=0to 38do Stack[I]:=XtrkCard;
  163.  Stack[39]:=0;
  164.  GotoXY(30,1);
  165.  TextColor($F);
  166.  Write('Aux Cartes - La Patience');
  167.  TextBackground(BackKr shr 4);
  168.  Window(1+0,1+2,1+Lo(WindMax),1+Hi(WindMax)-7);
  169.  ClrScr;
  170.  Window(1,1,Lo(WindMax),Hi(WindMax));
  171.  For I:=0to 3do Begin
  172.   TextBackground(BackKr shr 4);
  173.   GotoXY(HomeX,HomeY+2+I*6);
  174.   Write(Chr(I+49));
  175.   PutCard(2,I*6,Stack4[I,2]);
  176.  End;
  177.  PutCard(10,0,Bank4[0,0]);
  178.  PutCard(20,25,$FF);
  179.  For I:=0to 1do Begin
  180.   TextBackground(BackKr shr 4);
  181.   GotoXY(HomeX+22+I*7,HomeY+32);
  182.   Write(Chr(I+53));
  183.  End;
  184.  Repeat
  185.   K:=ReadKey;
  186.   Case K of
  187.    '1'..'4':Begin
  188.     Y:=Byte(K)-49;
  189.     For I:=2downto 0do If Stack4[Y,I]<>0Then Break;
  190.     If Stack4[Y,I]<>0Then Begin
  191.     If Num(Stack4[Y,I])=Num(Bank4[0,0])Then Begin
  192.      For J:=0to 3do If Bank4[J,0]=0Then Begin
  193.       Bank4[J,0]:=Stack4[Y,I];
  194.       PutCard(10,J*6,Bank4[J,0]);
  195.       UpdateStack4;
  196.       Break;
  197.      End;
  198.     End
  199.      Else
  200.     Begin
  201.      For J:=0to 3do If Sort(Bank4[J,0])=Sort(Stack4[Y,I])Then Begin
  202.       If J=0Then Stack42Bank4 Else
  203.       For H:=0to 12do If Num(Bank4[J-1,H])=Num(Stack4[Y,I])Then Begin
  204.        Stack42Bank4;
  205.        Break;
  206.       End;
  207.      End;
  208.     End;
  209.     End;
  210.    End;
  211.    '5':Begin
  212.     If Stack[StackPos]=0Then StackPos:=0;
  213.     For I:=0to 2do Begin
  214.      If Stack[StackPos]=0Then Break;
  215.      PutCard(27+I shl 2,25,Stack[StackPos]);
  216.      Inc(StackPos);
  217.     End;
  218.     If I<2Then Begin
  219.      TextBackground(0);
  220.      TextColor(7);
  221.      Window(HomeX+28+(I+1)shl 2,HomeY+25,79,HomeY+30);
  222.      ClrScr;
  223.      Window(1,1,Lo(WindMax),Hi(WindMax));
  224.     End;
  225.    End;
  226.    '6':Begin
  227.     I:=StackPos;
  228.     If I>0Then Dec(I);
  229.     If Stack[I]<>0Then Begin
  230.     If Num(Stack[I])=Num(Bank4[0,0])Then Begin
  231.      For J:=0to 3do If Bank4[J,0]=0Then Begin
  232.       Bank4[J,0]:=Stack[I];
  233.       StrDel(@Stack,I,1);
  234.       PutCard(10,J*6,Bank4[J,0]);
  235.       If StackPos>0Then Dec(StackPos);
  236.       UpdateStack;
  237.       Break;
  238.      End;
  239.     End
  240.      Else
  241.     Begin
  242.      For J:=0to 3do If Sort(Bank4[J,0])=Sort(Stack[I])Then Begin
  243.       If J=0Then Stack2Bank4 Else
  244.       For H:=0to 12do If Num(Bank4[J-1,H])=Num(Stack[I])Then Begin
  245.        Stack2Bank4;
  246.        Break;
  247.       End;
  248.      End;
  249.     End;
  250.     End;
  251.    End;
  252.   End;
  253.   If(Bank4[0,12]>0)and(Bank4[1,12]>0)and(Bank4[2,12]>0)and(Bank4[3,12]>0)Then Begin
  254.    GotoXY(24,24);
  255.    Write('Vous avez gagnez!!!!!!!!');
  256.    Break;
  257.   End;
  258.  Until K in[#27,'q','Q'];
  259. End;
  260.  
  261. BEGIN
  262.  TextMode(C80+Font8x8);
  263.  Randomize;
  264.  ClrScr;
  265.  Play;
  266. END.
  267.  

Code source

Voici le code source du jeu sur GitHub :

Lien Langage de programmation Projet
https://github.com/gladir/7iles/blob/main/PATIENCE.PAS Turbo Pascal, Free Pascal 7iles


Dernière mise à jour : Jeudi, le 28 juillet 2022