dear all: result love (Boy, girl) {
If (boy. having a room () and boy. car ()
{< br> boy. set (nothing);
return girl. marry (boy);
}< br> If (girl. willing to wait ()
{< br> while (! (Boy. making money> 100,000 and girl. feelings> 8)
{< br> for (Day = 1; day <= 365; day ++)
{-
If (Day = Valentine's Day)
If (boy. givegirl (Rose)
girl. feelings + +;
else
girl. feelings --;
If (Day = girl. birthday)
If (boy. givegirl (Rose)
girl. feelings + +;
else
girl. feelings --;
boy. desperately making money ();
}< BR >}< br> If (boy. having a room () and boy. car ()
{< br> boy. set (nothing);
return girl. marry (boy);
}< br> age + +;
girl. feelings --;
}< br> return girl. goto (another_boy);
Function love (vboy: tboy; vgril: tgril): Boolean;
Begin
With vgril do
Begin
If (a virgin) and (height> 165) and (weight <100) and (Mimi size> 34D) and (age <25) and (City Appearance affected = false) and (temperament> 80) and (education level> Junior College ))
Or (true in love = true) then
Result: = true
Else
Result: = false;
End;
End;
Function marry (byval boy as string, byval girl as string, love as integer) as Boolean
'Love is percentage
On Error GOTO
Dim count as long
: Beginning
Select case love
Case is> 90
If not contain (girl, "is a virgin") then
Marry = false
Else
Marry = true
End if
Case is 50 to 90
Do until love> 90
If boy XOR girl = "ML" then love = love + 0.1: Count = count + 1
... (Cannot think ....-_-)
(Omitted 100 rows above)
Loop
Goto beginning
Case is <50
If contain (girl, "beautiful") and contain (girl, "is a virgin") and contain (girl, "Mimi> 36") and contain (girl, "Height> 170") and contain (girl, "weight <100") and contain (girl, "age <25") and contain (girl, "Education> College") then
Marry = true
Else
Marry = false
Endif
End select
Exit Function
: A long time
Msgbox ("game over", "depend on! It takes a long time to die! ")
End Function