"До встречи. Если захотите еще древних сказаний послушать - приходите".

		]], code [[ atl_iyh_state = 5; psub('back'); ]]};

	};

};

char_jack_wright_atlantis_dlg = dlg {

	var {

		state = 0;

        lfc_dialog = 0;

	};

	nam = 'char_jack_wright_atlantis_dlg';

	disp = "Джек Райт";

	entered = function(s)

        if (rel_jack < 0) then

            if (char_wright.on_learr == 0) then pon("on_learr"); end;

            if (char_wright.on_leviathan == 0) then pon("on_leviathan"); end;

            if (char_wright.on_jack == 0) then pon("on_jack"); end;

        else

            if (char_wright.on_learr < 2) then pon("on_learr"); end;

            if (char_wright.on_leviathan < 2) then pon("on_leviathan"); end;

            if (char_wright.on_jack < 2) then pon("on_jack"); end;

        end;

        if (atl_lfc_state == 1 and not s.lfc_dialog) then

            s.lfc_dialog = true;

            pon('sabotage', 'ignis_what');

        elseif (atl_lfc_state ~= 1) then

            poff('sabotage', 'ignis_what');

        end;

		if (s.state == 0) then

			psub("business_or_no");

			return [[Джек отворачивается от Леарр, и обращается к вам: "Привет, ты по делу или просто так?" ]];

        elseif (atl_iof_completed and char_wright.iof_reaction == 0) then

            if (atl_iof_learr_suit) then

                psub("iof_learr_suit");

                return [[Джек откладывает книгу и встает с койки и обращается к вам: "Добрый день. Отличная идея, заставить Леарр надеть скафандр. Не знаю, как она справилась бы без него". ]];

            else

                psub("iof_learr");

                return [[Джек откладывает книгу и встает с койки и обращается к вам: "Добрый день. Рад тебя видеть. Не знаешь, как дела у Леарр?" ]];

            end;

        else

            psub("generic");

            return [[Джек откладывает книгу и встает с койки и обращается к вам: "Добрый день. Тебе что-то нужно?"]];

		end;

	end;

	phr = {

        {tag="iof_learr_suit"};

        {"Я рад, что все хорошо закончилось и никто не пострадал. ", [[Джек кивает: "У тебя есть какие-то вопросы?"]], code [[ psub("generic");]]};

        {tag="iof_learr"};

        {"Леарр в порядке, благодаря твоей помощи. ", [[Джек кивает: "Рад это слышать. У тебя есть какие-то вопросы?"]], code [[ psub("generic");]]};

        {"Я еще не говорил с ней. ", [[Джек кивает: "Надеюсь, с ней все хорошо. Тебе что-то нужно?"]], code [[ psub("generic"); ]]};

		{tag = "business_or_no"};

		{"Как тебе станция?", [[Джек не скрывая восхищения восклицает: "Невероятно! Трудно поверить в возможность такого -- полностью автономное подводное поселение. Я никогда на сомневался в таланте отца, но это выше всех моих ожиданий". ]]};

		{always = "true", "Я пришел поговорить с Леарр. ", function(s)

			if (char_learr_atlantis.offended) then

				return [[Джек ухмыльнулся: "Удачи, я подожду в главном зале", -- с этими словами, Джек выходит из зала. ]];

			else

				return [["Надеюсь, я вам не помешаю? В любом случае, я подожду в главном зале", -- с этими словами, Джек выходит из зала. ]];

			end;

		end, code [[ 

			remove('char_jack_wright_atlantis', 'atl_ignis_hall_a');

			back(); 

		]]};

        {tag="generic"};

        {tag="sabotage", "Ты знаешь, что пожар начался из-за саботажа?", [[Джек кивает: "Да, Даркстар сказал мне это. Он просил меня никому не говорить об этом и не вмешиваться в расследование. Я думаю, все подозреваемые, которых он назвал так или иначе связаны. Не случайно, все трое выступают в пользу закрытия станции. Надеюсь, Даркстар сообщит о результах расследования". ]], code [[poff("ignis_what");]]};

        {tag="ignis_what", "Ты знаешь, почему начался пожар в Игнисе?", [[Джек кивает: "Да, Даркстар сказал, что на станции саботажник. Он назвал нескольких подозреваемых, но просил никому не говорить. Он с тобой говорил об этом?"]], code [[poff("sabotage");psub("ignis");]]};

        {always=true, "Я хочу кое-что спросить.", [[Джек вопросительно смотрит на вас: "Я слушаю". ]], code [[ psub("more_questions"); ]]};

        {always=true, "Я пойду.", [[Джек прощается с вами: "До встречи", -- после  чего возвращается к своему занятию. ]]};

        {tag = "more_questions"};

        {tag="on_learr", "Что ты думаешь о Леарр?", function()

            if (rel_jack < 0) then

                char_wright.on_learr = 1;

                return [[Джек отказывается отвечать: "Не хочу это обсуждать".]];

            else

                char_wright.on_learr = 2;

                return [[Джек отвечает: "Я не так много с ней общался, однако, она производит приятное впечатление. Там в Игнисе она спрашивала меня про Атлантиду и Левиафан достаточно интересные вещи. Мне кажется, из нее бы вышел неплохой инженер".]];

            end;

        end};

        {tag="on_leviathan", "Как впечатления от Левиафана?", function()

            if (rel_jack < 0) then

                char_wright.on_leviathan = 1;

                return [[Джек отвечает: "Левиафан, без сомнения, превосходный корабль. Жаль, что ему не нашлось лучшего капитана". ]];

            else

                char_wright.on_leviathan = 2;

                return [[Джек не скрывает своего восхищения: "Никогда не видел ничего подобного. Неудивительно, что отец оставил жизнь на поверхности в пользу возможности создавать подобное здесь. Пока мы были в пути, я подробно изучил субмарину. Многие решения до сих пор кажутся мне невероятными - например, использование электричества в качестве движущей силы или наличие звуковой пушки. Я уже успел обсудить с отцом детали диагностических цепей. Это совершенно непостижимо, чтобы машина сама сообщала, что с ней что-то не так. И все это в одном месте". ]];

            end;

        end};

        {tag="on_jack", "Чем ты занимался все это время?", function()

            if (rel_jack < 0) then

                return [[Джек отказывается отвечать: "Не хочу это обсуждать".]];

            else

                return [[Джек отвечает: "Да, в общем-то, ничем. Отец оставил нам с матерью достаточно денег, чтобы мы могли ни в чем не нуждаться. Мать оплатила мое образование в том же университете, где учился отец. Получив диплом с отличием, я просто поставил его на полку. Не нашел дела по душе, да и необходимости не было. Позже, когда мать умерла, я вообще практически прекратил связи с внешним миром. Думаю, что хоть я и бросил идею найти отца, я все-таки продолжал надеяться -- практически все время я посвящал чтению газет со всех уголков света, в поисках известий о случившемся с Вестхейвен Трансоушен. Впрочем, как только первоначальный ажиотаж спал, никто толком и не писал о случившемся. "]];

            end;

        end};

        {"Вернемся к делу", [[Джек молча кивает. ]], code [[ pret(); ]]};

        {tag = "ignis"};

        {"Да.", [[Джек кивает: "Тогда ты и без меня все знаешь. Я думаю, все трое подозреваемых замешаны, но не хочу лезть в это дело". ]], code [[ pret(); ]]};

        {"Нет.", [[Джек на мгновение задумался. Потом снова заговорил: "Я не должен тебе этого говорить, наверное. Но все же. Даркстар подозревает Голдмана, Леруа и Джонса -- они все трое, вроде как, достаточно знают об устройстве станции и, опять же, все трое активно выступают за закрытие станции и возвращение на поверхность. От себя скажу, что не удивлюсь, если все трое в сговоре, но не буду судить поспешно". ]], code [[ pret(); ]]};

	};

};

