{tag = "ignis"};

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

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

	};

};

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

		{tag="generic"};

		{tag="father_more", false, "Кто отправился вместе с моим отцом?", [[

			"Немногие. Они вообще хотел отправиться вдвоем с Блэком, но Блэк уговорил Уильяма взять Джона Брауна и Дэмина Пина".

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

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

			atl_lfc_panic = atl_lfc_panic + 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

			if (atl_lfc_panic <= 2) then

				return [[

					Мари Легран удивленно смотрит на вас: "Откуда вы знаете? Кому такое в голову придти может?"

				]];

			elseif (atl_lfc_panic == 3) then

				return [[

					Мари Легран удивленно смотрит на вас: "Вы понимаете, что говорите? Кому такое в голову придти может?"

				]];

			end;

		end};

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

			"Поговорите лучше с Даркстаром или Райтом".

		]]};

		{always=true, "Я пойду", [[

			"Приходите еще"

		]], code [[ back(); ]]};

		{tag="more_people"};

		{"Расскажите больше об Адриане Блэке", [[

		]]};

		{"Расскажите больше о Джоне Брауне", [[

		]]};

		{"Расскажите больше о Дэмине Пине", [[

		]]};

		{"Давайте о другом поговорим", [[

			"Хорошо"

		]], code [[pret();]]};

	};

};

char_radcliffe_atlantis_dlg = dlg {

	var {

		state = 0;

		lfc_dialog = false;

	};

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

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

	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 [[

			rel_walter = rel_walter + 1;

			psub("leviathan");

		]]};

		{"Рад знакомству", [[

			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".

		]], code [[

			psub("generic");

		]]};

		{"[Промолчать]", [[

			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".

		]], code [[

			rel_walter = rel_walter - 1;

			psub("generic");

		]]};

		{tag = "leviathan"};

		{"Интересно, и что вы можете рассказать о Левиафане?", [[

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

		]]};

		{"Вы знаете, куда отправился мой отец отсюда?", [[

			Уолтер отрицательно качает головой: "Не больше, чем остальные на станции". 

		]]};

		{"Буду рад, если вы присоединитесь к нам", [[

			"Отлично. Но вы ведь, еще поговорить хотите?"

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

		{"Я не думаю, что вы поможете", [[

			"Очень жаль. Впрочем, у вас есть время подумать. Насколько я знаю, Даркстар и Моро собираются держать вас здесь какое-то время".

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

		{tag = "generic"};

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

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

		]], code [[

			rel_walter = rel_walter + 1;

		]]};

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

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

		]]};

		{"Я пойду", [[

			"До встречи", - Уолтер отворачивается от вас и возвращается к своим делам.

		]], code [[ back();]]};

	};

};

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

		{"У меня к вам несколько вопросов", [["Слушаю". ]], code [[ psub("generic"); ]]};

		{tag="generic"};

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

			atl_lfc_panic = atl_lfc_panic + 1;

			atl_rep_darkstar = atl_rep_darkstar - 1;

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

		end;};

		{tag="ignis_what", false, "Что произошло в Игнисе?", [[Фрэнсис пожимает плечами: "Меня там не было. Не берусь говорить".]]};

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

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

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

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

        {"Что вы можете рассказать о Левиафане?", [[Френсис отвечает: "С первого взгляда ясно, что Левиафан не имеет практически ничего общего с Надеждой, Наутилосом и даже Энтерпрайзом. Интересно, что Левиафан строился с оглядкой на высокую автономность -- так же, как и Надежда. За это конечно пришлось многим поплатиться -- Левиафан большой и неповоротливый в сравнении с Надеждой". ]]};

		{always=true, "Я пойду", [[Фрэнсис Пейдж прощается с вами: "Увидимся позже". ]], code [[ back(); ]]};

	};

};

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

		{"Рад знакомству", [[Мишель кладет руку обратно на стол и спрашивает: "Что вы хотели?" ]], code [[ psub('generic'); ]]};

		{tag="generic"};

		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе начался из-за саботажа?", [[Мишель удивленно переспрашивает: "Кто вам это сказал? не думаю, что здесь есть люди настолько не ценящие свою жизнь". ]], code [[ atl_lfc_leroy_spoken = 1; ]]};

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

			Мишель уверенно отвечает: "Короткое замыкание. К сожалению, пленки и другие материалы, хранимые в Игнисе достаточно горючи". ]]};

party_accompany = function(s, value)

	if (ArrayUtils.indexOf(pl.party, s.nam) == 0) then

		return;

	end;

	s.follow = value;

	if (value) then

		lifeon(s);

	else

		move(s, s.home, where(s));

		lifeoff(s);

	end;

end;

party_follow = function(s)

    if (where(pl).cutscene or where(pl).not_follow) then

    elseif (where(pl).leviathan) then

        if (stead.nameof(where(s)) ~= s.home) then

            move(s, s.home, where(s));

        end;

    else

        move(s, where(pl), where(s));

    end;

end;

-- TODO больше отвлеченных диалогов, дабы было о чем поговорить с сопартийцами. Не стоит делать их деревянными безжизненными манекенами

char_learr = obj {

	var {

		follow = false;

        on_books = 0;

	};

	nam = "learr";

	disp = "Леарр";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Леарр} стоит возле одного из иллюминаторов и наблюдает за происходящим снаружи субмарины. ^]];

		else

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

		end;

	end;

	home = "leviathan_wardroom";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(learr_home_dlg);

		else

			walkin(learr_dlg);

		end;

	end;

};

