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, "Это твое имя?", [[
			"Да. Я-Леарр-из-навьяров". 
		]], code [[psub('learr'); ]]};
		{"Аааа, монстр, помогите!!!", [[
			На лице существа вы читаете изумление: "Я-монстр? Вы на-станции-недавно? Я раньше-не-видела вас". Вы почти не чувствуете эмоций в ее речи - она говорит достаточно монотонно. 
		]], code [[ pon('it_speaks'); ]]};
		{tag="it_speaks", false, "Оно разговаривает!", [[
			Щелкнув зубами, _"Чудовище"_ отталкивает вас в сторону и уходит со словами: _"Вы-монстр! Я нет-времени-тратить на вас"_.
		]], code [[
			put(char_learr_atlantis, atl_ignis_hall_a);
			char_learr_atlantis.offended = true;
			walk("atl_oculus_main_corridor");
		]]};
		{tag="learr"};
		{"Рад знакомству, Леарр. Я Дэвид Дрейк. ", [[
			Леарр спрашивает вас: _"Вы-Дрейк? Вы-из-рода-Уильям-Дрейк?"_ Вам кажется, вы чувствуете удивление, хотя интонации в словах существа вам совершенно чужды. 
		]], code [[ psub('drake') ]]};
		{"Ты живешь на станции?", [[
			_"Да. Я и Ry'vee'rr здесь-некоторое-время-живем"_.
		]], code [[ pon("ryveerr"); ]]};
		{"Ты странно говоришь. ", [[
			Леарр отвечает: _"Я плохо-говорю ваш-необычный-язык. Он Много-отдельных-бессмысленных-слов-содержит. Наш-язык сильно-проще-есть. Одно-слово почти-весь-смысл-включает"_.
		]]};
		{tag="ryveerr", false, "Ry'vee'rr?", [[
			"Другой-навьяр-из-Dyp'atre'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)
		return [[
			Некогда разговаривать. 
		]];
	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;
};

dlg_learr_suit = dlg {
	var {
		state = false;
	};
	nam = "Леарр";
	disp = "Леарр";
	entered = function(s)
		s.state = true;
		return [[
			Леарр вопросительно смотрит на вас. 
		]];
	end;
	phr = {
		{"Я хочу, чтобы ты одела скафандр.", [[
			Леарр недоуменно смотрит на вас: "Зачем он мне? Сама-я в-воде-дышу. Мне не-нужны ваши-приспособления".
		]], code [[
			psub('tag1');
		]]};
		{"Мы сейчас оденем скафандры. Продолжай следовать за нами.", [[
			Леарр кивает: "Я недолго-продержусь. Я что-смогу-сделаю". 
		]], code [[
			back();
		]]};
		{tag="tag1"};
		{"Не спорь, полезай внутрь.", [[
			Леарр недовольно скалит зубы: "Хевьяр не-указывай-мне".
		]], code [[
			psub('tag2');
		]]};
		{"Ладно, обойдемся без этого, просто следуй за нами.", [[
			Леарр кивает: "Я недолго-продержусь. Я что-смогу-сделаю". 
		]], code [[
			back();
		]]};
		{tag="tag2"};
		{"Не хочешь не надо. Просто следуй за нами.", [[
			Леарр молча кивает. 
		]], code [[
			back();
		]]};
		{"Эта штука защитит тебя от жара. И тебе будет легче дышать, пока мы не выбрались", [[
			Леарр кивает: "Хорошо. Я по-вашему-сделаю". Вы помогаете ей забраться в скафандр и одеваете шлем. 
		]], code [[
			atl_iof_time_state.learr_safe = true;
			back();
		]]};
	};
};

dlg_learr_iof = dlg {
	nam = "Леарр";
	disp = "Леарр";
	entered = [[
		Леарр подбегает к вам и спрашивает: "Что происходит?"
	]];
	phr = {
		{'Надеюсь, все в порядке, следуй за мной', [[
			Леарр кивает: "Хорошо".
		]], code [[
			lifeon('char_learr_iof');
			char_learr_iof.state = 1;
			walk('atl_iof_ignis_hall_a');
		]]};
		{'Такое уже происходило?', [[
			Леарр пожимает плечами: "Я не-видела".
		]]};
	};
};

atl_iof_intro = room {
	nam = "Атлантида, Игнис, зал А";
	disp = "Атлантида, Игнис, зал А";
	dsc = [[
		Внезапно свет в зале гаснет и вы оказываетесь в полной темноте. Вскоре вы начинаете ощущать запах дыма, проникающего из вентиляционных отверстий. Леарр кажется очень удивленной. В темноте вы видите слабое свечение цветных полос, бегущих по ее головным плавникам:  _"**Что происходит?**"_.
	]];
	obj = {
		vobj('Продолжить','{Продолжить}', 'dlg_learr_iof');
	};
};

atl_iof_ignis_hall_a = room {
	var {
		ready = false;
	};
	nam = "Атлантида, Игнис, зал А";
	disp = "Атлантида, Игнис, зал А";
	dsc = [[
		Средних размеров прямоугольный зал. Из вентиляционных отверстий выплывают тонкие струйки дыма. 
	]];
	entered = function(s)
		if (not s.ready) then
			s.ready = true;
			lifeon('char_learr_iof');
			if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
				atl_iof_time_state.wright_here = true;
				if (where(char_jack_wright_atlantis) == atlantis_ignis_hall_a) then
					lifeon('char_wright_iof');
				end;
			else
				atl_iof_time_state.wright_here = false;
			end;

		end;
	end;
	obj = {
		'char_learr_iof'
	};
	way = {
		vroom("В коридор",'atl_iof_main_n3');
	};
};

atl_iof_blocked_by_fire = function() 
	pr("Огонь преграждает вам путь");
	return false;
end;

atl_iof_blocked_by_rubble = function() 
	pr("Обломки преграждают вам путь");
	return false;
end;

atl_iof_time_state = obj {
	nam = 'atl_iof_time_state';
	var {
		life_left = 6;
		pl_safe = false;
		learr_safe = false;
		wright_here = false;
		carry_learr = false;
	};
	life = function(s)
		if (not where(pl).iof) then 
			return;
		end;
		s.life_left = s.life_left - 1;
		if (s.life_left == 5) then
			if (not s.pl_safe) then 
				pr("Вы чувствуете жар");
			end;
		elseif (s.life_left == 4) then
			if (s.wright_here and not s.pl_safe and where(char_wright_iof) == where(pl)) then 
				pr("Джек утирает пот со лба");
			end;
		elseif (s.life_left == 3) then
			if (not s.learr_safe) then
				pr("Леарр тяжело дышит");
			end;
		elseif (s.life_left == 2) then
			if (not s.pl_safe) then 
				pr("Вам трудно дышать, жар становится нестерпимым");
			end;
		elseif (s.life_left == 1) then
			if (s.wright_here and not s.pl_safe and where(char_wright_iof) == where(pl)) then 
				pr("Джек с трудом следует за вами");
			end;
		elseif (s.life_left == 0) then
			if (not s.learr_safe) then
				pr("Леарр едва передвигает ногами");
			end;
		else
			lifeoff(s);
			lifeoff(char_learr_iof);
			if (not s.pl_safe) then
				walkin("game_over_ignis");
			elseif (s.wright_here) then
				walkin("atl_iof_learr_faint_wright");
			else
				walkin("atl_iof_learr_faint_alone");
			end;
		end;
	end;
};

atl_iof_learr_faint_alone = dlg {
	nam = "Леарр";
	disp = "Леарр";
	dsc = [[
		Леарр медленно опускается на пол. Сквозь скафандр вы с трудом различаете ее голос: "Я не-могу-дальше-идти". 
	]];
	phr = {
		{"Совсем немного осталось, пойдем. [Помочь Леарр подняться]", [[
			Леарр пытается подняться опираясь на вашу руку, но снова падает. Она без сознания.
		]], code [[
			tag('faint');
		]]};
		{"Оставайся здесь, я вернусь. ", [[
			Леарр теряет сознание, обессилев.
		]], code [[
			char_learr_iof.faint = true;
			back();
		]]};
		{"Оставайся здесь. ", [[
			Леарр теряет сознание, обессилев.
		]], code [[
			char_learr_iof.faint = true;
			back();
		]]};
		{"[Взять Леарр на руки]", [[
			Леарр теряет сознание, обессилев. Леарр весит не больше обычного человека. Вы берете ее на руки и продолжаете движение. 
		]], code [[ 
			remove(char_learr_iof, where(char_learr_iof));
			put(char_learr_faint, pl);
			lifeon(char_learr_faint);
			atl_iof_time_state.carry_learr = true;
			back(); 
		]]};
		{tag='faint'};
		{"[Взять Леарр на руки]", [[
			Леарр весит не больше обычного человека. Вы берете ее на руки и продолжаете движение. 
		]], code [[ 
			remove(char_learr_iof, where(char_learr_iof));
			put(char_learr_faint, pl);
			lifeon(char_learr_faint);
			atl_iof_time_state.carry_learr = true; 
			back(); 
		]]};
		{"[Уйти]", "", code [[ back(); ]]};
	};
};

atl_iof_learr_faint_wright = dlg {
	nam = "Леарр";
	disp = "Леарр";
	dsc = [[
		Леарр медленно опускается на пол. Сквозь скафандр вы с трудом различаете ее голос: "Я не-могу-дальше-идти". Райт подходит к ней и пытается помочь ей подняться. 
	]];
	phr = {
		{"Все в порядке?", [[
			По радио вы слышите голос Райта: "Да, я помогу ей. Идем". Джек аккуратно берет Леарр на руки и идет к вам. 
		]], code [[ 
			remove(char_learr_iof, where(char_learr_iof));
			atl_iof_time_state.carry_learr = true;
			back();
		]]};
	};
};

atl_iof_wright_dlg = dlg {
	nam = "Джек Райт";
	disp = "Джек Райт";
	entered = [[
		Едва вы оказываетесь в главном зале, к вам подбегает Джек Райт: _"У вас все в порядке? Здесь все рушится. Здесь недалеко должно быть служебное помещение со скафандрами. Нам следует добраться до туда"_.
	]];
	phr = {
		{"А лифт?", [[
			Джек отрицательно качает головой: _"Я не смог добраться до него"_.
		]]};
		{"Ты знаешь куда идти?", [[
			Джек неуверенно пожал плечами: _"Насколько я помню, совсем рядом если идти по часовой стрелке вдоль стены зала"_.
		]], code [[
			psub('next');
		]]};
		{tag = "next"};
		{"Следуй за нами", [[
			Джек молча кивает.
		]], code [[
			lifeon('char_wright_iof');
			back();
		]]};
	};
};

atl_iof_main_n3 = room {
	var {
		ready = false;
	};
	nam = "Атлантида, Игнис, главный зал, вход в зал А";
	disp = "Атлантида, Игнис, главный зал, вход в зал А";
	iof = true;
	dsc = [[
		Огромный круглый зал охвачен пожаром. Освещение не работает. Клубы черного дыма заволакивают помещение, затрудняя ваши перемещения. Вы находитесь в северной части зала у самого его края. 
	]];
	enter = function(s) 
		if (not s.ready) then
			s.ready = true;
			if (ArrayUtils.indexOf(pl.party, 'wright') ~= 0) then
				if (where(char_wright_iof) ~= s) then
					walkin("atl_iof_wright_dlg");
				end;
			end;
		else
			lifeon(atl_iof_time_state);
		end;
	end;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_nw3");
		kh_vroom("По часовой", atl_iof_blocked_by_fire);
		kh_vroom("К центру", "atl_iof_main_n2");
		kh_vroom("В зал А", "atl_iof_ignis_hall_a");
	};
};

atl_iof_main_n2 = room {
	nam = "Атлантида, Игнис, главный зал, север";
	disp = "Атлантида, Игнис, главный зал, север";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_fire);
		kh_vroom("По часовой", "atl_iof_main_ne2");
		kh_vroom("К центру", atl_iof_blocked_by_rubble);
		kh_vroom("К краю", "atl_iof_main_n3");
	};
};

