if (s.bought) then

			return "Мне от него больше ничего не надо. ";

		else

			walkin(s.dlg);

		end;

	end;

};

char_worker_dlg = dlg {

	nam = "char_worker_dlg";

	disp = "Портовый рабочий";

	entered = function(s)

		pjump('new');

		return [[Недовольно посмотрев в вашу сторону, рабочий спрашивает: "Чего надо?" ]];

	end;

	phr = {

		{tag='new'},

		{always=true, "Могу я воспользоваться вашими инструментами?", [[Рабочий отрывисто отвечает: "Нет", -- после чего отворачивается в другую сторону. ]], [[ pjump 'bribe_try' ]]};

		{always=true, "Нет, ничего. ", [[Рабочий недовольно рычит: "Тогда отвали", -- после чего отворачивается в другую сторону. ]], [[ back(); ]]};

		{tag='bribe_try'};

		{always=true, "Могу я купить их у вас?", [[Рабочий снова повернулся к вам. Он с плохо скрываемым интересом спрашивает: "Сколько?" ]], [[ pjump 'bribing_20' ]]};

		{always=true, "Нет, ничего. ", [[Рабочий недовольно рычит: "Тогда отвали", -- после чего отворачивается в другую сторону. ]], [[ back(); ]]};

		{tag='bribing_20'};

		{"5 шиллингов?", [[ Рабочий усмехнулся: "Издеваешься?" ]]};

		{always=true, "10 шиллингов?", [[

			"15"

		]], [[pjump 'bribing_15']]};

		{always=true, "20 шиллингов?", function(s)

			if (pl:pay(20)) then

				char_worker.bought = true;

				return [[Рабочий довольно потирает руки: "Идет". ]];

			else

				return [[Рабочий недовольно рычит: "Ты дурак?" ]];

			end;

		end, [[ char_worker.bought = true; back();]]};

		{always=true, "30 шиллингов?", function(s)

			if (pl:pay(30)) then

				char_worker.bought = true;

				return [[Рабочий довольно потирает руки: "Идет". ]];

			else

				return [[Рабочий недовольно рычит: "Ты дурак?" ]];

			end;

		end, [[ char_worker.bought = true; back();]]};

		{tag='bribing_15'};

		{always=true, "10. ", [["14". ]], [[pjump 'bribing_14']]};

		{always=true, "11. ", [[

			"14"

		]], [[pjump 'bribing_14']]};

		{always=true, "12. ", [["14". ]], [[pjump 'bribing_14']]};

		{always=true, "13. ", [["14". ]], [[pjump 'bribing_14']]};

		{always=true, "14. ", function(s)

			if (pl:pay(14)) then

				char_worker.bought = true;

				return [[Рабочий довольно потирает руки: "Идет". ]];

			else

				return [[Рабочий недовольно рычит: "Ты дурак?" ]];

			end;

		end, [[ char_worker.bought = true; back(); ]]};

		{tag='bribing_14'};

		{always=true, "10. ", [["13". ]], [[pjump 'bribing_13']]};

		{always=true, "11. ", [["13". ]], [[pjump 'bribing_13']]};

		{always=true, "12. ", [["13". ]], [[pjump 'bribing_13']]};

		{always=true, "13. ", function(s)

			if (pl:pay(13)) then

				char_worker.bought = true;

				return [[Рабочий довольно потирает руки: "Идет". ]];

			else

				return [[Рабочий недовольно рычит: "Ты дурак?" ]];

			end;

		end, [[ char_worker.bought = true; back(); ]]};

		{tag='bribing_13'};

		{always=true, "10. ", [[Рабочий недовольно рычит: "Не хочешь -- не надо", -- после чего отворачивается в другую сторону. ]], [[ back(); ]]};

		{always=true, "11. ", [[Рабочий недовольно рычит: "Не хочешь -- не надо", -- после чего отворачивается в другую сторону. ]], [[ back(); ]]};

		{always=true, "12. ", function(s)

			if (pl:pay(12)) then

				char_worker.bought = true;

				return [[Рабочий довольно потирает руки: "Идет". ]];

			else

				return [[Рабочий недовольно рычит: "Ты дурак?" ]];

			end;

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

	};

};

ginshop = room {

	nam = "ginshop";

	disp = "Пивная лавка";

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

	obj = {'ginshop_trader'};

	way = {

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

	};

};

ginshop_trader = npc {

    var {

        bought = false;

    };

	nam = "ginshop_trader";

	disp = "Продавец";

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

	dlg = "ginshop_trader_dlg";

};

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 = "Гостиница";

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

	obj = {

		'hotel_concierge',

        'hotel_starlight'      

	};

    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;

			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'

	};

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

		{ "Простите, я спешу.", [[Человек огорченно вздыхает: "Простите". Подойдя к лестнице он оборачивается и говорит: "Мое имя - Джозеф Старлайт. Если хотите поговорить о Вестхейвен Трансоушен, зайдите ко мне в комнату 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)

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

	};

};