Jeu du devin

Télécharger le projet
Commenter

Description

Mon 2eme programme (j'espère qu'il va + vous plaire que le premier)
J'ai utilisé les couleurs, readkey...
Le but du jeu est juste de deviner le bon nombre (3 niveaux) en 8 coups et d'augmenter son crédit.

Source / Exemple : 


program devin;
  uses Crt;
  var credit, max, nombre1, nombre2, vies : integer;
  Ch: Char;
  procedure choix;
  begin
    TextBackground(Black);
    TextColor(Blue);
    writeln ('Choisissez le niveau de difficulte :');
    writeln (#27, ' : Facile');
    writeln (#24, ' : Moyen');
    writeln (#26, ' : Difficile');
    writeln ('Autre touche : Quitter');
    Ch:=ReadKey;
    case Ch of
      #0:                               
      begin
        Ch:=ReadKey;
        case Ch of
          #75: max:=50;
	    #72: max:=75;
	    #77: max:=100;
        end;
      end;    
    else
      Write(Ch);
    end;
  nombre2 := random(max + 1);
  end;
    
  procedure aleatoire;
  begin
    TextColor(YELLOW);
    writeln ('Mettez un nombre entre 0 et ', max);
    readln (nombre1);
    TextColor(RED);
    if nombre1 < nombre2 then
    begin
      writeln ('Trop petit!');
      vies := vies - 1;
    end;
    if nombre1 > nombre2 then
    begin
      writeln ('Trop grand!');
      vies := vies - 1;
    end;
    if nombre1 = nombre2 then
    begin
      writeln ('Bravo!!!');
      credit := credit + (2000 * vies);
      vies := 8;
      writeln ('');
      writeln ('');
      choix;    
    end;
    if vies < 1 then
    begin
      writeln ('PERDU!!!');
      credit := credit - (100 * (101 - max));
      vies := 8;
      writeln ('');
      writeln ('');
      choix;
    end;
    if credit < 1 then
    begin
    TextColor (Green);
    writeln ('Vous etes endette!!!!!');
    end;
    writeln ('credit : ', credit);
    writeln ('nombre de vies : ', vies);
    aleatoire;
    end;
begin
ClrScr;
vies := 8;
credit := 10000;
randomize;
choix;
aleatoire;
end.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (mastave)