};

};

atl_oculus_lab_b = room {

    nam = "Атлантида, Окулус, лаборатория B";

    dsc = [[Просторное помещение уставлено множеством столов, шкафов и различных приборов. Вдоль стен над столами расположены многочисленные решетки вентиляции. ]];

    way = {

        kh_vroom("В коридор", "atl_oculus_main_corridor");

    };

    obj = {

        "char_winterlight"

    };

};

atl_oculus_lab_c = room {

    nam = "Атлантида, Окулус, лаборатория C";

    dsc = [[Просторное помещение уставлено множеством столов, шкафов и различных приборов. Вдоль стен над столами расположены многочисленные решетки вентиляции. ]];

    way = {

        kh_vroom("В коридор", "atl_oculus_main_corridor");

    };

    obj = {

        "char_ryveerr",

        "char_anna_atlantis",

        "char_evans"

    };

};

atl_oculus_library = room {

    nam = "Атлантида, Окулус, библиотека";

    dsc = [[Рядом со входом в библиотеку расположен небольшой столик, на котором покоится каталог. Практически все пространство комнаты занято высокими стеллажами, заполненными книгами, журналами и документами. ]];

    way = {

        kh_vroom("В коридор", "atl_oculus_main_corridor");

    };

    obj = {

        "char_legrand"

    };

};

atl_dom_lift = room {

    var {

        state = 0;

    };

    nam = "Атлантида, лифт";

    dsc = [[Герметичная кабина лифта, рассчитанная на 5-6 человек. ]];

    way = {

        kh_vroom("Выйти", function()

            if (atl_dom_lift.state == 0) then

                return "atl_dom_main_c";

            else

                return "atl_ignis_main_center";

            end;

        end);

    };

    obj = {

        "atl_lift_lever"

    };

};

atl_lift_lever = obj {

    nam = "Рычаг";

    dsc = [[На стене укреплен массивный {рычаг}, повернув который, вы приведете в движение механизм лифта. ]];

    act = function(s)

        if (atl_dom_lift.state == 1) then

            atl_dom_lift.state = 0;

            return [[Вы поворачиваете рычаг и слышите грохот механизмов, плавно опускающих кабину лифта. ]];

        else

            atl_dom_lift.state = 1;

            return [[Вы поворачиваете рычаг и слышите грохот механизмов, плавно поднимающих кабину лифта. ]];

        end;

    end;

};

--[[

Персонажи

]]

char_darkstar = npc {

    var {

        drake_asked = 0;

        black_asked = 0;

        darkstar_asked = 0;

        svetlova_asked = 0;

        moreau_asked = 0;

        wright_asked = 0;

        leroy_asked = 0;

        jones_asked = 0;

        goldman_asked = 0;

        atlantis_asked = 0;

        navjiarr_asked = 0;

        learr_asked = 0;

        ryveerr_asked = 0;

        aikerjarr_asked = 0;

    };

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

    dsc = function(s)

        if (char_darkstar_dlg.state == 0) then

            return [[В одном из кресел сидит средних лет {мужчина} с короткими черными волосами. Он одет в строгий деловой костюм черного цвета. Лицо его гладко выбрито. Холодный взгляд его черных глаз устремлен на вас. Сложив руки на столе, он ждет ваших дальнейших действий. ]];

        else

            return [[В одном из кресел сидит {Винсент Даркстар}. Холодный взгляд его черных глаз устремлен на вас. Сложив руки на столе, он ждет ваших дальнейших действий. ]];

        end;

    end;   

    dlg = "char_darkstar_dlg";

};

char_moreau = npc {

    var {

        drake_asked = 0;

        black_asked = 0;

        darkstar_asked = 0;

        svetlova_asked = 0;

        moreau_asked = 0;

        wright_asked = 0;

        leroy_asked = 0;

        jones_asked = 0;

        goldman_asked = 0;

        atlantis_asked = 0;

        navjiarr_asked = 0;

        learr_asked = 0;

        ryveerr_asked = 0;

        aikerjarr_asked = 0;

    };

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

    dsc = function(s)

        if (char_moreau_dlg.state == 0) then

            return [[За столом в кресле сидит немолодой {мужчина}. Кудрявые седые волосы обрамляют его лицо. Он носит длинные седые усы. Одет человек в строгий деловой костюм бежевого цвета. Его серые глаза, скрытые очками, внимательно рассматривают вас. В руках он вертит перо. ]];

        else

            return [[За столом в кресле сидит {Фредерик Моро} и внимательно наблюдает за вами сквозь стекла очков. В руках он вертит перо. ]];

        end;

    end;   

    dlg = "char_moreau_dlg";

};

