Program Life Basics; _{// Can life be like a program?}
Uses
   LifeLib;
Var             
   Food, Sleep, Water, Love As Needs;
   Happiness As LifeStrength;
   Death As LifeWeakness;
   Age As Integer;
   Object Person
       Begin
            HasHealth As Status;
        End;        
Constants
   GoToSchool;
   GoToWork;
   StayHome;
  
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, work or stay home?}      
        If Age < 18 Then
           GoToSchool;
        Else If Age < 50 Then
           GoToWork;
        Else
           StayHome;
        End;


           _{// Let's try to survive...!}
        If Not Food Then
            Person.HasHealth := False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        If Not Water Then
            Person.HasHealth = False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        If Not Sleep Then
            Person.HasHealth := 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 := -1                    _{// Suicide...}
        Else If Happiness < 3 Then
            Person.HasHealth := False    _{// Get Sick...}
        Else If Happiness > 80 Then
             Death := Death + 1         _{// Live Longer!}
             Happiness := Happiness - 20
        End;

             _{// Am I sick?}
        If Not Person.HasHealth Then
              GoToHospital
        End;
              
          
             _{// A year has passed.}
      Age := Age + 1

     While (Age < Death);

             _{// Oops... Game Over.}
     WriteLine('Memento Mori...');
     Readkey;
     WriteLine('Game Over');

End.

Procedure GoToHospital
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;