Illusion/Guessing-game
1
0
Fork 0
mirror of https://github.com/IllusionMan1212/Guessing-game.git synced 2026-10-24 02:12:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added retry when winning

Browse Source
This commit is contained in:
IllusionMan1212
2018-06-19 20:44:01 +02:00
parent 9e7d263bf3
commit 787c5c67a5
1 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Guessing.pas
+15 -12
View File
@@ -16,9 +16,7 @@ begin
if (entry = myRnd) then if (entry = myRnd) then
begin begin
writeln('BINGO!!!!'); writeln('BINGO!!!!');
writeln(); break;
writeln('Do you want to retry? [Y/N]');
readln(dialog);
end end
else else
if (entry < myRnd) and (i <> 10) then if (entry < myRnd) and (i <> 10) then
@@ -31,7 +29,10 @@ begin
write('aim lower'); write('aim lower');
end; end;
end; end;
writeln('GAME OVER!'); if (i = 10) then
begin
writeln('GAME OVER!');
end;
writeln(); writeln();
writeln('Do you want to retry? [Y/N]'); writeln('Do you want to retry? [Y/N]');
readln(dialog); readln(dialog);
@@ -49,9 +50,7 @@ begin
if (entry = myRnd) then if (entry = myRnd) then
begin begin
writeln('BINGO!!!!'); writeln('BINGO!!!!');
writeln(); break;
writeln('Do you want to retry? [Y/N]');
readln(dialog);
end end
else else
if (entry < myRnd) and (i <> 5) then if (entry < myRnd) and (i <> 5) then
@@ -64,7 +63,10 @@ begin
write('aim lower'); write('aim lower');
end; end;
end; end;
writeln('GAME OVER!'); if (i = 5) then
begin
writeln('GAME OVER!');
end;
writeln(); writeln();
writeln('Do you want to retry? [Y/N]'); writeln('Do you want to retry? [Y/N]');
readln(dialog); readln(dialog);
@@ -82,9 +84,7 @@ begin
if (entry = myRnd) then if (entry = myRnd) then
begin begin
writeln('BINGO!!!!'); writeln('BINGO!!!!');
writeln(); break;
writeln('Do you want to retry? [Y/N]');
readln(dialog);
end end
else else
if (entry < myRnd) and (i <> 3) then if (entry < myRnd) and (i <> 3) then
@@ -97,7 +97,10 @@ begin
write('aim lower'); write('aim lower');
end; end;
end; end;
write('GAME OVER!'); if (i = 3) then
begin
write('GAME OVER!');
end;
writeln(); writeln();
writeln('Do you want to retry? [Y/N]'); writeln('Do you want to retry? [Y/N]');
readln(dialog); readln(dialog);