char_svetlova = npc {

    var {

        drake_asked = 0;

        black_asked = 0;

        darkstar_asked = 0;

        svetlova_asked = 0;

        moreau_asked = 0;

        wright_asked = 0;

        leroy_asked = 0;

        jones_asked = 0;

        goldman_asked = 0;

        atlantis_asked = 0;

        navjiarr_asked = 0;

        learr_asked = 0;

        ryveerr_asked = 0;

        aikerjarr_asked = 0;

    };

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

    dsc = function(s)

        if (char_svetlova_dlg.state == 0) then   

            return [[За столом сидит {женщина} лет сорока-пяти. Золотистые волосы собраны в пучок на затылке. Она одета в простое синее платье. В правой руке она держит карандаш, которым периодически делает пометки в бумагах, лежащих на столе. Кажется, она не обращает на вас никакого внимания. ]];

        else

            return [[За столом сидит {Екатерина Светлова}. Периодически она делает какие-то пометки карандашом в бумагах, лежащих на столе. ]];

        end;

    end;

    dlg = "char_svetlova_dlg";

};

char_anna_atlantis = npc {

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

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

    dsc = function(s)

        if (where(char_learr_atlantis) ~= atl_oculus_lab_c) then

            if (char_anna_atlantis_dlg.state == 0) then

                return [[{Девушка} лет двадцати-пяти--тридцати внимательно слушает навьяра, иногда что-то спрашивая. ]];

            else

                return [[{Анна Рэдклифф} внимательно слушает навьяра, иногда что-то спрашивая. ]];

            end;         

        else

            if (char_anna_atlantis_dlg.state == 0) then      

                return [[{Девушка} лет тридцати внимательно слушает навьяров, иногда что-то спрашивая. ]];

            else

                return [[{Анна Рэдклифф} внимательно слушает навьяров, иногда что-то спрашивая. ]];

            end;         

        end;

    end;

    dlg = "char_anna_atlantis_dlg";

};

char_learr_atlantis = npc {

    var {

        offended = false;

    };

    nam = "Леарр";

    dsc = function(s)

        if stead.deref(here()) == "atl_oculus_library" then

            return [[{Леарр} сидит за одним из столов, листая какую-то книгу. ]];

        elseif stead.deref(here()) == "atl_oculus_library" then

            return [[{Леарр} спокойно стоит рядом с Екатериной Светловой. ]];

        else

                return [[{Леарр} стоит перед иллюминатором и что-то рассказывает ]];

            else

                return [[{Леарр} стоит перед иллюминатором и смотрит вдаль. ]];

            end;

        end;

    end;

    dlg = function(s)

        if stead.deref(where(s)) == atl_oculus_lab_a then

            return "char_svetlova_dlg";

        else

            return "char_learr_atlantis_dlg";

        end;

    end;

};

char_aikerjarr = npc {

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

    dsc = function(s)

        if (char_aikerjarr_dlg.state == 0) then

            return [[У одного из столов неподвижно стоит {навьяр}. ]];

        else

            return [[У одного из столов неподвижно стоит {Аикерьярр}. ]];

        end;      

    end;

    dlg = "char_aikerjarr_dlg";

};

char_ryveerr = npc {

    var {

        learr_asked = 0;

        ryveerr_asked = 0;

        atlantis_asked = 0;

        aikerjarr_asked = 0;

    };

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

    dsc = function(s)

        if (char_ryveerr_dlg.state == 0) then

            return [[У одного из столов стоит {навьяр} и что-то рассказывает. ]];

        else

            return [[У одного из столов стоит {Ривеерр} и что-то рассказывает. ]];

        end;

    end;

    dlg = "char_ryveerr_dlg";

};

char_evans = npc {

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

    dsc = function(s)

        if (char_evans_dlg.state == 0) then

            return [[Там же стоит пожилой {мужчина} с блокнотом и делает какие-то записи. ]];

        else

            return [[Там же стоит {Кристиан Эванс} с блокнотом и делает какие-то записи. ]];

        end;

    end;

    dlg = "char_evans_dlg";

};

char_winterlight = npc {

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

    dsc = function(s)

        if (char_winterlight_dlg.state == 0) then

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

        else

            return [[{Сильвия Уинтерлайт} стоит возле одного из столов, рассматривая карту. ]];

        end;

    end;   

    dlg = "char_winterlight_dlg";

};

char_jack_wright_atlantis = npc {

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

    dsc = function(s)

        if (where(char_jack_wright_atlantis) == atl_ignis_hall_a) then

            return [[{Джеку Райту}, стоящему рядом. ]];

        else

            return [[{Джек Райт} лежит на койке, листая какую-то книгу. Рядом лежит блокнот, в котором он время от времени он делает пометки карандашом. ]];

        end;

    end;

    dlg = "char_jack_wright_atlantis_dlg";

};

