]], code [[ psub("generic"); ]]};

		{tag="generic"};

		{tag="legend", false, "Ты можешь рассказать мне навьярскую легенду о скате?", [[Сильвия кажется заинтересованной: "У навьяров их много, какую конкретно вы хотите услышать?" ]], code [[ psub("which_legend"); ]]};

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

		--TODO добавить несколько легенд

		{"Что-нибудь связанное с храмами и реликвиями", [[

			Сильвия задуиывается: _"Храмы, реликвии и скаты... Да, есть кое-что", -- она откидивыет волосы назад и продолжает: "Согласно этой легенде, хранителей одного из святилищ навьяров был могучий затмевающий свет по имени Излучающий Тьму. Это было в те времена, когда навьяры и затмевающие свет были связаны узами дружбы. Излучающий тьму был мудрым хранителем - он не только принимал священные реликвии на сохранение, но и многое знал о них - об их предназначении и истинной ценности. Однажды Излучающий Тьму узнает о необычнайно ценной реликвии, хранящейся в одном из городов и скрывающей в себе древние знания навьяров. Узнает он и о том, что живущие навьяры не в силах прочитать. Тогда он прибыл в город, чтобы просить навьяров отдать ему реликвию на сохранение. Но навьяры отказывают ему. Вернувшись в святилище, Излучающий Тьму придумал план. Ночью он пробрался в город и выкрал реликвию. Когда наутро навьяры обнаружили пропажу, они направились к Излучающему Тьму с требованием вернуть им реликвию. На это могучий затмевающий свет спросил их: ,,Знаете ли вы, что скрывает этот предмет?''^ -- кстати, в некоторых переводах я встречала слово ,,светодиск'', как описание реликвии. 

			,,Знания наших предков'', -- ответили навьяры. Излучающий Тьму продолжил: ,,Можете ли вы прочитать его?''^

			,,Нет'', --сказали навьяры. Тогда Излучающий Тьму рассказал им легенду о храме в глубинах, которую он прочитал из данной реликвии(Нам, кстати, так и не довелось получить хоть какой-либо целостный текст этой легенды), и сказал им: ,,Можете приходить сюда когда захотите и я расскажу вам то, что вы захотите знать. Но только, если реликвия ваша остается у меня''. Навьяры поняли, что если заберут реликвию, то навсегда утратят древние знания и согласились". 

		]], code [[ psub("more_on_legend"); ]]};

		{tag="more_on_legend"};

		{"Светодиск?", [[

			"Мы плохо понимаем, для чего они служат. У Светловой один такой был. Блестящий диск - сантиметров 10 в диаметре. Правда вот как их ,,читать''... В привычном понимании, по крайней мере, мы не понимаем. Если рассматривать их под микроскопом - там весьма характерный рисунок проступает. Почему светодиск? Мы не знаем - это навьяры их так называют".

		]]};

		{"Что за легенда о храме в глубинах?", [[

			"Мы только приблизительно знаем о ней - она постоянно упоминается в контексте других легенд и у нас есть фрагменты, которые нам рассказывали навьяры. Когда-то давно навьяры построили храм где-то в ущелье, но по какой-то причине были вынуждены покинуть его". 

		]]};

		{"Спасибо, я пойду", [[

			"До встречи. Если захотите еще древних сказаний послушать - приходите".

		]], code [[ atl_iyh_state = 5; psub('back'); ]]};

	};

};

char_jack_wright_atlantis_dlg = dlg {

	var {

		state = 0;

	};

	nam = 'char_jack_wright_atlantis_dlg';

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

		if (s.state == 0) then

			psub("business_or_no");

			]];

		end;

	end;

	phr = {

		{tag = "business_or_no"};

			if (char_learr_atlantis.offended) then

			else

			end;

		end, code [[ 

			remove('char_jack_wright_atlantis', 'atl_ignis_hall_a');

			back(); 

		]]};

	};

};

char_legrand_dlg = dlg {

	var {

		state = 0;

	};

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

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

	entered = function(s)

		if (atl_lfc_state ~= 1) then

			poff('sabotage', 'ignis_what');

		end;

		if (atl_lfc_state == 1 and not s.lfc_dialog) then

			s.lfc_dialog = true;

			pon('sabotage', 'ignis_what');

		end;

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

	};

};

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

        {"Откуда ты?", [[Леарр отвечает: "Я изз Iraa'pha'anot'rr. Я на-Атлантиде-жживу-ссейчасс".]]};

		{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_wright_iof = obj {

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

	dsc = function(s) 

		if (atl_iof_time_state.pl_safe) then

			if (atl_iof_time_state.carry_learr) then

				return [[{Джек Райт} облачен в скафандр и ждет ваших указаний. Леарр бессильно лежит на его руках. ]];

			else

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

			end;

		else

			if (atl_iof_time_state.life_left > 3) then

				return [[{Джек Райт} ждет ваших указаний. ]];

			else

				return [[{Джек Райт} с трудом стоит на ногах. ]];

			end;

		end;

	end;

	life = function(s)

		if (where(s) ~= where(pl) and where(pl).iof) then

			move(s, where(pl));

		end;

	end;

	act = function(s)

	end;

};

char_learr_faint = obj {

	nam = "Леарр";

	inv = [[На руках вы держите Леарр. Она дышит очень слабо. Вам нужно поторопиться, если вы не хотите, чтобы она умерла. ]];

	life = function(s)

		if (rnd(12) > 11) then

			pr([[Вы чувствуете слабое дыхание Леарр, лежащей у вас на руках. ]]);

		end;

	end;

};

char_learr_iof = obj {

	var {

		faint = false;

	};

	nam = "Леарр";

	dsc = function(s)

		if (s.faint) then

			return [[{Леарр} лежит на полу без сознания. ]];

		end;

		if (atl_iof_time_state.learr_safe) then

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

		else

			if (atl_iof_time_state.life_left > 3) then

				return [[{Леарр} ждет ваших указаний. ]];

			else

				return [[{Леарр} с трудом стоит на ногах. ]];

			end;

		end;

	end;

	life = function(s)

		if (where(s) ~= where(pl) and where(pl).iof) then

			move(s, where(pl));

		end;

	end;

	act = function(s)

		if (where(s) == atl_iof_ignis_service_room and not dlg_learr_suit.state) then

			walkin('dlg_learr_suit');

		elseif (s.faint) then

			walkin('atl_iof_learr_faint_alone');

		else		

			return [[Некогда разговаривать. ]];

		end;

	end;

};

	iof = true;

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

	way = {

		kh_vroom("В главный зал", function(s)

			if (atl_iof_time_state.pl_safe) then

				return "atl_iof_main_ne3";

			else

				pr("Я не вернусь туда без снаряжения");

				return false;

			end;

		end);

	};

	obj = {

		'atl_iof_suits'

	};

};

