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

	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;

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

	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;

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

	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;

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

	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;

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

	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;

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

	way = {

		kh_vroom("Против часовой", "atl_iof_main_sw3");

		kh_vroom("По часовой", "atl_iof_main_n3");

		kh_vroom("К центру", "atl_iof_main_nw2");

	};

};

atl_iof_main_nw2 = room {

	nam = "Атлантида, Игнис, главный зал, северозапад";

	disp = "Атлантида, Игнис, главный зал, северозапад";

	iof = true;

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

	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;

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

	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 = [[Забравшись в скафандр, вы настраиваете радио. Наконец, вы натыкаетесь на основную частоту станции и слышите голос Моро: "... вытащить их с Игниса. Что мы можем сделать?"^Даркстар отвечает: "Мы подойдем на Наутилусе к аварийному выходу и попробуем проникнуть внутрь". ]];

	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;

    no_limits = 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('atl_luna_drake_room'); ]]};

		{"Я могу чем-то помочь?", function(s)

            if (atl_iof_time_state.carry_learr or atl_iof_time_state.learr_safe or not char_learr_iof.faint) then

                psub('help');      

                return [[По радио вы слышите голос Райта: "Было бы очень здорово, если бы вы смогли отключить подачу кислорода в Игнис". ]];

            else

                walk("atl_iof_end");

                return [[По радио вы слышите голос Даркстара: "Возвращайтесь на станцию. Вам нужен отдых, а мы попытаемся спасти Леарр". ]];

            end;

        end};

		{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 = 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;