char_legrand_dlg = dlg {

	var {

		state = 0;

	};

	nam = "Мари Легран";

	disp = "Мари Легран";

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[

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

			]];

		else

			psub("generic");

			return [[

				Не обращая внимания на вас, Мари Легран продолжает водить пальцем по строчкам, периодически делая какие-то пометки.

			]];

		end;

	end;

	phr = {

		{tag="first_meeting"};

		{"Извините?", [[

			Женщина поднимает голову и отрывается от работы. Она выпрямляется и улыбаясь приветствует вас: "Добро пожаловать в библиотеку Атлантиды. Я Мари Легран"

		]], code [[psub("first_meeting_2"); ]]};

		{tag="first_meeting_2"};

		{"Я Дэвид Дрейк, рад знакомству", [[

			Она кивает и спрашивает вас: "Как вы нашли Левиафан?"

		]], code [[psub("first_meeting_3"); ]]};

		{tag="first_meeting_3"};

		{"Это долгая история", [[

			Мари Легран кивает: "Ладно, потом как-нибудь, если торопитесь"

		]], [[ psub("generic") ]]};

		{"Я нашел тайник отца со старыми схемами. Пришлось побегать, чтобы восстановить субмарину. Я чудом собрал все необходимое", [[

			Мари Легран удивленно смотрит на вас: "Удивительно. Скорее всего Уильям хотел, чтобы вы нашли Левиафан. Жаль, что вы прибыли слишком поздно. Когда он узнал про этот древний город, он собрал несколько помощников и отправился на Надежде на его поиски".

		]], code [[ pon("father_more");psub("generic"); ]]};

		{tag="generic"};

		{tag="father_more", false, "Кто отправился вместе с моим отцом?", [[

			"Немногие. Они вообще хотел отправиться вдвоем с Блэком, но Блэк уговорил Уильяма взять Джона Брауна и Дэмина Пина".

		]], code [[psub("more_people");]]};

		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе начался из-за саботажа?", function(s)

			atl_lfc_panic = atl_lfc_panic + 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

			if (atl_lfc_panic <= 2) then

				return [[

					Мари Легран удивленно смотрит на вас: "Откуда вы знаете? Кому такое в голову придти может?"

				]];

			elseif (atl_lfc_panic == 3) then

				return [[

					Мари Легран удивленно смотрит на вас: "Вы понимаете, что говорите? Кому такое в голову придти может?"

				]];

			end;

		end};

		{tag="ignis_what", false, "Вы знаете, что произошло в Игнисе?", [[

			"Поговорите лучше с Даркстаром или Райтом".

		]]};

		{always=true, "Я пойду", [[

			"Приходите еще"

		]], code [[ back(); ]]};

		{tag="more_people"};

		{"Расскажите больше об Адриане Блэке", [[

		]]};

		{"Расскажите больше о Джоне Брауне", [[

		]]};

		{"Расскажите больше о Дэмине Пине", [[

		]]};

		{"Давайте о другом поговорим", [[

			"Хорошо"

		]], code [[pret();]]};

	};

};

