By James Kyle
Do until young adult
If parent is negative then
Select Case ParentalExample
Case "Judgemental": judgement = judgement + 1
Case "Fearful": fear = fear + 1
Case "Despairing": despair = despair + 1
End Select
Else
Select Case ParentalExample
Case "Self Aware": awareness = awareness + 1
Case "Self Responsible": responsibility = responsibility + 1
Case "Self Accepting": acceptance = acceptance + 1
Case "Sense of Connection": connection = connection + 1
Case "Inner Alignment": alignment = alignment + 1
End Select
End If
End do
Positivity = awareness + responsibility + acceptance + connection + alignment
Negativity = judgement + fear + despair
Do until end of life
Select Case LifeEvent
Case "Challenge":
If Negativity > CriticalValue then
fear = fear + 1
judgement = judgement + 1
Else
awareness = awareness + 1
acceptance = acceptance + 1
responsibility = responsibility + 1
End If
Case "Opportunity":
If Positivity > CriticalValue then
connection = connection + 1
alignment = alignment + 1
Else
despair = despair + 1
judgement = judgement + 1
End If
End Select
If Children IS True
Perform PassOntoNextGeneration
End If
Positivity = awareness + responsibility + acceptance + connection + alignment
Negtivity = judgement + fear + despair
InnerPeace = Positivity - Negtivity
End do
Image courtesy of Feelart FreeDigitalPhotos.net
No comments:
Post a Comment