--[[

Здесь игрок получает адреса всех ключевых локаций первой части

]]

door_michael = obj {

	nam = "door_michael";

	disp = "Дверь";

	locked = true;

	act = function(s)

		if (s.locked) then

			walkin "michael_entry_dlg";

		else

			walk "michael_house_inside";

		end;

		return true;

	end;

	dsc = function(s)

		if (s.locked) then

			return [[ Дверь в дом заперта. Можно попробовать {постучаться}^ ]];

		else

			return [[ Дверь открыта, вы можете {войти}^ ]];

		end;

	end;

};

item_michael_table = obj {

	nam = "michael_table";

	disp = "Стол";

	dsc =[[

		Вы видите массивный старый стол. 

	]];

	obj = {

		vobj("Газеты", [[На столе лежит стопка {газет}]])

	};

};

char_michael = obj {

	nam = "michael";

	disp = "Майкл Райт";

	dsc = function(s)

		if (s.documents) then

			return [[ ^{Майкл Райт} с интересом рассматривает схемы, которые вы ему отдали^ ]];

		else

			return [[ ^Вы видите {пожилого человека} одетого в изрядно поношенный костюм^ ]];

		end;

	end;

	act = function(s)

		if (s.documents) then

			walkin "michael_main_dlg";

		else

			walkin "michael_pre_dlg";

		end;

	end;

};

michael_entry_dlg = dlg {

	nam = "michael_entry_dlg";

	disp = "Голос за дверью";

	dsc = "Кто здесь?";

	hideinv = true;

	phr = {

		{"Могу я увидеть Майкла Райта?", "Кто спрашивает?", [[ psub 'who' ]]},

		{always = true, "Извините, я ошибся адресом", function(s) 

			back()

		end},

		{tag = 'who'},

		{"Это сын Уильяма Дрейка", "Заходи, нам есть о чем поговорить", function ()

			door_michael.locked = false;

			walk 'michael_house_inside';

		end},

		{"Майкл Райт здесь живет?", "Кто спрашивает?"},

		{"У меня важное сообщение для него", "Здесь таких нет, до свидания", function(s) 

			back()

		end}

	};

};

michael_main_dlg = dlg {

	nam = "michael_main_dlg";

	disp = "Майкл Райт";

	dsc = [[

		Майкл неспешно просматривает одну за другой схемы, которые вы ему передали. Часть из них, очевидно, знакомы ему.

	]];

	hideinv = true;

	phr = {

		{"Вы можете что-то мне подсказать с этим?", [[

			Не знаю. Это схемы зданий, принадлежащих компании Уильяма. Часть из них заброшена, многие разрушены, остальные перекуплены и сейчас используются. Я могу сказать тебе адреса. [Майкл сообщает вам адреса интересующих вас зданий]

		]]},

		{"Что могут означать места отмеченные крестами?", [[

			Понятия не имею. Я работал на Верфи 2, Уильям часто бывал там, но я не замечал ничего необычного в месте, которое здесь отмечено. Сейчас она заброшена, так что можешь попробовать погулять там. Если что-то выяснишь - сообщи мне.

		]]},

		{"До свидания", "До встречи"}

	};

};

michael_pre_dlg = dlg {

	nam = "michael_pre_dlg";

	disp = "Майкл Райт";

	dsc = [[

		Пожилой человек внимательно смотрит на вас и начинает говорить: 

		Как ты уже, наверное, догадался, я и есть Майкл. Да, я работал на твоего отца. 

		Вероятно, ты удивлен, что до этого момента никто не смог выйти на меня. 

		Это связано лишь с одним - то, чем я и твой отец занимались было, да и остается, крайне секретным.		

	]];

	hideinv = true;

	phr = {

		{"Расскажите больше об Уильяме", [[

			Я мало что о нем знаю. Уильям был отличным руководителем - Вест-Хэйвен Транс-Оушен процветала под его руководством. 

			Мы были впереди всех по современности используемых технологий. У нас всегда были самые быстрые и надежные корабли.

			Однако, в последние годы, твой отец как будто стал уделять компании меньше внимания - он стал намного реже выходить из своего кабинета, общаясь только с ограниченным кругом лиц.

			Дела пошли на спад. Конкуренты медленно, но верно нагоняли нас. А потом он просто исчез.

		]]},

		{"Расскажите о себе", [[

			Да мне нечего рассказывать. Более 20 лет я работал на Вест-Хэйвен Транс-Оушен ведущим инженером. Занимался разработкой новых двигателей. 

			Уильям создал все условия для моей работы - у меня не было недостатка ни в материалах, ни в рабочих руках. Когда компания развалилась я решил отойти от дел. 

			Моих сбережений вполне хватало на спокойную жизнь. Чертежи я сберечь не сумел, а то непременно бы продал их кому-нибудь. Впрочем я не сильно об этом жалею.

		]]},

		{"Чем же таким секретным вы занимались?", [[

			Учитывая, что Вест-Хэйвен Транс-Оушен уже давно нет, я думаю, что могу рассказать тебе это. Вобщем я был начальником инженерного отделения. 

			Конкретно, я занимался увеличением скорости движения наших кораблей. Должен признать, я достиг больших результатов. 

			Последние мои корабли были вдвое быстрее чем лучшие из кораблей конкурентов. А потом Уильям исчез. Через полгода компания развалилась. 

			Корабли были разобраны на металлолом, а мои чертежи пропали. 

		]]},

		{"Вы знаете, где мой отец сейчас?", [[

			Нет, я потерял связь с ним около 10 лет назад. Меня, конечно, удивило, что он оставил свою компанию, семью, все свое благосостояние. 

			Он как под воду ушел - еще утром сидел в своем кабинете, а вечером полмира его искало.

		]]},

		{always = true, "Спасибо, я узнал все", [[

			До встречи

		]], function(s)

			back();

		end}

	};

};

michael_house_inside = room {

	nam = "michael_house_inside";

	disp = "Дом Майкла Райта";

	dsc = [[

		Вы находитесь в небольшом уютном домике. Окна закрыты плотными занавесками. В комнате светло за счет нескольких электрических ламп. 

	]];

	obj = {

		'item_michael_table',

		'char_michael',

		vway("Выйти", "{Выйти из дома}", "michael_house")

	};

};

michael_house = room {

	nam = "michael_house";

	disp = "Дом Майкла Райта";

	enter = function(s)

		put(char_coachman, here());

	end;

	dsc = [[

		Вы стоите у входа в дом, указанный в записке.

	]];

	obj = {'door_michael'};

};