char_radcliffe_atlantis_dlg = dlg {

	var {

		state = 0;

		lfc_dialog = false;

	};

	nam = "Уолтер Рэдклифф";

	disp = "Уолтер Рэдклифф";

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[

				Перед вами стоит человек лет сорока--сорока-пяти, одетый в рабочий халат. Как только вы входите, он протягивает вам руку: "Добро пожаловать, господин Дрейк. Я - Уолтер Рэдклифф, инженер".

			]];

		else

			psub("generic");

			return [[

				Уолтер Рэдклифф кивает вам: "Добрый день".

			]];

		end;

	end;

	phr = {

		{tag = "first_meeting"};

		{"[Пожать руку]Рад знакомству", [[

			"Мы с Майклом вместе работали над Левиафаном. Многие решения в вашей субмарине - мои. Если вы не против, я хотел бы продолжить путешествие вместе с вами - во-первых - вам пригодится мой опыт, а во-вторых - я хочу увидеть Левиафан в деле". 

		]], code [[

			rel_walter = rel_walter + 1;

			psub("leviathan");

		]]};

		{"Рад знакомству", [[

			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".

		]], code [[

			psub("generic");

		]]};

		{"[Промолчать]", [[

			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".

		]], code [[

			rel_walter = rel_walter - 1;

			psub("generic");

		]]};

		{tag = "leviathan"};

		{"Интересно, и что вы можете рассказать о Левиафане?", [[

			Уолтер снимает очки, убирая их в нагрудный карман: "Левиафан строился как Надежда - для дальних путешествий и максимальной автономности. После успеха предыдущих субмарин, Райт решил сделать Левиафан заметно больше предыдущих кораблей. Сверхмощная батарея обеспечивает субмарину энергией более месяца при максимальных оборотах двигателей. Также есть паровой двигатель - он используется не только для движения, но и генерирует электричество. До Левиафана мы не экспериментировали с этим".

		]]};

		{"Вы знаете, куда отправился мой отец отсюда?", [[

			Уолтер отрицательно качает головой: "Не больше, чем остальные на станции". 

		]]};

		{"Буду рад, если вы присоединитесь к нам", [[

			"Отлично. Но вы ведь, еще поговорить хотите?"

		]], code [[ psub("generic");]]};

		{"Я не думаю, что вы поможете", [[

			"Очень жаль. Впрочем, у вас есть время подумать. Насколько я знаю, Даркстар и Моро собираются держать вас здесь какое-то время".

		]], code [[ psub("generic");]]};

		{tag = "generic"};

		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе - результат саботажа?", [[

			"Безусловно. Системы энергоснабжения проектировал я и абсолютно уверен в их безопасности и надежности. Судя по тому, что произошло - кто-то весьма грамотный ,,доработал'' систему энергоснабжения Игниса. Я не думаю, что это мог быть один человек... Хотя если он делал это несколько дней - вполне вероятно. Как это сделать, кроме нас с Райтом знают только трое: Мишель Леруа, Чарльз Джонс и Мари Легран. И еще кое-что. Даркстар просил меня ни с кем про это не разговаривать, поэтому надеюсь на ваше понимание. Отдельно попрошу - не говорить на эту тему с моей сестрой".

		]], code [[

			rel_walter = rel_walter + 1;

		]]};

		{tag="ignis_what", false, "Вы, как инженер, можете рассказать, что произошло в Игнисе?", [[

			"Пожар. Вам что-то еще известно?"

		]]};

		{"Я пойду", [[

			"До встречи", - Уолтер отворачивается от вас и возвращается к своим делам.

		]], code [[ back();]]};

	};

};

