function 一见钟情:TMarrage; var GG:TGG;MM:TMM;Mask:TMask;Weapon:TWeapon; begin Result:=Nil; GG:=TGG.Create(餐馆); MM:=TMM.Create(餐馆); GG.Locate('这里写你的名字');//定位哪个GG MM.Locate('这里写她的名字');//定位哪个MM while true do//不追到誓不罢休 begin try//做好心理准备 GG.暗送秋波(MM);//权力突击 except//不好~~~~~~ on 你神经病啊 do begin GG.闪人; FreeAndNil(GG); FreeAndNil(MM); exit; end; on 没有反应 do begin continue;//继续眉目传情 end; on 她回过头来原来不堪入目 begin Mask:=TMask.Create(GG);//建立一个新面具 Mask.LoadFromFile('选择一个孙悟空的头像'); GG.Mask:=Mask; GG.变身; try MM.Notice(GG);//让她注意你 except on MM吓晕了 do begin GG.闪人; FreeAndNil(MM); FreeAndNil(Mask); FreeAndNil(GG); Exit;//离开餐馆把 end; end; end; on 她喊了她的男朋友过来吃饭 do begin Weapon:=AK47.Create(GG);//创建一把AK47 GG.Weapon:=Weapon;//选择武器 try GG.Shoot(MM.Boyfriend);//报仇拉 except//MM吓呆了或者警察来了 GG.自杀; FreeAndNil(GG); FreeAndNil(Weapon); FreeAndNil(MM); exit; end;//End for try end; end;//End for try end;//End for while while GG.Strength<=10 do//只要还有一口气存在,就要享受人生 GG.Kiss(MM); MM.Boyfriend:=GG; Result:=Marry(MM,GG); end;
var GG:TGG;MM:TMM;Mask:TMask;Weapon:TWeapon;
begin
Result:=Nil;
GG:=TGG.Create(餐馆);
MM:=TMM.Create(餐馆);
GG.Locate('这里写你的名字');//定位哪个GG
MM.Locate('这里写她的名字');//定位哪个MM
while true do//不追到誓不罢休
begin
try//做好心理准备
GG.暗送秋波(MM);//权力突击
except//不好~~~~~~
on 你神经病啊 do
begin
GG.闪人;
FreeAndNil(GG);
FreeAndNil(MM);
exit;
end;
on 没有反应 do
begin
continue;//继续眉目传情
end;
on 她回过头来原来不堪入目
begin
Mask:=TMask.Create(GG);//建立一个新面具
Mask.LoadFromFile('选择一个孙悟空的头像');
GG.Mask:=Mask;
GG.变身;
try
MM.Notice(GG);//让她注意你
except
on MM吓晕了 do
begin
GG.闪人;
FreeAndNil(MM);
FreeAndNil(Mask);
FreeAndNil(GG);
Exit;//离开餐馆把
end;
end;
end;
on 她喊了她的男朋友过来吃饭 do
begin
Weapon:=AK47.Create(GG);//创建一把AK47
GG.Weapon:=Weapon;//选择武器
try
GG.Shoot(MM.Boyfriend);//报仇拉
except//MM吓呆了或者警察来了
GG.自杀;
FreeAndNil(GG);
FreeAndNil(Weapon);
FreeAndNil(MM);
exit;
end;//End for try
end;
end;//End for try
end;//End for while
while GG.Strength<=10 do//只要还有一口气存在,就要享受人生
GG.Kiss(MM);
MM.Boyfriend:=GG;
Result:=Marry(MM,GG);
end;
做个函数,发个消息。看返回TRUE就上,或是用循环!
看你系统资源了!
我女朋友也说,这几天连续吃饭碰到一个男的。是不是你啊。
while GG.Strength>=10 do//只要还有一口气存在,就要享受人生
GG.Kiss(MM);
我在湖南!
http://expert.csdn.net/Expert/topic/1830/1830978.xml?temp=.5713465
好的,照你的做
重要是要会寻找机会,心情好得时候就用harabi(齐桓公)那招,如果心情不好得时候就殷勤一点吧,比如帮忙的筷子、要餐巾纸什么的,如果是下雨就更好了,那个时候很狼狈,有个人撑伞啊什么的就对你的印象加分了