一个很有用的函数

tms2000 2000-09-12 12:37:00
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;
...全文
308 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
Winsky 2001-02-23
  • 打赏
  • 举报
回复
我喜欢用心而不是用键盘写程序的程序员们.
willzjy 2001-02-23
  • 打赏
  • 举报
回复
过程是美丽的,结果是痛苦的?
过程是痛苦的,结果是美丽的?!
tms2000 2001-02-22
  • 打赏
  • 举报
回复
谢谢各位的讨论,能读东我的人只有同行了...
悲哀呀......
flyby 2000-09-16
  • 打赏
  • 举报
回复
如果她没有男朋友
我将成为她的第一个男朋友
否则 我将努力和她的其他男朋友竞争
直到她被我的丘比特之箭射中

我会不断的努力工作 赚更多的钱
住便宜的宿舍 降低房租
降低我所有的花费……

也许我们会有足够的钱买房子
也许我们都成了大龄青年
也许我们有了孩子
不管怎样 我们该结婚了
CKEN 2000-09-13
  • 打赏
  • 举报
回复
应该是确定自己和另外一个girl会不会有baby(爱情是否有成)吧?
代码写的很不错,就是太多标示符没定义,编译不过去
Putao 2000-09-13
  • 打赏
  • 举报
回复
功能?
zhouzq 2000-09-12
  • 打赏
  • 举报
回复
你想做什么?不过很有趣。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