atl_iof_main_n1 = room {
	nam = "Атлантида, Игнис, главный зал, север, у лифта";
	disp = "Атлантида, Игнис, главный зал, север, у лифта";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_nw1");
		kh_vroom("По часовой", "atl_iof_main_ne1");
		kh_vroom("В Лифт", function()
			pr("Лифт не работает");
			return false;
		end);
		kh_vroom("К краю", atl_iof_blocked_by_rubble);
	};
};

atl_iof_main_ne3 = room {
	nam = "Атлантида, Игнис, главный зал, вход в служебное помещение";
	disp = "Атлантида, Игнис, главный зал, вход в служебное помещение";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_fire);
		kh_vroom("По часовой", "atl_iof_main_se3");
		kh_vroom("К центру", "atl_iof_main_ne2");
		kh_vroom("В служебное помещение", "atl_iof_ignis_service_room");
	};
};

atl_iof_main_ne2 = room {
	nam = "Атлантида, Игнис, главный зал, северозапад";
	disp = "Атлантида, Игнис, главный зал, северозапад";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_n2");
		kh_vroom("По часовой", atl_iof_blocked_by_fire);
		kh_vroom("К центру", atl_iof_blocked_by_rubble);
		kh_vroom("К краю", "atl_iof_main_ne3");
	};
};

