atl_ignis_illuminator = obj {

	var {

		state = 1;

	};

	nam = "Иллюминатор";

	dsc = function(s)

		if (s.state == 1) then

			return [[Огромное панорамное {окно} открывает великолепный вид на океан вокруг. ]];

		else

			return [[Металлические жалюзи скрывают огромное панорамное {окно}. ]];

		end;

	end;

	act = function(s)

		if (s.state == 1) then

			s.state = 0;

			return [[Вы дергаете рычаг рядом с окном и металлические жалюзи со скрежетом закрывают его, полностью блокируя проникновение света извне. ]];

		else

			s.state = 1;

			return [[Вы дергаете рычаг рядом с окном и металлические жалюзи со скрежетом отъезжают в стороны, открывая его. ]];

		end;

	end;

};

atl_ignis_screen = obj {

	nam = "Экран";

	dsc = function(s)

		return [[На одной из стен закреплен экран. ]];

	end;

};

atl_ignis_projector = obj {

	var {

		state = 0;

	};

	nam = "Проектор";

	dsc = function(s)

		if (s.state == 0) then

			return [[{Проектор} готов к работе. ]];

		else

			return [[{Проектор} не работает. ]];

		end;

	end;

	act = function(s)

		if (s.state == 0) then

			s.state = 1;

			atl_lfc_electric = 1;

			return [[Вы включаете проектор, однако он не работает. ]];

			s.state = 2;

			return [[Вы выключаете проектор. ]];

        else

            return [[Проектор не работает. ]];         

		end;

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

                if (s.wright_here) then

                    walkin("atl_iof_learr_faint_wright");

                else

                    walkin("atl_iof_learr_faint_alone");

                end;

            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 = "Леарр";

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 = "Атлантида, Игнис, служебное помещение";

	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

            if (atl_iof_time_state.learr_safe) then

			    return [[Вы добираетесь до аварийного шлюза Игниса. Вы с трудом отдраиваете его и заходите в шлюзовую камеру. Задраив люк изнутри, вы приступаете к открытию внешнего. ^Вода быстро заполняет отсек и вы замечаете некоторую растерянность Леарр. Снаружи вы видите Наутилус, находящийся прямо под люком. Вы спрыгиваете вниз. Леарр следует за вами. Группа людей, облаченных в скафандры помогает вам забраться внутрь Наутилуса. ]];

            else

                return [[Вы добираетесь до аварийного шлюза Игниса. Вы с трудом отдраиваете его и заходите в шлюзовую камеру. Задраив люк изнутри, вы приступаете к открытию внешнего. ^Вода быстро заполняет отсек. Снаружи вы видите Наутилус, находящийся прямо под люком. Вы спрыгиваете вниз. Группа людей, облаченных в скафандры помогает вам забраться внутрь Наутилуса. ]];

ginshop_trader_dlg = dlg {

	nam = "ginshop_trader_dlg";

	disp = "Торговец";

	enter = function(s)

		if (ginshop_trader.bought or char_worker.bought) then

			pr("Мне здесь ничего не нужно. ");

			return false;

		else

			return true;

		end;

	end;

	entered = [[Сняв очки, продавец смотрит на вас и спрашивает: "Добро пожаловать, господин. Чем могу помочь, господин?" ]];

	phr = {

		{always = true, "Бутылочку чего-нибудь покрепче, пожалуйста. ", [[Продавец кивает: "Сию секунду, господин". Почесав седую голову, он уходит в подвал, откуда возвращается через некоторое время с бутылкой. С громким стуком поставив бутылку на стол, он сообщает вам цену: "Это будет стоить вам 10 шиллингов, господин". ]], code = [[ psub("buy"); ]]};

		{always = true, "Это все, спасибо. ", [[Продавец одевает очки обратно и прощается с вами: "Приходите еще, господин". ]], function() 

				back();

			end;

		};

		{tag = "buy"};

		{always = true, "Беру. ", function(s)

			if (pl:pay(10)) then

				ginshop_trader.bought = true;

				take(item_bottle);

				return [[Расплывшись в широкой улыбке продавец подмигивает вам и говорит: "Приходите еще, господин!" ]];

			else

				return [[Одевая очки обратно, продавец прячет бутылку под прилавок: "Простите, господин, но я сказал 10 шиллингов". ]];

			end;

		end, code = [[ back(); ]]};

		{always = true, "Я передумал. ", [[Одевая очки обратно, продавец прячет бутылку под прилавок: "Подумайте еще, господин. Всего 10 шиллингов, господин!". ]], code = [[ pret(); ]]};

	};

};

hotel_street = room {

	nam = "hotel_street";

	disp = "Улица";

	entered = function(s)

		move(char_coachman, here());

	end;

    dsc = [[Перед вами стоит старое двухэтажное здание гостиницы. Массивные деревянные двери открыты, приглашая вас внутрь. Покосившаяся вывеска над ними гласит: "Гостиница Старого Фрэнки". Большинство домов поблизости выглядят старыми и неухоженными - очевидно, в этом районе живут не самые богатые горожане. Вокруг тихо - лишь редкие пешеходы проходят мимо, не обращая на вас никакого внимания. По небу неспешно плывут тяжелые темные тучи. ]];

	way = {

		vroom("В гостиницу", "hotel_hall");

	};

};

hotel_hall = room {

	nam = "hotel_hall";

	disp = "Гостиница";

	obj = {

	};

    entered = function(s)

        if (rnd(20) > 19) then

            hotel_maid.state = #hotel_maid.actions;

            put(hotel_maid, here());

        else

            remove(hotel_maid, here());

        end;

    end;   

	way = {

		vroom("На улицу", "hotel_street");

		vroom("К номерам", "hotel_corridor_1"):disable();

		vroom("На второй этаж", "hotel_corridor_2"):disable();

	};

};

hotel_corridor_1 = room {

	nam = "hotel_corridor_1";

	disp = "Гостиница, первый этаж";

    dsc = [[Широкий коридор без окон, освещенный газовыми лампами, укрепленными на стенах. По обе стороны от вас расположены двери, ведущие в комнаты постояльцев. ]];

    entered = function(s)

        if (rnd(10) > 9) then

            hotel_maid.state = rnd(#hotel_maid.actions - 1);

            put(hotel_maid);

        else

            remove(hotel_maid);

        end;

    end;

	way = {

		vroom("В холл", "hotel_hall");

		vroom("В комнату №2", "hotel_room_2"):disable();

	};

};

hotel_corridor_2 = room {

    var {

        room_visited = false;

    };

	nam = "hotel_corridor_2";

	disp = "Гостиница, второй этаж";

	dsc = [[Широкий коридор без окон, освещенный газовыми лампами, укрепленными на стенах. По обе стороны от вас расположены двери, ведущие в комнаты постояльцев. ]];

	way = {

		vroom("В холл", "hotel_hall");

		vroom("В комнату №7", "hotel_room_7");

	};

	enter = function(s)

		if (s.room_visited and not s.met_starlight) then

			s.met_starlight = true;

	};

	way = {

		vroom("В коридор", "hotel_corridor_2");

	};

	entered = function(s)

		hotel_corridor_2.room_visited = true;

	end;

};

room_7_window = obj {

	nam = "room_7_window";

	state = 0;

	dsc = function(s)

		if (s.state == 0) then

			return "{Окно} закрыто плотными ставнями. ";

		elseif (s.state == 1) then

			return "Через {окно} вы можете разглядеть мостовую, немногочисленных прохожих, прочные кирпичные дома на другой стороне улицы и тяжелые тучи, нависающие над городом. ";

		else

			return "Сквозь открытое {окно} до вас доносится шум большого, живущего своей жизнью города. Прохладный ветерок задувает в комнату. ";

		end;

	end;

	act = function(s)

		if (s.state == 0) then

			s.state = 1;

			return [[Вы открываете ставни. ]];

		elseif (s.state == 1) then

			s.state = 2;

			return [[Вы открываете окно. ]];

		elseif (s.state == 2) then

			s.state = 0;

			return [[Вы закрываете окно и захлопываете ставни. ]];

		end;

	end;

};

hotel_concierge = obj {

	nam = "hotel_concierge";

	disp = "Консьерж";

	dsc = [[За стойкой скучает пожилой {консьерж}. Поношенный костюм, выглаженный и начищенный, хорошо сидит на его худощавом теле. Аккуратно подстриженная седая борода украшает его морщинистое лицо. Руки его неподвижно лежат на стойке, а глаза наблюдают за входящими и выходящими посетителями. ]];

	act = function(s)

		if (hotel_concierge.paid) then

			pn("Я уже снял номер. ");

		else

			walkin(hotel_concierge_dlg);

		end;

	end;

};

hotel_maid = npc {

    var {

        state = 1;

    };

	nam = "hotel_maid";

	disp = "Служанка";

	actions = {

		[[{Служанка} подметает пол. ]];

		[[{Служанка} протирает стены. ]];

        [[{Служанка} поправляет лампу. ]];

	};

	dsc = function(s)

		return s.actions[s.state];

	end;

	phrases = {

		[["Простите, я занята". ]];

		[["Вам понравилась ваша комната?" ]];

		[["У меня еще много дел сегодня". ]];

		[["Простите?" ]];

		[["Добрый день". ]];

	};

};

hotel_concierge_dlg = dlg {

	nam = "hotel_concierge_dlg";

	disp = "Консьерж";

	entered = [[Консьерж оживился, как только вы подошли: "Здравствуйте! Желаете снять номер?" ]];

	phr = {

		{1, "Да, мне нужна комната на неделю. ", [[Консьерж, посмотрев в журнал, называет цену: "С вас 100 монет". ]], code = [[ psub("pay"); ]]};

		{255, always = true, "Не сейчас. ", function()

			back();

			return [[Консьерж недовольно отвечает: "Приходите, когда соберетесь! "]];

		end};

		{tag = "pay"};

		{always = true, "Хорошо. ", function()

			if pl:pay(100) then

				hotel_concierge.paid = true;

				path("К номерам", hotel_hall):enable();

				path("На второй этаж", hotel_hall):enable();

				back();

				return [[Консьерж принимает ваши деньги и просит вас расписаться в гостевой книге. После чего вручает вам ключ, сообщая: "Вам на второй этаж, комната номер 7". ]];

			else

				pon(1);

				pret();

				back();

				return [[Консьерж недовольно отвечает: "Приходите, когда деньги будут!" ]];

			end;

		end};

		{always = true, "Я передумал. ", [[Консьерж недовольно отвечает: "Приходите, когда соберетесь!" ]], code = [[ pon(1); pret(); ]]}

	};

};

starlight_first_dlg = dlg {

    nam = "starlight_first_dlg";

	disp = "Гостиница, второй этаж";

	entered = [[Выйдя из своей комнаты, вы замечаете поднимающегося по лестнице человека. Это мужчина лет сорока-пяти--пятидесяти. Он одет в помятый темно-серый костюм, на носу -- маленькие очки в простой оправе. В левой руке он держит какую-то газету, а правой спешно ощупывает карманы в поисках чего-то. Заметив вас он улыбается и спрашивает: "Господин Дрейк?" ]];

	left = function(s)

		path('В комнату №2', hotel_corridor_1):enable();

		put(hotel_corridor_2, "char_starlight_corridor");

		lifeon("char_starlight_corridor");

	end;

	phr = {

		{ "Мы встречались?", [[Человек пожимает плечами: "Скорее всего нет, мое имя Джозеф Старлайт. Вы случайно не родственник Уильяма Дрейка? Название Вестхейвен Трансоушен вам о чем-то говорит?" ]], code [[ pstart('have_we_met') ]]};

		{ "Кто вы?", [[Человек протягивает вам руку: "Джозеф Старлайт, адвокат. Название Вестхейвен Трансоушен вам о чем-то говорит?" ]], code [[ pstart('who_are_you') ]]};

		{ "Да, я Дэвид Дрейк.", [[Человек протягивает вам руку: "Здравствйте! Я Джозеф Старлайт. Вы сын Уильяма Дрейка? Название Вестхейвен Трансоушен вам о чем-нибудь говорит?" ]], code [[ pstart('i_am_drake') ]]};

		{ "Простите, я спешу.", [[Человек огорченно вздыхает: "Простите". Подойдя к лестнице он оборачивается и говорит: "Мое имя - Джозеф Старлайт. Если хотите поговорить о Вестхейвен Трансоушен, зайдите ко мне в комнату 2 когда у вас будет время". ]], code [[ back(); ]]};

		{tag = "have_we_met"};

		{ "Я сын Уильяма. Вы знаете что произошло?", [[Джозеф Старлайт чешет подбородок: "Немного. Это было, без сомнения, самое запутанное мое дело. Нам лучше поговорить у меня в комнате. Номер 2, на первом этаже". ]], code [[ back(); ]]};

		{ "Кто вы?", [[Джозеф Старлайт отвечает: "Адвокат. Я занимался делом о банкротстве Вестхейвен Трансоушен". ]], code [[ pstart('who_are_you') ]]};

		{tag = "who_are_you"};

		{ "Вы знаете что произошло?", [[Джозеф Старлайт чешет подбородок: "Немного. Это было, без сомнения, самое запутанное мое дело. Нам лучше поговорить у меня в комнате. Номер 2, на первом этаже". ]], code [[ back(); ]]};

		{tag = "i_am_drake"};

		{ "Да все верно. Это название компании моего отца. Вы знаете что произошло?", [[Джозеф Старлайт чешет подбородок: "Немного. Это было, без сомнения, самое запутанное мое дело. Нам лучше поговорить у меня в комнате. Номер 2, на первом этаже". ]], code [[ back(); ]]};

	};

};

char_starlight_corridor = obj {

	nam = "char_starlight_corridor";

	dsc = function(s)

		return [[{Джозеф Старлайт} продолжает ощупывать карманы, словно ищет что-то. ]];

	end;

	act = function(s)

		remove(s, where(s));

		lifeoff(s);

		return [[Раздраженно махнув рукой, Джозеф быстрым шагом спускается вниз по лестнице. ]];

	end;

	life = function(s)

		if (rnd(5) > 4) then

			remove(s, where(s));

			lifeoff(s);

			return [[Раздраженно махнув рукой, Джозеф быстрым шагом спускается вниз по лестнице. ]];

		end;

	end;

};

char_starlight = obj {

    var {

        forgetful = 0;

        complete = 0;

    };

	nam = "char_starlight";

	dsc = function(s)

		return [[{Джозеф Старлайт} сидит за столом и делает какие-то записи в блокноте. ]];

	end;

	act = function(s)