char_michael_wright = npc {

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

    var {

        drake_asked = 0;

        black_asked = 0;

        darkstar_asked = 0;

        svetlova_asked = 0;

        moreau_asked = 0;

        wright_asked = 0;

        leroy_asked = 0;

        jones_asked = 0;

        goldman_asked = 0;

        atlantis_asked = 0;

        navjiarr_asked = 0;

        learr_asked = 0;

        ryveerr_asked = 0;

        aikerjarr_asked = 0;

        jack_asked = 0;

    };   

    dsc = function(s)

        return [[{Майкл Райт} просматривает какие-то чертежи. ]];

    end;

    dlg = "char_michael_wright_dlg";

};

char_legrand = npc {

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

    dsc = function(s)

        if (char_legrand_dlg.state == 0) then

            return [[На стуле в углу сидит {женщина} лет сорока--сорока-пяти и листает какую-то книгу.]];

        else

            return [[На стуле в углу сидит {Мари Легран} и листает какую-то книгу. ]];

        end;   

    end;   

    dlg = "char_legrand_dlg";

};

char_radcliffe_atlantis = npc {

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

    dsc = function(s)

        if (char_radcliffe_atlantis_dlg.state == 0) then

            return [[{Человек} лет сорока--сорока-пяти стоит, навалившись на стену. ]];

        else

            return [[{Уолтер Рэдклифф} стоит, навалившись на стену. ]];

        end;

    end;

    dlg = "char_radcliffe_atlantis_dlg";

};

char_page = npc {

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

    dsc = function(s)

        if (char_page_dlg.state == 0) then

            return [[Пожилой {мужчина} в рабочей одежде осматривает Наутилус. ]];

        else

            return [[{Фрэнсис Пейдж} осматривает Наутилус. ]];

        end;   

    end;   

    dlg = "char_page_dlg";

};

char_leroy = npc {

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

    dsc = function(s)

        if (char_leroy_dlg.state == 0) then

            return [[{Мужчина} лет пятидесяти работает над каким-то чертежом. ]];

        else

            return [[{Мишель Леруа} работает над каким-то чертежом. ]];

        end;

    end;   

    dlg = "char_leroy_dlg";

};

char_goldman = npc {

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

    dsc = function(s)

        if (char_goldman_dlg.state == 0) then

            return [[На койке, закинув руки за голову, лежит светловолосый {мужчина} лет пятидесяти. ]];

        else

            return [[На койке, закинув руки за голову, лежит {Леонард Голдман}. ]];

        end;   

    end;   

    dlg = "char_goldman_dlg";

};

char_jones = npc {

    var {

        on_atlantis = 0;

    };

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

    dsc = function(s)

        if (char_jones_dlg.state == 0) then

            return [[Пожилой {человек}, одетый в простой серый костюм, сидит на койке и задумчиво вертит в руках карандаш. ]];

        else

            return [[{Чарли Джонс} сидит на койке и задумчиво вертит в руках карандаш. ]];

        end;

    end;

    dlg = "char_jones_dlg";

};

atl_item_tube_spec = obj {

    nam = "atl_item_tube_spec";

    disp = "Документация по воздуховодам Атлантиды";

    inv = [[Внушительной толщины книжка описывает все особенности и случаи применения различных труб в качестве воздуховодов на станции. Пролистав ее, вы узнаете, что всего существует четыре типа соединения, маркируемые соответственно: RT, KT, NF и TQ. Полная маркировка трубы состоит из типа, длины, указываемой в дециметрах и диаметра, указываемого в миллиметрах. Например RT-17-7 означает трубку RT с длиной 17 дециметров и диаметром 7 миллиметров. Согласно документации, трубы каждого типа можно соединять только с трубами такого же типа, однако на последней странице вы замечаете карандашные пометки: ^При необходимости, можно заменять трубы одного типа на другой с учетом следующих правил: ^KT -> RT -- Диаметр на 1 меньше. ^NF -> KT -- Диаметр на 1 больше. ^TQ -> NF -- Диаметр на 2 больше. ^Другие замены недопустимы и могут вызвать поломки. ]];

};

