From fbfe1e89ef58eb7255992340c7aea898bf86181c Mon Sep 17 00:00:00 2001
From: Trivernis <trivernis@hotmail.de>
Date: Thu, 15 Nov 2018 13:50:08 +0100
Subject: [PATCH] More Colors :)

---
 biketour/tour.pas | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/biketour/tour.pas b/biketour/tour.pas
index 44c1b8a..8ee14cd 100644
--- a/biketour/tour.pas
+++ b/biketour/tour.pas
@@ -90,7 +90,7 @@ begin
 end;
 
 begin
-  TextColor(8);
+  TextColor(DarkGray);
   Writeln('Tourplanner');
   Writeln('Written by J.Riegel.');
   TextColor(White);
@@ -125,8 +125,13 @@ begin
 
         for j := 0 to 2 do
         begin
-          WriteLn('Password: ');
+          Write('Password: ');
+          cursoroff;
+          TextColor(Black);
+          TextBackground(Black);
           ReadLn(readinput);
+          TextColor(White);
+          cursoron;
 
           if MD5Print(MD5String(readinput)) = users[i].pw then
           begin
@@ -135,7 +140,11 @@ begin
             Break;
           end
           else
-            WriteLn('Wrong password! ', 2 - j, ' trys left.');
+            begin
+              TextColor(Red);
+              WriteLn('Wrong password! ', 2 - j, ' trys left.');
+              TextColor(White);
+            end;
         end;
         { @section userfunctions }
         if correct = true then
@@ -144,6 +153,10 @@ begin
           users[i].l := true;
       end;
     if usersuccess = false then
-      WriteLn('User not found');
+      begin
+        TextColor(Red);
+        WriteLn('User not found');
+        TextColor(White);
+      end;
   end;
 end.