door_wright = obj {

    var {

        locked = true;

    };

	nam = "door_wright";

	disp = "Дверь";

	act = function(s)

		if (s.locked) then

			walkin "wright_entry_dlg";

		end;

		return true;

	end;

	dsc = function(s)

		if (s.locked) then

			return [[Обшарпанная деревянная {дверь}, ведущая в дом, заперта изнутри. ]];

		else

			return [[Обшарпанная деревянная {дверь}, ведущая в дом, незаперта. ]];

		end;

	end;

};

char_wright_home = obj {

    var {

        known = false;

        documents = false;

        known_leviathan = false;

    };

	nam = "char_wright_home";

	disp = "Джек Райт";

	dsc = function(s)

		if (s.documents) then

			return [[За столом сидит {Джек Райт} и с интересом рассматривает схемы, которые вы ему отдали. ]];

		else

            if (s.known) then

                return [[За столом сидит {Джек Райт}, неспешно просматривая какие-то бумаги. ]];

            else

			    return [[За столом сидит {молодой человек}, неспешно просматривающий какие-то бумаги. ]];

            end;         

		end;

	end;

	act = function(s)

		walkin(wright_dlg);

	end;

};

wright_dlg = dlg {

    var {

        state = 1;

    };

	nam = "wright_dlg";

	disp = "Джек Райт";

	entered = function(s)

        if (submarine_leviathan.power_on and submarine_leviathan.airpump and submarine_leviathan.battery and submarine_leviathan.air_level < 432000) then

            submarine_leviathan.air_level = 432000;

            lifeoff(s);

        end;   

		if (atlantis_found and submarine_leviathan.air_level > 400000 and submarine_leviathan.circuit_breaks == 0 and submarine_leviathan.power_on) then

			psub('leviathan_restored');

			return [[Джек Райт отвлекается от газеты: "Добрый день". ]];

		elseif (s.state == 1) then

			--First meeting

            char_wright_home.known = true;         

			psub('first_visit');

			return [[Перед вами молодой человек, одетый в недорогой, но опрятный костюм. Его бледное лицо украшает короткая темная борода и пышные усы. Темные волосы коротко острижены. Серые глаза с интересом разглядывают вас. Он протягивает вам руку и представляется: "Добрый день. Мое имя -- Джек Райт. Майкл -- мой отец, но он пропал несколько лет назад". ]];

		elseif (s.state == 2) then

			--Documents not given

			psub('ask_documents');

			return [[Джек отвлекается от газеты: "Добрый день. Вы обещали принести какие-то документы". ]];

		elseif (s.state == 3) then

			--Documents given

			if (not leviathan_discovered) then

				psub('checking_documents');

				return [[Джек отвлекается от документов: "Добрый день. Если вы по поводу документов, то я еще ничего не нашел". ]];

			else

				s.state = 5;

				warehouse32_found = true;

				psub('warehouse_discovered');

				return [[Джек отвлекается от документов: "Добрый день. У меня хорошие новости. Я нашел склад 32", - он достает карту города и показывает вам место. ]];

			end;

		elseif (s.state == 4) then

			--Documents taken back

			psub('ask_documents2');

			return [[Джек отвлекается от газеты: "Добрый день. Я хотел бы еще раз вглянуть на эти бумаги". ]];

		elseif (s.state == 5) then

			psub('warehouse_discovered2');

            poff("phr_warehouse_visited");

            poff("phr_leviathan");

            if (warehouse32_visited) then

                pon("phr_warehouse_visited");

            end;

            if (not char_wright_home.known_leviathan) then

                pon("phr_leviathan");

            end;

			return [[Джек отвлекается от газеты: "Добрый день". ]];

		elseif (s.state == 7) then

			psub('warehouse_discovered3');