atl_nih_tubes_gen = function(nam, dsc, tube_type, tube_len, tube_d)

    return obj {

        var {

            broken = false;

            fixed = false;

            else 

                return part1 .. [[". ]];

            end;

        end};

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

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

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

            if (atl_nih_state == 0 and atl_jack_in_party) then

                atl_nih_state = 3;

            end;

            if (atl_nih_state == 0 and not atl_jack_in_party) then

                atl_nih_init();

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

                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)

		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="more_questions", "У меня есть несколько вопросов.", [[Анна отвечает: "Да, я слушаю".]], code [[ psub('ask_more'); ]]};

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

	};

};

--[[

    Learr

]]

atlantis_learr_intro = room {

    nam = "Атлантида, Окулус, Главный коридор";

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

    obj = {

        vway('continue', '{Продолжить}', 'atlantis_learr_first_dlg')

    };

};

atlantis_learr_first_dlg = dlg {

    nam = "Леарр";

    entered = [[Существо начинает говорить: "Я зздессь-рраньшше-не-видела васс". Голос звучит непривычно для вашего слуха -- гласные произносятся очень коротко, между некоторыми словами делаются резкие паузы, другие же сливаются практически в одно. ]];

    phr = {

        {"Кто ты?", [[Существо отвечает: "I'yhe'lea'yhe'na'vji'a'rr", -- вы отчетливо различаете короткие паузы между слогами. ]], code [[ pon('who_are_you'); ]]};

        {tag="who_are_you", false, "Я не понимаю, что ты говоришь.", [[Существо ненадолго застывает в замешательстве. Затем отвечает: "Я Lea'rr. Ты так-понимаешь?". ]], code [[psub('learr'); ]]};

        {"Аааа, монстр, помогите!!!", [[Существо скалит зубы. Плавники меняют цвет на ярко-фиолетовый. Оно рычит на вас: "Пропусти. Нет-времени". ^Щелкнув зубами, _"Чудовище"_ уходит. ]], code [[

            put(char_learr_atlantis, atl_ignis_hall_a);

            char_learr_atlantis.offended = true;

            walk("atl_oculus_main_corridor");

        ]]};

        {tag="learr"};

        {"Рад знакомству. Я Дэвид Дрейк. ", [[Леарр переспрашивает: "Ты знаешшь Уильяма-Дрейка?" -- Вам кажется, вы чувствуете удивление, хотя интонации в словах существа вам совершенно чужды. ]], code [[ psub('drake') ]]};

        {"Что ты такое?", [[Леарр ненадолго задумывается и отвечает: "Мы себя-навьярами-называем. Мы недалеко-живем-в-нескольких-кругах-отсюда".]], code [[ pon('under_water'); ]]};

        {tag="under_water", false, "Под водой?", [[Леарр кивает. Через некоторое время отвечает: "Ты с-поверхности? Никогда-нас-не-видел, похоже". ]]};

        {tag="drake"};

        {"Да, я его сын. Ты знакома с ним?", [[оттенок головных плавников Леарр становится более ярким и смещается ближе к зеленому. Она отвечает: _"Да, я его-ззнаю. Уильям-Дррейк нашу-историю-изучал. Он сейчас-искать-уехал Lse'ry'anot'rr. Я что-вы-здессь рада"_. ]], code [[ psub('follow_drake') ]]};

        {tag="follow_drake"};

        {"Я здесь из-за него. " , [[Леарр кивает: _"Я вам-как-смогу-помогу. Я в-Игнисе-буду, ессли вы говорить-хотите"_. ^Леарр уходит, а вы остаетесь в одиночестве. ]], code [[ put(char_learr_atlantis, atl_ignis_hall_a); walk("atl_oculus_main_corridor"); ]]};

    };

};

char_learr_atlantis_dlg = dlg {

	var {

		state = 0;

	};

	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 (s.state == 0) then

            if ArrayUtils.indexOf(pl.party, 'wright') ~= 0 and char_jack_wright_atlantis_dlg.state then

                char_jack_wright_atlantis_dlg.state = 1;

                remove('char_jack_wright_atlantis', 'atl_ignis_hall_a');

            end;

			if (char_learr_atlantis.offended) then

				psub("offended");

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

			else

				psub("friendly");

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

			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('generic');

        ]]};

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

			char_learr_atlantis_dlg.state = 1;

			walk('generic');

		]]};

		{tag='friendly'};

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

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

			char_learr_atlantis_dlg.state = 1;

			walk('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="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="more_on_books"};

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

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

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

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

    }

};

char_aikerjarr_dlg = dlg {

	var {

		state = 0;

	};

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

	enter = function(s)

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

	};

	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;

        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 (char_ryveerr.ryveerr_asked < 2) then pon("on_ryveerr", "more_questions"); end;

        end;

    end;

	enter = function(s)

        s:reset_more();

        poff('iyh1', 'iyh2', 'learr_comes');

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

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