atl_iof_outside = room {

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

	iof = true;

	entered = function(s)

		lifeoff(atl_iof_time_state);

	end;

	dsc = function(s)

		if (have(char_learr_faint)) then

			if (atl_iof_time_state.wright_here) then

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

			else

				return [[Вы добираетесь до аварийного шлюза Игниса. Вы с трудом отдраиваете его и заходите в шлюзовую камеру. Вы кладете Леарр на пол и снова задраиваете внутренний люк и, тяжело вздохнув, начинаете открывать внешний. ^Вода быстро заполняет отсек. Снаружи вы видите Наутилус, находящийся прямо под люком. Вы берете Леарр и выходите наружу. Тяжелый скафандр тянет вас вниз и вы плавно опускаетесь на верхнюю обшивку Наутилуса. Группа людей, облаченных в скафандры помогает вам забраться внутрь Наутилуса. ]];

			end;

		else

            if (atl_iof_time_state.learr_safe) then

			    return [[Вы добираетесь до аварийного шлюза Игниса. Вы с трудом отдраиваете его и заходите в шлюзовую камеру. Задраив люк изнутри, вы приступаете к открытию внешнего. ^Вода быстро заполняет отсек и вы замечаете некоторую растерянность Леарр. Снаружи вы видите Наутилус, находящийся прямо под люком. Вы спрыгиваете вниз. Леарр следует за вами. Группа людей, облаченных в скафандры помогает вам забраться внутрь Наутилуса. ]];

            else

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

            end;         

		end;

	end;

	obj = {

		vobj("Продолжить", "{Продолжить}", "atl_iof_part2_dlg");

	};

};

atl_iof_part2_dlg = dlg {

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

	entered = [[Вы слышите голос, доносящийся из динамика: "Все в порядке. Наутилус доставит вас на станцию". ]];

	phr = {

		{"Хорошо[Войти в шлюз Наутилуса].", [[Вы забираетесь внутрь Наутилуса - эта субмарина заметно меньше вашего Левиафана, но также вмещает довольно большой экипаж. Вы снимаете скафандры и проходите в кают-компанию. По радио вы слышите голос Моро: "Как только вы придете в себя после произошедшего, я жду вас в моем кабинете". ^Через считанные минуты вы оказываетесь в доке. Вы с трудом добираетесь до своей каюты, где без сил засыпаете. ]], code [[ walk('atlantis_luna_drake_room'); ]]};

		{tag="help"};

		{"Хорошо, я готов", [[Райт продолжает: "Спускайтесь вниз, на крышу Доминуса, и идите к лифту. Где-то с южной стороны должна быть панель управления. С ней вы, думаю, разберетесь". Вы аккуратно спрыгиваете с Наутилуса вниз и идете к лифту. ]], code [[ walk('atl_iof_outside_lift'); ]]};

		{"Я передумал", [[Райт отвечает: "Хорошо, возвращайтесь на станцию. Мои люди все сделают". ]], code [[ walk('atl_iof_end'); ]]};

	};

};

atl_iof_outside_lift = room {

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

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

	obj = {

		"atl_iof_air_valves"

	};

};

atl_iof_air_valves = room {

	var {

		valves = { 0,0,0,0,0,0 };

		selected = 0;

	};

	nam = "Кислородные клапаны";

	entered = function(s)

		atl_iof_select1:enable();

		atl_iof_select2:enable();

		atl_iof_select3:enable();

		atl_iof_select4:enable();

		atl_iof_select5:enable();

		atl_iof_select6:enable();

		atl_iof_air_ccw:disable();

		atl_iof_air_cw:disable();

		atl_iof_air_cancel:disable();

		atl_iof_air_valves.selected = 0;

	end;

	pic = function(s)

		local image = 'images/air_bg.png';

		for i = 1, #s.valves do

			image = image .. ";images/air_" .. tostring(s.valves[i]) .. ".png@" .. tostring(((i - 1) % 3) * 32) .. "," .. tostring(math.floor((i - 1) / 3) * 32);

		end;

		return image;

	end;

	dsc = function(s)

		if (s.selected == 0) then

			return [[Перед собой вы видите 6 клапанов. Каждый из них пропускает через себя воздух только в одном направлении. По показаниям манометра вы видите, что воздух продолжает поступать в Игнис. ]];

		else

			return "Перед собой вы видите 6 клапанов. Каждый из них пропускает через себя воздух только в одном направлении. По показаниям манометра вы видите, что воздух продолжает поступать в Игнис. В какую сторону вы хотите повернуть выбранный клапан (" .. tostring(s.selected) .. ")?";

		end;

	end;