Algoritmi di scelta - Implementazione

Private Function mayFuck(ByVal breathingSubject as sexObject) as BooleanDim isFuckable as Booleanif me.woman thenisFuckable = falseif evaluate(breathingSubject) = "OK" thenisFuckable = trueend ifelse    ' me.manisFuckable = trueif evaluate_1(breathingSubject) = "KO" thenif evaluate_2(breathingSubject) = "KO" thenif evaluate_3(breathingSubject) = "KO" thenif evaluate_4(breathingSubject) = "KO" thenif evaluate_5(breathingSubject) = "KO" thengoto exceptionend ifend ifend ifend ifend ifgoto exitFunctionend ifexception:if not isDrunk(me) thenisFuckable = falseend ifexitFunction:return isFuckableEnd Function