atl_iof_main_ne1 = room {
	nam = "Атлантида, Игнис, главный зал, северозапад, у лифта";
	disp = "Атлантида, Игнис, главный зал, северозапад, у лифта";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_n1");
		kh_vroom("По часовой", "atl_iof_main_se1");
		kh_vroom("К краю", atl_iof_blocked_by_rubble);
	};
};

atl_iof_main_se3 = room {
	nam = "Атлантида, Игнис, главный зал, вход в зал B";
	disp = "Атлантида, Игнис, главный зал, вход в зал B";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_ne3");
		kh_vroom("По часовой", atl_iof_blocked_by_rubble);
		kh_vroom("К центру", atl_iof_blocked_by_fire);
		kh_vroom("В зал B", function()
			pr("Дверь заклинило");
			return false;
		end);
	};
};

atl_iof_main_se2 = room {
	nam = "Атлантида, Игнис, главный зал, юговосточная часть";
	disp = "Атлантида, Игнис, главный зал, юговосточная часть";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_fire);
		kh_vroom("По часовой", atl_iof_blocked_by_fire);
		kh_vroom("К центру", "atl_iof_main_se1");
		kh_vroom("К краю", atl_iof_blocked_by_fire);
	};
};

atl_iof_main_se1 = room {
	nam = "Атлантида, Игнис, главный зал, юговосточная часть, у лифта";
	disp = "Атлантида, Игнис, главный зал, юговосточная часть, у лифта";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_ne1");
		kh_vroom("По часовой", "atl_iof_main_s1");
		kh_vroom("К краю", "atl_iof_main_se2");
	};
};

