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;

};

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

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

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

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

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

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

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

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

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

	};

};

				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') ]]};