Developing.ru

Код: Выделить всё

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;