Sub Drink_From_Mug(ByVal Contents As Liquid, ByVal Mug As Container)

      If Contents Is Not Liquid Then Exit Sub
      
      Do Until Mug Is Empty
            Action = Drink(Contents, Mug)
            SystemBladder = SystemBladder + Mug.Value
            If SystemBladder >= 90% Then GoTo Toilet:
      Loop

      SystemEnergy = SystemEnergy + Contents.Caffeine
      
      If SystemEnergy < 100% Then
            Call Drink_From_Mug
      Else
            Clean Mug   '  Must do this before go to Toilet
      End If

Toilet:
      Do Until SystemBladder Is Empty
            SystemBladder Release
      Loop

End Sub