};

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

        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

--[[

    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 (char_learr_atlantis.offended) then

				psub("offended");

			else

				psub("friendly");

			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();]]};

            s.state = 1;

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

		else

			psub("generic");

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

		end;

	end;

	phr = {

		{tag="first_meeting"};

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

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

		{tag="generic"};

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

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

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

	};

};

char_jack_wright_atlantis_dlg = dlg {

	var {

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

			psub("business_or_no");

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

        else

            psub("generic");

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

		end;

	end;

	phr = {

        {tag = "business_or_no"};

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

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

			if (char_learr_atlantis.offended) then

			else

			end;

			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)

atl_ignis_main_nw_wall_panel = obj {

	nam = "Щиток";

	dsc = [[В стену вмонтирован {электрический щиток}. Сейчас он открыт. ]];

};

atl_ignis_main_toa = room {

	nam = "Атлантида, Игнис, у входа в зал A";

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

	way = {

		vroom("В зал A", "atl_ignis_hall_a");

		vroom("На юг", "atl_ignis_main_center");

		vroom("На запад", "atl_ignis_main_nw_wall");

		vroom("На восток", "atl_ignis_main_tos");

	};

};

atl_ignis_main_tos = room {

	nam = "Атлантида, Игнис, у входа в служебное помещение";

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

	way = {

		kh_vroom("В служебное помещение", function()

			pr("Вам там нечего делать сейчас");

			return false;

		end);

		vroom("На юго-запад", "atl_ignis_main_center");

		vroom("На юг", "atl_ignis_main_tob");

		vroom("На запад", "atl_ignis_main_toa");

	};

};

atl_ignis_main_tob = room {

	nam = "Атлантида, Игнис, у входа в зал B";

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

	way = {

		kh_vroom("В зал B", function()

			pr("Дверь заклинило");

			return false;

		end);

		vroom("На северо-запад", "atl_ignis_main_center");

		vroom("На север", "atl_ignis_main_tos");

		vroom("На запад", "atl_ignis_main_emex");

	};

};

atl_ignis_hall_a = room {

	nam = "Атлантида, Игнис, зал А";

	enter = function(s)

		if (seen(char_learr_atlantis, atl_ignis_hall_a) and ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then

				put('char_jack_wright_atlantis', 'atl_ignis_hall_a');

			end;

		end;

	end;

	dsc = [[Средних размеров прямоугольный зал погружен во тьму. ]];

	obj = {

		'atl_ignis_illuminator';

		'atl_ignis_screen';

		'atl_ignis_projector';

		--'atl_ignis_lightswitch';

	};

	way = {

		vroom("В коридор", "atl_ignis_main_toa");

	};

};

atl_ignis_illuminator = obj {

	var {

		state = 1;

	};

	nam = "Иллюминатор";

	dsc = function(s)

		if (s.state == 1) then

			return [[Огромное панорамное {окно} открывает великолепный вид на океан вокруг. ]];

		else

			return [[Металлические жалюзи скрывают огромное панорамное {окно}. ]];

		end;

	end;

	act = function(s)

		if (s.state == 1) then

			s.state = 0;

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

		else

			s.state = 1;

			return [[Вы дергаете рычаг рядом с окном и металлические жалюзи со скрежетом отъезжают в стороны, открывая его. ]];

		end;

	end;

};

atl_ignis_screen = obj {

	nam = "Экран";

	dsc = function(s)

		return [[На одной из стен закреплен экран. ]];

	end;

};

atl_ignis_projector = obj {

	var {