char_page_dlg = dlg {

	var {

		state = 0;

	};

	nam = "Фрэнсис Пейдж";

	disp = "Фрэнсис Пейдж";

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

		if (s.state == 0 ) then

			s.state = 1;

			psub("first_meeting");

			return [[Перед вами стоит мужчина лет пятидесяти с густой седой бородой. Он бросает на вас быстрый взгляд и здоровается, продолжая осмотр Наутилуса: "Добро пожаловать на Атлантиду. Я Фрэнсис Пейдж. Я занимаюсь обслуживанием субмарин". ]];

		else

			psub("generic");

			return [[Перед вами стоит Фрэнсис Пейдж. не отрываясь от осмотра Наутилуса он говорит: "Вы вернулись". ]];

		end;

	end;

	phr = {

		{tag="first_meeting"};

		{"Дэвид Дрейк, рад знакомству", [[Фрэнсис на секунду отвлекается и внимательно смотрит на вас: "Да, я замечаю сходство с Уильямом". ]], code [[ psub("first_meeting_2"); ]]};

		{tag="first_meeting_2"};

		{"Вы хорошо знали отца?", [[Фрэнсис кивает: "Я уважаю его, как, думаю, все на этой станции. Пожертвовать всем ради призрачной мечты - только великий человек мог пойти на такое. Он отправился на поиски легендарного города древних навьяров. К сожалению, я не смог отправиться с ним - я нужен на станции. Я знаю что вы здесь из-за него и я надеюсь, что вы не оставите вашу идею найти Уильяма и доведете свое дело до конца". ]], code [[ psub("generic"); ]]};

		{"У меня к вам несколько вопросов", [["Слушаю". ]], code [[ psub("generic"); ]]};

		{tag="generic"};

		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе - следствие саботажа?", function(s)

			atl_lfc_panic = atl_lfc_panic + 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

			return [[Фрэнсис от удивления роняет карандаш, но быстро собирается и отвечает: "Оставьте это Даркстару. Если саботаж имел место быть - Винсент найдет виновного. Я передам ему ваши слова". ]]

		end;};

		{tag="ignis_what", false, "Что произошло в Игнисе?", [[Фрэнсис пожимает плечами: "Меня там не было. Не берусь говорить".]]};

        {"Что вы можете рассказать об Атлантиде?", [[Фрэнсис пожимает плечами: "Если честно, вам лучше расспросить кого-нибудь из управляющих, а лучше всего - Майкла Райта. Все что я могу сказать -- я до сих пор поражаюсь успеху этого невероятного проекта". ]]};

        {"Что вы можете рассказать о Наутилусе?", [[Френсис кивает: "Когда мы создавали Наутилус, я уже работал в Вестхейвен Трансоушен. Атлантида тогда существовала, но была далеко от того, что вы видите. Мы тогда просто строили вторую Надежду. Нам не нужна была высокая автономность, но мы хотели большую маневренность и мощность -- собственно на этом мы и сконцентрировались. Получилось то, что получилось -- рабочая лошадка, которой мы пользуемся по сей день". ]]};

        {"Что вы можете рассказать об Энтерпрайзе?", [[Френсис кивает: "Энтерпрайз мы начали когда захотели судно побольше. Опыта и знаний нам хватило только на пропорциональное увеличение размеров и немного более мощный двигатель. райт наверное сказал бы, что получилось из рук вон плохо, но на мой взгляд -- Энтерпрайз вполне неплох, да и с честью служит нам до сих пор". ]]};

        {"Что вы можете рассказать о Надежде?", [[Фрэнсис кивает: "Надежда была первой субмариной, построенной нами. Я в этом участия не принимал, так что многие конструктивные решения меня удивляют. Впрочем, более поздние субмарины спроектированы гораздо грамотнее, да и после переоборудования многое удалось решить". ]]};

        {"Что вы можете рассказать о Левиафане?", [[Френсис отвечает: "С первого взгляда ясно, что Левиафан не имеет практически ничего общего с Надеждой, Наутилосом и даже Энтерпрайзом. Интересно, что Левиафан строился с оглядкой на высокую автономность -- так же, как и Надежда. За это конечно пришлось многим поплатиться -- Левиафан большой и неповоротливый в сравнении с Надеждой". ]]};

		{always=true, "Я пойду", [[Фрэнсис Пейдж прощается с вами: "Увидимся позже". ]], code [[ back(); ]]};

	};

};

