if (爱情=true) and ((有钱=true) or (事业=true)) then
婚姻:=true;
if (爱情=true) and (有钱=false) and (random(100)>50) then
婚姻:=true;
if (爱情=false) and (有钱=true) and (random(100)>50) then
婚姻:=true;
if (爱情=false) and (有钱=false) and (random(100)>50) then
婚姻:=false;
if (婚姻=true) and (random(100)>20) then
爱情:=ture
esle 准备离婚:=true;