atl_iof_main_s3 = room {
	nam = "Атлантида, Игнис, главный зал, экстренный выход";
	disp = "Атлантида, Игнис, главный зал, экстренный выход";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_rubble);
		kh_vroom("По часовой", atl_iof_blocked_by_rubble);
		kh_vroom("К центру", "atl_iof_main_s2");
		kh_vroom("Выход", "atl_iof_outside");
	};
};

atl_iof_main_s2 = room {
	nam = "Атлантида, Игнис, главный зал, южная часть";
	disp = "Атлантида, Игнис, главный зал, южная часть";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_fire);
		kh_vroom("По часовой", atl_iof_blocked_by_rubble);
		kh_vroom("К центру", "atl_iof_main_s1");
		kh_vroom("К краю", "atl_iof_main_s3");
	};
};

atl_iof_main_s1 = room {
	nam = "Атлантида, Игнис, главный зал, южная часть, у лифта";
	disp = "Атлантида, Игнис, главный зал, южная часть, у лифта";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_se1");
		kh_vroom("По часовой", atl_iof_blocked_by_rubble);
		kh_vroom("К краю", "atl_iof_main_s2");
	};
};

atl_iof_main_sw3 = room {
	nam = "Атлантида, Игнис, главный зал, вход в зал C";
	disp = "Атлантида, Игнис, главный зал, вход в зал C";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_rubble);
		kh_vroom("По часовой", "atl_iof_main_nw3");
		kh_vroom("К центру", atl_iof_blocked_by_fire);
		kh_vroom("В зал C", function()
			pr("Дверь заклинило");
			return false;
		end);
	};
};

atl_iof_main_sw2 = room {
	nam = "Атлантида, Игнис, главный зал, югозападная часть";
	disp = "Атлантида, Игнис, главный зал, югозападная часть";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_rubble);
		kh_vroom("По часовой", "atl_iof_main_nw2");
		kh_vroom("К центру", "atl_iof_main_sw1");
		kh_vroom("К краю", atl_iof_blocked_by_fire);
	};
};

atl_iof_main_sw1 = room {
	nam = "Атлантида, Игнис, главный зал, югозападная часть, у лифта";
	disp = "Атлантида, Игнис, главный зал, югозападная часть, у лифта";
	iof = true;
	way = {
		kh_vroom("Против часовой", atl_iof_blocked_by_fire);
		kh_vroom("По часовой", "atl_iof_main_nw1");
		kh_vroom("К краю", "atl_iof_main_sw2");
	};
};

atl_iof_main_nw3 = room {
	nam = "Атлантида, Игнис, главный зал, северозапад, внешний край";
	disp = "Атлантида, Игнис, главный зал, северозапад, внешний край";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_n3");
		kh_vroom("По часовой", "atl_iof_main_sw3");
		kh_vroom("К центру", "atl_iof_main_nw2");
	};
};