char_leroy_dlg = dlg {

	var {

		state = 0;

	};

	nam = "Мишель Леруа";

	disp = "Мишель Леруа";

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[Перед вами стоит склонившийся над чертежом мужчина лет пятидесяти, одетый в старый коричневый костюм. Кудрявые рыжие волосы торчат во все стороны, недлинная рыжая бородка, напротив, аккуратно острижена. В кармане его пиджака лежат очки. Темные глаза сосредоточенно утавились на лежащий перед ним чертеж. ]];

		else

			psub("generic");

			return [[Мишель Леруа стоит перед вами, склонившись над чертежом. ]];

		end;

	end;

	phr = {

		{tag="first_meeting"};

		{"Добрый день. Я Дэвид Дрейк", [[Человек отрывается от чертежа, чтобы поздороваться с вами. Он протягивает вам руку и произносит: "Мишель Леруа. Инженер". ]], code [[ psub('first_meeting_2'); ]]};

		{tag="first_meeting_2"};

		{"[Пожать руку]Рад знакомству", [[Вы пожимаете руку Мишеля, и он спрашивает вас: "Что вы хотели?" ]], code [[ psub('generic'); ]]};

		{"Рад знакомству", [[Мишель кладет руку обратно на стол и спрашивает: "Что вы хотели?" ]], code [[ psub('generic'); ]]};

		{tag="generic"};

		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе начался из-за саботажа?", [[Мишель удивленно переспрашивает: "Кто вам это сказал? не думаю, что здесь есть люди настолько не ценящие свою жизнь". ]], code [[ atl_lfc_leroy_spoken = 1; ]]};

		{tag="ignis_what", false,"Что вы можете сказать о произошедшем в Игнисе?", [[

			Мишель уверенно отвечает: "Короткое замыкание. К сожалению, пленки и другие материалы, хранимые в Игнисе достаточно горючи". ]]};

        {"Почему вы считаете, что станцию необходимо закрыть?", [[Мишель начинает объяснять, активно жестикулируя: "Вы недавно здесь, и для вас это долэно быть гораздо более очевидно, чем для многих из нас. Легко представить, к чему здесь может привести самая мелкая поломка". ]]};

		{always=true, "Я пойду", [[Мишель возвращается к чертежу. ]], code [[ back(); ]]};

	};

};

