Joke 版 (精华区)

发信人: ibm (在北极养企鹅), 信区: Joke
标  题: 如何追女孩，请看
发信站: 哈工大紫丁香 (2002年10月24日20:30:30 星期四), 站内信件

define AND &&
RESULT love(boy, girl)
{
　　if( boy.有房() AND boy.有车() )
　　{
　　　boy.Set(Nothing);
　　　return girl.嫁给(boy);
　　}
　　else if( girl.愿意等() )
　　{
　　　next_year:
　　　for( day=1; day<=365; day++)
　　　{
　　　　if( day == 情人节 )
　　　　　if( boy.GiveGirl(玫瑰) )
　　　　　　girl.感情++;
　　　　　else
　　　　　　girl.感情--;
　　　　if( day == girl.生日)
　　　　　if( boy.GiveGirl(玫瑰) )
　　　　　　girl.感情++;
　　　　　else
　　　　　　girl.感情--;
　　　　boy.拼命赚钱();
　　　}
　　　年龄++;
　　　girl.感情--;
　　　if( boy.有房() AND boy.有车() )
　　　{
　　　　boy.Set(Nothing);
　　　　return girl.嫁给(boy);
　　　}
　　　else if! ( boy.赚钱 > 100,000 AND girl.感情 > 8 )
　　　　goto next_year;
　　　else
　　　　return girl.goto( another_boy );
　　}
　　return girl.goto( another_boy );

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 211.93.35.162]