atl_iof_main_nw2 = room {
	nam = "Атлантида, Игнис, главный зал, северозапад";
	disp = "Атлантида, Игнис, главный зал, северозапад";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_sw2");
		kh_vroom("По часовой", atl_iof_blocked_by_fire);
		kh_vroom("К центру", atl_iof_blocked_by_rubble);
		kh_vroom("К краю", "atl_iof_main_nw3");
	};
};

atl_iof_main_nw1 = room {
	nam = "Атлантида, Игнис, главный зал, северозапад, у лифта";
	disp = "Атлантида, Игнис, главный зал, северозапад, у лифта";
	iof = true;
	way = {
		kh_vroom("Против часовой", "atl_iof_main_sw1");
		kh_vroom("По часовой", "atl_iof_main_n1");
		kh_vroom("К краю", atl_iof_blocked_by_rubble);
	};
};

atl_iof_suits = obj {
	nam = "Скафандры";
	dsc = "Вдоль стен помещения расставлено несколько {скафандров}";
	act = function(s)
		atl_iof_time_state.pl_safe = true;
		walkin("atl_iof_external_radio_dlg");
	end;
};

atl_iof_external_radio_dlg = dlg {
	nam = "Атлантида, Игнис, служебное помещение";
	entered = function(s)
		if (where(char_wright_iof) == where(pl)) then
			return [[
				Забравшись в скафандр, вы с Райтом начинаете настраивать радио, чтобы иметь возможность общаться друг с другом. В процессе настройки вы натыкаетесь на основную частоту станции и слышите голос Моро: "... вытащить их с Игниса. Что мы можем сделать?"
				Даркстар отвечет ему: "Мы подойдем на Наутилусе к экстренному выходу и попробуем проникнуть внутрь".
			]];
		else
			return [[
				Забравшись в скафандр, вы начинаете настраивать радио, чтобы сообщить остальным о случившемся. Вскоре вы натыкаетесь на основную частоту станции и слышите голос Моро: "... вытащить их с Игниса. Что мы можем сделать?"
				Даркстар отвечет ему: "Мы подойдем на Наутилусе к экстренному выходу и попробуем проникнуть внутрь".
			]];
		end;
	end;
	phr = {
		{"Вы слышите меня?", [[
			Голоса в динамике прерываются. Через короткое время вы слышите встревоженный голос Моро: "Моро на связи! Дрейк, вы там все в порядке?"
		]], code [[psub('is_ok')]]};
		{tag = "is_ok"};
		{"Да, все здесь. Мы одеваем скафандры", [[
			Вы слышите голос Майкла Райта: "Отлично. Они защитят вас от жара и у вас будет достаточно воздуха. Лифт мы заблокировали, поэтому чтобы выбраться, воспользуйтесь экстренным шлюзом в южной части Игниса. Наутилус подхватит вас там". 
		]], code [[psub('clear')]]};
		{"Да, все здесь. Как нам выбраться?", [[
			Вы слышите голос Майкла Райта: "Лифт мы заблокировали, поэтому чтобы выбраться, воспользуйтесь экстренным шлюзом в южной части Игниса. Оденьте скафандры - они защитят вас. Наутилус подхватит вас у выхода". 
		]], code [[psub('clear')]]};
		{tag = "clear"};
		{"Вас понял, конец связи[Выключить радио].", code [[back();]]};
	};
};

atl_iof_ignis_service_room = room {
	nam = "Атлантида, Игнис, служебное помещение";
	disp = "Атлантида, Игнис, служебное помещение";
	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
			return [[
				Вы добираетесь до аварийного шлюза Игниса. Вы с трудом отдраиваете его и заходите в шлюзовую камеру. Задраив дверь изнутри, вы начинаете открывать внешний люк. ^
				Отсек быстро заполняет вода и вы замечаете некоторую растерянность Леарр. Снаружи вы видите Наутилус, находящийся прямо под люком. Вы спрыгиваете вниз. Леарр следует за вами. К вам тут же подходят несколько человек, облаченных в такие же скафандры и приглашают вас войти внутрь Наутилуса.
			]];
		end;
	end;
	obj = {
		vobj("Продолжить", "{Продолжить}", "atl_iof_part2_dlg");
	};
};

