};

};

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();