global {
    lse_key = false;
};

lseryanotrr_found_cutscene = cutscene("lseryanotrr_found_cutscene", 'Левиафан, кают-компания', function(s)
    pr [[Экипаж Левиафана собирается в кают-компании, чтобы разобраться в хитросплетениях древней навьярской карты. ]];
    if ArrayUtils.indexOf(pl.party, 'learr') ~= 0 and ArrayUtils.indexOf(pl.party, 'anna') ~= 0 then
        pr [[Помощь Анны и Леарр оказалась неоценимой. Хотя они много спорили о значениях тех или иных символов, в итоге это привело к нужному результату. ]];
    elseif ArrayUtils.indexOf(pl.party, 'learr') ~= 0  then
        pr [[С большим трудом вы с Леарр разбирали символы карты, многие из которых были неизвестны даже ей, пытаясь установить их истинное значение, но в итоге достигли резульата. ]];
    elseif ArrayUtils.indexOf(pl.party, 'anna') ~= 0 then
        pr [[С большим трудом вы с Анной разбирали символы карты, многие из которых были неизвестны ей, пытаясь установить их истинное значение, но в итоге достигли резульата. ]];
    end;
    pr [[На то, чтобы проложить курс у вас уходит несколько часов кропотливой работы. ]];
end, "leviathan_wardroom");

lse_entered = cutscene("lse_entered", "Левиафан, рубка", [[После бесконечной череды скал и ущелий перед Левиафаном, наконец, открылось громадное плато с выросшим по центру колоссальных размеров городом, полностью накрытым прозрачным куполом, защищающим древние строения от проникновения посторонних. Приближаясь вы начинаете различать отдельные здания, выстроившиеся тремя кольцами вокруг центральной башни-обелиска. Ослепительно-ярким светом горят на этом маяке цветные символы древнего навьярского языка. К сожалению, сейчас вы можете понять только часть их. То, что вы читаете гласит: "Первый и главный город навьяров и хевьяров". Весь экипаж Левиафана собирается в рубке, не в силах оторвать взгляд от грандиозного зрелища. ]], "lse_entered2", function(s)
    char_learr:accompany(false);
    char_phaetlarr:accompany(false);
    char_radcliffe:accompany(false);
    char_wright:accompany(false);
    char_anna:accompany(false);
end);

