G
gsj0791
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]
function 女人(face;mimi;age;addr;height):string;
begin
case face of
丑:
begin
Result:=不好鸟;
exit;
end;
一般:
begin
if mimi= 太小 then
exit;
if age<18 or age>35 then
exit;
if height<150 or height>175 then
exit;
if addr=离我太远 then
exit;
Result:=日后在说;
end;
美:
begin
Result:=可以试试;
if age<18 and mimi=太小 then
Result:=等几年再说;
end;
end;
Repeat
if 女人=不好鸟 then
begin
放弃;
end else
begin
try
聊天;
约会;
上床;
except
放弃;
end;
end;
Until 除了我妈 and 没有能力了;
]function 女人(face;mimi;age;addr;height):string;
begin
case face of
丑:
begin
Result:=不好鸟;
exit;
end;
一般:
begin
if mimi= 太小 then
exit;
if age<18 or age>35 then
exit;
if height<150 or height>175 then
exit;
if addr=离我太远 then
exit;
Result:=日后在说;
end;
美:
begin
Result:=可以试试;
if age<18 and mimi=太小 then
Result:=等几年再说;
end;
end;
Repeat
if 女人=不好鸟 then
begin
放弃;
end else
begin
try
聊天;
约会;
上床;
except
放弃;
end;
end;
Until 除了我妈 and 没有能力了;