Код: Выделить всё
var
Iam, Friend : TMan;
procedure OnCellPhoneCall(Caller: TMan);
begin
Iam.CellPhone.Activate;
If Iam.Friends.IndexOf(Caller) > -1 then
begin
Iam.Say('Hi', Iam.CellPhone, Caller);
While (Caller.Telling) and (Iam.CellPhone.Active) and (not Iam.ReadyForBear) do
begin
Iam.CellPhone.ProcessMessages(Caller);
Iam.Thinking;
Iam.CellPhone.Answer(Caller);
end;
Iam.Say('Bye!', Iam.CellPhone, Caller);
end else
begin
Iam.Say('Hi, who are you?', Iam.CellPhone, Caller);
Iam.CellPhone.ProcessMessages(Caller);
If Caller.Sex = sxFemale then
begin
While (Caller.Telling) and (Iam.CellPhone.Active) and (not Caller.ReadyForInvite) do
begin
Iam.CellPhone.ProcessMessages(Caller);
Iam.Thinking;
Iam.CellPhone.Answer(Caller);
Iam.Invite(Caller, Iam.KnownGoodPlaces[random(Iam.KnownGoodPlaces.Count)]);
end;
end else
begin
Iam.CellPhone.Deactivate;
end;
end;
end;
procedure OnReadyForBear(Place: TPlace);
var Taxi : TTaxi;
fr : TMan;
GirlsCount: byte;
frCount : DWORD;
tempgirl : TGirl;
begin
Taxi := Iam.CellPhone.Call(PhoneBook.GetByName('Taxi'));
If IsNull(Taxi) then exit;
While not Taxi.IsHere do Iam.ProcessDeals;
Iam.Say(Place, Iam.Mouth, Taxi.Taxman);
While Taxi.Moving do Iam.Sit;
Iam.Exit;
Iam.ActiveFriends := Iam.LookAround;
GirlsCount := 0;
frCount := 0;
Foreach fr in Iam.ActiveFriends do
If fr.Sex = sxMale then
begin
Iam.HandPushing(fr);
Inc(frCount);
end else
begin
Iam.Say('Hi', Iam.Mouth, fr);
inc(GirlsCount);
end;
While GirlsCount < frCount do
begin
Iam.CellPhone.Call(PhoneBook.GetRandomFemale());
While (Caller.Telling) and (Iam.CellPhone.Active) and (not Caller.ReadyForInvite) do
begin
Iam.CellPhone.ProcessMessages(Caller);
Iam.Thinking;
Iam.CellPhone.Answer(Caller);
Iam.Invite(Caller, Iam.KnownGoodPlaces[random(Iam.KnownGoodPlaces.Count)]);
end;
end;
If Iam.Money >= (frCount+GirlsCount)*(TPlace.Shop.CostOf('Bear', 'Carlsberg', 0.5)) * 2 then
begin
Iam.Buy('Bear', 'Carlsberg', 0.5, (frCount+GirlsCount)*2);
end else
begin
foreach fr in Iam.ActiveFriends do
if fr.Sex = sxMale then Iam.GetMoney(fr, random(100));
Iam.Buy('Bear', 'Carlsberg', 0.5, (frCount+GirlsCount)*2);
end;
While (Place.EntryTime > Time) do
begin
fr := Iam.ActiveFriends[random(Iam.ActiveFriends.Count)];
Iam.TalkWith(fr);
If random(5) = 2 then
begin
Iam.Joke;
If (fr.Sex = sxFemale) and (fr.Beauty > 75) then Iam.JokeEx;
end;
If (fr.Sex = sxFemale) and (fr.Beauty > 85) and (fr.Age > 16) then
begin
if Iam.Touch(fr, fr.TouchPlaces[random(fr.TouchPlaces.Count)]) then
tempgirl := fr;
If fr.ReadyForKiss then Iam.Kiss(fr);
end;
Iam.Drink;
end;
while (not Iam.WantSex) and (not tempgirl.WantSex) and (Place.CloseTime>Time) do
begin
Iam.Drink;
Iam.Smoke;
If (tempgirl.WantsDrink) and (Iam.Money >= Place.Shop.CostOf(tempgirl.Wish)) then
begin
Iam.BuyDrink(tempgirl.Wish);
Iam.Give(tempgirl, Iam.Hands.Item);
end;
Iam.DanceWith(tempgirl);
Iam.Kiss(tempGirl);
Iam.Touch(tempgirl, tempgirl.TouchPlaces[random(tempgirl.TouchPlaces.Count)]);
Iam.TalkWith(Iam.ActiveFriends[random(Iam.ActiveFriends.Count)]);
end;
Taxi := Iam.CellPhone.Call(PhoneBook.GetByName('Taxi'));
if Iam.WantSex and tempgirl.WantSex then
begin
While not Taxi.IsHere do Iam.Kiss(tempgirl);
Iam.Say(Iam.HomePlace, Iam.Mouth, Taxi.Taxman);
While Taxi.Moving do Iam.Touch(tempgirl, tempgirl.TouchPlaces[random(tempgirl.TouchPlaces.Count)]);
Iam.TurnOn(Music);
Iam.Drink;
tempgirl.Drink;
While (tempgirl.Wear.Count <> 0) and (Iam.Wear.Count <> 0) do
begin
Iam.UnWear(tempGirl.Wear[0]);
tempgirl.UnWear(Iam.Wear[0]);
end;
tempGirl.Kiss(Iam.TouchPlaces[random(Iam.TouchPlaces.Count)]);
repeat
Iam.DickIn(tempGirl);
If random(3) = 1 then Iam.Move(Random(10)-5, Random(10)-5);
Iam.DickOut(tempGirl);
If random(200) = 50 then Iam.ChangePosition;
until (iam.Finished) and (tempgirl.FinishCount > 0);
Iam.Goto(Bathroom);
tempGirl.Goto(Bathroom);
If not tempGirl.IsLike(Iam) or not Iam.IsLike(tempGirl)
then Iam.Say('Bye!', tempGirl)
else begin
Iam.Girl := tempGirl;
Iam.Sleep;
end;
end;
end;