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;

	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 {

	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 {

	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

		else

		end;

	end;

	phr = {

		{tag = "is_ok"};

		{tag = "clear"};

		{"Вас понял, конец связи[Выключить радио].", code [[back();]]};

	};

};

atl_iof_ignis_service_room = room {

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

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

	iof = true;

	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

			else

			end;

		else

		end;

	end;

	obj = {

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

	};

};

atl_iof_part2_dlg = dlg {

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

	phr = {

		{tag="help"};

	};

};

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)