From e5e10f2f422130bc20339abd019b43eef641b1aa Mon Sep 17 00:00:00 2001
From: IllusionMan1212 <zyxunzack@gmail.com>
Date: Sat, 16 Jun 2018 14:57:41 +0200
Subject: [PATCH] Initial Commit

---
 Guessing.pas | 110 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 Guessing.pas

diff --git a/Guessing.pas b/Guessing.pas
new file mode 100644
index 0000000..1f8b525
--- /dev/null
+++ b/Guessing.pas
@@ -0,0 +1,110 @@
+program Guessing;
+var myRnd, entry, i, choice : integer;
+
+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!!!!');
+          readln;
+          halt;
+        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!');
+    readln();
+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!!!!');
+          readln;
+          halt;
+        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!');
+    readln();
+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!!!!');
+          readln;
+          halt;
+        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!');
+    readln();
+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!');
+  writeln();
+  writeln();
+  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;
+end.
\ No newline at end of file