atlantis_learr_intro = room {

	nam = "Атлантида, Окулус, Главный коридор";

	obj = {

		vway('continue', '{Продолжить}', 'atlantis_learr_first_dlg')

	};

};

atlantis_learr_first_dlg = dlg {

	nam = "Леарр";

	phr = {

		{"Кто ты?", [[

			put(char_learr_atlantis, atl_ignis_hall_a);

			char_learr_atlantis.offended = true;

			walk("atl_oculus_main_corridor");

		]]};

		{tag="learr"};

		{tag="drake"};

		{tag="follow_drake"};

	};

};

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