atl_iof_part2_dlg = dlg {
	nam = "Атлантида, Игнис";
	entered = [[
		Вы слышите голос, доносящийся из радио: "Все в порядке. Наутилус доставит вас на станцию".
	]];
	phr = {
		{"Хорошо[Войти в шлюз Наутилуса].", [[
			Вы забираетесь внутрь Наутилуса - эта субмарина заметно меньше вашего Левиафана, но также вмещает довольно большой экипаж. Вы снимаете скафандры и проходите в кают-компанию. По радио вы слышите голос Моро: "Как только вы придете в себя после произошедшего, я жду вас в моем кабинете". ^
			Через считанные минуты вы оказываетесь в доке. Как во сне вы добираетесь до своей каюты, где без сил засыпаете. 
		]], code [[ walk('atlantis_luna_drake_room'); ]]};
		{"Я могу чем-то помочь?", [[
			По радио вы слышите голос Райта: "Было бы очень здорово, если бы вы смогли отключить подачу кислорода в Игнис".
		]], code [[ psub('help'); ]]};
		{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;
	obj = {
		'atl_iof_select1';
		'atl_iof_select2';
		'atl_iof_select3';
		'atl_iof_select4';
		'atl_iof_select5';
		'atl_iof_select6';
		'atl_iof_air_ccw';
		'atl_iof_air_cw';
		'atl_iof_air_cancel';
	};
	is_solved = function(s)
		local current = 1;
		local visited = {false, false, false, false, false, false};
		while not visited[current] do
			visited[current] = true;
			if (s.valves[current] == 0) then
				if (current == 3 or current == 6) then 
					return false;
				else
					current = current + 1;
				end;
			elseif (s.valves[current] == 1) then
				current = current + 3;
			elseif (s.valves[current] == 2) then
				current = current - 1;
			elseif (s.valves[current] == 3) then
				current = current - 3;
			end;
		end;
		current = 4;
		visited = {false, false, false, false, false, false};
		while not visited[current] do
			visited[current] = true;
			if (s.valves[current] == 0) then
				if (current == 3 or current == 6) then 
					return false;
				else
					current = current + 1;
				end;
			elseif (s.valves[current] == 1) then
				current = current + 3;
			elseif (s.valves[current] == 2) then
				current = current - 1;
			elseif (s.valves[current] == 3) then
				current = current - 3;
			end;
		end;
		return true;
	end;
};

atl_iof_select = function(index)
	return obj {
		nam = "Клапан " .. tostring(index);
		dsc = "{Выбрать клапан " .. tostring(index) .. "}^";
		act = function(s)
			atl_iof_select1:disable();
			atl_iof_select2:disable();
			atl_iof_select3:disable();
			atl_iof_select4:disable();
			atl_iof_select5:disable();
			atl_iof_select6:disable();
			atl_iof_air_ccw:enable();
			atl_iof_air_cw:enable();
			atl_iof_air_cancel:enable();
			atl_iof_air_valves.selected = index;
			return "Вы беретесь за клапан " .. tostring(index);
		end;
	};
end;

atl_iof_select1 = atl_iof_select(1);
atl_iof_select2 = atl_iof_select(2);
atl_iof_select3 = atl_iof_select(3);
atl_iof_select4 = atl_iof_select(4);
atl_iof_select5 = atl_iof_select(5);
atl_iof_select6 = atl_iof_select(6);

atl_iof_air_ccw = obj {
	nam = "Повернуть против часовой стрелки";
	dsc = "{Повернуть против часовой стрелки}^";
	act = 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();
		
		local t;
		local r = "";
		if (atl_iof_air_valves.valves[atl_iof_air_valves.selected] > 0) then
			t = atl_iof_air_valves.valves[atl_iof_air_valves.selected] - 1;
		else
			t = 3;
		end;
		
		if (atl_iof_air_valves.selected == 1) then
			if (t == 3 or t == 2 or
				(t == 0 and atl_iof_air_valves.valves[2] == 2) or
				(t == 1 and atl_iof_air_valves.valves[4] == 3)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 2) then
			if (t == 3 or
				(t == 2 and atl_iof_air_valves.valves[1] == 0) or
				(t == 0 and atl_iof_air_valves.valves[3] == 2) or
				(t == 1 and atl_iof_air_valves.valves[5] == 3)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 3) then
			if (t == 3 or 
				(t == 2 and atl_iof_air_valves.valves[2] == 0) or
				(t == 1 and atl_iof_air_valves.valves[6] == 3)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 4) then
			if (t == 1 or t == 2 or
				(t == 3 and atl_iof_air_valves.valves[1] == 1) or
				(t == 0 and atl_iof_air_valves.valves[5] == 2)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 5) then
			if (t == 1 or
				(t == 3 and atl_iof_air_valves.valves[2] == 1) or
				(t == 2 and atl_iof_air_valves.valves[4] == 0) or
				(t == 0 and atl_iof_air_valves.valves[6] == 2)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 6) then
			if (t == 1 or 
				(t == 3 and atl_iof_air_valves.valves[3] == 1) or
				(t == 2 and atl_iof_air_valves.valves[5] == 0)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		end;
		
		atl_iof_air_valves.valves[atl_iof_air_valves.selected] = t;
		
		atl_iof_air_valves.selected = 0;
		
		if (atl_iof_air_valves:is_solved()) then
			walk("atl_iof_electr_dlg");
		end;
		
		return r;
	end;
};

atl_iof_air_cw = obj {
	nam = "Повернуть по часовой стрелке";
	dsc = "{Повернуть по часовой стрелке}^";
	act = 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();
		
		local t;
		local r = "";
		if (atl_iof_air_valves.valves[atl_iof_air_valves.selected] < 3) then
			t = atl_iof_air_valves.valves[atl_iof_air_valves.selected] + 1;
		else
			t = 0;
		end;
		
		if (atl_iof_air_valves.selected == 1) then
			if (t == 3 or t == 2 or
				(t == 0 and atl_iof_air_valves.valves[2] == 2) or
				(t == 1 and atl_iof_air_valves.valves[4] == 3)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 2) then
			if (t == 3 or
				(t == 2 and atl_iof_air_valves.valves[1] == 0) or
				(t == 0 and atl_iof_air_valves.valves[3] == 2) or
				(t == 1 and atl_iof_air_valves.valves[5] == 3)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 3) then
			if (t == 3 or 
				(t == 2 and atl_iof_air_valves.valves[2] == 0) or
				(t == 1 and atl_iof_air_valves.valves[6] == 3)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 4) then
			if (t == 1 or t == 2 or
				(t == 3 and atl_iof_air_valves.valves[1] == 1) or
				(t == 0 and atl_iof_air_valves.valves[5] == 2)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 5) then
			if (t == 1 or
				(t == 3 and atl_iof_air_valves.valves[2] == 1) or
				(t == 2 and atl_iof_air_valves.valves[4] == 0) or
				(t == 0 and atl_iof_air_valves.valves[6] == 2)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		elseif (atl_iof_air_valves.selected == 6) then
			if (t == 1 or 
				(t == 3 and atl_iof_air_valves.valves[3] == 1) or
				(t == 2 and atl_iof_air_valves.valves[5] == 0)) then
				t = atl_iof_air_valves.valves[atl_iof_air_valves.selected];
				r = "Клапан не поворачивается";
			end;
		end;
		
		atl_iof_air_valves.valves[atl_iof_air_valves.selected] = t;
		
		atl_iof_air_valves.selected = 0;
		
		if (atl_iof_air_valves:is_solved()) then
			walk("atl_iof_electr_dlg");
		end;
		
		return r;
	end;
};

atl_iof_air_cancel = obj {
	nam = "Выбрать другой клапан";
	dsc = "{Выбрать другой клапан}";
	act = 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;
		
		return "";
	end;
};

atl_iof_electr_dlg = dlg {
	nam = "Атлантида, Игнис";
	entered = [[
		Вы останавливаете подачу кислорода и собиратесь сообщить об этом по радио, когда из динамика радается голос Райта: "Как у вас успехи? Нужно отключить еще подачу электричества".
	]];
	phr = {
		{"Подача воздуха отключена. Как я смогу отключить электричество?", [[
			Райт продолжает: "Отлично. Там рядом должна быть панель, она подписана. Там замок хитрый, но, думаю, вы разберетесь. Затем просто дергаете рубильник и дело сделано".
		]], code [[ psub("next"); ]]};
		{tag="next"};
		{"Вас понял. Конец связи", [[
			Вы быстро находите необходимую панель и приступаете к работе.
		]], code [[ walk("atl_iof_electr_panel_closed"); ]]};
	};
};

atl_iof_electr_panel_closed = room {
	var {
		locks = { true, true, true, true, true, true, true, true };
	};
	nam = "Электрощит";
	pic = function(s)
		local image = 'images/electr_bg.png';
		for i = 1, 4 do
			if (s.locks[i]) then
				image = image .. ";images/air_3.png@" .. tostring(((i - 1) % 4) * 32) .. "," .. tostring(math.floor((i - 1) / 4) * 32);
			else
				image = image .. ";images/air_1.png@" .. tostring(((i - 1) % 4) * 32) .. "," .. tostring(math.floor((i - 1) / 4) * 32);
			end;
		end;
		for i = 5, 8 do
			if (s.locks[i]) then
				image = image .. ";images/air_1.png@" .. tostring(((i - 1) % 4) * 32) .. "," .. tostring(math.floor((i - 1) / 4) * 32);
			else
				image = image .. ";images/air_3.png@" .. tostring(((i - 1) % 4) * 32) .. "," .. tostring(math.floor((i - 1) / 4) * 32);
			end;
		end;
		return image;
	end;
	dsc = [[
		Перед вами расположен щиток с восемью защелками. Сейчас щиток закрыт и вы не можете его снять. 
	]];
	obj = {
		"atl_iof_electr_select1",
		"atl_iof_electr_select2",
		"atl_iof_electr_select3",
		"atl_iof_electr_select4",
		"atl_iof_electr_select5",
		"atl_iof_electr_select6",
		"atl_iof_electr_select7",
		"atl_iof_electr_select8"
	};
	is_solved = function(s)
		local unsolved = false;
		for i = 1, #locks do
			unsolved = unsolved or s.locks[i];
		end;
		
		return not unsolved;
	end;
};

atl_iof_electr_select = function(index)
	return obj {
		nam = "Защелка " .. tostring(index);
		dsc = "{Сдвинуть защелку " .. tostring(index) .. "}^";
		act = function(s)			
			atl_iof_electr_panel_closed.locks[index] = not atl_iof_electr_panel_closed.locks[index];
			if (index ~= 4 and index ~= 8) then
				atl_iof_electr_panel_closed.locks[index + 1] = not atl_iof_electr_panel_closed.locks[index + 1];
			end;
			if (index ~= 1 and index ~= 5) then
				atl_iof_electr_panel_closed.locks[index - 1] = not atl_iof_electr_panel_closed.locks[index - 1];
			end;
			if (index > 4) then
				atl_iof_electr_panel_closed.locks[index - 4] = not atl_iof_electr_panel_closed.locks[index - 4];
			end;
			if (index < 5) then
				atl_iof_electr_panel_closed.locks[index + 4] = not atl_iof_electr_panel_closed.locks[index + 4];
			end;
			
			if (atl_iof_electr_panel_closed.is_solved()) then
				walk("atl_iof_electr_panel_open");
			
				return "";
			end;
			
			return "Вы сдвигаете защелку " .. tostring(index);
		end;
	};
end;

atl_iof_electr_select1 = atl_iof_electr_select(1);
atl_iof_electr_select2 = atl_iof_electr_select(2);
atl_iof_electr_select3 = atl_iof_electr_select(3);
atl_iof_electr_select4 = atl_iof_electr_select(4);
atl_iof_electr_select5 = atl_iof_electr_select(5);
atl_iof_electr_select6 = atl_iof_electr_select(6);
atl_iof_electr_select7 = atl_iof_electr_select(7);
atl_iof_electr_select8 = atl_iof_electr_select(8);

atl_iof_electr_panel_open = dlg {
	nam = "Атлантида, Игнис";
	dsc = [[
		Вы снимаете щиток и дергаете рубильник. Судя по всему, Игнис сейчас должен быть обесточен. По радио вы сообщаете Райту о завершении работ.
	]];
	phr = {
		{"Подача электричества в Игнис отключена, возвращаюсь на станцию", [[
			В динамике вы слышите голос Райта: "Отлично, возвращайтесь".^
		]], code [[ walk("atl_iof_end"); ]]};
	};
};

atl_iof_end = room {
	nam = "Атлантида";
	dsc = [[
		Вы возвращаетесь на станцию и сразу же отправляетесь в свою комнату, чтобы отдохнуть. Вы просыпаетесь утром, полностью готовый заняться новыми делами. ^
		Почти сразу к вам в комнату входят двое охранников. Они просят вас проследовать за ними к начальнику службы безопасности - Винсенту Даркстару. У вас нет никакого выхода, кроме как пойти с ними...
	]];
	entered = function(s)
		atl_lfc_state = 1;
		if (atl_iof_time_state.learr_safe) then
			atl_iof_learr_suit = true;
		end;
		if (atl_iof_time_state.carry_learr or atl_iof_time_state.learr_safe or not char_learr_iof.faint) then
			-- learr saved
			put(char_learr_atlantis, atl_oculus_lab_c);
		else
			atl_iof_learr_dead = true;
			put(char_aikerjarr, atl_oculus_lab_c);
		end;
		atl_iof_completed = true;
	end;
	obj = {
		vway("Продолжить", "{Продолжить}", "atl_lfc_darkstar_dlg");
	};
};