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;

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

			walkin('starlight_first_dlg');

		end;

	end;

    entered = function(s)

        if (rnd(10) > 9) then

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

            put(hotel_maid, here());

        else

            remove(hotel_maid, here());

        end;

    end;

	left = function(s)

		if (s.room_visited) then

			remove("char_starlight_corridor", where("char_starlight_corridor"));

			lifeoff("char_starlight_corridor");

		end;

	end;

};

hotel_room_2 = room {

	nam = "hotel_room_2";

	disp = "Гостиница, Комната №2";

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

	obj = {

		"char_starlight"

	};

	way = {

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

	};

};

hotel_room_7 = room {

	nam = "hotel_room_7";

	disp = "Гостиница, Комната №7";

	dsc = [[Небольшая чистая комната. Деревянный столик в углу прикрыт белой скатертью. В углу стоит аккуратно сделанный стул. У окна расположена застеленная чистым бельем кровать. На скрипучем деревянном полу лежит старый коврик. ]];

	obj = {

		'item_lamp', 'room_7_window', 'money_hotel'

	};

	way = {

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

	};

	entered = function(s)

		hotel_corridor_2.room_visited = true;

	end;

};

room_7_window = obj {

    var {

        state = 0;

    };

	nam = "room_7_window";

	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 {

    var {

        paid = false;

    };

	nam = "hotel_concierge";

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

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

	act = function(s)

		if (hotel_concierge.paid) then

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

		else

			walkin(hotel_concierge_dlg);

		end;

	end;

};

hotel_starlight = npc {

    nam = "hotel_starlight";

    disp = "Старлайт";

    dsc = "На одном из диванчиков сидит мужчина лет сорока-пяти--пятидесяти, одетый в помятый костюм. Он читает газету и не обращает на вас внимания. ";

};

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)

        remove(hotel_starlight, hotel_hall);

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

		{tag = "have_we_met"};

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

		{tag = "who_are_you"};

		{tag = "i_am_drake"};

	};

};

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)

		walkin(starlight_dlg);

	end;

};

starlight_dlg = dlg {

	nam = "starlight_dlg";

	disp = "Джозеф Старлайт";

	entered = function(s)

		if (not char_starlight.forgetful) then

			pon(0);

		else

			poff(0);

		end;

		if (have(item_charts) and not warehouse18_found) then

			pon(14);

		else

			poff(14);

		end;

		char_starlight.forgetful = true;

		if (char_starlight.complete) then

			return [[Джозеф оборачивается к вам и удивленно вскакивает со стула: "Как вы сюда попали?!" Он подходит к двери, открывает ее и снова закрывает, после чего запирает замок: "Опять забыл, да что ж такое?!" Потом он снова оборачивается к вам и говорит: "Господин Дрейк? Мое имя Джозеф ..." - внезапно он делает паузу, после чего продолжает: "Мы же вроде все обсудили с вами?" ]];

		else

			return [[Джозеф оборачивается к вам и удивленно вскакивает со стула: "Как вы сюда попали?!" Он подходит к двери, открывает ее и снова закрывает, после чего запирает замок: "Опять забыл, да что ж такое?!" Потом он снова оборачивается к вам и говорит: "Господин Дрейк? Мое имя Джозеф Старлайт. Я думаю нам есть что обсудить касательно компании вашего отца". ]];

		end;

	end;

	phr = {

		{1, "Вы уже представлялись. ", [[Джозеф Старлайт удивленно переспрашивает: "Да?! Что-то я этого не помню. Впрочем я такими мелочами себе голову не забиваю. Давайте к делу". ]]};

		{2, "Я вас слушаю. ", [[Джозеф Старлайт чешет подбородок: "Как я уже говорил, это дело было одним из самых запутанных. Судите сами: верхушка преуспевающей компании, внезапно исчезает, не оставив следов. Сначала мы предполагали, что это дело рук конкурентов - прибрать компанию к рукам, прикрыть или использовать их разработки. Однако, когда начали копать, выяснили, что к этому моменту Вестхейвен Трансоушен была не в лучшем состоянии -- отдел исследований закрыт, документы уничтожены, некоторые подразделения проданы. Говоря проще -- компания разваливалась". ]], code [[ pstart('father_bankrupt') ]]};

		{3, tag = 'father_bankrupt'};

		{4, "Но зачем Уильяму разрушать собственную компанию? ", [[

			Джозеф Старлайт пожимает плечами: "Если бы я знал. Судя по той информации, что я о нем собрал, он весьма грамотный человек и у него были толковые помощники. Не знаю, сможете ли вы что-то сказать, господин Дрейк. Вам тогда сколько было? 10 лет?" Джозеф поправляет очки и продолжает: "У меня, конечно, есть предположение. Исследовательский отдел занимался чем-то принципиально новым, не связанным с основной деятельностью компании. Это подтверждают и отчеты компании - инженеры получали колоссальное финасирование, заказывалось огромное количество заказных деталей. Также компания зачем-то наняла нескольких видных ученых. В итоге, что бы там не планировалось - дело закончилось провалом и большими расходами, поэтому компанию пришлось закрыть. Чего я не понимаю - зачем он исчез? Любой банк бы выдал большой кредит такому человеку". ]], code [[ pstart('fathers_project') ]]};

		{5, tag = 'fathers_project', empty = code [[psub('final') ]]};

		{6, "А может у него наоборот все получилось? ", [[Джозеф Старлайт пожимает плечами: "Тогда почему он исчез? Почему оставил семью? Еще больше вопросов". ]]};

		{7, "Не думаю, что из-за простой неудачи мой отец мог бы бросить вообще все. ", [[Джозеф Старлайт чешет подбородок: "Я и не говорил, что это *простая* неудача. Судя по всему, проект был весьма перспективным. Настолько, что можно было рискнуть всем". ]]};

		{8, "И что это мог быть за проект? ", [[Джозеф Старлайт пожимает плечами: "Понятия не имею. Какое-то масштабное исследование, может быть экспедиция - это подтверждают и большое количество заказанных компанией деталей и нанятые ученые". ]], code [[ psub('submarine'); ]]};

		{9, tag = 'submarine'};

		{10, "Для чего это могло понадобиться Уильяму? ", [[Джозеф Старлайт снимает очки: "Понятия не имею. Совершенно". ]]};

		{11, "Это бы объяснило куда он исчез. ", [[Джозеф Старлайт чешет голову: "Может быть, только никаких документов не сохранилось. Впрочем они очень много денег на какие-то секретные проекты тратили последнее время". ]]};

		{13, tag = 'final'};

		{14, always = true, "Вы можете посмотреть эти бумаги? Вам знакомы эти места? [Показать Джозефу документы отца]", [["Так вот зачем вы здесь! Я догадывался. Давайте ваши бумаги сюда", - Джозеф выхватывает документы из ваших рук и бегло просматривает их. Почесав голову, он говорит: "Одно из этих мест я знаю". Он сообщает вам адрес склада 18. ]], code [[ warehouse18_found = true; poff(14); ]]};

		{15, always = true, "Мне пора. ", [[Джозеф Старлайт отворачивается к столу: "До встречи". ]], code [[ back(); ]]};

	};

};

