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
begin
writeln('BINGO!!!!');
writeln();
writeln('Do you want to retry? [Y/N]');
readln(dialog);
break;
end
else
if (entry < myRnd) and (i <> 10) then
@@ -31,7 +29,10 @@ begin
write('aim lower');
end;
end;
writeln('GAME OVER!');
if (i = 10) then
begin
writeln('GAME OVER!');
end;
writeln();
writeln('Do you want to retry? [Y/N]');
readln(dialog);
@@ -49,9 +50,7 @@ begin
if (entry = myRnd) then
begin
writeln('BINGO!!!!');
writeln();
writeln('Do you want to retry? [Y/N]');
readln(dialog);
break;
end
else
if (entry < myRnd) and (i <> 5) then
@@ -64,7 +63,10 @@ begin
write('aim lower');
end;
end;
writeln('GAME OVER!');
if (i = 5) then
begin
writeln('GAME OVER!');
end;
writeln();
writeln('Do you want to retry? [Y/N]');
readln(dialog);
@@ -82,9 +84,7 @@ begin
if (entry = myRnd) then
begin
writeln('BINGO!!!!');
writeln();
writeln('Do you want to retry? [Y/N]');
readln(dialog);
break;
end
else
if (entry < myRnd) and (i <> 3) then
@@ -97,7 +97,10 @@ begin
write('aim lower');
end;
end;
write('GAME OVER!');
if (i = 3) then
begin
write('GAME OVER!');
end;
writeln();
writeln('Do you want to retry? [Y/N]');
readln(dialog);