char_goldman_dlg = dlg {

	var {

		state = 0;

	};

	nam = "Леонард Голдман";

	disp = "Леонард Голдман";

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

		if (have(item_goldmans_clock)) then

			pon('show_clock');

		end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[Перед вами на койке лежит человек лет пятидесяти с густыми светлые волосы. Лицо украшают пышные золотистые усы. Мужчина приветствует вас: "Добро пожаловать на Атлантиду. Я Леонард Голдман. Занимаюсь электросистемами станции". ]];

		else

			psub("generic");

			return [[Леонард Голдман вопросительно смотрит на вас: "Что вы хотели?" ]];

		end;

	end;

	phr = {

		{tag="first_meeting"};

		{"Я Дэвид Дрейк. Рад знакомству. ", [[Леонард кивает, но ничего не говорит. ]], code [[ psub("generic"); ]]};

		{tag="generic"};

		{tag="show_clock", false, "[Показать часы]Это ваше?", [[Голдман протягивает руку, чтобы взять часы и удивленно спрашивает: "Мои. Где вы их взяли?" ]], code [[ atl_lfc_goldman_known = true; psub("give_clock"); ]]};

		{tag="sabotage", false, "Вы знаете, что пожар начался из-за саботажа?", [[Вы видите удивление и страх на лице Голдмана. Он неуверенно спрашивает: "С чего вы взяли?" ]], code [[ psub("sabotage2"); atl_lfc_leroy_spoken = 1; ]]};

		{tag="ignis_what", false, "Вы знаете, что произошло в Игнисе?", [[Голдман пожимает плечами: "Не больше чем вы". ]]};

        {"Почему вы считаете, что станцию стоит закрыть?", [[Голдман объясняет: "Мы уже десять лет здесь. Не видели ни солнца, ни неба, ни травы. Только металлический потолок и километры воды над головой. Мне кажется, что пора бы уже закончить этот эксперимент. В чем-то я согласен с Джонсом -- станция стареет, оборудование выходит из строя. Долго ли до того, как мы потеряем наши субмарины, а вместе с ними и вообще возможность вернуться наверх?"]]};

		{"Я пойду", [[Голдман кивает: "Поговорим позже". ]], code [[ back(); ]]};

		{tag="sabotage2"};

		{"Даркстар сказал", [[Леонард Голдман пожимает плачеми: "Даркстар мог и ошибиться -- он же параноик. А я в это не поверю". ]]};

		{"Это очевидно", [[Леонард Голдман недовольно предупреждает вас: "Будете дальше распускать подобные слухи - я доложу Даркстару". ]]};

		{"Эээ... Я пошутил", [[Леонард Голдман недовольно восклицает: "Вы вообще нормальный?!"]], code [[ back(); ]]};

		{tag="give_clock"};

		{"[Отдать часы]Нашел", [[Леонард Голдман кивает: "Благодарю. Это часы моего деда, они очень важны для меня". ]], code [[ remove("item_goldmans_clock"); pret(); ]]};

		{"[Убрать часы]Не так быстро. Что вы делали в Солисе?", [[Ваш запрос похоже застал Леонарда врасплох. Заикаясь, он спрашивает: "С ч-чего вы вз-взяли?" ]], code [[ psub("give_clock_2");]]};

		{tag="give_clock_2"};

		{"Эти часы я подобрал на месте саботажа. Теперь вы не отвертитесь.", [[Леонард поднимается и садится. Тяжело вздохнув он сознается: "Хорошо, я все скажу. Только если обещаете, что меня больше не будут держать на этой станции". ]], code [[ psub('promise'); ]]};

		{tag="promise"};

		{always = true, "Я сделаю все, что в моих силах.", [[Леонард Голдман вздыхает и начинает сбивчиво рассказывать: "Это все Мишель придумал. У меня бы мозгов не хватило. Он и в Игнисе пожар устроил. Солис он тоже хотел взорвать сам, но Даркстар, кажется подозревает его. Поэтому он упросил меня это сделать... И зачем я согласился?!"

		]], code [[ atl_lfc_saboteur_known = true; psub("leroy");]]};

		{always = true, "Я ничего не обещаю.",[[Леонард Голдман дрожащим голосом отвечает: "Тогда я ничего не скажу". ]], code [[ psub("threaten"); ]]};

		{tag = "threaten"};

		{always = true, "Тогда пусть Даркстар с вами разбирается", [[Леонард Голдман вздыхает и начинает сбивчиво рассказывать: "Это все Мишель придумал. У меня бы мозгов не хватило. Он и в Игнисе пожар устроил. Солис он тоже хотел взорвать сам, но Даркстар, кажется подозревает его. Поэтому он упросил меня это сделать... И зачем я согласился?!" ]], code [[ atl_lfc_saboteur_known = true; psub("leroy");]]};

		{"[Отдать часы]Черт с тобой, забирай свои часы.", [[Голдман крайне удивлен: "Вот так просто?" ]], code [[ remove("item_goldmans_clock"); psub("tired_of_you"); ]]};

		{"[Уйти]", code = [[ back(); ]]};

		{tag = "tired_of_you"};

		{"Даю вам последний шанс рассказать все, что знаете.", [[леонард Голдман отказывается отвечать: "Я назвал свои условия". ]], code [[ psub('promise'); ]]};

		{"[Уйти]", code = [[ back(); ]]};

		{tag = "leroy"};

		{"И что вы еще намереваетесь сломать?", [[Леонард Голдман пожимает плечами. Испуганно глядя на вас, он отвечает: "Не знаю. Мишель хотел сломать станцию... Так чтобы никто не пострадал. Все бы просто вернулись на поверхность и дело с концом". ]]};

		{"Я пойду", [[Леонард Голдман кивает: "Помни, что ты обещал". ]], code = [[ back(); ]]};

	};

};

