Simple is best ... !

Program Life Basics;  // Can life be like a program?  Let's see!
Uses
   LifeLib;
Var             
   Food, Sleep, Water As Needs;
   Happiness As LifeStrength;
   Love As SomethingNeeded(4);
   Age, Death As Integer;
   Junction Person
       Begin
            Health As Status;
        End;        
Const
   GotoSchool;
   Work;
   StayInHome;
  
Begin

   Death := Random(100); // We all know that the death is random.
   Happiness := 2 + Random(5); // Happiness is random too.

     Do
  
            // Should I go to school, to work or stay in home?      
        If (Age < 18) Then
           GotoSchool;
        Else If (Age < 50)
           GotoWork;
        Else
           StayInHome;
        End;


           // Let's try to survive...!
        If Not Food Then
            Person.Health := False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        If Not Water Then
            Person.Health = False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        If Not Sleep Then
            Person.Health := False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        

               // Let's put some love in the game.
        Read(Love);

         Select Case (Love)
             0 : Happiness := Happiness -  20; Break;
             1 : Happiness := Happiness -  10; Break;
             2 : Break;
             3 : Happiness := Happiness + 10; Break;
             4 : Happiness := Happiness + 15; Break;
         End Case;
       

              // Happy?       
        If  (Happiness < -10) Then
            Death := 0                    // Suicide...
        Else If (Happiness < 3) Then
            Person.Health := False    // Get Sick...
        Else If (Happiness > 80) Then
             Death := Death + 1         // Live longer!
             Happiness := Happiness - 20
        End;

             // Am I sick?
        If Not Person.Health Then
              Hospital
        End;
              
          
             // Wow, time is going too fast!! A year has passed.
      Age := Age + 1

     While (Age <= Death);

             // Oops... Game Over.
     Write('Memento Mori...');
     Readkey;
     Write('Game Over');

End.

Procedure Hospital
Var
   Methods As GoodOrBad;

  Begin

          // Can I be saved?
    If (Methods = Good) Then
        Happiness := Happiness + 2
        Death := Death - 1
    Else If (Methods = Bad) Then
        Happiness = Happiness - 2
        Death := Death - 5
    End;
   
  End;
 

• Nếu 1 ngày nào đó bạn nhận thấy mọi chuyện tốt đẹp bấy lâu nay đã thay đổi ,xin đừng bi quan và buồn khổ ,đó là lúc bạn cần mỉm cười ...
• Nếu 1 ngày nào đó bạn nhận thấy người mình yêu thương không còn yêu thương mình nữa, xin bạn đừng trách người ấy và hãy tôn trọng quyết định của họ ,bởi vì họ thực sự muốn như thế ,bạn chẳng thể nào ép buộc con tim của người ta khi tình cảm của họ không còn thuộc về bạn nữa.
• Nếu 1 ngày nào đó bạn chợt nhận ra nụ cười mà bạn dành tặng cho ai đó lại có 1 ý nghĩa đặc biệt như thế ,xin bạn hãy tiếp tục mỉm cười và tặng cho tất cả những người còn lại -những người còn chưa thấy được nụ cười tuyệt vời của bạn.
• Nếu 1 ngày nào đó bạn phát hiện ra những sự thật phũ phàng đằng sau những điều tưởng như tươi sáng kia , xin bạn đừng tuyệt vọng mà hãy tin rằng đằng sau những sự thật phũ phàng ấy chắc chắn có những lý do riêng của nó và điều tốt đẹp vẫn đang chờ đón bạn vào 1 ngày không xa.
• Nếu 1 ngày nào đó bạn không còn được như bây giờ ,tài năng ,sức khoẻ ,và nhan sắc đã bị thời gian làm phai màu thì xin bạn chớ lo lắng ,đó là lúc bạn bắt đầu kể lại câu chuyện cuộc đời mà bạn đã trải nghiệm cho những con người trẻ hơn - những con người cần sự chỉ đường sáng suốt của 1 người như bạn.
• Nếu 1 ngày nào đó bạn nhận thấy cuộc đời này đáng chán biết dường nào ,và mọi việc dường như đi vào ngõ cụt thì đó là lúc bạn phải bình tĩnh ,can đảm để tìm 1 con đường mới ,dù rằng có thể bạn sẽ bị shock nhưng cách tốt nhất để nhìn thấy màu hồng của cuộc sống là bạn phải mở to mắt ra và chỉ nên nhìn vào những điều tốt đẹp.
• Nếu 1 ngày nào đó bạn đối mặt với những lời yêu thương từ những người mà bạn yêu quý ,đó là lúc bạn để con tim mình cất lên tiếng nói chọn lựa ai là người bạn yêu mến nhất và lý trí của bạn sẽ đảm nhận phần việc xem ai là người thích hợp nhất .Thật tuyệt vời nếu người mà bạn yêu nhất lại là người thích hợp với bạn nhất ,nhưng nếu chỉ được chọn 1 trong 2 người đó thì có lẽ bạn nên chọn người đã cùng bạn trải qua những vui buồn ,chia sẽ với bạn tình cảm chân thành của họ và có nhiều kỷ niệm đẹp cùng bạn .Vì khi chọn lựa họ ,bạn sẽ không bao giờ đánh rơi những kỷ niệm đẹp mà bạn có và đó là động lực để 2 người yêu thương nhau hơn.
• Nếu 1 ngày nào đó bạn nhận thấy mình đã trưởng thành ,và đủ tự tin để có thể đối mặt với những điều khó khăn sắp tới ,đó là lúc bạn nên chia sẽ kinh nghiệm của mình cho mọi người ,vì ở 1 nơi nào đó vẫn còn nhiều bạn cùng lứa với bạn vẫn đang loay hoay tìm lối đi vững chắc vào đời.
• Nếu 1 ngày nào đó ,bạn không còn đủ thời gian để xem ,hay đơn giản là ngẫm nghĩ lại những điều tốt đẹp mà bạn đã trải qua ,đó là lúc bạn cần phải nghỉ ngơi và thư giãn ,vì bạn đang đi quá nhanh trên con đường đời và rất có thể bạn sẽ bạn sẽ vấp ngã .Cách tốt nhất là bạn nên dung hoà giữa công việc và cuộc sống , và luôn mỉm cười .
• Nếu 1 ngày nào đó bạn nhận thấy trong cuộc sống có quá nhiều điều tươi đẹp và mọi người xung quanh bạn đã trở thành bạn tốt ,và bạn được 1 ai đó yêu bằng cả con tim thì đó là lúc bạn phải mạnh mẽ lên để giữ lấy những điều tốt đẹp này ,vì nếu bạn không trân trọng ,nâng niu những gì bạn đang có thì bạn đang đánh rơi cơ hội để trải qua hạnh phúc ,tình yêu và cả những nụ cười.