char_darkstar_dlg = dlg {

	var {

		state = 0;

	};

	nam = "Винсент Даркстар";

	disp = "Винсент Даркстар";

	entered = function(s)

        if (atl_lfc_panic_warning == 2 and atl_lfc_panic == 2 and atl_lfc_state == 1) then

            psub("lfc_warning");

            return [[Винсент Даркстар недовольно смотрит на вас: "Господин Дрейк. Вы вообще понимаете, что делаете? Это последнее предупреждение. В следующий раз я приму меры. Все ясно? "]];

        end;

		if (atl_lfc_leroy_spoken) then

			pon("accuse_leroy");

		end;

		if (atl_lfc_goldman_spoken) then

			pon("accuse_goldman");

		end;

		poff("on_drake", "on_black", "on_darkstar", "on_svetlova", "on_moreau", "on_wright", "on_leroy", "on_jones", "on_goldman", "on_atlantis", "on_navjiarr", "on_learr", "on_ryveerr", "on_aikerjarr");

        if (atl_rep_darkstar < 0) then

            if (atl_iof_completed) then

            end;

        else

            if (atl_iof_completed) then

            end;

        end;

		if (s.state == 0) then

			psub("first_meeting");

            s.state = 1;         

			return [[За столом сидит средних лет мужчина с короткими черными волосами. Он одет в строгий деловой костюм черного цвета. Лицо его гладко выбрито. Холодный взгляд его черных глаз устремлен на вас. Сложив руки на столе, он приветствует вас: "Добро пожаловать на Атлантиду, господин Дрейк. Я Винсент Даркстар, мы уже общались по радио. Я занимаю на Атлантиде пост начальника службы безопаности". ]];

		elseif (atl_fta_state == 2) then

			psub("fta");

			return [[Винсент Даркстар приказывает: "Рассказывайте". ]];

		else

			psub("generic");

			return [[Винсент Даркстар сообщает: "Я слушаю". ]];

		end;

	end;

    phr = {

        {tag="lfc_warning"};

        {always = true, "Так точно.", [[Даркстар кивает: "Отлично. Вам нужно что-то еще?"]], code[[ atl_lfc_panic_warning = 3; psub("generic")]]};

		{tag="first_meeting"};

		{"Что мне нужно сделать, чтобы мне вернули Левиафан?", [[Винсент Даркстар хлопает ладонями о стол и уверенно сообщает: "Вести себя хорошо и не делать глупостей". ]]};

		{"Когда мне вернут Левиафан?", [[Винсент Даркстар отвечает: "Всему свое время. Используйте это время с пользой. Если хотите найти Уильяма, сначала стоит выяснить где и как его искать. И вам не помешает узнать кое-что помимо этого". ]]};

		{"Я пришел кое-что спросить. ", [[Винсент Даркстар сообщает :"Я слушаю". ]], code [[psub("generic");]]};

        {tag="ask_more"};

        {tag="on_drake", false, "Расскажите об Уильяме. ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.drake_asked = 1;

                return [[Винсент Даркстар отвечает: "Мне нечего вам сказать". ]];

            else

                char_darkstar.drake_asked = 2;

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

            end;

        end};

        {tag="on_black", false, "Расскажите об Адриане Блэке. ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.black_asked = 1;

                return [[Винсент Даркстар отвечает: "Мне нечего вам сказать". ]];

            else

                char_darkstar.black_asked = 2;

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

            end;

        end};

        {tag="on_darkstar", false, "Расскажите о себе. ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.darkstar_asked = 1;

                return [[Винсент Даркстар отвечает: "Мне нечего вам сказать". ]];

            else

                char_darkstar.darkstar_asked = 2;

                return [[Винсент Даркстар отвечает: "Мне нечего рассказывать, кроме того, что я уже сказал. Мое имя Винсент Даркстар и я занимаю пост начальника службы безопасности Атлантиды". ]];

            end;

	};

	nam = "Фредерик Моро";

	disp = "Фредерик Моро";

	entered = function(s)

        if (atl_lfc_panic_warning == 2 and atl_lfc_panic == 2 and atl_lfc_state == 1) then

            psub("lfc_warning");

            return [[Фредерик Моро сообщает вам: "Месье Дрейк, добрый день. Винсент Даркстар просил вас срочно поговорить с ним". ]];

        end;

		if (atl_lfc_state == 3) then

			atl_lfc_state = 4;

			atl_lev_state = 1;

			local reputation = 0;

			if (atl_rep_darkstar > 0) then

				reputation = reputation + 1;

			end;

			if (atl_rep_moreau > 0) then

				reputation = reputation + 1;

			end;

			if (atl_rep_svetlova > 0) then

				reputation = reputation + 1;

			end;

			if (atl_rep_wright > 0) then

				reputation = reputation + 1;

			end;

			if (reputation > 2 and atl_rep_moreau >= 0) then

				psub("lfc_debrief_good");

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

			elseif (reputation > 2) then

				psub("lfc_debrief_good");

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

			elseif (atl_rep_moreau >= 0) then

				psub("lfc_debrief_bad");

				return [[Фредерик Моро приветствует вас: "Месье Дрейк, добрый день. Вы очень помогли нам в поимке саботажника. Огромное спасибо. Посовещавшись, мы решили вернуть вам Левиафан. К сожалению, совет решил ограничить вам доступ к станции, поэтому я прошу вас покинуть Атлантиду как можно скорее". ]];

			else

				psub("lfc_debrief_bad");

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

			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 (atl_rep_moreau < 0) then

            if (atl_iof_completed) then

            end;

        else

            if (atl_iof_completed) then

            end;

        end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[За столом перед вами сидит немолодой мужчина. Кудрявые седые волосы обрамляют его лицо. Он носит длинные седые усы. Одет человек в строгий деловой костюм бежевого цвета. Его серые глаза, скрытые очками, внимательно рассматривают вас. Вертя в руках перо он приветствует вас: "Добро пожаловать на Атлантиду, месье Дрейк. Мое имя - Фредерик Моро и я исполняю обязанности начальника станции в отсутствие Уильяма и Адриана. Ваше прибытие крайне удивило нас - мы думали, с поверхности найти нашу станцию невозможно. Пока мы думаем, что делать с вами дальше, вы можете воспользоваться ресурсами станции, чтобы узнать побольше о вашем отце и, быть может, понять, куда в точности он направился. Для начала, стоит немного ввести вас в курс дела".^

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

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

            char_moreau.iof_reaction = 1;      

            if (atl_iof_learr_dead) then

                psub("iof_learr_dead");

                return [[Фредерик Моро как обычно сидит за столом. Как только вы подходите, он сообщает вам: "Месье Дрейк, рад видеть, что с вами все в порядке. К сожалению, нам не удалось спасти Леарр. Это большая потеря для всех нас. Думаю, вам стоит знать, что на станцию прибыл Аикерьярр, чтобы продолжить ее работу". ]];

            elseif (atl_iof_learr_suit) then

                psub("iof_learr_suit");

                return [[Фредерик Моро как обычно сидит за столом. Как только вы подходите, он сообщает вам: "Месье Дрейк, рад видеть, что с вами все в порядке. Леарр рассказала мне о вашей идее со скафандром. Спасибо, что позаботились о ней". ]];

            else

                psub("iof_learr");

                return [[Фредерик Моро как обычно сидит за столом. Как только вы подходите, он сообщает вам: "Месье Дрейк, рад видеть, что с вами все в порядке. Спасибо, что позаботились о Леарр. С ней все хорошо". ]];

            end;

        else      

			psub("generic");

			return [[Фредерик Моро приветствует вас: "Месье Дрейк, добрый день. Чем могу помочь?" ]];

		end;		

	end;

	phr = {

        {tag="lfc_warning"};

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

        {tag="iof_learr_dead"};

        {"Я ничего не мог сделать. ", [[Фредерик Моро кивает: "Я понимаю". Немного помолчав он говорит: "Давайте к делу". ]], code [[psub("generic");]]};

        {"Давайте к делу. ", [[Фредерик Моро неодобрительно кивает: "Слушаю". ]], code [[

            atl_rep_moreau = atl_rep_moreau - 1;

            psub("generic");

        ]]};

        {tag="iof_learr_suit"};

        {"Рад, что никто не пострадал. ", [[Фредерик Моро кивает: "Ваши действия достойны уважения. Еще раз благодарю вас. Но, перейдем к делу". ]], code [[psub("generic");]]};

        {tag="iof_learr"};

        {"Рад, что никто не пострадал. ", [[Фредерик моро кивает: "Перейдем к делу". ]], code [[psub("generic");]]};

		{tag="first_meeting", empty = code[[ psub("generic"); ]]};

		{"Я не имею намерения раскрывать существование Атлантиды.", [[Фредерик Моро кивает: "Рад это слышать, но нам нужно больше чем ваши слова". ]]};

		{"Что за навьяры?", [[Фредерик Моро отвечает: _"Na'vji'a'rr -- с их языка это переводится, как ,,Живущие в глубинах''. Как я сказал, они чем-то похожи на людей, но по сути своей они -- рыбы. Подробнее о них вам стоит поговорить с нашими учеными в секции Окулус. Там же вы можете встретить Ривеерра и Леарр -- наших гостей из двух ближайших поселений навьяров"_. ]]};

		{"Как получилось, что Левиафан остался на поверхности?", [[Фредерик Моро задумчиво чешет подбородок. Через некоторое время он отвечает: _"Сложно сказать. Это было в ведении Майкла Райта. Скорее всего -- они с Дрейком сознательно спрятали его"_.

		]]};

        {"Куда конкретно направился Уильям?", [[Фредерик Моро вздыхает: "У нас нет точных данных. И похоже их не было и у Блэка с Дрейком. Мы знаем, что их цель - древний навьярский город". ]]};

        {tag="ask_more"};

        {tag="on_drake", false, "Расскажите об Уильяме. ", function()

            if (atl_rep_moreau < 0) then

                char_moreau.drake_asked = 1;

                return [[Фредерик Моро отвечает: "Я не хочу говорить об этом сейчас". ]];

                char_moreau.ryveerr_asked = 1;

                return [[Фредерик Моро отвечает: "Я не хочу говорить об этом сейчас". ]];

            else

                char_moreau.ryveerr_asked = 2;

                return [[Фредерик Моро отвечает: "Я мало что могу о нем сказать. Он почти не покидает Окулус, общаясь только с учеными. Возможно их вам и стоит спросить о нем". ]];

            end;

        end};

        {tag="on_aikerjarr", false, "Что вы думаете об Аикерьярре?", function()

            if (atl_rep_moreau < 0) then

                char_moreau.aikerjarr_asked = 1;

                return [[Фредерик Моро отвечает: "Я не хочу говорить об этом сейчас". ]];

            else

                char_moreau.aikerjarr_asked = 2;

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

            end;

        end};

        {always=true, "Вернемся к делу.", [[Фредерик Моро спрашивает: "Вы что-то хотели?"]], code [[ pret(); ]]};

		{tag="generic"};

		{tag="sabotage", false, "Вы знаете, что пожар начался из-за саботажа?", [[Фредерик Моро несколько раз стучит пальцем по столу. Недовольным тоном он делает вам замечание: "Месье Дрейк, -- он выдерживает небольшую паузу, -- Если вы хотите вернуть себе Левиафан, вам стоит следовать нашим правилам и, в частности, не нарушать прямых наших распоряжений". ]], code [[

			atl_rep_moreau = atl_rep_moreau - 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

		]]};

		{tag="ignis_what", false, "Почему начался пожар в Игнисе?", [[Фредерик Моро пожимает плечами и как-то неуверенно проговаривает: "Не знаю. Этим вопросом занимаются инженеры и служба безопасности. Будьте спокойны, наши специалисты не допустят повторения аварии". ]]};

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

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

		{tag="lfc_debrief_good"};

		{always = true, "Спасибо, это все.", [[Моро спрашивает: "Вы что-то хотели?". ]], code [[ psub("generic");]]};

		{tag="lfc_debrief_bad"};

		{always = true, "Я пойду", [[Моро кивает. ]], code [[ walk("game_over_banished"); ]]};

	};

};

char_svetlova_dlg = dlg {

	var {

		state = 0;

		lfc_sabotage = false;

		lfc_dialog = false;

		flag_help = false;

		flag_explain = false;

	};

	nam = "Екатерина Светлова";

	disp = "Екатерина Светлова";

	entered = function(s)

        if (atl_lfc_panic_warning == 2 and atl_lfc_panic == 2 and atl_lfc_state == 1) then

            psub("lfc_warning");

            return [[Екатерина Светлова сообщает вам: "Добрый день, господин Дрейк. Винсент Даркстар просил вас срочно поговорить с ним". ]];

        end;

        if (atl_rep_svetlova < 0) then

            if (atl_iof_completed) then

            end;

        else

            if (atl_iof_completed) then

            end;

        end;

		if (s.state == 0) then

			psub('first_meeting');

            s.state = 1;         

			return [[За столом сидит женщина лет сорока-пяти. Золотистые волосы собраны в пучок на затылке. Она одета в простое синее платье. В правой руке она держит карандаш, которым периодически делает пометки в бумагах, лежащих на столе. Она отрывает взгляд от бумаг и приветствует вас: _"Добрый день, господин Дрейк. Мое имя -- Екатерина Светлова, я управляю исследованиями на Атлантиде. Должна признать, вы нас всех узрядно напугали. Даркстар сказал, что вы зайдете. Думаю, вы будете полезны нам. У меня есть предложение для вас. Я знаю, что вы ищете своего отца. Уходя в экспедицию, он не оставил нам почти никаких материалов -- карты, схемы, переводы -- они забрали все с собой. Я прошу вас помочь нам с некоторыми проблемами. Взамен -- мы предоставим вам все имеющиеся у нас материалы. Возможно они помогут вам найти отца"_.]];

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

            char_svetlova.iof_reaction = 1;

            if (atl_iof_learr_dead) then

                psub("iof_learr_dead");

                return [[Екатерина Светлова отрывает взгляд от бумаг, лежащих перед ней и смотрит на вас: "Господин Дрейк, вы были в Игнисе, вместе с Леарр. И все же, вы не смогли спасти ее". ]];

            elseif (atl_iof_learr_suit) then

                psub("iof_learr_suit");

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

            else

                psub("iof_learr");

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

            end;         

		elseif (s.state == 2) then

			psub('ryveerr_on_steal');

			return [[Светлова отрывает взгляд от бумаг, лежащих перед ней и смотрит на вас: "Ну как? Поговорили с Ривеерром?" ]];

        else

			if (atl_iyh_state == 9) then

				atl_iyh_state = 10;

				psub('iyh_more');

				take("item_map_2");

				take("item_talk_device");

				take("item_navjiarr_chart_1");

				take("item_navjiarr_chart_2");

				take("item_navjiarr_chart_3");

				if (atl_iyh_artifacts_on_atlantis) then

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

				else

					return [[Светлова отрывает взгляд от бумаг, лежащих перед ней и смотрит на вас: "Добрый день, Дрейк. К сожалению, мы не смогли получить доступ к артефактам, добытым вами в храме. Поэтому, единственное, что вы можете сделать чтобы найти отца - это посетить навьярские города, расположенные неподалеку - Дипатреанотр и Ираафаанотр". Она достает из-под стола небольшой чемоданчик с лампочками и кнопочками и вручает его вам: "Этот прибор позволит вам общаться с навьярами под водой. Просто набирайте слова как на клавиатуре печатной машинки, при этом будут последовательно зажигаться лампочки соответствующих цветов". Затем она достает карту, на которой отмечены Атлантида, Ираафаанотр и Дипатреанотр и так же отдает ее вам: "Вы можете взять эту карту". ]];

				end;

			else

				psub('generic');

				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;

                poff('iyh1');

        {tag= "iyh1_sub"};

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

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

        {tag = "outside", false, "Возможно, самое интересное находится снаружи храма.", [[Светлова соглашается: "Возможно. В любом случае -- прошло уже достаточно много времени, чтобы хоть какие-то следы сохранились". ]], code [[ pret(); ]]};

		{tag = "ignis_sabotage"};

		{"Даркстар считает, что причиной пожара был саботаж", function(s)

			psub("generic");

			atl_rep_svetlova = atl_rep_svetlova + 1;

            return [[Екатерина Светлова отвечает: "Даркстар просил вас об этом никому не говорить, но я понимаю ваш интерес. Саботажником может быть только кто-то из сторонников закрытия станции. Поговорите с Мишелем Леруа, чтобы больше об этом узнать. О саботаже попробуйте поговорить с Уолтером Рэдклиффом, если вам действительно интересно. И, пожалуйста, постарайтесь не разводить панику на станции". ]];

		end};

		{"Понятия не имею", [[Екатерина Светлова разочарованно отвечает: "Очень жаль". ]], code [[ psub("generic"); ]]};

		{tag="secret_op"};

		{"Хорошо, я ничего не скажу навьярам. ", [[Екатерина Светлова отвечает: "Отлично. Осталось дождаться, когда вам позволят покидать станцию". ]], code [[ back(); ]]};

		{"Мне кажется, нам стоит поставить их в известность. Как они отреагируют, если мы просто принесем им реликвию? ", [[Екатерина Светлова отвечает: "Они будут благодарить нас. А теперь представьте, что вы сообщаете им, что отправляетесь в их священное место охотиться на их священную рыбу. Что будет?" ]], code [[ psub("so_answer"); ]]};

		{tag="so_answer"};

		{"Да, пожалуй вы правы", [[Екатерина Светлова отвечает: "Отлично. Осталось дождаться, когда вам позволят покидать станцию". ]]};

		{"А что будет, если мы принесем им реликвию, которая должна по их мнению быть в Ираафаанотре? Разве они не посчитают, что мы украли ее оттуда? ", [[Екатерина Светлова недовольно отвечает: "Поступайте как знаете. Если ваши действия повредят станции, то Левиафана вам не видать". ]], code [[ back(); ]]};

		{tag="iyh_more"};

		{"Я могу чем-то еще помочь?", [[Екатерина Светлова отвечает: "Пока у нас нет для вас заданий, но возможно позже появится что-то. Сейчас вы можете продолжать ваши поиски". ]]};

		{"Спасибо за помощь, я пойду", [[Екатерина Светлова прощается с вами: "До встречи. Удачи в поисках Уильяма".]], code [[ back(); ]]};

	};

};

char_michael_wright_dlg = dlg {

    var {

        state = 0;

        lfc_dialog = false;

    };

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

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

    entered = function(s)

        if (atl_lfc_panic_warning == 2 and atl_lfc_panic == 2 and atl_lfc_state == 1) then

            psub("lfc_warning");

            return [[Екатерина Светлова сообщает вам: "Добрый день Винсент Даркстар просил вас срочно поговорить с ним". ]];

        end;

        if (atl_nih_state == 2) then

            pon('nih_fixed');

        end;

        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 (atl_rep_wright < 0) then

            if (atl_iof_completed) then

            end;

        else

            if (atl_iof_completed) then

            end;

        end;

        if (atl_iof_completed and char_michael_wright.iof_reaction == 0) then

            char_michael_wright.iof_reaction = 1;

            if (atl_iof_learr_dead) then

                psub("iof_learr_dead");

                return [[Майкл Райт обращается к вам: "Господин Дрейк, рад видеть вас живым и здоровым. Трагедия на Игнисе стала для нас неожиданностью. Быть может, если бы мы были готовы к такому, Леарр была бы здесь, с нами". ]];

            elseif (atl_iof_learr_suit) then

                psub("iof_learr_suit");

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

            else

                psub("iof_learr");

                return [[Майкл Райт обращается к вам: "Господин Дрейк, рад видеть вас живым и здоровым. Авария на Игнисе стала для нас неожиданностью, однако благодаря вашим действиям никто не пострадал". ]];

            end;

        elseif (atl_nih_state == 3 and atl_iof_completed and atl_fta_state == 0) then

            atl_fta_state = 1;

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

        elseif (atl_fta_state == 2) then

            atl_fta_state = 3;

            psub("fta_deb");

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

        else

            psub("generic");

            return [[Майкл Райт просматривает какие-то чертежи. Как только вы подходите, он отвлекается и приветствует вас: "Добрый день. Чем могу быть полезен?" ]];

        end;        

    end;

    phr = {

        {tag="lfc_warning"};

        {always=true, "Мне пора", [["До встречи", -- Майкл Райт возвращается к своим делам. ]], code [[ back(); ]]};

        {tag="iof_learr_dead"};

        {"Мне очень жаль.", [[Майкл Райт кивает: "Утерянного не вернуть. Мы сделали выводы и постараемся не допустить опасных инцидентов в будущем". ]], code [[psub("generic");]]};

        {"Я чуть не погиб там!", [[Майкл Райт отворачивается от вас и произносит: "Приходите позже, я занят"]], code [[ atl_rep_wright = atl_rep_wright - 1; back(); ]]};

        {tag="iof_learr_suit"};

        {"Я сделал, что должен был. ", [[Майкл Райт кивает: "И все же, не каждому пришла бы в голову идея облачить навьяра в скафандр".]], code [[psub("generic");]]};

        {tag="iof_learr"};

        {"Рад, что никто не пострадал. ", [[Майкл Райт кивает. ]], code [[ psub("generic"); ]]};

        {tag="fta_deb"};

        {"[Пожать руку]Только я все еще не знаю, куда мне следует плыть", [[Майкл Райт кивает: "Мы сделаем все возможное, чтобы помочь вам. Светлова сказала мне, что вы помогаете ей в решении каких-то проблем с навьярами. По ее мнению, это может помочь вам в поисках". ]], code [[ psub('generic'); ]]};

        {"Просто верните мне Левиафан", [[Майкл Райт с сожалением произносит: "Не все так просто. Нужно, чтобы согласие дали еще Моро, Даркстар и Светлова". ]], code [[ psub('generic'); ]]};

        {tag="ask_more"};

        {tag="on_drake", false, "Расскажите об Уильяме. ", function()

            if (atl_rep_wright < 0) then

                char_michael_wright.drake_asked = 1;

                return [[Майкл Райт отвечает: "Я не хочу об этом говорить". ]];

            else

                char_michael_wright.drake_asked = 2;

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

            end;

                return part1 .. [[Я доложу Даркстару о вашем неповиновении". ]];

            else 

                return part1 .. [[". ]];

            end;

        end};

        {tag="ignis_what", false, "Из-за чего начался пожар в Игнисе?", [[Майкл Райт отвечает: "Короткое замыкание. Рядом, к сожалению, никого не оказалось и потушить возгорание вовремя не удалось. Огонь быстро распространился по всей секции, ну а дальше вы все знаете". ]]};

        {always=true, "У меня есть несколько вопросов.", [[Майкл Райт отвечает: "Задавайте, посмотрим чем смогу помочь".]], code [[ psub('ask_more'); ]]};

        {always=true, "Мне пора", function(s)

            if (atl_nih_state == 0 and atl_jack_in_party) then

                atl_nih_state = 3;

            end;

            if (atl_nih_state == 0 and not atl_jack_in_party) then

                atl_nih_init();

                pr([["Кстати, у меня есть для вас небольшое задание. У нас где-то утечка воздуха. Ничего критичного. Просто прогуляйтесь по станции и если обнаружите, где это - сообщите мне. До встречи", -- Майкл Райт возвращается к своим делам. ]]);

            else

                pr([["До встречи", -- Майкл Райт возвращается к своим делам. ]]);

            end;

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

        {tag="son"};

        {"Мать Джека умерла, а сам он прозябает в своем доме ничего не делая. ", [[Майкл Райт вздыхает: "Жаль, что все так вышло. Спасибо, что честно сказали мне. Наверное..."]], code[[pret();]]};

        {"Мать Джека умерла, но с ним все в порядке. Он все еще живет в вашем доме. ", [[Майкл Райт вздыхает: "Элис...". ]], code[[pret();]]};

        {"У них все хорошо. ", [[Майкл Райт кивает: "Рад это слышать". ]], code[[pret();]]}

    };

};

char_anna_atlantis_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;

        --[[

            anna_asked = 0;

            walter_asked = 0;

            atlantis_asked = 0;

            drake_asked = 0;

        ]]

        if (rel_anna  < 0) then

            if (char_anna.anna_asked == 0) then

                pon("on_anna");

            end;

            if (char_anna.walter_asked == 0) then

                pon("on_walter");

            end;

            if (char_anna.atlantis_asked == 0) then

                pon("on_atlantis");

            end;

            if (char_anna.drake_asked == 0) then

                pon("on_drake");

            end;

        else

            if (char_anna.anna_asked < 2) then

                pon("on_anna");

            end;

            if (char_anna.walter_asked < 2) then

                pon("on_walter");

            end;

            if (char_anna.atlantis_asked < 2) then

                pon("on_atlantis");

            end;

            if (char_anna.drake_asked < 2) then

                pon("on_drake");

            end;

        end;

		if (s.state == 0) then

			s.state = 1;

			psub("first_meeting");

			return [[Перед вами стоит девушка лет двадцати-пяти--тридцати. Каштановые волосы ниспадают на плечи. Зеленые глаза внимательно следят за движениями навьяра, с которым она разговаривает. Заметив вас, она просит навьяра подождать и обращается к вам: "Приветствую. Вы, должно быть господин Дрейк? Мое имя Анна Рэдклифф". ]];

		else

			psub("generic");

			return [[Анна Рэдклифф разговаривает с навьяром, стоящим рядом. Заметив вас, она просит его подождать и обращается к вам: "Приветствую, вы что-то хотели?" ]];

		end;

	end;

	phr = {

		{tag="first_meeting"};