[Xomych]

Money=1000;
while Woman.NotBored()>0 do
Woman.MakeLove(1,5);
Money=Money-100;
if Money<=0 then
Woman.ByeBye(forever);
break;
endif;

enddo;
Man.FindNext(parameters);