lse_entered2 = cutscene("lse_entered2", "Левиафан, рубка", function(s)
    if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
        if (rel_learr >= 0) then
            pr [[Леарр застыла в изумлении и лишь по ее плавникам бегут цветные полосы, означающие "Удивительно, что это построили мои предки. Хотелось бы, чтобы мы могли строить такое сейчас". Она обращает свой взор к вам и совершенно искренне благодарит вас, уже голосом: "Ты-Дрейк, это-возможным-сделал. Пусть тепло-и-волны вечно-будут-с-тобой". ^]];
        else
            pr [[Леарр застыла в изумлении и лишь по ее плавникам бегут цветные полосы, означающие "Удивительно, что это построили мои предки. Хотелось бы, чтобы мы могли строить такое сейчас". Она обращает свой взор к вам и произносит голосом: "Мы наш-путь-закончили-почти. Наконец-то мы своими-путями-разойдемся". ^ ]];
        end;
    end;
    if (ArrayUtils.indexOf(pl.party, 'phaetlarr') ~= 0) then
        if (rel_phaetlarr >= 0) then
            pr [[Фаэтларр неподвижно встал рядом с вами. Не отрывая взгляда, он молча смотрит через иллюминаторы Левиафана на древний город своего народа. ^]];
        elseif (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
            pr [[
                Фаэтларр неподвижно встал рядом с Леарр. Не отрывая взгляда, он молча смотрит через иллюминаторы Левиафана на древний город своего народа. ^]];
        else
            pr [[Фаэтларр неподжвижно стоит в углу рубки. Не отрывая взгляда, он молча смотрит через иллюминаторы Левиафана на древний город своего народа. ^]];
        end;
    end;
    if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
        if (rel_jack >= 0) then
            pr [[При виде купола и всего что находится под ним, Джек восклицает: "Невероятно, Дрейк! Ты только посмотри! Хотелось бы мне знать, как они сделали это. Это в тысячи раз больше нашей маленькой Атлантиды. Сколько же энергии требуется чтобы осветить и согреть такую громадину?!" ^]];
        elseif (rel_jack < 0) then
            pr [[При виде купола и всего что находится под ним, Джек восклицает: "Невероятно! Хотелось бы мне знать, как они сделали это. Это в тысячи раз больше нашей маленькой Атлантиды!" ^]];
        end;
    end;
    if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
        if (rel_anna >= 0) then
            pr [[Анна сосредоточенно перерисовывает древние символы себе в блокнот, делая какие-то пометки. Лишь на краткий миг она обернулась к вам, чтобы улыбнуться. ^]];
        else
            pr [[Анна сосредоточенно перерисовывает древние символы себе в блокнот, делая какие-то пометки. ^]];
        end;
    end;
    if (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0) then
        if (rel_walter >= 0) then
            pr [[Какое-то время Уолтер неподвижно стоит рядом со своей сестрой. Затем он подходит к вам и сердечно пожимает вашу руку. ^]];
        elseif (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0) then
            pr [[Уолтер неподвижно стоит рядом со своей сестрой. ^]];
        else
            pr [[Уолтер неподвижно стоит в углу комнаты. ^]];
        end;
    end;
end, "lse_entered3");

lse_entered3 = cutscene("lse_entered3", "Левиафан, рубка", [[Яркие зеленые огни указывают вам на открывающийся проем в стене Лсэрианотра -- древний город приглашает вас внутрь. Не раздумывая, вы направляете Левиафан туда. Части стены раздвигаются, пропуская вас внутрь. Вы аккуратно проводите субмарину через открывшийся проход и оказываетесь в огромном хорошо освещенном доке. Стены, пол и потолок его излучают мягкий белый свет. Зал заполнен водой лишь наполовину и в верхней части вас уже ждет группа навьяров. Среди них выделяется один стоящий в центре. Вместо обычного для их народа одеяния из водорослей, он одет в человеческие рубашку и брюки! ^Стена позади вас закрывается и вы оказываетесь отрезаны от внешнего мира. Вы дергаете один из рычагов на приборной панели и Левиафан поднимается на поверхность...]], "lse_entered4");

lse_entered4 = dlg {
    nam = "Левиафан, рубка";
    entered = function(s)
        if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
            pon('learr');
        end

        if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
            pon('jack');
        end

        if (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0) then
            pon('walter');
        end

        if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
            pon('anna');
        end

        return [[Экипаж Левиафана собирается в кают-компании. Почти все присутствующие принимают решение идти в город вместе с вами. Единственным, выказавшим иное мнение оказался Фаэтларр: "Я неразумным-считаю корабль-без-присмотра-оставлять. Я остаюсь здесь". ]];
    end;
    phr = {
        {tag='phaetlarr', 'Левиафан будет здесь в безопасности. Люди Дрейка присмотрят за ним.', [[Фаэтларр не соглашается с вами: "Многие-из-нас пустым-кораблем-заинтересуются. Что-нибудь возьмут-или-сломают".]]};
        {tag='learr', false, 'Леарр, тебе стоит остаться вместе с Фаэтларром.', [[Леарр отрицательно качает головой: "Я Лсэрианотр-своими-глазами-видеть-хочу". ]]};
        {tag='jack', false, 'Джек, тебе стоит остаться вместе с Фаэтларром.', [[Джек отрицательно качает головой: "Я не могу пропустить это. Я иду вместе со всеми". ]]};
        {tag='walter', false, 'Уолтер, тебе стоит остаться вместе с Фаэтларром.', [[Уолтер отрицательно качает головой: "Нет, мы с сестрой пойдем с вами". ]], code [[poff('anna');]]};
        {tag='anna', false, 'Анна, тебе стоит остаться на борту.', [[Анна отрицательно качает головой: "Я хочу увидеть Лсэрианотр своими глазами". ]]};
        {tag='end', 'Все решено. Выходим. [Отправиться в шлюзовую камеру]', code [[ walk('lse_aedhyarr_intro'); ]]};
    }
}

lse_aedhyarr_intro = dlg {
    nam = "lse_aedhyarr_intro";
    disp = "Лсэрианотр";
    entered = function(s)
        if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
            return [[Едва вы ступаете на металлический пирс, как навьяр в человеческой одежде приветствует вас: "Аэдхиарр рад встрече-с-вами, вьяры. Властитель вас-видеть-хочет". ]];
        elseif (ArrayUtils.indexOf(pl.party, 'wright') ~= 0 or ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0 or ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
            return [[Едва вы ступаете на металлический пирс, как навьяр в человеческой одежде приветствует вас: "Аэдхиарр рад встрече-с-вами, хевьяры. Властитель вас-видеть-хочет". ]];
        else
            return [[Едва вы ступаете на металлический пирс, как навьяр в человеческой одежде приветствует вас: "Аэдхиарр рад встрече-с-тобой, хевьяр. Властитель тебя-видеть-хочет". ]];
        end;
    end;
    phr = {
        {tag="sovereign", "Властитель?", [[Аэдхиарр поясняет: "Хевьяры под-именем-Уильям-Дрейк-его-знают". ]], code [[ poff('william'); ]]};
        {tag="william", "Ты знаешь Уильяма Дрейка?", [[Аэдхиарр отвечает: "Он наш властитель". ]], code [[ poff('sovereign'); ]]};
        {"Что ты знаешь об этом месте?", [[Аэдхиарр отвечает: "Древние-машины несчетные-тайны-хранят. Все-они откроются-нам, когда властитель спящего-мудреца-пробудит". ]]};
        {"Что ты знаешь о Наэтвьирре?", [[Аэдхиарр отвечает: "Хранитель-этого-города-спящий-мудрец. Властитель способ-разбудить-его-знает". ]]};
        {"Что если я откажусь идти?",  [[Аэдхиарр спокойно сообщает: "Вы не-можете-отказаться". ]]};
        {"Я готов идти. ", [[Вслед за Аэдхиарром вы покидаете док и оказываетесь в длинном коридоре, слева и справа огражденном металлическими стенами. ]], code [[ walk("lse_walk_intro"); ]]};
    };
};

lse_walk_intro = cutscene("lse_walk_intro", "Лсэрианотр", function(s)
    pr [[Вы идете почти целый час. За это время вы успели увидеть значительную часть города. Как вы и предполагали, город выстроен тремя кольцами вокруг центральной башни. Проход между кольцами возможен лишь через врата, в остальных местах здания расположены так плотно друг к другу, что гораздо более похоже на одно колоссальное сооружение, чем на город с множеством отдельных домов. Высоко над вами возвышается купол города, над которым плещется бескрайний океан. Аэдхиарр не говорит ни слова в течение всего пути. ^]];

    if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
        pr [[Леарр идет рядом с вами, восторженно оглядываясь по сторонам. ^]];
    end;

    if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
        pr [[Внимание Джека полностью поглощено древним городом. Он с восхищением разглядывает металлические конструкции, окружающие вас. ^]];
    end;

    if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
        pr [[Анну, похоже, крайне заинтересовал центральный обелиск. За время пути она несколько раз пыталась заговорить с Аэдхиарром о нем, но тот молчал. ^]];
    end;

    if (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0) then
        if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
            pr [[Уолтер молча идет рядом с сестрой. Кажется, его совершенно не интересует происходящее вокруг. ^]];
        else
            pr [[Уолтер молча следует за вами. Кажется, его совершенно не интересует происходящее вокруг. ^]];
        end;
    end;
end, "lse_drake_intro");

lse_drake_intro = dlg {
    nam = "Лсэрианотр, центральный зал";
    entered = function(s)
        pr [[Когда вы входите в центральный зал, ваш взгляд падает на статую навьяра, стоящую в его центре. Вокруг статуи расположено четыре невысоких стеклянных пилона, а со всех сторон круглого зала к ним тянутся толстые провода. ^В дальнем конце зала стоит худой человек в костюме из морских растений. Вы вы без труда узнаете своего отца. Он выглядит так же как и на фотографиях и портретах, что вы видели -- густые темные волосы, лишь слегка тронутые сединой, короткая черная борода с немногими седыми волосками. Красивое лицо лишь слегка тронуто несколькими морщинами. В серых глазах читается выражение удивления. ^]];
        
        if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
            pr [[Леарр застыла в замешательстве и ждет развития событий. ]];
        end;
        
        if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
            pr [[Джек окидывает взглядом комнату. На его лице явно читается интерес к расположенным в комнате вещам, однако, он не говорит ни слова. ]];
        end;
        
        if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
            pr [[Анна что-то записывает в своем блокноте. ]];
        end;
        
        if (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0) then
            pr [[Взгляд Уолтера устремлен в сторону Уильяма Дрейка. ]];
        end;
        
        if (have("item_naethvjirr_key")) then
            pon("control");
        end;
        
        pr [[Аэдхиарр подходит к Дрейку и сообщает ему: "Гости прибыли". Дрейк подходит к вам и приветствует: "Добро пожаловать. Хорошо, что вы пришли". Взгляд Уильяма останавливается на вас: "Кто этот молодой человек? Его не было на Атлантиде". ]];
    end;
    phr = {
        {tag='root'};
        {"Мое имя Дэвид Дрейк.", [[В глазах Уильяма появляется удивление, он восклицает: "Боже правый! Но как ты нашел нас?"]], code [[ psub('how'); ]]};
        {tag='how'};
        {"Я поднял старые документы. [Кратко пересказать историю]", [[Уильям улыбнулся: "Молодец. Я даже не надеялся, что мы так хорошо все запрятали. Адриан и Майкл заслуживают похвалы. Я предполагал, что уже через полгода-год кто-нибудь с поверхности найдет нашу станцию", -- Уильям делает небольшую паузу, -- "Хорошо, что этого не произошло. Уж точно я не предполагал, что именно ты найдешь нас. Что побудило тебя проделать столь долгий путь?" ]], code [[psub('why'); ]]};
        {tag='why'};
        {"Я искал тебя.", [[Уильям кивает: "Твои поиски окончены, сын. Я предлагаю тебе вместе со мной раскрыть одну из величайших загадок этой планеты. Сейчас мы включим эту машину и посмотрим, для чего она была нужна. Поможешь?" ]], code [[psub('danger');]]};
        {"Это было увлекательным приключением.", [[Уильям улыбается: "Это приключение почти закончено, но нас ждет еще множество других. Поможешь мне?" ]], code [[psub('danger');]]};
        {"Я не мог оставить эту тайну неразгаданной.", [[Уильям улыбается: "Вот это по-нашему. Подумать только, мы, Дрейки, разгадаем тайну, вероятно, древнейшего города на этой планете. Не откажешься помочь мне с этим?"]], code [[psub('danger');]]};
        {tag='danger'};
        {"Что именно ты собираешься сделать?", [[Уильям Дрейк начинает рассказывать: "Мы на пороге величайшего события, которого навьяры ждали тысячелетия. Не секрет, что все время, с тех пор как Лсэрианотр оказался брошен, навьярская цивилизация пребывала в упадке. Не секрет, что все это время мы, люди, росли и развивались. Не секрет, что былые достижения навьяров все еще намного выше наших текущих. Я хочу сделать то, чего не сделали древние. Лсэрианотр и его знания должны стать доступны всем вьярам на этой планете. Но это не все. Эйлеслтеквьирр, мыслящая машина, более известная вам как Наэтвьирр, поможет нам достичь небывалых высот. Неподвластный эмоциям, Эйлеслтеквьирр сможет стать незаменимым помощником для ученых. Не подвержденный жажде власти и богатств, он сможет управлять городами и странами, создавая эффективную и удобную инфраструктуру. Вы спросите, как мы добьемся этого? Все просто. Люди сами придут к нам за благами прогресса". ]], function(s) psub('danger2'); end};
        {tag="danger2"};
        {"Я готов. Что мне нужно сделать?", function(s)
            walk("lse_join_drake");
        end};
        {"Это безумие!", [[Уильям Дрейк отвечает: "Вовсе нет. Эйлеслтеквьирр вполне способен достичь всего этого". ]]};
        {"Ты хочешь сделать всех рабами машины?", [[Уильям Дрейк отвечает: "Это Эйлеслтеквьирр будет служить нам, а не мы ему. Он возьмет на себя тяжелую работу по планированию и принятию ключевых решений. Людям и навьярам свойственно ошибаться. Наэтвьирр спроектирован так, чтобы ошибок не совершать". ]], function(s) pon('created_by_navjiarrs'); end};
        {tag="created_by_navjiarrs", false, "Наэтвьирра создали навьяры, они могли ошибиться", [[Уильям Дрейк отвечает: "Возможно, но они предусмотрели и решение, на случай выхода Наэтвьирра из под контроля".]]};
        {"Мне кажется, рановато включать его сейчас. Сначала нужно всесторонне изучить город.", [[Уильям отвечает: "Все дороги в этом городе ведут сюда. Наэтвьирр откроет для нас все. А что не откроет, мы изучим после". ]]};
        {"Во многих источниках говорится об опасности Наэтвьирра.", [[Уильям отвечает: "Думаю, мы сможем справиться с этим. Мы провели немалую работу, чтобы убедиться в безопасности Эйлеслтеквьирра". ]]};
        {"[Показать ключ из древнего храма] Вы не сможете управлять Наэтвьирром без этого.", [[В глазах Уильяма мелькнуло любопытство: "Он нам пригодится". Вы не успеваете среагировать, как Аэдхиарр вырывает ключ из ваших рук. ]], code [[ remove('item_naethvjirr_key', pl) lse_key = true; ]]};
        {"[Экипажу Левиафана] Что скажете?", function(s)
            if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
                if rel_learr >= 0 then
                    pr [[Леарр говорит: "Я считаю, что пробуждение-Наэтвьирра-поспешно".^]];
                else
                    pr [[Леарр не отвечает.^]];
                end;
            end;

            if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
                if rel_jack >= 0 then
                    pr [[Джек вопрошает: "Что плохого может произойти? Я считаю стоит рискнуть".^]];
                else
                    pr [[Джек отвечает: "Делайте, как считаете нужным".^]];
                end;
            end;

            if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
                if rel_anna >= 0 then
                    pr [[Анна отвечает: "Наэтвьирр ждал нас тысячелетия. Подождет и еще несколько дней. Или месяцев. Надо подготовиться, прежде чем действовать".^]];
                else
                    pr [[Леарр пожимает плечами и нехотя выдает: "Не знаю".^]];
                end;
            end;

            if (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0) then
                if rel_walter >= 0 then
                    pr [[Уолтер отвечает: "Нам некуда спешить. Давайте все осмотрим и примем решение".^]];
                else
                    pr [[Уолтер молчит.^]];
                end;

            end;
        end};
        {"Я думаю, не стоит включать эту машину сейчас.", [[Уильям усмехается: "Вы попытаетесь мне помешать?"]], code [[psub('stop');]]};
        {tag="stop"};
        {"Хорошо, я помогу тебе.", function(s)
            walk("lse_join_drake");
        end};
        {"Если у меня не будет другого выбора.", function(s)
            walk("lse_confront_drake");
        end};
    };
};