>FUNCTION MakeWifeHappy
>** This function should be called when
>** oWifeMemory.GetPreviousMistakes()
>** event fires
>
>lAdmitMistake = .T.
>
>IF lDidLast = lBoughtGift
> DO FixHouseHoldItem
>ELSE
> DO BuyWifeGift
>ENDIF
>IF oWife.CheckStatus # CONST_WIFEHAPPY
> = MakeWifeHappy()
>ENDIF
>RETURN .T.
>
>FUNCTION RespondToWife
>nRandNumber = RIGHT(TRAN(RAND()),1)
>DO CASE
> CASE nRandNumber $ "16"
> RETURN "Yes, dear"
> CASE nRandNumber $ "27"
> RETURN "You don't say."
> CASE nRandNumber $ "38"
> RETURN "That's interesting"
> CASE nRandNumber $ "49"
> RETURN "Hmmmm"
> CASE nRandNumber $ "50"
> RETURN "OK"
>ENDCASE
>