char_jones_dlg = dlg {

	var {

		state = 0;

		lfc_dialog = false;

	};

	nam = "Чарльз Джонс";

	disp = "Чарльз Джонс";

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

        if (char_jones.on_atlantis == 0) then

            pon("on_atlantis");

        end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[на койке перед вами сидит немолодой человек, одетый в простой серый костюм. Его седые волосы коротко острижены. Подбородок гладко выбрит. Лицо изрыто глубокими морщинами. В руках он вертит карандаш, задумчиво разглядывая его. ^При виде вас он встает и приветствует вас: "Добрый день, меня зовут Чарли. Чарли Джонс". ]];

		else

			psub("generic");

party_accompany = function(s, value)

	if (ArrayUtils.indexOf(pl.party, s.nam) == 0) then

		return;

	end;

	s.follow = value;

	if (value) then

		lifeon(s);

	else

		move(s, s.home, where(s));

		lifeoff(s);

	end;

end;

party_follow = function(s)

    if (where(pl).cutscene or where(pl).not_follow) then

    elseif (where(pl).leviathan) then

        if (stead.nameof(where(s)) ~= s.home) then

            move(s, s.home, where(s));

        end;

    else

        move(s, where(pl), where(s));

    end;

end;

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

char_learr = obj {

	var {

		follow = false;

        on_books = 0;

	};

	nam = "learr";

	disp = "Леарр";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Леарр} стоит возле одного из иллюминаторов и наблюдает за происходящим снаружи субмарины. ^]];

		else

			return [[{Леарр} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_wardroom";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(learr_home_dlg);

		else

			walkin(learr_dlg);

		end;

	end;

};

char_phaetlarr = obj {

	var {

		follow = false;

	};

	nam = "phaetlarr";

	disp = "Фаэтларр";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Фаэтларр} с интересом наблюдает за работой двигателей "Левиафана" ^]];

		else

			return [[{Фаэтларр} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_engines";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(phaetlarr_home_dlg);

		else

			walkin(phaetlarr_dlg);

		end;

	end;

};

char_radcliffe = obj {

	var {

		follow = false;

        rel_on_join = nil;

	};

	nam = "radcliffe";

	disp = "Уолтер Рэдклифф";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Уолтер Рэдклифф} задумчиво крутит в руках какую-то деталь. ^]];

		else

			return [[{Уолтер Рэдклифф} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_engines";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(radcliffe_home_dlg);

		else

			walkin(radcliffe_dlg);

		end;

	end;

};

char_wright = obj {

	var {

		follow = false;

        iof_reaction = 0;

        on_learr = 0;

        on_leviathan = 0;

	};

	nam = "wright";

	disp = "Джек Райт";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Джек Райт} читает какую-то книгу. ^]];

		else

			return [[{Джек Райт} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_wardroom";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		walkin(wright_main_dlg);

	end;

};

char_anna = obj {

	var {

        follow = false;

        anna_asked = 0;

        walter_asked = 0;

        atlantis_asked = 0;

        drake_asked = 0;

        join_asked = 0;

        rel_on_join = nil;

	};

	nam = "anna";

	disp = "Анна Рэдклифф";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Анна Рэдклифф} смотрит в иллюминатор. ^]];

		else

			return [[{Анна Рэдклифф} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_wardroom";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(anna_home_dlg);

		else

			walkin(anna_dlg);

		end;

	end;

};

learr_home_dlg = dlg {

	nam = "learr_dlg";

	disp = "Леарр";

	hideinv = true;

	entered = function(s)

		if (atl_iyh_state == 7) then

			pon("on_iyh");

		else

			poff("on_iyh");

		end;

		if (char_learr.follow) then

			pon('stay');

			poff('join');

		else

			pon('join');

			poff('stay');

		end;