一个很有用的函数
Function Love(Her:Tgirl; Me:Tboy):Tbaby;
Var
Temp:Tbaby;
Begin
Result:=nil;
If Her.BoyFriend.Count<1 Then FirstLove(Her,Me)
Else Begin
For i:=0 to Her.BoyFriend.Count-1 Do
If Wrestle(Her.BoyFriend.ParamsByNum[i].asBoy,Me)=Me Then Exit;
Her.Heart:=Me.cupidbow;
Temp:=Tbaby.Create(Her,Me);
End;
If Me.Name<>Bill Then
Repeat
Inc(Me.Money,Pay);
Dec(Me.Money,Chummage);
Dec(Me.Money,...);
Inc(Her.Age);
Until Me.Money > House Or (Her.Age > 25) Or Her.HasBaby;
Result:=Temp;
End;