--[[

    Банк

]]

london_bank_street = room {

    nam = "london_bank_street";

    disp = "Улица";

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

    way = {

        kh_vroom("В банк", "london_bank");

    };

    entered = function(s)

        move(char_coachman, here());

    end;

};

london_bank = room {

    nam = "london_bank";

    disp = "Банк";

    dsc = [[Внутри банка прохладно и светло. ]];

    way = {

        kh_vroom("На улицу", "london_bank_street");

    };

    obj = {

        "bank_clerks";

        "bank_guard";

    };

};

bank_clerks = npc {

    nam = "bank_clerks";

    dsc = [[Людей внутри почти нет, не считая нескольких скучающих за мраморной стойкой {клерков} ]];

    dlg = "bank_clerks_dlg";

};

bank_clerks_dlg = dlg {

    nam = "bank_clerks_dlg";

    disp = "Клерк";

    entered = [[Вы подходите к одному из клерков. Молодой человек в аккуратном пиджаке и галстуке уставляет свой взор на вас и спрашивает: "Чем я могу помочь?"]];

    phr = {

        {"[Передать сберкнижку]Я хотел бы снять деньги со своего счета. ", [[Вы протягиваете клерку сберкнижку. Он просматривает ее и отвечает: "Конечно. Минутку". Он уходит из зала и через несколько минут возвращается с мешочком монет. ]], code [[ remove(item_bankbook, pl); pl.money = pl.money + 150; ]]};

        {always=true; "Я вернусь позже. ", [[Клерк возвращается к своим делам. ]], code [[ back(); ]]}

    };

};

bank_guard = npc {

    nam = "bank_guard";

    dsc = "и одинокого {охранника}, застывшего у входа.";

    phrases = {

        [[Охранник вежливо приветствует вас: "Добро пожаловать, господин". ]];

        [[Охранник пожимает плечами: "Я ничем не могу вам помочь". ]];

        [[Охранник зевает. ]];

        [[Охранник задумчиво чешет подбородок. ]];

    };

};

money_dock = obj {

    nam = "money_dock";

    dsc = "Среди куч мусора вы видите что-то {блестящее}. ";

    act = function(s)

        remove(money_dock, here());

        return "Пять шиллингов!";

    end;

};

money_wh32 = obj {

    nam = "money_wh32";

    dsc = "На столе лежат несколько {монет}. ";

    act = function(s)

        remove(money_wh32, here());

        return "Пять шиллингов!";

    end;

};

money_hotel = obj {

    nam = "money_hotel";

    dsc = "Под кроватью вы замечаете {что-то блестящее}. ";

    act = function(s)

        remove(money_hotel, here());

        return "Пять шиллингов!";

    end;

};