Guessing-game/Guessing.pas

program Guessing;
uses crt;

var myRnd, entry, i, choice : integer;
    dialog : string;

procedure Easy;
begin
  randomize();
  myRnd := random(100);
  writeln('Take a guess');
  i := 1;
  for i := 1 to 10 do
    begin
      readln(entry);
      if (entry = myRnd) then
        begin
          writeln('BINGO!!!!');
          writeln();
          writeln('Do you want to retry? [Y/N]');
          readln(dialog);
        end
      else
      if (entry < myRnd) and (i <> 10) then
        begin
          write('aim higher');
        end
      else
      if (entry > myRnd) and (i <> 10) then
        begin
          write('aim lower');
        end;
    end;
    writeln('GAME OVER!');
    writeln();
    writeln('Do you want to retry? [Y/N]');
    readln(dialog);
end;

procedure Medium;
begin
  randomize();
  myRnd := random(100);
  writeln('Take a guess');
  i := 1;
  for i := 1 to 5 do
    begin
      readln(entry);
      if (entry = myRnd) then
        begin
          writeln('BINGO!!!!');
          writeln();
          writeln('Do you want to retry? [Y/N]');
          readln(dialog);
        end
      else
      if (entry < myRnd) and (i <> 5) then
        begin
          write('aim higher');
        end
      else
      if (entry > myRnd) and (i <> 5) then
        begin
          write('aim lower');
        end;
    end;
    writeln('GAME OVER!');
    writeln();
    writeln('Do you want to retry? [Y/N]');
    readln(dialog);
end;

procedure Hard;
begin
  randomize();
  myRnd := random(100);
  writeln('Take a guess');
  i := 1;
  for i := 1 to 3 do
    begin
      readln(entry);
      if (entry = myRnd) then
        begin
          writeln('BINGO!!!!');
          writeln();
          writeln('Do you want to retry? [Y/N]');
          readln(dialog);
        end
      else
      if (entry < myRnd) and (i <> 3) then
        begin
          write('aim higher');
        end
      else
      if (entry > myRnd) and (i <> 3) then
        begin
          write('aim lower');
        end;
    end;
    write('GAME OVER!');
    writeln();
    writeln('Do you want to retry? [Y/N]');
    readln(dialog);
end;

begin
  writeln('Hi and welcome to my first guessing game :)');
  writeln('the program will pick a random number between 1 and 100 and you have to guess it');
  writeln('Good luck!');
  readln();
  repeat
    clrscr;
    writeln('Select Difficulty');
    writeln('[1] Press 1 for Easy mode (10 tries)');
    writeln('[2] Press 2 for Medium mode (5 tries)');
    writeln('[3] Press 3 for Hard mode (3 tries)');
    readln(choice);
    case (choice) of
      1 : Easy;
      2 : Medium;
      3 : Hard;
    end;
  until (dialog = 'n') or (dialog = 'N');
end.