char_phaetlarr = obj {

	var {

		follow = false;

	};

	nam = "phaetlarr";

	disp = "Фаэтларр";

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Фаэтларр} с интересом наблюдает за работой двигателей "Левиафана" ^]];

		else

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

		end;

	end;

	home = "leviathan_engines";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(phaetlarr_home_dlg);

		else

			walkin(phaetlarr_dlg);

		end;

	end;

};

char_radcliffe = obj {

	var {

		follow = false;

        rel_on_join = nil;

	};

	nam = "radcliffe";

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

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Уолтер Рэдклифф} задумчиво крутит в руках какую-то деталь. ^]];

		else

			return [[{Уолтер Рэдклифф} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_engines";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(radcliffe_home_dlg);

		else

			walkin(radcliffe_dlg);

		end;

	end;

};

char_wright = obj {

	var {

		follow = false;

        iof_reaction = 0;

        on_learr = 0;

        on_leviathan = 0;

	};

	nam = "wright";

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

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Джек Райт} читает какую-то книгу. ^]];

		else

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

		end;

	end;

	home = "leviathan_wardroom";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		walkin(wright_main_dlg);

	end;

};

char_anna = obj {

	var {

        follow = false;

        anna_asked = 0;

        walter_asked = 0;

        atlantis_asked = 0;

        drake_asked = 0;

        join_asked = 0;

        rel_on_join = nil;

	};

	nam = "anna";

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

	dsc = function(s)

		if (stead.nameof(where(s)) == s.home) then

			return [[{Анна Рэдклифф} смотрит в иллюминатор. ^]];

		else

			return [[{Анна Рэдклифф} ждет ваших указаний. ^]];

		end;

	end;

	home = "leviathan_wardroom";

	accompany = party_accompany;

	life = party_follow;

	act = function(s)

		if (stead.nameof(where(s)) == s.home) then

			walkin(anna_home_dlg);

		else

			walkin(anna_dlg);

		end;

	end;

};

learr_home_dlg = dlg {

	nam = "learr_dlg";

	disp = "Леарр";

	hideinv = true;

	entered = function(s)

		if (atl_iyh_state == 7) then

			pon("on_iyh");

		else

			poff("on_iyh");

		end;

		if (char_learr.follow) then

			pon('stay');

			poff('join');

		else

			pon('join');

			poff('stay');

		end;

		return [[

			Леарр вопросительно смотрит на вас

		]];

	end;

	phr = {

		{ tag = "on_iyh", always = true, "Что ты можешь рассказать мне о храме?", [[

			"Каждый-храм два-входа-имеет. Большой-главный-вход далеко-виден. Тайный-задний-вход незаметен-но-всегда-есть. Мы давно-потеряли дорогу-к-этому-святилищу и задний-вход-не-помним. Если мы задний-вход-найдем, то обманим затмевающего-свет и в-храм-проникнем".

		]]};

		{ tag = "join", always = true, "Я хочу, чтобы ты пошла со мной в следующий раз", "Хорошо", 

			function()

				char_learr:accompany(true);

				char_phaetlarr:accompany(false);

				char_radcliffe:accompany(false);

				char_wright:accompany(false);

				char_anna:accompany(false);

				pon('stay');

				poff('join');

			end;

		};

		{ tag = "stay", always = "true", "Оставайся на Левиафане", "Хорошо", 

			function()

				char_learr.accompany(char_learr, false);

				poff('stay');

				pon('join');

			end;

		};

		{ tag = "exit", always = "true", "Это все", "Хорошо", 

			function() 

				back();

			end;

		}

	};

};

phaetlarr_home_dlg = dlg {

	nam = "phaetlarr_dlg";

	disp = "Фаэтларр";

	hideinv = true;

	entered = function(s)

		if (char_phaetlarr.follow) then

			pon('stay');

			poff('join');

		else

			pon('join');

			poff('stay');

		end;

		return [[

			Фаэтларр ждет ваших указаний

		]];

	end;

	phr = {

		{ tag = "join", always = "true", "Я хочу, чтобы ты пошел со мной в следующий раз", "Хорошо",

			function()

				char_learr:accompany(false);

				char_phaetlarr:accompany(true);

				char_radcliffe:accompany(false);

				char_wright:accompany(false);

				char_anna:accompany(false);

				poff('join');

				pon('stay');

			end; 

		};

		{ tag = "stay", always = "true", "Оставайся на Левиафане", "Хорошо", 

			function()

				char_phaetlarr.accompany(char_phaetlarr, false);

				pon('join');

				poff('stay');

			end;

		};

		{ tag = "exit", always = "true", "Это все", "Хорошо", 

			function() 

				back();

			end;

		}

	};

};

radcliffe_home_dlg = dlg {

	nam = "radcliffe_dlg";

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

	hideinv = true;

	entered = function (s)

		if (atl_iyh_state == 7) then

			pon("on_iyh");

		else

			poff("on_iyh");

		end;

		if (char_radcliffe.follow) then

			pon('stay');

			poff('join');

		else

			pon('join');

			poff('stay');

		end;

        psub("generic");

	end;

	phr = {

        {tag="generic"};

		{tag="join", always=true, "Я хочу, чтобы ты пошел со мной в следующий раз", "Хорошо",

			function()

				if (submarine_leviathan.suits > 1) then

					char_learr:accompany(false);

					char_phaetlarr:accompany(false);

					char_radcliffe:accompany(true);

					char_wright:accompany(false);

					char_anna:accompany(false);

					pon('stay');

					poff('join');

					return [[Я готов]];