Petit programme qui simule le jeu de Craps.

Enjoy !!:D

Code:

P_Craps.ads

quote: Package P_craps is    Function Calcul(Somme : In Natural; Mise_Depart : In Out natural; Compte : In Out Natural) return Natural;    Function Parier( Compte : In Natural ) return Natural ;    Function Lancer_De return Natural;          Function Relancer_Jeu(Point : In Out Natural; Compte : In Out Natural; Mise_Depart : In Out Natural) return Natural;    Function Gagne_Perd(Mise_Depart : In Out Natural; Compte : In Out Natural) return Natural;    Procedure Regles_Jeu;    procedure Start;      procedure Save_Name_Score(Score : In Out Natural);    Procedure Read_Name_Score;          end P_craps;

P_Craps.adb

quote: with Ada.Text_IO, Ada.Strings.Unbounded, Ada.Directories; use Ada.Text_IO, Ada.Strings.Unbounded, Ada.Directories; with Ada.Integer_Text_IO; use Ada.Integer_Text_IO; With Ada.Numerics.Discrete_Random;          -- Package permettant de générer des nombres aléatoire.     Package body P_craps is  ----------------------------------------------------------------------------------------------------------------------------------  -- Fonction qui permet au joueur de saisir sa mise. Elle prend un params en entrée et retourne une variable au prog principal ----  ----------------------------------------------------------------------------------------------------------------------------------    ---Procedure Update_Score     procedure Save_Name_Score(score : In Out Natural) is        nom : Unbounded_String;      f : File_Type;       begin      --  Write Score      if not Exists("logs") Then         Create_Directory("logs");      end if;      Create(f, Out_File, "./logs/log.txt");      Put_Line("saisissez votre nom");      put(">"); nom := To_Unbounded_String(Get_Line);      Put_Line(f,"-------------------");      Put_Line(f,"NOM="&To_String(nom));      Put_Line(f,"-------------------");      if score /= 0 Then         Put_Line(f,"SCORE="&Natural'image(score));      end if;      Close(f);   end Save_Name_Score;     --- Fin de la procedure     procedure Read_Name_Score is        score_joueur, taille : Natural;      joueur_nom, tmp : Unbounded_String;      f : File_Type;       Begin      -- Read Score      Put_Line("****** AFFICHAGE RESULTAT *******"); New_Line;      Open(f, In_File, "log.txt");      while not End_Of_File(f) loop         tmp := To_Unbounded_String(Get_Line(f));         -- le prog enrégistre le contenu du fichier f dans une var tmp de type Unbounded_String         taille := Length(tmp);         -- la taille de la chaine de caractères tmp est dans taille         if taille >= 4 Then            if To_String(tmp)(1..4) = "NOM=" Then               -- si la chaine de caract compris entre 1 et 4 est égale à "NOM="               joueur_nom := To_Unbounded_String(To_String(tmp)(5..taille));               -- enregistrement dans la chaine allant de 5 à taille dans la var               Put("Votre Nom est "&To_String(joueur_nom));New_Line;            end if;         end if;               if taille >= 6 Then            if To_String(tmp)(1..6) = "SCORE=" Then               -- De meme pour lire et enrégistrer le score               score_joueur := Natural'Value(To_String(tmp)(7..taille));               Put("Votre SCORE est"&Natural'Image(score_joueur)&"$.");New_Line;            end if;         end if;      end loop;      Close(f);      Put_Line("****** FIN DE LA PARTIE *******"); New_Line;   end Read_Name_Score;   --- Fin de la procedure     Procedure update_Score ( current_score : In Natural) Is      score_joueur, taille : Natural;      joueur_nom, tmp : Unbounded_String;      f : File_Type;   Begin      --Lecture de la valeur du score      Open(f, In_File, "log.txt");      while not End_Of_File(f) loop         tmp := To_Unbounded_String(Get_Line(f));         taille := Length(tmp);                 if taille >= 6 Then            if To_String(tmp)(1..6) = "SCORE=" Then               score_joueur := Natural'value(To_String(tmp)(7..taille));            end if;           end if;      end loop;      Close(f);            if current_score > score_joueur Then         Open(f, Append_File, "log.txt");         Put_Line(f, "----------------");         Put_Line(f,"SCORE="&Natural'Image(current_score));         Close(f);      end if;   end update_Score;     ------ Fonction qui fait tourner le prog en boucle --------   Function Parier( Compte : In Natural ) return Natural Is      Montant : Natural := 0;         Begin            Put_Line("------------------------------");      Put_Line("| Le solde du compte =" & Integer 'image(Compte) &"$. |");      Put_Line("------------------------------");          --Tant que la mise est à zero ou superieur au solde du compte, on redemande      While Montant = 0 Or Montant > Compte loop         Put_Line(" Combien souhaitez-vous miser ?");         Put("> "); Get(Montant,0); Skip_Line; New_Line;                 -- si le compte est débiteur on s'arrete         if Montant > Compte Then            Put_Line("La maison ne fait pas de credit !");         else Exit;         end if;      End loop;      return Montant;   End Parier; -- fin de fonction de Mise   -----------------------------------------------------------------   -- Fonction qui permet de lancer les Dés zero params d'entrée ---   -----------------------------------------------------------------   Function Lancer_De return Natural Is      -- Ici nous générons un nbre aléatoire entre 1 et 6      SUBTYPE Intervalle Is Integer Range 1..6;      Package Aleatoire Is New Ada.Numerics.Discrete_Random(Intervalle);      Use Aleatoire;      Hasard : Generator;      Choix : Natural;   Begin      reset(Hasard);      Choix := random(Hasard);      return Choix;         End Lancer_De;   -- Fin de la fonction Lance_De   -----------------------------------------------   --Fonction de relance d'une deuxieme partie ---   ----------------------------------------------   Function Relancer_Jeu(Point : In Out Natural; Compte : In Out Natural; Mise_Depart : In Out Natural) return Natural  Is      De1, De2 : Natural;   Begin            While Point > 0 loop         -- Le joueur lance les dés de nouveau         De1 := Lancer_De;         De2 := Lancer_De;         -- si le joueur rejoue le mem nbre alors il gagne         if De1 + De2 = Point Then            Put("Vous empochez" & Integer'image(Mise_depart) & "$.");New_Line;            Compte := Compte + Mise_Depart;            Point := 0; Mise_Depart := 0;            Put("Ce qui vous fait" & Integer'Image(Compte) &"$. Bravo !!!"); New_Line;            -- si joueur fait un 7 avant de refaire le point alors il perd sa mise         Elsif De1 + De2 = 7 Then            Put("SEVEN OUT ! Vous perdez" & Integer'Image(Mise_Depart) &"$.");            New_Line;            Compte := Compte - Mise_depart;            Point := 0; mise_Depart := 0;   -- remise à zero des compteurs            Put("Il vous reste" & Integer'Image(Compte) &"$."); New_Line;         end if;              End loop;            return Compte;         End Relancer_Jeu;   --Fin de la fonction  --------------------------------------------------------------------  -- Fonction du Jeu qui calcul décide si le joueur gagne ou perd ----  -- elle prend 3 params en entrée --  -------------------------------------------------------------------   Function Calcul(Somme : In Natural; Mise_Depart : In Out natural; Compte : In Out Natural) return Natural Is      Point : Natural := 0;       Begin      Case Somme Is         When 7 | 11  =>  Put("Vous avez gagné" & Integer'Image(Mise_Depart) &"$."); New_line;            Compte := Compte + Mise_Depart;            Mise_Depart := 0;            Put("Votre compte est de" & Integer'Image(Compte) &"$. Bravo !!!"); New_line;                   When 2 | 3 | 12 => Put(" CRAPS ! Vous perdez" & Integer'Image(Mise_Depart) &" $. Dommage");            Compte := Compte - Mise_Depart;            Mise_Depart := 0;            new_Line;         When Others =>            Point := Somme;            Put("Le point est établi à" & Integer'Image(Point));New_Line;            Compte := Relancer_Jeu(Point, Compte, Mise_Depart);            Mise_Depart := 0;      End case;          return Compte;   end Calcul;   -- Fin de la fonction  ------------------------------------------------------------------------------------------  -- Debut de la Fonction Gagne_Perd cette fonction réalise le gros du travail du jeu ------  -- Elle prend 2 params en entrée, le solde du compte ainsi que la mise de depart ---------  ------------------------------------------------------------------------------------------   Function Gagne_Perd(Mise_Depart : In Out Natural; Compte : In Out Natural) return Natural Is      -- Variable pour stocker la somme des dés et Gain.      Somme : Natural;      De1, De2, Current_State_Compte : Natural ;   Begin      -- On lance les dés      De1 := Lancer_De;      De2 := Lancer_De;          --Affichage du résultat      Put(De1, Width => 0);New_Line;      Put(De2, Width => 0);New_Line;          Somme := De1 + De2;          --Appel a la fonction qui va nous dire si on gagne ou perd      Current_State_Compte := Calcul(Somme, Mise_Depart,Compte);      update_score(Current_State_Compte);      return Current_State_Compte;       End Gagne_Perd;   -- Fin de la fonction   --Procedure enoncant les règles du jeu   Procedure Regles_Jeu Is      -------------------      -- VARIABLES ------      -------------------          regles_Du_Jeu : Unbounded_String;      My_File : File_Type;      Pseudo : Unbounded_String;           Begin      --Lecture des règles du jeu depuis un fichier texte.      Open(My_File, In_File, "./media/regles.txt");      while not End_Of_File(My_File) loop         regles_Du_Jeu := To_Unbounded_String(Get_Line(My_File));         --Le prog lit le contenu du fichier My_File pour l'enrégistrer dans la variable regles_du_jeu         Put_Line(To_String(regles_Du_Jeu));         New_Line;      end loop;      Close(My_File);      New_Line;   End Regles_Jeu;   -- Fin de la procedure       -- Procedure Initialisation du jeu   procedure Start is      Mise_depart : Natural := 0;      Gain : Natural := 0;      Compte : Natural := 100;         Begin      Save_Name_Score(Compte);      --On joue tant que compte est créditeur      While Compte > 0 loop         Mise_depart := Parier(Compte);         --Test si le jeu est gagnant ou perdant ensuite on credite ou débite le compte du joueur         Exit when Mise_depart = 0 ;         Put_Line(" Les jeux sont faits ");         --on lance le jeu         Gain := Gagne_Perd(Mise_Depart, Compte);         New_line;      end loop;         end Start; end P_craps;

Programme Principa main.adbl

quote: --NOTES: Avoir des parametres en Mode " In => Lecture " c'est interdir toute modification de leur val -- Par contre Mode "Out => Ecriture"  les parametres ne doivent pas etre lus With P_craps,Ada.Text_IO, Ada.Strings.Unbounded, Ada.Integer_Text_IO; Use P_Craps, Ada.Text_IO, Ada.Strings.Unbounded, Ada.Integer_Text_IO; Procedure Main is   ------------------   -- SUITE DU JEU --   -----------------  choix : Character;   -- Le joueur doit etre capable de saisir son pseudo   -- le programme doit etre capable d'enrégistrer le pseudo dans un fichier texte.   -- le programme doit etre capable de proposer au joueur d'enrégistrer son score s'il est > Montant du compte   -- Le programme doit etre capable d'enrégistrer le nbre de coup pour la victoire Begin   Put_Line(" BIENVENUE AU JEU DE CRAPS ");   Put_Line(" Voulez-vous lire les règles du jeu [Y/N] ");   put(">");Get(choix);Skip_Line;   case choix is      when 'N' | 'n' =>         put_line(" Lancer le jeu ");         Start;      when 'Y' | 'y' =>         Regles_Jeu;         Start;      when Others =>         Put_Line(" Mauvais choix.");   end Case;   --Lancement du Jeu avec affichage des règles du jeu   Read_Name_Score;   -- A la fin du Jeu le programme affiche le nom du joueur et son score end Main;

:eureka: