games/Awakening Changeset - ccb5ab949345

char_darkstar_dlg = dlg {

	var {

		state = 0;

        fta = 0;

};

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

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

    reset_more = function(s)

        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", "more_questions");

        if (atl_rep_darkstar < 0) then

            if (char_darkstar.drake_asked == 0) then pon("on_drake"); pon("more_questions"); end;

            if (char_darkstar.black_asked == 0) then pon("on_black"); pon("more_questions"); end;

            if (char_darkstar.darkstar_asked == 0) then pon("on_darkstar"); pon("more_questions"); end;

            if (char_darkstar.svetlova_asked == 0) then pon("on_svetlova"); pon("more_questions"); end;

            if (char_darkstar.moreau_asked == 0) then pon("on_moreau"); pon("more_questions"); end;

            if (char_darkstar.wright_asked == 0) then pon("on_wright"); pon("more_questions"); end;

            if (atl_iof_completed) then

                if (char_darkstar.leroy_asked == 0) then pon("on_leroy"); pon("more_questions"); end;

                if (char_darkstar.jones_asked == 0) then pon("on_jones"); pon("more_questions"); end;

                if (char_darkstar.goldman_asked == 0) then pon("on_goldman"); pon("more_questions"); end;

            end;

            if (char_darkstar.atlantis_asked == 0) then pon("on_atlantis"); pon("more_questions"); end;

            if (char_darkstar.navjiarr_asked == 0) then pon("on_navjiarr"); pon("more_questions"); end;

            if (char_darkstar.learr_asked == 0) then pon("on_learr"); pon("more_questions"); end;

            if (char_darkstar.ryveerr_asked == 0) then pon("on_ryveerr"); pon("more_questions"); end;

            if (atl_iof_learr_dead and char_darkstar.aikerjarr_asked == 0) then pon("on_aikerjarr"); pon("more_questions"); end;

        else

            if (char_darkstar.drake_asked < 2) then pon("on_drake"); pon("more_questions"); end;

            if (char_darkstar.black_asked < 2) then pon("on_black"); pon("more_questions"); end;

            if (char_darkstar.darkstar_asked < 2) then pon("on_darkstar"); pon("more_questions"); end;

            if (char_darkstar.svetlova_asked < 2) then pon("on_svetlova"); pon("more_questions"); end;

            if (char_darkstar.moreau_asked < 2) then pon("on_moreau"); pon("more_questions"); end;

            if (char_darkstar.wright_asked < 2) then pon("on_wright"); pon("more_questions"); end;

            if (atl_iof_completed) then

                if (char_darkstar.leroy_asked < 2) then pon("on_leroy"); pon("more_questions"); end;

                if (char_darkstar.jones_asked < 2) then pon("on_jones"); pon("more_questions"); end;

                if (char_darkstar.goldman_asked < 2) then pon("on_goldman"); pon("more_questions"); end;

            end;

            if (char_darkstar.atlantis_asked < 2) then pon("on_atlantis"); pon("more_questions"); end;

            if (char_darkstar.navjiarr_asked < 2) then pon("on_navjiarr"); pon("more_questions"); end;

            if (char_darkstar.learr_asked < 2) then pon("on_learr"); pon("more_questions"); end;

            if (atl_iof_learr_dead and char_darkstar.learr_asked < 3) then pon("on_learr"); pon("more_questions"); end;

            if (char_darkstar.ryveerr_asked < 2) then pon("on_ryveerr"); pon("more_questions"); end;

            if (atl_iof_learr_dead and char_darkstar.aikerjarr_asked < 2) then pon("on_aikerjarr"); pon("more_questions"); end;

        end;

    end;

	enter = 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 and atl_lfc_leroy_spoken ~= 0 then

			pon("accuse_leroy");

		end;

		if atl_lfc_goldman_spoken and atl_lfc_goldman_spoken ~= 0 then

			pon("accuse_goldman");

		end;

		s:reset_more();

        poff("accuse_saboteur", "accuse_saboteur_g", "show_clock", "show_clock_g");

        if (have(item_goldmans_clock)) then

            pon("show_clock", "show_clock_g");

        end;

        if (atl_lfc_saboteur_known and atl_lfc_state < 3) then

            pon("accuse_saboteur", "accuse_saboteur_g");

        end;

		if (s.state == 0) then

			psub("first_meeting");

            s.state = 1;

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

		elseif (atl_fta_state == 2 or atl_fta_state == 3) and not atl_fta_darkstar_debrief then

	        atl_fta_darkstar_debrief = true;

            psub("fta");

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

        elseif (atl_lfc_state == 3 or atl_lfc_state == 4) then

            if (atl_lfc_state == 3) then

                atl_lfc_state = 4;

                local r = 0;

                if (atl_rep_darkstar >= 0) then r = r + 1; end;

                if (atl_rep_svetlova >= 0) then r = r + 1; end;

                if (atl_rep_moreau >= 0) then r = r + 1; end;

                if (atl_rep_wright >= 0) then r = r + 1; end;

                atl_lfc_court_allowed = r > 0;

            end;

            if (atl_lfc_court_allowed) then

                psub("lfc_ending_court");

                if atl_lfc_goldman_exposed then

                    if leroy_state == 4 then

                        pon("goldman_only");

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

                    else

                        pon("leroy_and_goldman");

                        if (atl_lfc_leroy_goldman) then

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

                        else

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

                        end;

                    end;

                else

                    pon("leroy_only");

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

                end;

            else

                atl_lfc_state = 5;

                psub("generic");

                if (atl_lfc_goldman_exposed) then

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

                end;

            end;

		else

			psub("generic");

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

		end;

	end;

    phr = {

        {tag="lfc_ending_court"};

        {tag="goldman_only", false, always = true, "Какое наказание ждет подсудимого?", [[Даркстар отвечает: "Я бы расстрелял его на месте, но я не могу принимать решения единолично". ]]};

        {tag="leroy_and_goldman", false, always = true, "Какое наказание ждет подсудимых?", [[Даркстар отвечает: "Я бы расстрелял их на месте, но я не могу принимать решения единолично". ]]};

        {tag="leroy_only", false, always = true, "Какое наказание ждет подсудимого?", [[Даркстар отвечает: "Я бы расстрелял его на месте, но я не могу принимать решения единолично". ]]};

        {always = true, "Я готов.", function(s)

            atl_lfc_state = 5;

            walk("atl_lfc_court");

            if atl_lfc_goldman_exposed then

                return [[Даркстар поднимает трубку, поворачивает наборный диск, ждет немного и сообщает: "Моро, Светлова, Райт. Жду вас в своем кабинете". ]];

            else

                return [[Даркстар поднимает трубку, поворачивает наборный диск, ждет немного и сообщает: "Моро, Светлова, Райт. Жду вас в своем кабинете". ]];

            end;

        end};

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

        end};

        {tag="on_svetlova", false, "Расскажите о Екатерине Светловой. ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.svetlova_asked = 1;

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

            else

                char_darkstar.svetlova_asked = 2;

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

            end;

        end};

        {tag="on_moreau", false, "Расскажите о Фредерике Моро. ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.moreau_asked = 1;

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

            else

                char_darkstar.moreau_asked = 2;

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

            end;

        end};

        {tag="on_wright", false, "Расскажите о Майлке Райте. ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.wright_asked = 1;

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

            else

                char_darkstar.wright_asked = 2;

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

            end;

        end};

        {tag="on_leroy", false, "Что вы думаете о Мишеле Леруа? ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.leroy_asked = 1;

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

            else

                char_darkstar.leroy_asked = 2;

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

            end;

        end};

        {tag="on_jones", false, "Что вы думаете о Чарли Джонсе? ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.jones_asked = 1;

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

            else

                char_darkstar.jones_asked = 2;

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

            end;

        end};

        {tag="on_goldman", false, "Что вы думаете о Леонарде Голдмане? ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.goldman_asked = 1;

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

            else

                char_darkstar.goldman_asked = 2;

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

            end;

        end};

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

            if (atl_rep_darkstar < 0) then

                char_darkstar.atlantis_asked = 1;

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

            else

                char_darkstar.atlantis_asked = 2;

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

            end;

        end};

        {tag="on_navjiarr", false, "Что вы думаете о навьярах? ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.navjiarr_asked = 1;

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

            else

                char_darkstar.navjiarr_asked = 2;

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

            end;

        end};

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

            if (atl_rep_darkstar < 0) then

                char_darkstar.learr_asked = 1;

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

            else

                if (atl_iof_learr_dead) then

                    char_darkstar.learr_asked = 3;

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

                else

                    char_darkstar.learr_asked = 2;

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

                end;

            end;

        end};

        {tag="on_ryveerr", false, "Что вы думаете о Ривеерре? ", function()

            if (atl_rep_darkstar < 0) then

                char_darkstar.ryveerr_asked = 1;

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

            else

                char_darkstar.ryveerr_asked = 2;

                return [[Винсент Даркстар отвечает: "Ривеерр -- представитель одного из навьярских племен на станции. Я мало что могу о нем сказать, и, в данном случае, это говорит в его пользу". ]];

            end;

        end};

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

            if (atl_rep_darkstar < 0) then

                char_darkstar.aikerjarr_asked = 1;

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

            else

                char_darkstar.aikerjarr_asked = 2;

                return [[Винсент Даркстар отвечает: "Он будет создавать проблемы. Это не предположение, это -- факт". ]];

            end;

        end};

        {always=true, "Вернемся к делу.", [[Даркстар кивает: "Слушаю".]], code [[ char_darkstar_dlg:reset_more(); pret(); ]]};

		{tag="generic"};

        {tag="show_clock_g", "[Показать часы] А еще я нашел там вот это.", [[Даркстар забирает часы и вертит их в руках: "Так-так-так. Франсуа Голдман. Леонард однозначно в этом замешан, но действовал он не один. Я все еще думаю, что они попытаются вывести из строя одну из субмарин. Скорее всего их целью будет Наутилус". ]], code [[

        {tag="show_clock_g", "[Показать часы] А еще я нашел там вот это.", [[Даркстар забирает часы и вертит их в руках: "Так-так-так. Франсуа Голдман. Леонард однозначно в этом замешан, но действовал он не один. Продолжаем действовать по моему плану". ]], code [[

            atl_rep_darkstar = atl_rep_darkstar + 1;

            atl_lfc_goldman_exposed = true;

            remove("item_goldmans_clock", pl);

            psub("why_nau");

        ]]};

        {tag="accuse_saboteur_g", "Голдман признался в саботаже и сдал Леруа... [Пересказать слова Голдмана]", [[Даркстар кивает: "Прекрасно. Вы далеко пойдете, Дрейк". ]], code [[ remove("item_goldmans_clock", pl); walkin("atl_lfc_outro_expose"); ]]};

		{tag="accuse_goldman", false, "Саботаж -- дело рук Голдмана.", [[Даркстар недовольно отчитывает вас: "Во-первых, я вас просил не лезть в это дело. Во-вторых, я бы не был так уверен. В третьих, я еще раз прошу вас больше расследованию не мешать". ]], code [[ atl_lfc_suspect="goldman"; ]]};

		{tag="accuse_leroy", false, "Саботаж -- дело рук Леруа.", [[Даркстар недовольно отчитывает вас: "Во-первых, я вас просил не лезть в это дело. Во-вторых, я бы не был так уверен. В третьих, я еще раз прошу вас больше расследованию не мешать". ]], code [[ atl_lfc_suspect="leroy"; ]]};

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

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

        {tag="fta"};

		{"Что вы хотите услышать?", [[Даркстар поясняет: "Все, что произошло в Солисе и показалось вам подозрительным". ]]};

		{"Первый взрыв раздался, когда я был у входа в секцию... [Кратко пересказать основные события]", [[Даркстар молча кивает. ]], code [[

            char_darkstar_dlg.fta = char_darkstar_dlg.fta + 1;

            if char_darkstar_dlg.fta == 2 then

                psub("fta2");

            end;

        ]]};

		{"Один из клапанов работал неправильно: давление в нем было выше нормы.", [[Даркстар с сомнением произносит: "Интересно. За десять лет работы станции такого никогда не было". ]], code [[

            char_darkstar_dlg.fta = char_darkstar_dlg.fta + 1;

            if char_darkstar_dlg.fta == 2 then

                psub("fta2");

            end;

        ]]};

		{tag="show_clock", "[Показать часы] А еще я нашел там вот это.", [[Даркстар забирает часы и вертит их в руках: "Так-так-так. Франсуа Голдман. Леонард однозначно в этом замешан, но действовал он не один. Я все еще думаю, что они попытаются вывести из строя одну из субмарин. Скорее всего их целью будет Наутилус". ]], code [[

            atl_rep_darkstar = atl_rep_darkstar + 1;

            atl_lfc_goldman_exposed = true;

            remove("item_goldmans_clock", pl);

            psub("why_nau");

        ]]};

        {tag="accuse_saboteur", "Голдман признался в саботаже и сдал Леруа... [Пересказать слова Голдмана]", [[Даркстар кивает: "Прекрасно. Вы далеко пойдете, Дрейк". ]], code [[ remove("item_goldmans_clock", pl); walkin("atl_lfc_outro_expose"); ]]};

        {tag="fta2"};

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

		{tag="why_nau"};

		{"Почему именно Наутилус?", [[Даркстар объясняет:"Саботажник хочет не убить всех, а поломать станцию. Он хочет наверх, а не умереть здесь. Наутилус -- субмарина малого радиуса, а Энтерпрайз и Левиафан способны доставить нас на континенты". ]]};

		{"Соглашусь с вашим предположением.", [[Даркстар кивает: "Хорошо. Я попрошу вас помочь мне с этим заданием". ]], code [[ psub("lfc_help"); ]]};

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

		{tag="lfc_help"};

		{"Почему я?", [[Даркстар объясняет:"Я хочу свести количество людей, знающих о саботажах к минимуму, а вы уже в курсе ситуации". ]]};

		{"Что я должен сделать?", [[Даркстар рассказывает:"Сейчас отправляетесь в док Наутилуса и наблюдаете за происходящим в течение ночи. Если вы замечаете что-то подозрительное -- принимаете меры на ваше усмотрение", -- Даркстар достает из ящика стола револьвер и кладет перед вами: "Это вам не помешает". ]], code [[

            remove(item_colt, "leviathan_captains_cabin");

			take(item_colt);

			atl_lfc_state = 2;

			back();

		]]};

};

};

char_moreau_dlg = dlg {

	var {

		state = 0;

		lfc_dialog = false;

        lfc_out_dialog = false;

        lfc_goldman_imprison = 0;

        lfc_goldman_banish = 1;

        lfc_leroy_imprison = 0;

        lfc_leroy_banish = 1;

};

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

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

    reset_more = function(s)

        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", "more_questions");

        if (atl_rep_moreau < 0) then

            if (char_moreau.drake_asked == 0) then pon("on_drake"); pon("more_questions"); end;

            if (char_moreau.black_asked == 0) then pon("on_black"); pon("more_questions"); end;

            if (char_moreau.darkstar_asked == 0) then pon("on_darkstar"); pon("more_questions"); end;

            if (char_moreau.svetlova_asked == 0) then pon("on_svetlova"); pon("more_questions"); end;

            if (char_moreau.moreau_asked == 0) then pon("on_moreau"); pon("more_questions"); end;

            if (char_moreau.wright_asked == 0) then pon("on_wright"); pon("more_questions"); end;

            if (atl_iof_completed) then

                if (char_moreau.leroy_asked == 0) then pon("on_leroy"); pon("more_questions"); end;

                if (char_moreau.jones_asked == 0) then pon("on_jones"); pon("more_questions"); end;

                if (char_moreau.goldman_asked == 0) then pon("on_goldman"); pon("more_questions"); end;

            end;

            if (char_moreau.atlantis_asked == 0) then pon("on_atlantis"); pon("more_questions"); end;

            if (char_moreau.navjiarr_asked == 0) then pon("on_navjiarr"); pon("more_questions"); end;

            if (char_moreau.learr_asked == 0) then pon("on_learr"); pon("more_questions"); end;

            if (char_moreau.ryveerr_asked == 0) then pon("on_ryveerr"); pon("more_questions"); end;

            if (atl_iof_learr_dead and char_moreau.aikerjarr_asked == 0) then pon("on_aikerjarr"); pon("more_questions"); end;

        else

            if char_moreau.drake_asked < 2 then pon("on_drake"); pon("more_questions"); end;

            if char_moreau.black_asked < 2 then pon("on_black"); pon("more_questions"); end;

            if char_moreau.darkstar_asked < 2 then pon("on_darkstar"); pon("more_questions"); end;

            if char_moreau.svetlova_asked < 2 then pon("on_svetlova"); pon("more_questions"); end;

            if char_moreau.moreau_asked < 2 then pon("on_moreau"); pon("more_questions"); end;

            if char_moreau.wright_asked < 2 then pon("on_wright"); pon("more_questions"); end;

            if atl_iof_completed then

                if char_moreau.leroy_asked < 2 then pon("on_leroy"); pon("more_questions"); end;

                if char_moreau.jones_asked < 2 then pon("on_jones"); pon("more_questions"); end;

                if char_moreau.goldman_asked < 2 then pon("on_goldman"); pon("more_questions"); end;

            end;

            if (char_moreau.atlantis_asked < 2) then pon("on_atlantis"); pon("more_questions"); end;

            if (char_moreau.navjiarr_asked < 2) then pon("on_navjiarr"); pon("more_questions"); end;

            if (char_moreau.learr_asked < 2) then pon("on_learr"); pon("more_questions"); end;

            if (atl_iof_learr_dead and char_moreau.learr_asked < 3) then pon("on_learr"); pon("more_questions"); end;

            if (char_moreau.ryveerr_asked < 2) then pon("on_ryveerr"); pon("more_questions"); end;

            if (atl_iof_learr_dead and char_moreau.aikerjarr_asked < 2) then pon("on_aikerjarr"); pon("more_questions"); end;

        end;

    end;

	enter = 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 == 4 then

            if not s.lfc_out_dialog then

                s.lfc_out_dialog = true;

                if atl_rep_moreau >= 0 then

                    if atl_lfc_goldman_exposed then

                        poff("leroy");

                    else

                        poff("both", "goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

                    end;

                    psub("lfc_saboteur");

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

                else

                    psub("generic");

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

                end;

            end;

        elseif (atl_lfc_state == 5) then

            atl_lfc_state = 6;

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

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

        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;

        s:reset_more();

		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_saboteur"};

        {tag="both","Что вы будете делать с саботажниками?", [[Фредерик Моро выдерживает паузу, после чего отвечает: "Я предлагаю высадить их где-нибудь в Северной Америке. На станции им не место". ]]};

        {tag="goldman_1", "Одному сумасшедшему никто не поверит, Голдмана стоит отпустить. ", [[Фредерик Моро кивает: "Я с вами полностью согласен". ]], code [[

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="goldman_2", "Голдман -- трус. Он никому ничего не скажет. Его можно отправить на поверхность. ", [[Фредерик Моро кивает: "Поэтому я и предлагаю изгнать его". ]], code [[

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="goldman_3", "Голдман хитер. На станции он представляет большую опасность, чем вне ее. ", [[Фредерик Моро пожимает плечами: "Не могу согласиться с вами. Голдман никогда не показывал себя с этой стороны". ]], code [[

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="goldman_4", "Голдман просто хотел выбраться отсюда. Пусть убирается с Атлантиды. ", [[Фредерик Моро отрицательно качает головой: "Это заставляет меня пересмотреть мое решение". ]], code [[

            char_moreau_dlg.lfc_goldman_imprison = 1;

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="goldman_5", "Отпускать Голдмана на поверхность нельзя. Единственный выход -- смертная казнь. ", [[Фредерик Моро: "Что бы ни сделал Голдман, это неприемлемо". ]], code [[

            atl_rep_moreau = atl_rep_moreau - 1;

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="goldman_6", "Голдман подверг опасности все наше дело. Единственный выход -- смертная казнь. ", [[Фредерик Моро: "Что бы ни сделал Голдман, это неприемлемо". ]], code [[

            atl_rep_moreau = atl_rep_moreau - 1;

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="goldman_7", "Голдман хитер. Вне станции он будет не менее опасен, чем на ней. ", [[Фредерик Моро пожимает плечами: "Не могу согласиться с вами. Голдман никогда не показывал себя с этой стороны". ]], code [[

            poff("goldman_1", "goldman_2", "goldman_3", "goldman_4", "goldman_5", "goldman_6", "goldman_7");

        ]]};

        {tag="leroy", "Что вы будете делать с саботажником?", [[Фредерик Моро выдерживает паузу, после чего отвечает: "Я предлагаю высадить его где-нибудь в Северной Америке. На станции им не место". ]]};

        {tag="leroy_1", "Одному сумасшедшему никто не поверит, Леруа стоит отпустить. ", [[Фредерик Моро кивает: "Я с вами полностью согласен". ]], code [[

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {tag="leroy_2", "Леруа -- трус. Он никому ничего не скажет. Его можно отправить на поверхность. ", [[Фредерик Моро пожимает плечами: "Никак не могу согласиться с вами. Я могу назвать Мишеля кем угодно, но только не трусом". ]], code [[

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {tag="leroy_3", "Леруа хитер. На станции он представляет большую опасность, чем вне ее. ", [[Фредерик Моро кивает: "Поэтому я и предлагаю изгнать его". ]], code [[

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {tag="leroy_4", "Леруа просто хотел выбраться отсюда. Пусть убирается с Атлантиды. ", [[[Фредерик Моро отрицательно качает головой: "Это заставляет меня пересмотреть мое решение". ]], code [[

            char_moreau_dlg.lfc_goldman_imprison = 1;

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {tag="leroy_5", "Отпускать Леруа на поверхность нельзя. Единственный выход -- смертная казнь. ", [[Фредерик Моро отрицательно качает головой: "Что бы ни сделал Леруа, это неприемлемо". ]], code [[

            atl_rep_moreau = atl_rep_moreau - 1;

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {tag="leroy_6", "Леруа подверг опасности все наше дело. Единственный выход -- смертная казнь. ", [[Фредерик Моро отрицательно качает головой: "Что бы ни сделал Леруа, это неприемлемо". ]], code [[

            atl_rep_moreau = atl_rep_moreau - 1;

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {tag="leroy_7", "Леруа хитер. Вне станции он будет не менее опасен, чем на ней. ", [[Фредерик Моро кивает: "Соглашусь с вами. Лучше пусть посидит взаперти пока. А когда вернется Уильям, мы решим, что делать с ними". ]], code [[

            char_moreau_dlg.lfc_goldman_imprison = 1;

            poff("leroy_1", "leroy_2", "leroy_3", "leroy_4", "leroy_5", "leroy_6", "leroy_7");

        ]]};

        {"Это все, что я хотел обсудить по данному вопросу. ", [[Фредерик Моро кивает и спрашивает: "Что-нибудь еще?"]], code [[ psub("generic");]] };

        {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 [[Фредерик Моро отвечает: "Я не хочу говорить об этом сейчас". ]];

            else

                char_moreau.drake_asked = 2;

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

            end;

        end};

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

            if (atl_rep_moreau < 0) then

                char_moreau.black_asked = 1;

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

            else

                char_moreau.black_asked = 2;

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

            end;

        end};

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

            if (atl_rep_moreau < 0) then

                char_moreau.darkstar_asked = 1;

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

            else

                char_moreau.darkstar_asked = 2;

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

            end;

        end};

        {tag="on_svetlova", false, "Расскажите о Екатерине Светловой. ", function()

            if (atl_rep_moreau < 0) then

                char_moreau.svetlova_asked = 1;

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

            else

                char_moreau.svetlova_asked = 2;

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

            end;

        end};

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

            if (atl_rep_moreau < 0) then

                char_moreau.moreau_asked = 1;

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

            else

                char_moreau.moreau_asked = 2;

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

            end;

        end};

        {tag="on_wright", false, "Расскажите о Майкле Райте. ", function()

            if (atl_rep_moreau < 0) then

                char_moreau.wright_asked = 1;

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

            else

                char_moreau.wright_asked = 2;

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

            end;

        end};

        {tag="on_leroy", false, "Что вы думаете о Мишеле Леруа?", function()

            if (atl_rep_moreau < 0) then

                char_moreau.leroy_asked = 1;

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

            else

                char_moreau.leroy_asked = 2;

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

            end;

        end};

        {tag="on_jones", false, "Что вы думаете о Чарли Джонсе?", function()

            if (atl_rep_moreau < 0) then

                char_moreau.jones_asked = 1;

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

            else

                char_moreau.jones_asked = 2;

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

            end;

        end};

        {tag="on_goldman", false, "Что вы думаете о Леонарде Голдмане?", function()

            if (atl_rep_moreau < 0) then

                char_moreau.goldman_asked = 1;

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

            else

                char_moreau.goldman_asked = 2;

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

            end;

        end};

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

            if (atl_rep_moreau < 0) then

                char_moreau.atlantis_asked = 1;

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

            else

                char_moreau.atlantis_asked = 2;

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

            end;

        end};

        {tag="on_navjiarr", false, "Что вы думаете о навьярах?", function()

            if (atl_rep_moreau < 0) then

                char_moreau.navjiarr_asked = 1;

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

            else

                char_moreau.navjiarr_asked = 2;

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

            end;

        end};

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

            if (atl_rep_moreau < 0) then

                char_moreau.learr_asked = 1;

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

            else

                if (atl_iof_learr_dead) then

                    char_moreau.learr_asked = 3;

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

                else

                    char_moreau.learr_asked = 2;

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

                end;

            end;

        end};

        {tag="on_ryveerr", false, "Что вы думаете о Ривеерре?", function()

            if (atl_rep_moreau < 0) then

                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

@@ -1543,881 +1542,877 @@ char_michael_wright_dlg = dlg {

        {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([["Кстати, у меня есть для вас небольшое задание. У нас где-то утечка воздуха. Ничего критичного, но у нас некому заняться этим. Вы могли бы прогуляться по станции и найти и исправить поломку. Проще всего будет просто заменить трубы на такие же. В случае возникновения проблем -- попросите у Мари в библиотеке документацию по воздуховодам, она даст вам все необходимое. Запасные вы найдете здесь или на складе в Акве. До встречи", -- Майкл Райт возвращается к своим делам. ]]);

                psub("bq");

            else

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

                back();

            end;

        end};

        {tag="bq"};

        {"Хорошо, я сделаю что смогу.", [["До встречи", -- Майкл Райт возвращается к своим делам. ]], code [[ back(); ]]};

        {tag="son"};

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

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

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

};

};

char_anna_atlantis_dlg = dlg {

	var {

		state = 0;

};

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

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

    reset_more = function(s)

        poff("on_anna", "on_walter", "on_atlantis", "on_drake", "more_questions");

        if (rel_anna  < 0) then

            if (char_anna.anna_asked == 0) then

                pon("on_anna");

                pon("more_questions");

            end;

            if (char_anna.walter_asked == 0) then

                pon("on_walter");

                pon("more_questions");

            end;

            if (char_anna.atlantis_asked == 0) then

                pon("on_atlantis");

                pon("more_questions");

            end;

            if (char_anna.drake_asked == 0) then

                pon("on_drake");

                pon("more_questions");

            end;

        else

            if (char_anna.anna_asked < 2) then

                pon("on_anna");

                pon("more_questions");

            end;

            if (char_anna.walter_asked < 2) then

                pon("on_walter");

                pon("more_questions");

            end;

            if (char_anna.atlantis_asked < 2) then

                pon("on_atlantis");

                pon("more_questions");

            end;

            if (char_anna.drake_asked < 2) then

                pon("on_drake");

                pon("more_questions");

            end;

        end;

    end;

	enter = 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;

        s:reset_more();

		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="ask_more"};

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

            if (rel_anna < 0) then

                char_anna.anna_asked = 1;

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

            else

                char_anna.anna_asked = 2;

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

            end;

        end};

        {tag="on_walter", "Расскажите об Уолтере. ", function(s)

            if (rel_anna < 0) then

                char_anna.walter_asked = 1;

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

            else

                char_anna.walter_asked = 2;

                return [[Анна Рэдклифф отвечает: "Уолтер -- мой старший брат. Он заботится обо мне с тех пор, как мама с папой покинули нас. Хотя моя жизнь сильно изменилась, когда Уолтер забрал меня с собой на Атлантиду, я не жалею об этом". ]];

            end;

        end};

        {tag="on_atlantis", "Что вы думаете об Атлантиде?", function(s)

            if (rel_anna < 0) then

                char_anna.atlantis_asked = 1;

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

            else

                char_anna.atlantis_asked = 2;

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

            end;

        end};

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

            if (rel_anna < 0) then

                char_anna.drake_asked = 1;

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

            else

                char_anna.drake_asked = 2;

                return [[Анна Рэдклифф отвечает: "Хотя Дрейк -- руководитель Атлантиды, он проводит больше времени здесь, в Окулусе, чем в своем кабинете в Доминусе. Сейчас он в экспедиции -- они с Блэком отправились на поиски отдаленных навьярских поселений". ]];

            end;

        end};

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

            if rel_anna < 0 then

                char_anna.black_asked = 1;

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

            else

                char_anna.black_asked = 2;

                return [[Анна Рэдклифф пожимает плечами: "Все вокруг говорят, что он хороший друг вашего отца, но мне почти не доводилось с ним общаться".]];

            end;

        end};

        {always=true, "Вернемся к делу.", [[Анна Рэдклифф кивает: "Хорошо".]], code [[ char_anna_atlantis_dlg:reset_more(); pret(); ]]};

		{tag="generic"};

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

			atl_lfc_panic = atl_lfc_panic + 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

			rel_walter = rel_walter - 1;

			rel_anna = rel_anna - 1;

			return [[Анна удивленно смотрит на вас: "Зачем вы это говорите? Кому может прийти в голову подобное?" ]];

		end};

		{tag="ignis_what", "Вы знаете, что произошло в Игнисе?", [[Анна отрицательно качает головой: "Мне почти ничего неизвестно. Поговорите с Даркстаром или Райтом. Или спросите моего брата, Уолтера. Я думаю он в курсе". ]]};

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

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

};

};

char_learr_atlantis_dlg = dlg {

	var {

		state = 0;

        lfc_dialog = false;

        sabotage_explained = false;

};

	nam = "Леарр";

	disp = "Леарр";

	enter = function(s)

        poff('iyh1', 'iyh2');

        if (atl_iyh_state == 1 and not atl_iyh_learr_spoken) then

            pon('iyh1');

        elseif (atl_iyh_state == 2 and ArrayUtils.indexOf(pl.party, 'learr') == 0) then

            pon('iyh2');

        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

			if (char_learr_atlantis.offended) then

				psub("offended");

				return [[Леарр поворачивается к вам, плавники ее становятся ярко-фиолетовыми. Она рычит: "Прриветсствую, монсстрр. Мы говоррить-будем?" ]];

			else

				psub("pre_iof");

				return [[Леарр поворачивается к вам, плавники ее принимают едва заметный сине-зеленый оттенок, а она говорит: "Я прриветсствую тебя-he'vji'a'rr". ]];

			end;

		elseif (s.state == 1) then

			s.state = 2;

			psub("after_iof");

			if (atl_iof_learr_suit) then

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

			else

				return [[При виде вас, плавники Леарр меняют цвет на ярко-зеленый. Она плавно опускает руки вниз и слегка наклоняется вперед. Выпрямившись, она произносит: "Я благодарю тебя". ]];

			end;

		else

            if (rel_learr < 0) then

                if (char_learr.on_books == 0) then pon("on_books") end;

            else

                if (char_learr.on_books < 2) then pon("on_books") end;

            end;

			psub("generic");

			if (rel_learr > 0) then

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

			else

				return [[Леарр поворачивается к вам, плавники ее принимают едва заметный сине-зеленый оттенок, а она говорит: "Я приветствую тебя-he'vji'a'rr". ]];

			end;

		end;

	end;

	phr = {

		{tag='offended'};

		{"Монстр?", [[Леарр молча кивает. Оттенок головных плавников на мгновение сменяется на желтый, но затем снова становится фиолетовым: "Ты так-назвал меня. Мы будем-дальше-монстрами-называть друг-друга?" ]], code [[ psub('offended_yes_no') ]]};

		{tag='offended_yes_no'};

		{"Не думаю.", [[Леарр кивает, ее плавники медленно теряют цвет. Она говорит: "Я слушаю тебя. Ты говори". ]], code [[

            char_learr_atlantis_dlg.state = 1;

            walk('atl_iof_intro');

        ]]};

		{"От этого суть не изменится, чудище.", [[Леарр скалится, показывая блестящие острые зубки: "Ты убиррайся, пока я тебя не ссъела". ]], code [[

			char_learr_atlantis_dlg.state = 1;

			walk('atl_iof_intro');

		]]};

		{tag='pre_iof'};

		{"He'vji'a'rr?", [[Леарр кивает: "Мы так-наззываем пришшедшших-сс-поверхноссти-васс". ]]};

		{"Я хотел кое-что спросить.", [["Ты говорри", -- просит Леарр. ]], code [[

			char_learr_atlantis_dlg.state = 1;

			walk('atl_iof_intro');

		]]};

		{tag="after_iof"};

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

		{tag="generic"};

		{tag="iyh1", false, "Расскажи о вашем конфликте с Дипатреанотром.", [[Леарр начинает рассказывать, активно жестикулируя: "Рреликвия нессколько-дней-наззад-изз-нашшего-хррама-прропала. Na'vji'a'yhe'dyp'atre'anot'rr вззяли нашшу-рреликвию! Они потом-в-наш-город-пришли и требовали-вернуть их-реликвию! Мы не-брали ее и это-сказали им!" -- Леарр недовольно топает и шипит, -- "Они нам-не-верят! Они украли нашу-вещь и не-верят нам!" ]], code [[ atl_iyh_learr_spoken = true; ]]};

        {tag="iyh2", false, "Я отправляюсь в храм Дипатреанотра. Мне не помешает твоя помощь.", [[Плавники Леарр принимают фиолетовый оттенок: "He'vji'a'rr нельзя туда!"]], code [[ psub("join_me"); ]]};

        {tag="sabotage", false, "Ты знаешь, что пожар начался из-за саботажа?", [[Леарр непонимающе крутит головой: "Я что-ты-говоришь-не-понимаю. Что саботаж?" ]], code [[ poff("ignis_what");psub("sabotage_explain"); ]]};

        {tag="ignis_what", false, "Ты знаешь, почему начался пожар в Игнисе?", [[Леарр неуверенно пожимает плечами: "Я ты-лучше-знаешь-думаю. Ты расскажешь?"]], code [[ psub("sabotage_reason"); ]]};

        {tag="books", false, "[Показать на книгу] Ты читаешь наши книги?", function(s)

            if (rel_learr < 0) then

                char_learr.on_books = 1;

                return [[Леарр неохотно отвечает: "Я иногда-читаю". Она явно не хочет говорить с вами об этом сейчас. ]];

            else

                char_learr.on_books = 2;

                psub("more_on_books");

                return [[Леарр отвечает: "Я иногда-читаю". Она опускает глаза на книгу, потом смотрит на вас. Немного подумав, она отвечает, как-бы нехотя: "Я не-умею-ваш-язык-читать. Я пытаюсь-учусь. Мари помогает". ]];

            end;

        end};

		{always=true, "Я пойду.", [[Плавники Леарр медленно теряют цвет и она прощается с вами: "Ты воззврращщайсся". ]], code [[back();]]};

        {tag="join_me"};

        {"Я не собираюсь входить внутрь, но мне нужно осмотреть его окрестности.", [[Цвет плавников Леарр меняется на оранжевый и затем на желтый. Она соглашается: "Я с-тобой-пойду. Я давно-в-Ираафаанотре-не-была". ]], code [[

            remove("char_learr_atlantis", where("char_learr_atlantis"));

            table.insert(pl.party, 'learr');

            move(char_learr, char_learr.home);

            pret();

        ]]};

        {"Для этого ты мне и нужна.", [[Цвет плавников Леарр меняет цвет на синий. Она соглашается: "Я согласна. Я с-тобой-пойду". ]], code [[

            remove("char_learr_atlantis", where("char_learr_atlantis"));

            table.insert(pl.party, 'learr');

            move(char_learr, char_learr.home);

            pret();

        ]]};

        {tag="sabotage_explain"};

        {"Кто-то из работников станции устроил пожар.", [[Леарр непонимающе смотрит на вас: "Я зачем-не-понимаю". ]], code [[char_learr_atlantis_dlg.sabotage_explained = true; pon("explanation2", "avoid");]]};

        {tag="explanation2", false, "Он сделал это специально с какой-то собственной целью.", [[Леарр все еще не понимая переспрашивает: "Зачем?"]]};

        {"Не думаю, что есть смысл об этом еще говорить.", function(s)

            if (char_learr_atlantis_dlg.sabotage_explained) then

                return [[Леарр кивает: "Я благодарю-за-объяснение тебя". ]];

            else

                return [[Леарр кивает. ]];

            end;

        end};

        {tag="sabotage_reason"};

        {"Это был саботаж.", [[Леарр непонимающе крутит головой: "Я что-ты-говорришшь-не-понимаю. Что ссаботажж?" ]], code [[ poff("sabotage"); psub("sabotage_explain"); ]]};

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

        {tag="more_on_books"};

        {"Я могу помочь?", [[Леарр кивает: "Я думаю-ты-дрругим-делом-ззанят. Я не-хчочу-мешшать". ]], code[[ char_learr.on_books = 3; pret(); ]]};

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

        {"Как у тебя успехи?", [[Леарр смущенно отвечает: "Я ещще-многое-не-понимаю. Но я ссо-врременем-пойму-надеюссь". ]]};

        {"Давай поговорим о другом.", [[Леарр кивает: "Ты говорри". ]], code [[pret();]]};

};

char_aikerjarr_dlg = dlg {

	var {

		state = 0;

        lfc_dialog = false;

};

	nam = "Аикерьярр";

	enter = function(s)

        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;

        poff('iyh1', 'iyh2', 'iyh4', 'iyh5');

        if (atl_iyh_state == 1 and not atl_iyh_aikerjarr_spoken) then

            pon('iyh1');

        elseif (atl_iyh_state == 2 and not atl_iyh2_aikerjarr_spoken) then

            if atl_iyh2_ryveerr_spoken then

                pon("iyh2_ryveerr");

            end;

            pon('iyh2');

        end;

        if (s.state == 0) then

            psub("first_meeting");

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

		elseif (s.state == 1) then

			psub("generic");

		end;

		return [[Аикерьярр презрительно смотрит на вас, не говоря ни слова. ]];

	end;

	phr = {

        {tag = "first_meeting"};

        {always=true, "Ты Аикерьярр?", [[Навьяр нехотя отвечает: "I'yhe'Aike'rya'yhe'iraa'pha-anot'rr". ]], code [[ char_aikerjarr_dlg.state = 1; psub("first_meeting_2a"); ]]};

        {always=true, "Добрый день.", [[Навьяр нехотя отвечает: "I'yhe'Aike'rya'yhe'iraa'pha-anot'rr vta'lyt'nn ty'yhe'he'vji'a'rr". ]], code [[ char_aikerjarr_dlg.state = 1; psub("first_meeting_2b"); ]]};

        {always=true, "Приветствую.", [[Навьяр нехотя отвечает: "I'yhe'Aike'rya'yhe'iraa'pha-anot'rr vta'lyt'nn ty'yhe'he'vji'a'rr". ]], code [[ char_aikerjarr_dlg.state = 1; psub("first_meeting_2b"); ]]};

        {tag="first_meeting_2a"};

        {always=true, "Нам нужно поговорить.", [[Навьяр надменно бросает: "I'rr vtre'za'nn he'vji'a'za'rr".]], code [[ char_aikerjarr_dlg.state = 1; psub("first_meeting_3a");]]};

        {tag="first_meeting_2b"};

        {always=true, "Я тебя не понимаю", [[Навьяр довольно ухмыляется: "Ty'rr zee'vee'nn". ]], code [[char_aikerjarr_dlg.state = 1; psub("first_meeting_2a");]]};

        {always=true, "Кончай дурить, я знаю, что ты меня понимаешь.", [[Навьяр скалит зубы: "Ты-ххевьярр так-ссо-мной-не-говорри". ]], code [[ psub("first_meeting_3b");]]};

        {always=true, "Я приду позже.", [[Навьяр довольно ухмыляется: "Ty'rr zee'vee'nn". ]], code [[ back(); ]]};

        {tag="first_meeting_3a"};

        {always=true, "I'rr vtre'za'nn na'vji'a'za'rr. Нам все еще нужно поговорить. ", [[Навьяр вздыхает: "Ty'rr не-отсстанет. I'rr тебя-сслушшает"]], code [[ char_aikerjarr_dlg.state = 1; psub("generic"); ]]};

        {always=true, "Нам все еще нужно поговорить.", [[Навьяр надменно бросает: "I'rr vtre'za'nn he'vji'a'za'rr".]], code [[ back(); ]]};

        {always=true, "Я приду позже.", [[Навьяр довольно ухмыляется: "Ty'rr zee'vee'nn". ]], code [[ back(); ]]};

        {tag="first_meeting_3b"};

        {always=true, "Значит, ты все-таки меня понимаешь. У меня есть вопросы.",  [[Навьяр вздыхает: "Ty'rr не-отсстанет. I'rr тебя-сслушшает"]], code [[char_aikerjarr_dlg.state = 1; psub("generic")]]};

        {always=true, "Значит, ты все-таки меня понимаешь. Хватит тратить мое время.", [[Навьяр недовольно рычит: "Ты говорри". ]], code [[char_aikerjarr_dlg.state = 1; psub("generic")]]};

        {always=true, "Значит, ты все-таки меня понимаешь, чертов рыбень. Теперь слушай и отвечай.", [[Навьяр стучит копьем об пол и отворачивается от вас. ]], code [[back();]]};

		{tag = "generic"};

        {tag = "sabotage", "Ты знаешь, что пожар начался из-за саботажа?", [[Аикерьярр лишь слегка усмехается, но не удостаивает вас ответом. ]]};

        {tag = "ignis_what", "Ты знаешь, почему начался пожар в Игнисе?", [[Аикерьярр лишь слегка усмехается, но не удостаивает вас ответом. ]]};

		{tag="iyh1", false, "Расскажи о вашем конфликте с Дипатреанотром.", [[Аикерьярр недовольно смотрит на вас:"He'vji'a'rr не-помочь". ^Немного подумав, он рассказывает: "Na'vji'a'yhe'dyp'atre'anot'rr говоррить yhe мы украссть реликвия-изз-ихх-ххррама, -- Аикерьярр злобно стучит зубами и в ярости сжимает кулаки, -- Мы не-делали-этого-ссказзали им! Но они в-ответ-на-нашш-ххррам-напали и нашши-рреликвии-вззяли!" ]], code [[ atl_iyh_aikerjarr_spoken = true; ]]};

        {tag="iyh2", false, "Я собираюсь в храм Дипатреанотра.", [[Аикерьярр пожимает плечами: "Ты туда-не-идешь. Ты спроси Ривеерра".]], code [[ psub("on_iyh2"); ]]};

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

        {tag="on_iyh2"};

        {tag="iyh2_ryveerr", false, "Ривеерр дал мне разрешение на осмотр окрестностей храма. ", [[Аикерьярр недовольно рычит: "Никчемный-глупец-Ривеерр. Я ссс-тобой-иду". ]], code [[ atl_iyh2_aikerjarr_spoken = true; table.insert(pl.party, 'aikerjarr'); move(char_aikerjarr_lev, char_aikerjarr_lev.home); psub("on_iyh22"); ]]};

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

        {tag="on_iyh22"};

        {"Хорошо.", [[Аикерьярр отворачивается от вас, не удостоив ответом. ]], code [[back(); ]]};

        {"Ты мне там не нужен.", [[Аиверьярр отвечает: "Я ссс-тобой-иду или ты не-идешшь-туда". ]]};

};

};

char_ryveerr_dlg = dlg {

	var {

		state = 0;

        lfc_dialog = false;

};

	nam = "Ривеерр";

	disp = "Ривеерр";

    reset_more = function(s)

        poff("on_atlantis", "on_learr", "on_ryveerr", "on_aikerjarr", "more_questions");

        if (atl_rep_dyp < 0) then

            if (char_ryveerr.atlantis_asked == 0) then pon("on_atlantis", "more_questions"); end;

            if (char_ryveerr.learr_asked == 0) then pon("on_learr", "more_questions"); end;

            if (char_ryveerr.ryveerr_asked == 0) then pon("on_ryveerr", "more_questions"); end;

            if (atl_iof_learr_dead and char_ryveerr.aikerjarr_asked == 0) then pon("on_aikerjarr", "more_questions"); end;

        else

            if (char_ryveerr.atlantis_asked < 2) then pon("on_atlantis", "more_questions"); end;

            if (char_ryveerr.learr_asked < 2) then pon("on_learr", "more_questions"); end;

            if (atl_iof_learr_dead and char_ryveerr.learr_asked < 3) then pon("on_learr", "more_questions"); end;

            if (char_ryveerr.ryveerr_asked < 2) then pon("on_ryveerr", "more_questions"); end;

            if (atl_iof_learr_dead and char_ryveerr.aikerjarr_asked < 2) then pon("on_aikerjarr", "more_questions"); 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;

    end;

	enter = function(s)

        s:reset_more();

        poff('iyh1', 'iyh2');

        if (atl_iyh_state == 1 and not atl_iyh_ryveerr_spoken) then

            pon('iyh1');

        elseif (atl_iyh_state == 2 and not atl_iyh2_ryveerr_spoken) then

            pon('iyh2');

        end;

        if ArrayUtils.indexOf(pl.party, 'learr') ~= 0 then

            pon("learr_comes");

        end;

        if (s.state == 0) then

            s.state = 1;

            psub("first_meeting");

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

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

            char_ryveerr.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="first_meeting"};

        {"Мое имя Дэвид Дрейк. Рад знакомству.", [[Плавники Ривеерра окрашиваются в зеленый: "Ты-Уильяма-сын". ]], code[[psub("first_meeting_2");]]};

        {"Мое имя Дэвид Дрейк.", [[Плавники Ривеерра окрашиваются в зеленый: "Ты-Уильяма-сын". ]], code[[psub("first_meeting_2");]]};

        {tag="first_meeting_2"};

        {"Да, все верно.", [[Ривеерр: "Я рад-помочь тебе. Ты говори". ]], code [[psub("generic");]]};

        {"Я хотел кое-что спросить. ", [[Ривеерр: "Ты говори". ]], code [[psub("generic");]]};

        {tag="iof_learr_dead"};

        {"Я сделал все, что мог.", [[Ривеерр кивает: "Мне жаль, что ты-помочь-Леарр-не-смог". Через некоторое время он приглашает: "Ты говори". ]], code [[ psub("generic"); ]]};

        {"Я пришел говорить о другом. ", [[Ривеерр отворачивается от вас. ]], code [[

            back();

        ]]};

        {tag="iof_learr_suit"};

        {"Я сделал то, что был должен.", [[Ривеерр кивает и приглашает вас: "Ты говори". ]], code [[psub("generic");]]};

        {tag="iof_learr"};

        {"Я тоже. ", [[Ривеерр кивает и приглашает вас: "Ты говори". ]], code [[psub("generic");]]};

		{tag="generic"};

		{tag="iyh1", false, "Расскажи о конфликте Ираафаанотра с Дипатреанотром.", [[Ривеерр рассказывает вам: "Na'vji'a'yhe'iraa'pha’anot’rr нашу-реликвию-украли. Мы тем-же-ответили им". ]], code [[ atl_iyh_ryveerr_spoken = true; psub("more_on_relic"); ]]};

        {tag="iyh2", false, "Я собираюсь в храм Дипатреанотра.", [[Плавники на голове Ривеерра меняют цвет на сине-фиолетовый: "Ты туда-не-идешь". ]], code [[ atl_iyh2_ryveerr_spoken = true; psub("on_iyh2"); ]]};

        {tag="sabotage", [[Ты знаешь, что пожар начался из-за саботажа?]], function(s)

            if (atl_iof_learr_dead) then

                return [[Ривеерр недовольно отвечает: "Это-не-значимо. Значимо, что Леарр мертва". ]];

            else

                return [[Ривеерр спокойно отвечает: "Ты со-мной-про-это-не-говори. Это-ваши-дела. Я не-хочу-ими-заниматься". ]];

            end;

        end};

        {tag="ignis_what", "Ты знаешь, почему начался пожар в Игнисе?", function(s)

            if (atl_iof_learr_dead) then

                return [[Ривеерр недовольно отвечает: "Это-не-значимо. Значимо, что Леарр мертва". ]];

            else

                return [[Ривеерр спокойно отвечает: "Ты со-мной-про-это-не-говори. Это-ваши-дела. Я не-хочу-ими-заниматься". ]];

            end;

        end};

        {tag="more_questions", always=true, "Я хочу кое-что спросить.", [[Ривеерр кивает: "Ты спрашивай". ]], code [[ psub("ask_more"); ]]};

        {always=true, "Я пойду.", [[Ривеерр прощается с вами: "Мы позже-поговорим". ]], code [[ back(); ]]};

        {tag="ask_more"};

        {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s)

            if (atl_rep_dyp < 0) then

                char_ryveerr.atlantis_asked = 1;

                return [[Ривеерр отвечает: "Хевьяры-с-Атлантиды уже-помогли-нам-немало. Я надеюсь-на-продолжение-плодотворного-сотрудничества". ]];

            else

                char_ryveerr.atlantis_asked = 2;

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

            end;

        end};

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

            if (atl_rep_dyp < 0) then

                char_ryveerr.aikerjarr_asked = 1;

                return [[Ривеерр отказывается отвечать:"Я не-говорю-с-тобой-об-этом". ]];

            else

                char_ryveerr.aikerjarr_asked = 2;

                return [[Плавники Ривеерра окрашиваются фиолетовым и он отвечает: "Этот все-сделает-нас-из-себя-вывести. Я считаю-он-войны-хочет-с-Атлантидой. Я не-хочу-этого, но в-Дипатреанотре-некоторые хотят. Я не-знаю-что-получится". ]];

            end;

        end};

        {tag="on_ryveerr", "Расскажи о себе.", function(s)

            if (atl_rep_dyp < 0) then

                char_ryveerr.ryveerr_asked = 1;

                return [[Ривеерр отказывается отвечать:"Я не-говорю-с-тобой-об-этом". ]];

            else

                char_ryveerr.ryveerr_asked = 2;

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

            end;

        end};

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

            if (atl_rep_dyp < 0) then

                char_ryveerr.learr_asked = 1;

                return [[Ривеерр отказывается отвечать:"Я не-говорю-с-тобой-об-этом". ]];

            else

                if (atl_iof_learr_dead) then

                    char_ryveerr.learr_asked = 3;

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

                else

                    char_ryveerr.learr_asked = 2;

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

                end;

            end;

        end};

        {always=true, "Давай поговорим о другом.", [[Ривеерр кивает: "Ты говори". ]], code [[ char_ryveerr_dlg:reset_more(); pret(); ]]};

		{tag="more_on_relic"};

		{"Тем же?", [[Ривеерр щелкает зубами: "Мы светодиск-из-их-храма-забрали. Мы вернем его, ysl они вернут нашу-реликвию". ]]};

		{"Вы уверены, что кража -- их рук дело?", [[Ривеерр уверенно кивает: "Только-они могли сделать. Я расскажу", -- Ривеерр на небольшое время замолкает, собираясь с мыслями, после чего продолжает: "Na'vji'a'yhe'iraa'pha’anot’rr ночью-в-наш-храм-пришли и охранников-убили. Они реликвию-украли и в-свой-город-унесли". ]], code [[ psub("why"); ]]};

		{tag="why", empty=code [[ atl_iyh_ryveerr_spoken = true; psub("generic"); ]]};

		{"Вы уверены, что это они?", [[Ривеерр отвечает: "Другой-никто не-мог-сделать". ]]};

        {"Как убили охранников?", [[Ривеерр отвечает: "Их копьями-проткнули. Мы раны-видели". ]]};

		{always=true, "Я вернусь позже.", [[Ривеерр прощается с вами: "Мы поззжже-поговоррим". ]], code [[ back(); ]]};

        {tag="on_iyh2"};

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

        {tag="learr_comes", false, "Со мной отправится Леарр.", [[Ривеерр отвечает: "Ты туда-не-идешь. He'vji'a'rr нельзя-в-храм". ]]};

        {tag="learr_comes", "Со мной отправится Леарр.", [[Ривеерр отвечает: "Ты туда-не-идешь. He'vji'a'rr нельзя-в-храм". ]]};

};

};

char_evans_dlg = dlg {

	var {

		state = 0;

};

	nam = "Кристиан Эванс";

	disp = "Кристиан Эванс";

	enter = 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("generic"); ]]};

		{tag="generic"};

        {"Что вы можете рассказать о Леарр?", function(s)

            if (iof_learr_dead) then

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

            else

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

            end;

        end};

        {tag="on_aikerjarr", false, "Что вы можете сказать об Аикерьярре?", [[Кристиан чешет подбородок: "Не знаю, почему Ираафаанотр отправил на Атлантиду этого... Наверное, было бы проще, не будь на станции вообще никого из Ираафаанотра. И безопаснее для наших отношений тоже. Этот... Да он словно намеренно пытается вывести тут всех из себя".]]};

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

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

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

			atl_lfc_panic = atl_lfc_panic + 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

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

		end};

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

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

};

};

char_winterlight_dlg = dlg {

	var {

		state = 0;

};

	nam = "Сильвия Уинтерлайт";

	disp = "Сильвия Уинтерлайт";

	enter = 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

			psub("first_meeting");

            s.state = 1;

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

		else

			psub("generic");

			return [[Сильвия отрывает взгляд от карты: "Приветствую, что вы хотели?" ]];

		end;

	end;

	phr = {

		{tag="first_meeting"};

        {"Рад знакомству. Я хотел бы кое-что спросить.", [[Сильвия улыбается и кивает: "Конечно, господин Дрейк, я слушаю". ]], 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;

            if (atl_lfc_panic <= 2) then

                return [[Сильвия Уинтерлайт пожимает плечами: "Не поверю, чтобы кто-то это мог сделать". ]];

            elseif (atl_lfc_panic == 3) then

                return [[Сильвия Уинтерлайт удивленно смотрит на вас: "Вы не первый кто так говорит. Но кто это мог сделать?" ]];

            end;

        end;};

        {tag="ignis_what", false, "Вы знаете, что произошло в Игнисе?", [[Сильвия отвечает: "Крайне мало. Вам лучше поговорить с Райтом или Даркстаром". ]]};

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

};

};

char_jack_wright_atlantis_dlg = dlg {

	var {

		state = 0;

        lfc_dialog = 0;

};

	nam = 'char_jack_wright_atlantis_dlg';

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

	enter = 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 = "Мари Легран";

	enter = 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;

        poff("tube_spec");

        if (atl_nih_state == 1 and not have(atl_item_tube_spec)) then

            pon("tube_spec");

        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", "ancient_city");psub("generic"); ]]};

		{tag="generic"};

        {tag="tube_spec", false, "Мне нужна документация по системам воздуховодов.", [[Мари Легран удивленно спрашивает: "Райт просил? Удачи в изучении", -- и кладет на стол перед вами толстую книжицу. ]], code [[ take(atl_item_tube_spec); ]]};

		{tag="father_more", false, "Кто отправился вместе с моим отцом?", [[Мари Легран отвечает: "Немногие. Они вообще хотел отправиться вдвоем с Блэком, но Блэк уговорил Уильяма взять Джона Брауна и Антонио Гарсия". ]], code [[psub("more_people");]]};

        {tag="ancient_city", false, "Какой еще город?", [[Мари Легран отвечает: "Да, вы же не в курсе. Лсэрианотр, или как-то так. Древний навьярский город по легенде скрывает какое-то древнее знание, которое, как и всегда в легендах, сторожит непобедимое чудовище. Дрейк и Блэк, вроде как, сумели найти какие-то карты, якобы указывающие путь к этому городу". ]]};

		{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 = "Уолтер Рэдклифф";

    reset_more = function(s)

        poff("on_anna", "on_walter", "on_atlantis", "on_drake", "on_black", "on_join", "talk");

        if (rel_walter < 0) then

            pon("talk");

        else

            if (char_radcliffe.on_anna < 2) then

                pon("on_anna");

                pon("talk");

            end;

            if (char_radcliffe.on_black < 2) then

                pon("on_black");

                pon("talk");

            end;

            if (char_radcliffe.on_walter < 2) then

                pon("on_walter");

                pon("talk");

            end;

            if (char_radcliffe.on_atlantis < 2) then

                pon("on_atlantis");

                pon("talk");

            end;

            if (char_radcliffe.on_drake < 2) then

                pon("on_drake");

                pon("talk");

            end;

            if (char_radcliffe.on_join < 2) then

                pon("on_join");

                pon("talk");

            end;

        end;

    end;

	enter = function(s)

        s:reset_more();

		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="questions"};

        {tag="on_black", "Что ты можешь сказать о Блэке?", function(s)

            char_radcliffe.on_black = 2;

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

        end};

        {tag="on_walter", "Расскажи о себе.", function(s)

            char_radcliffe.on_walter = 2;

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

        end};

        {tag="on_anna", "Расскажи о своей сестре, Анне.", function(s)

            char_radcliffe.on_anna = 2;

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

        end};

        {tag="on_drake", "Что ты можешь сказать о Дрейке?", function(s)

            char_radcliffe.on_drake = 2;

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

        end};

        {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s)

            char_radcliffe.on_atlantis = 2;

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

        end};

        {tag="quit", always=true, "Поговорим в другой раз. ", [[Уолтер кивает: "Хорошо".]], code [[ char_radcliffe_atlantis_dlg:reset_more(); pret();]]};

		{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="questions", "У меня есть несколько вопросов. ", function(s)

            if (rel_anna < 0) then

                return [[Уолтер отрицательно качает головой: "Не сейчас, я занят". ]];

            else

                psub("questions");

                return [[Уолтер кивает: "Слушаю". ]];

            end;

        end};

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

			rel_walter = rel_walter + 1;

		]]};

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

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

		]]};