JEU DU DEVIN

  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.