# HG changeset patch
# User Silverwing
# Date 2017-10-01 08:50:16
# Node ID 9642e5f9b3b7e98792e09a988ba1fb00186da7d4
# Parent  fa038fa9b89f75e344e2e7eb9e06d0661c152436

Changes

diff --git a/engineering.lua b/engineering.lua
deleted file mode 100644
--- a/engineering.lua
+++ /dev/null
@@ -1,123 +0,0 @@
-first_city_engineering_door = obj {
-	nam = "first_city_engineering_door";
-	dsc = function(s)
-		if (first_city_engineering.open) then
-			return [[]];
-		else
-			return [[{Двери}, ведущие в зал обслуживания заблокированы. ]];
-		end;
-	end;
-};
-
-first_city_engineering_door_inside = obj {
-	nam = "first_city_engineering_door_inside";
-};
-
-first_city_engineering = room {
-	nam = "first_city_engineering";
-	disp = "Лсэрианотр, зал обслуживания";
-	dsc = [[
-		Вы находитесь в одном из залов обслуживания Лсэрианотра. Двери в помещение заблокированы и разблокировать их не представляется возможным.
-	]];
-	entered = function(s)
-		service_tunnels.position = "24";
-	end;
-	obj = {
-		"first_city_door_control",
-		"first_city_door_control_cardreader",
-		"item_keys"
-	};
-	way = {
-		kh_vroom("В сервиcный тоннель", "service_tunnels");
-	};
-};
-
-item_keys = obj {
-	nam = "item_keys";
-	disp = "Ключи";
-	dsc = "На столе лежат несколько {металлических пластин}. ";
-	act = function(s)
-		take(item_middle_rim_key);
-		take(item_airlock_key);
-		take(item_engineering_key);
-		take(item_blank_key);
-		disable(s);
-		return "Вы берете пластины себе";
-	end;
-};
-
---TODO (публичная демо-версия) сделать картинки ключей
---TODO (приватная демо-версия) сделать случайную генерацию ключей
-
-item_airlock_key = obj {
-	nam = "item_airlock_key";
-	disp = "Ключ-карта";
-	inv = [[Небольшая металлическая пластина около 6 см в ширину и 10 см в длину. На ней нет никаких символов, кроме трех цилиндров заключенных в квадрат. ]]; 
-};
-
-item_middle_rim_key = obj {
-	nam = "item_middle_rim_key";
-	disp = "Ключ-карта с отверстиями";
-	inv = [[Небольшая металлическая пластина около 3 см в ширину и 10 см в длину, на ней в ряд через равные промежутки присутствуют отверстия или нарисованные круги: круг, отверстие, круг, отверстие, круг, отверстие, отверстие, круг ]]; -- 01010110 = 172 
-};
-
-item_engineering_key = obj {
-	nam = "item_engineering_key";
-	disp = "Ключ-карта с отверстиями";
-	inv = [[Небольшая металлическая пластина около 3 см в ширину и 10 см в длину, на ней в ряд через равные промежутки присутствуют отверстия или нарисованные круги: круг, отверстие, круг, круг, отверстие, круг, круг, круг ]]; -- 01001000 = 144
-};
-
-item_blank_key = obj {
-	nam = "item_blank_key";
-	disp = "Ключ-карта без отверстий";
-	inv = [[Небольшая металлическая пластина около 3 см в ширину и 10 см в длину с восемью кругами, нарисованными на ней в ряд ]]; -- 00000000 = 0
-};
-
-first_city_door_control_cardreader = obj {
-	nam = "first_city_door_control_cardreader";
-	state = 0;
-	dsc = function(s)
-		if (s.state == 0 or s.state == 2) then
-			return "В терминале вы видите небольшую {щель}, около 3 сантиметров шириной.";
-		else
-			return "В терминале вы видите небольшую {щель}, около 3 сантиметров шириной. В ней застряла одна из ключ-карт";
-		end;
-	end;
-	act = function(s)
-		if (s.state == 0 or s.state == 2) then
-			return "Очевидно, сюда что-то вставляется. ";
-		else
-			return "Ключ-карта застряла. Вы не сможете вытащить ее руками. ";
-		end;
-	end;
-	used = function(s, o)
-		if (s.state == 0) then
-			if (o == item_middle_rim_key) then
-				s.state = s.state + 1;
-				remove(item_middle_rim_key, pl);
-				first_city_middle_south.open(first_city_middle_south);
-				return "Аппарат начинает считывать карту. Вы слышите громкий щелчок. Вы слышите откуда-то издалека звук открывающихся огромных ворот. Карта остается в разъеме. ";
-			elseif (o == item_engineering_key) then
-				s.state = s.state + 1;
-				remove(item_engineering_key, pl);
-				return "Аппарат начинает считывать карту. Вы слышите громкий щелчок. Двери в комнату слегка приоткрываются. После чего с громким стуком захлопываются. Карта остается в разъеме. ";
-			elseif (o == item_blank_key) then
-				s.state = s.state + 1;
-				remove(item_blank_key, pl);
-				return "Аппарат начинает считывать карту. Вы слышите громкий щелчок. Карта остается в разъеме. ";
-			else
-				return "Это сюда не подойдет";
-			end;
-		elseif (s.state == 1 and o == item_umbrella) then
-			s.state = 0;
-			return "Острым наконечником зонта вы поддеваете ключ и вытягиваете его из разъема. К сожалению, он более непригоден к использованию - вы видите, что он погнут";
-		else
-			return "Прежде чем вставлять что-то еще, нужно извлечь ключ. ";
-		end;
-	end;
-};
-
-first_city_door_control = obj {
-	nam = "first_city_door_control";
-	dsc = "Возле одной из стен стоит терминал.";
-};
\ No newline at end of file
diff --git a/final_battle.lua b/final_battle.lua
deleted file mode 100644
--- a/final_battle.lua
+++ /dev/null
@@ -1,692 +0,0 @@
-fb_naethvjirr = obj {
-	nam = "fb_naethvjirr";
-	disp2 = "Наэтвьирра";
-	position = 4;
-	throw = 0; -- оставшиеся ходы до возможности применения (раз в 4 хода)
-	charge = 0; -- оставшиеся ходы до возможности применения (раз в 3 хода)
-	shield = true; -- активность щита
-	shieldRecharge = false; -- О, как я люблю эти маленькие костыли. Это нужно, чтобы щит не восстанавливался сразу после выстрела
-	canshoot = function(s)
-		return not s.shield;
-	end;
-	canhit = function(s)
-		return not s.shield;
-	end;
-	nohitmsg = "Это бессмысленно, пока он закрыт щитом";
-	noshootmsg = "Это бессмысленно, пока он закрыт щитом";
-	hitpoints = 3;
-	passturn = function(s)
-		if (s.hitpoints > 0) then
-			local gens = 0;
-			for i = 0, #final_battle.generators do
-				if (final_battle.generators[i] == 4) then
-					gens = gens + 1;
-					s.charge = s.charge - 1;
-				elseif (final_battle.generators[i] == 3) then
-					gens = gens + 1;
-					s.throw = s.throw - 1;
-				elseif (final_battle.generators[i] == 2) then
-					gens = gens + 1;
-					if (not s.shield) then
-						if (s.shieldRecharge) then
-							s.shield = true;
-							s.shieldRecharge = false;
-							p("Щит вокруг Наэтвьирра восстановлен и он снова защищен от ваших атак. ");
-						else
-							s.shieldRecharge = true;
-						end;
-					end;
-				end;
-			end;
-			
-			if (gens == 0) then
-				p("Глаза Наэтвьирра гаснут, и конструкт бессильно падает на пол. ");
-				s.hitpoints = 0;
-				return true;
-			end;
-			
-			if (s.charge <= 0) then
-				-- Пускаем разряд в игрока
-				s.charge = 3;
-				p("Наэтвьирр отправляет в вас электрический разряд. Вы не можете пошевелиться. ");
-				if (rnd(4) < 2) then
-					-- Отбросить игрока в сторону
-					p("Разряд отбрасывает вас в сторону. ");
-					fb_throwAway(pl);
-				end;
-				
-				if (rnd(4) < 2) then -- 25%
-					p("Вы чувствуете, что атака не прошла для вас бесследно. ");
-					pl.hitpoints = pl.hitpoints - 1;
-					if (pl.hitpoints <= 0) then
-						walk(game_over_naethvjirr);
-						return;
-					end;
-				end;
-				
-				final_battle.passturn(final_battle);
-				p("Вы оправились от атаки Наэтвьирра и снова можете действовать. ");
-			elseif (s.throw <= 0) then
-				-- Отбрасываем игрока
-				s.throw = 4;
-				fb_throwAway(pl);
-				p("Наэтвьирр отправляет в вас мощную волну воздуха, которая отбрасывает вас в сторону. ");
-				
-				if (rnd(4) > 1) then -- 75%
-					pl.hitpoints = pl.hitpoints - 1;
-					p("Вы чувствуете, что атака не прошла для вас бесследно. ");
-					if (pl.hitpoints <= 0) then
-						walk(game_over_naethvjirr);
-						return;
-					end;
-				end;
-			end;
-		end;
-	end;
-	onhit = function(s)
-		local result = "";
-		
-		s.hitpoints = s.hitpoints - 1;
-		if (s.hitpoints == 2) then
-			result = "Сильный удар повреждает Наэтвьирра, но вы не замечаете, сказалось ли это на его работоспособности. ";
-		elseif (s.hitpoints == 1) then
-			result = "Наэтвьирр пошатнулся от вашего удара, давая понять, что попадание не прошло бесследно. ";
-		elseif (s.hitpoints == 0) then
-			result = "После вашего удара глаза Наэтвьирра гаснут и конструкт с грохотом падает рядом со своим троном. ";
-		end;
-		p(result);
-		final_battle.passturn(final_battle);
-	end;
-	onshoot = function(s)
-		local hit = false;
-		if (pl.position[1] == 1 and pl.position[2] == 1) then
-			hit = (rnd(4) > 1);
-		else
-			hit = (rnd(2) > 1);
-		end;
-		
-		local result = "";
-		if (hit) then
-			s.hitpoints = s.hitpoints - 1;
-			if (s.hitpoints == 2) then
-				result = "Ваш выстрел повреждает Наэтвьирра, но вы не замечаете, сказалось ли это на его работоспособности. ";
-			elseif (s.hitpoints == 1) then
-				result = "Глаза Наэтвьирра на мгновение моргают, давая понять, что попадание не прошло бесследно. ";
-			elseif (s.hitpoints == 0) then
-				result = "Глаза Наэтвьирра гаснут и конструкт с грохотом падает рядом со своим троном. ";
-			end;
-		else
-			result = "Пуля пролетает мимо конструкта, не причинив ему никакого вреда. ";
-		end;
-		pn(result);
-		final_battle.passturn(final_battle);
-	end;
-	dsc = function(s)
-		if (s.hitpoints > 0) then
-			local shield = "";
-			if (s.shield) then
-				shield = "Вокруг него едва заметно силовое поле, защищающее его от физических повреждений. ";
-			end;
-			return "В центре зала перед массивной конструкцией, напоминающей трон, стоит {навьяр}. Конструкт выглядит совершенно как живой, сияющие красноватым светом глаза внимательно следят за вашими действиями. ".. shield .."^";
-		else
-			--return "В центре зала рядом с массивной конструкцией, напоминающей трон, лежит сильно поврежденный {навьяр-конструкт}. ^";
-			return "";
-		end;
-	end;
-};
-
-fb_black = obj {
-	nam = "fb_black";
-	position = 4;
-	bullets = 6; -- потребуется перезарядка, если потратит все 6 патронов. Скорее всего до этого никогда не дойдет, но предусмотреть стоит
-	hitpoints = 1;
-	disp2 = "Блэка";
-	canshoot = function(s)
-		if (pl.position[1] == 1 and pl.position[2] == 1) then
-			return true;
-		else 
-			return false;
-		end;
-	end;
-	noshootmsg = "Вы не попадете в него. ";
-	nohitmsg = "Для этого до него еще надо добраться. ";
-	dsc = function(s)
-		if (s.hitpoints > 0) then
-			return "{Адриан Блэк} укрылся от вас за троном. ^";
-		end;
-	end;
-	onshoot = function(s)
-		if (rnd(2) > 1) then--50%
-			s.hitpoints = 0;
-			p("Вы раните Блэка в плечо, он роняет пистолет и скрывается за троном. Более он не опасен. ");
-		else
-			p("Ваша пуля пролетает мимо, не причинив Блэку никакого вреда. ");
-		end;
-		final_battle.passturn(final_battle);
-	end;
-	passturn = function(s)
-		if (s.hitpoints > 0) then
-			if (s.bullets > 0) then
-				if (pl.position[1] == 1 and pl.position[2] == 1) then
-					-- Стреляем в игрока
-					p("Блэк стреляет в вас. ");
-					if (rnd(4) > 1) then--75%
-						pl.hitpoints = pl.hitpoints - 1;
-						if (pl.hitpoints > 0) then
-							p("Пуля лишь слегка задевает вас, практически не нанеся урона. ");
-						else
-							walk(game_over_shot_fb);
-						end;
-					end;
-				end;
-			else
-				-- Перезаряжаем
-				s.bullets = 6;
-				p("Адриан Блэк перезаряжает револьвер. ");
-			end;
-		end;
-	end;
-};
-
-fb_pylons = obj {
-	nam = "fb_pylons";
-	position = "с";
-	state = 2;--Количество активных пилонов
-	charging = 0;
-	canhit = true;
-	noshootmsg = "Вы не попадете в них";
-	onhit = function(s)
-		if (s.state > 0) then
-			if (pl.position[1] == 1 and pl.position[2] == 1) then
-				s.state = s.state - 1;
-				if (s.state == 0) then
-					-- Если оба пилона уничтожены, нет смысла передавать им энергию.
-					for i = 0, #final_battle.generators do
-						if (final_battle.generators[i] == 5) then
-							final_battle.generators[i] = 1;
-						end;
-					end;
-				end;
-				p("Ударом по металлическому стержню, вы выводите из строя один из пилонов");
-				final_battle.passturn(final_battle);
-			else
-				return "Пилоны слишком далеко от вас";
-			end;
-		else
-			return "Оба пилона уже выведены из строя";
-		end;
-	end;
-	passturn = function(s)
-		for i = 1, #final_battle.generators do
-			if (final_battle.generators[i] == 5) then
-				s.charging = s.charging + 1;
-			end;
-		end;
-		if (s.charging >= 10) then
-			pl.hitpoints = 0;
-			walk(game_over_pylon);
-		end;
-	end;
-	dsc = function(s)
-		if (s.state == 2) then
-			return "В центральной части комнаты расположены два {пилона} высотой около метра. На вершине их установлены сверкающие металлические стержни.^";
-		elseif (s.state == 1) then
-			return "В центральной части комнаты расположены два {пилона} высотой около метра. На вершине одного из пилонов установлен сверкающий металлический стержень. Стержень на втором пилоне сильно погнут и выведен из строя.^";
-		elseif (s.state == 0) then
-			return "В центральной части комнаты расположены два пилона высотой около метра. Металлические стержни, установленные в их вершине сильно повреждены.^";
-		end;
-	end;
-};
-
-fb_throwAway = function(target)
-	local positions = {};
-	if (target.position[1] - 1 >= 0) then
-		if (target.position[2] - 1 >= 0) then
-			positions[#positions + 1] = {target.position[1] - 1, target.position[2] - 1};
-		end;
-		positions[#positions + 1] = {target.position[1] - 1, target.position[2]};
-		if (target.position[2] + 1 <= 2) then
-			positions[#positions + 1] = {target.position[1] - 1, target.position[2] + 1};
-		end;
-	end;
-	
-	if (target.position[2] - 1 >= 0) then
-		positions[#positions + 1] = {target.position[1], target.position[2] - 1};
-	end;
-	if (target.position[2] + 1 <= 2) then
-		positions[#positions + 1] = {target.position[1], target.position[2] + 1};
-	end;
-	
-	if (target.position[1] + 1 <= 2) then
-		if (target.position[2] - 1 >= 0) then
-			positions[#positions + 1] = {target.position[1] + 1, target.position[2] - 1};
-		end;
-		positions[#positions + 1] = {target.position[1] + 1, target.position[2]};
-		if (target.position[2] + 1 <= 2) then
-			positions[#positions + 1] = {target.position[1] + 1, target.position[2] + 1};
-		end;
-	end;
-	
-	target.position = positions[rnd(#positions)];
-end;
-
-fb_getGeneratorIcon = function(value)
-	if (value == 0) then
-		return "images/fb_inactive.png";
-	elseif (value == 1) then
-		return "images/fb_awake.png";
-	elseif (value == 2) then
-		return "images/fb_shield.png";
-	elseif (value == 3) then
-		return "images/fb_throw.png";
-	elseif (value == 4) then
-		return "images/fb_charge.png";
-	elseif (value == 5) then
-		return "images/fb_pylon.png";
-	end;
-end;
-
-final_battle = room {
-	nam = "final_battle";
-	pic = function(s)
-		local image = 'images/fb_bcg.png';
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[1]) .. "@48,0";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[2]) .. "@96,0";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[3]) .. "@96,48";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[4]) .. "@96,96";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[5]) .. "@48,96";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[6]) .. "@0,96";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[7]) .. "@0,48";
-		image = image .. ";" .. fb_getGeneratorIcon(s.generators[8]) .. "@0,0";
-		if (fb_naethvjirr.hitpoints > 0) then
-			image = image .. ";images/fb_naethvjirr.png@64,80";
-		end;
-		if (fb_black.hitpoints > 0) then
-			image = image .. ";images/fb_black.png@80,80";
-		end;
-		image = image .. ";images/fb_player.png@"..tostring(pl.position[1] * 48 + 16)..","..tostring((2 - pl.position[2]) * 48 + 16);
-		if (fb_pylons.state > 1) then
-			image = image .. ";images/fb_pylon.png@48,64";
-		else
-			image = image .. ";images/fb_inactive.png@48,64";
-		end;
-		if (fb_pylons.state > 0) then
-			image = image .. ";images/fb_pylon.png@80,64";
-		else
-			image = image .. ";images/fb_inactive.png@80,64";
-		end;
-		return image;
-	end;
-	disp = "Лсэрианотр, центральный зал";
-	awakening = 300;
-	dsc = function(s)
-		local temp = "";
-		if (pl.position[1] == 1 and pl.position[2] == 2) then
-			temp = "северной";
-		elseif (pl.position[1] == 2 and pl.position[2] == 2) then
-			temp = "северо-восточной";
-		elseif (pl.position[1] == 2 and pl.position[2] == 1) then
-			temp = "восточной";
-		elseif (pl.position[1] == 2 and pl.position[2] == 0) then
-			temp = "юго-восточной";
-		elseif (pl.position[1] == 1 and pl.position[2] == 0) then
-			temp = "южной";
-		elseif (pl.position[1] == 0 and pl.position[2] == 0) then
-			temp = "юго-западной";
-		elseif (pl.position[1] == 0 and pl.position[2] == 1) then
-			temp = "западной";
-		elseif (pl.position[1] == 0 and pl.position[2] == 2) then
-			temp = "северо-западной";
-		elseif (pl.position[1] == 1 and pl.position[2] == 1) then
-			temp = "центральной";
-		end;
-		
-		local debug_str = tostring(s.awakening) .. " ";
-		debug_str = debug_str .. tostring(fb_pylons.charging) .. " ";
-		
-		return "Вы находитесь в " .. temp .. " части главного зала древнего города Навьяр. На схеме приведено расположение важных объектов в комнате, включая символы, изображенные на генераторах" .. debug_str;
-		--Вдоль стен стоят огромные металлические шкафы, из которых тысячи проводом тянутся к громадной конструкции в центре зала. Мягкий свет льется сверху, практически ослепляя вас после полумрака остальной части мертвого города. "
-		--]];
-	end;
-	left = function(s)
-		lifeoff(s);
-	end;
-	entered = function(s)
-		-- Здесь будем собирать все необходимое для начала финальной битвы: сопартийцы отыграют свою роль, после чего начнется битва не на жизнь, а на смерть.
-		s.entered = nil; -- Должно отработать не более одного раза
-		
-		pl.position = {1,2};
-		local throw = rnd(8);
-		while (s.generators[throw] ~= 1) do
-			throw = rnd(8);
-		end;
-		s.generators[throw] = 3;
-		
-		local shield = rnd(8);
-		while (s.generators[shield] ~= 1) do
-			shield = rnd(8);
-		end;
-		s.generators[shield] = 2;
-		
-		local charge = rnd(8);
-		while (s.generators[charge] ~= 1) do
-			charge = rnd(8);
-		end;
-		s.generators[charge] = 4;
-		
-		local pylon = rnd(8);
-		while (s.generators[pylon] ~= 1) do
-			pylon = rnd(8);
-		end;
-		s.generators[pylon] = 5;
-		
-		--[[for i = 1, #pl.party do
-			if (pl.party[i] == "phaetlarr")
-			elseif (pl.party[i] == "learr")
-			elseif (pl.party[i] == "radcliffe")
-			elseif (pl.party[i] == "wright")
-			end;
-		end;]]
-		
-		lifeon(s);
-	end;
-	life = function(s)
-		fb_north:enable();
-		fb_northeast:enable();
-		fb_east:enable();
-		fb_southeast:enable();
-		fb_south:enable();
-		fb_southwest:enable();
-		fb_west:enable();
-		fb_northwest:enable();
-	
-		if (pl.position[2] == 2) then
-			fb_north:disable();
-			fb_northeast:disable();
-			fb_northwest:disable();
-		elseif (pl.position[2] == 0) then
-			fb_south:disable();
-			fb_southeast:disable();
-			fb_southwest:disable();
-		end;
-		
-		if (pl.position[1] == 2) then
-			fb_east:disable();
-			fb_northeast:disable();
-			fb_southeast:disable();
-		elseif (pl.position[1] == 0) then
-			fb_west:disable();
-			fb_northwest:disable();
-			fb_southwest:disable();
-		end;
-		
-		fb_generator:enable();
-		if (pl.position[1] == 1 and pl.position[2] == 2) then
-			fb_generator.index = 1;
-		elseif (pl.position[1] == 2 and pl.position[2] == 2) then
-			fb_generator.index = 2;
-		elseif (pl.position[1] == 2 and pl.position[2] == 1) then
-			fb_generator.index = 3;
-		elseif (pl.position[1] == 2 and pl.position[2] == 0) then
-			fb_generator.index = 4;
-		elseif (pl.position[1] == 1 and pl.position[2] == 0) then
-			fb_generator.index = 5;
-		elseif (pl.position[1] == 0 and pl.position[2] == 0) then
-			fb_generator.index = 6;
-		elseif (pl.position[1] == 0 and pl.position[2] == 1) then
-			fb_generator.index = 7;
-		elseif (pl.position[1] == 0 and pl.position[2] == 2) then
-			fb_generator.index = 8;
-		elseif (pl.position[1] == 1 and pl.position[2] == 1) then
-			fb_generator:disable();
-		end;
-		
-		local activeGens = false;
-		for i = 1, #s.generators do
-			if (s.generators[i] ~= 0) then
-				activeGens = true;
-			end;
-		end;
-		
-		if (not activeGens) then
-			walk(game_over_victory);
-		end;
-	end;
-	passturn = function(s)
-		-- реальный расчет боевых действий будет в этой функции
-		for i = 1,#s.generators do
-			if (s.generators[i] == 1) then
-				s.awakening = s.awakening - 10;
-			end;
-		end;
-		for i = 1,#s.obj do
-			if (s.obj[i].passturn) then
-				s.obj[i].passturn(s.obj[i]);
-			end;
-		end;
-		if (s.awakening <= 0) then
-			walk(game_over_awakening);
-		end;
-	end;
-	generators = {
-		1, 1, 1, 1, 1, 1, 1, 1
-		-- В этот массив заносятся состояния генераторов: a - active, i - inactive, t - throw, s - shield, c - charge, p - pylon
-		-- Состояния генераторов записываются цифрами по приоритету от минимального до максимального(чем больше цифра, тем больше приоритет)
-		-- 0 - inactive, 1 - active, 2 - shield, 3 - throw, 4 - charge, 5 - pylon
-	};
-	obj = {
-		'fb_pylons',
-		'fb_naethvjirr',
-		'fb_black',
-		'fb_generator',
-		
-		'fb_north',
-		'fb_northeast',
-		'fb_east',
-		'fb_southeast',
-		'fb_south',
-		'fb_southwest',
-		'fb_west',
-		'fb_northwest'
-	};
-};
-
-fb_generator = obj {
-	nam = "fb_generator",
-	dsc = function(s)
-		if (final_battle.generators[s.index] == 0) then
-			return "Рядом с вами расположен огромный металлический {шкаф}, искореженный несколькими ударами кирки. Судя по всему этот генератор выведен из строя. ^";
-		else
-			return "Рядом с вами расположен огромный металлический {шкаф}, расположенный рядом с вами издает негромкий гул. На его передней стенке виден светящийся символ. Конструкция соединена толстыми проводами с троном Наэтвьирра, в центре зала. ^";
-		end;
-	end;
-	index = 0;
-	act = "Вы ничего не сможете сделать с генератором без дополнительных приспособлений";
-	noshootmsg = "Это бесполезно";
-	canhit = true;
-	onhit = function(s)
-		--[[
-			Модули питания могут быть назначены на одну из нескольких подсистем.
-			Для питания каждой подсистемы требуется минимум один источник ее питания. Всего подсистемы следующие: пилоны, щит, разряд, разброс и пробуждение. 
-			Приоритеты распределения таковы: 
-			Всегда должна быть активна минимум одна атакующая подсистема, в порядке эффективности: пилоны, разряд, разброс.
-			Если для атакующих подсистем достаточно энергии, то активен и щит.
-			Наименьшим приоритетом обладает пробуждение.
-			Также учитывается возможность и целесообразность применения защитных и атакующих подсистем:
-			Если аватар уничтожен, нет смысла поддерживать щит, разброс и разряд.
-		]]
-		local gen = final_battle.generators[s.index];
-		final_battle.generators[s.index] = 0;
-		local moreInfo = "";
-		if (gen == 5) then
-			--Как самая эффективная система атаки, пилоны всегда заряжаются, независимо от обстоятельств
-			fb_pylons.charging = fb_pylons.charging - 4;
-			if (fb_pylons.charging < 0) then
-				fb_pylons.charging = 0;
-			end;
-			local priorityToReplace = 4;
-			local activeCount = 0;
-			for i = 1,#final_battle.generators do
-				if (final_battle.generators[i] ~= 0 and final_battle.generators[i] <= priorityToReplace) then
-					activeCount = activeCount + 1;
-					if (final_battle.generators[i] < priorityToReplace) then
-						priorityToReplace = final_battle.generators[i];
-					end;
-				end;
-			end;
-			if (activeCount > 0) then
-				local replacementIndex = rnd(8);
-				while (final_battle.generators[replacementIndex] ~= priorityToReplace) do
-					replacementIndex = rnd(8);
-				end;
-				final_battle.generators[replacementIndex] = gen;
-			end;
-		elseif (gen == 4) then
-			fb_naethvjirr.charge = fb_naethvjirr.charge + 1;
-			local priorityToReplace = 3;
-			local activeCount = 0;
-			for i = 1,#final_battle.generators do
-				if (final_battle.generators[i] ~= 0 and final_battle.generators[i] <= priorityToReplace) then
-					activeCount = activeCount + 1;
-					if (final_battle.generators[i] < priorityToReplace) then
-						priorityToReplace = final_battle.generators[i];
-					end;
-				end;
-			end;
-			if (activeCount > 0) then
-				local replacementIndex = rnd(8);
-				while (final_battle.generators[replacementIndex] ~= priorityToReplace) do
-					replacementIndex = rnd(8);
-				end;
-				final_battle.generators[replacementIndex] = gen;
-			end;			
-		elseif (gen == 3) then
-			fb_naethvjirr.throw = fb_naethvjirr.throw + 1;
-			local priorityToReplace = 2;
-			local activeCount = 0;
-			for i = 1,#final_battle.generators do
-				if (final_battle.generators[i] ~= 0 and final_battle.generators[i] <= priorityToReplace) then
-					activeCount = activeCount + 1;
-					if (final_battle.generators[i] < priorityToReplace) then
-						priorityToReplace = final_battle.generators[i];
-					end;
-				end;
-			end;
-			if (activeCount > 0) then
-				local replacementIndex = rnd(8);
-				while (final_battle.generators[replacementIndex] ~= priorityToReplace) do
-					replacementIndex = rnd(8);
-				end;
-				final_battle.generators[replacementIndex] = gen;
-			end;
-		elseif (gen == 2) then
-			fb_naethvjirr.shield = false;
-			moreInfo = "Щит вокруг Наэтвьирра растворяется, оставляя конструкта открытым для ваших атак. ";
-			local priorityToReplace = 1;
-			local activeCount = 0;
-			for i = 1,#final_battle.generators do
-				if (final_battle.generators[i] ~= 0 and final_battle.generators[i] <= priorityToReplace) then
-					activeCount = activeCount + 1;
-					if (final_battle.generators[i] < priorityToReplace) then
-						priorityToReplace = final_battle.generators[i];
-					end;
-				end;
-			end;
-			if (activeCount > 0) then
-				local replacementIndex = rnd(8);
-				while (final_battle.generators[replacementIndex] ~= priorityToReplace) do
-					replacementIndex = rnd(8);
-				end;
-				final_battle.generators[replacementIndex] = gen;
-			end;
-		elseif (gen == 0) then
-			return "Генератор итак выведен из строя, незачем его дальше колотить. ";
-		end;
-		p("После нескольких сильных ударов генератор затихает. ".. moreInfo);
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_north = obj {
-	nam = "north",
-	dsc = "{На север}",
-	act = function(s)
-		pl.position[2] = pl.position[2] + 1;
-		p("Вы идете на север");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_northeast = obj {
-	nam = "northeast",
-	dsc = "{На северо-восток}",
-	act = function(s)
-		pl.position[1] = pl.position[1] + 1;
-		pl.position[2] = pl.position[2] + 1;
-		p("Вы идете на северо-восток.");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_east = obj {
-	nam = "east",
-	dsc = "{На восток}",
-	act = function(s)
-		pl.position[1] = pl.position[1] + 1;
-		p("Вы идете на восток.");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_southeast = obj {
-	nam = "southeast",
-	dsc = "{На юго-восток}",
-	act = function(s)
-		pl.position[1] = pl.position[1] + 1;
-		pl.position[2] = pl.position[2] - 1;
-		p("Вы идете на юго-восток.");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_south = obj {
-	nam = "south",
-	dsc = "{На юг}",
-	act = function(s)
-		pl.position[2] = pl.position[2] - 1;
-		p("Вы идете на юг.");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_southwest = obj {
-	nam = "southwest",
-	dsc = "{На юго-запад}",
-	act = function(s)
-		pl.position[1] = pl.position[1] - 1;
-		pl.position[2] = pl.position[2] - 1;
-		p("Вы идете на юго-запад.");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_west = obj {
-	nam = "west",
-	dsc = "{На запад}",
-	act = function(s)
-		pl.position[1] = pl.position[1] - 1;
-		p("Вы идете на запад.");
-		final_battle.passturn(final_battle);
-	end;
-};
-
-fb_northwest = obj {
-	nam = "northwest",
-	dsc = "{На северо-запад}",
-	act = function(s)
-		pl.position[1] = pl.position[1] - 1;
-		pl.position[2] = pl.position[2] + 1;
-		p("Вы идете на северо-запад.");
-		final_battle.passturn(final_battle);
-	end;
-};
\ No newline at end of file
diff --git a/final_scene.lua b/final_scene.lua
deleted file mode 100644
--- a/final_scene.lua
+++ /dev/null
@@ -1,228 +0,0 @@
-adrian_helper = obj {
-	nam = "adrian_helper";
-	life = function(s)
-		if (char_adrian.state > 1 and char_adrian.state < 5) then 
-			char_adrian.state = char_adrian.state + 1;
-		elseif (char_adrian.state == 5) then
-			char_naethvjirr.active = true;
-			p([[
-				Адриан что-то делает с пультом управления и Наэтвьирр оживает
-			]]);
-			lifeoff(s);
-			walk("pre_battle_scene_normal");
-		end;
-	end;
-};
-
-char_adrian = obj {
-	nam = "adrian";
-	disp = "Adrian";
-	state = 1;
-	dsc = function(s)
-		if (char_naethvjirr.active) then
-			return [[
-				Вы видите {Адриана Блэка}, стоящего рядом с автоматоном. ^
-			]];
-		else
-			if (s.state == 1) then
-				return [[
-					Вы видите {Адриана Блэка}, стоящего рядом с автоматоном. Он что-то делает с ним. ^
-				]];
-			elseif (s.state < 6) then
-				return [[
-					{Адриан Блэк} собирается включить Наэтвьирра. ^
-				]];
-			end;
-		end;
-	end;
-	life = function(s)
-		if (s.state < 5) then 
-			s.state = s.state + 1;
-		elseif (s.state == 5) then
-			char_naethvjirr.active = true;
-			p([[
-				Адриан что-то делает с пультом управления и Наэтвьирр оживает
-			]]);
-			lifeoff(s);
-			walk("pre_battle_scene_normal");
-		end;
-	end;
-	act = function(s)
-		if (s.state == 1) then 
-			walkin "adrian_dlg";
-		elseif (s.state < 5) then
-			return "Надо как-то остановить его, но как?";
-		else 
-			-- TODO: Вы сбиваете Адриана с ног
-		end;
-	end;
-};
-
-adrian_dlg = dlg {
-	nam = "adrian_dlg";
-	disp = "Адриан Блэк";
-	hideinv = true;
-	entered = [[
-		Блэк поворачивается к вам. Его лицо выражает крайнюю степень удивления: 
-		"Кто вы, черт возьми, такие?!". Он отвлекся от работы с Наэтвьирром. Кажется, он не рад вас видеть.
-	]];
-	phr = {
-		{"Адриан Блэк?", [[
-			"Предположим. "
-		]]},
-		{"Что здесь происходит?", [[
-			"Завершаю то, что должно было закончиться тысячелетия назад. Эта машина, Наэтвьирр - спящий разум глубин, как его называют Навьяры, или если точнее - Эйлеслвьихенарр - вечный разум глубин и поверхности. Он таит знания тысяч поколений Навьяр - они не должны скрываться под толщей воды, они должны быть открыты нам! "
-		]], [[ pstart 'more_naethvjirr' ]]},
-		{
-			tag="more_naethvjirr"
-		},
-		{"Что вы знаете о Наэтвьирре?", [[
-			"Согласно легендам, собранным мной в разных поселениях навьяров, Наэтвьирр был построен в глубокой древности навьярами, которые тогда господствовали как под водой, так и на суше. Единственной целью существования Наэтвьирра было стать "вечным мудрецом" - "эйлеслэйлайхевьирр", как его называют до сих пор в некоторых местах. Имена менялись, как всегда было у навьяров, но всегда отражали суть - частично или полностью - мыслящая, всезнающая машина, способная ответить на многие вопросы и помочь принять многие трудные решения. Только по чудовищному недоразумению он не был активирован раньше. "
-		]]},
-		{"Вы понимаете, насколько опасно включать эту машину, как бы она ни называлась?", [[
-			"Во-первых, не тебе учить меня. Во-вторых, я все предусмотрел - в случае опасности я смогу отключить его."
-		]], [[ pstart 'halt_naethvjirr' ]]},
-		{
-			tag="halt_naethvjirr", 
-			empty = function()
-				char_adrian.state = 2;
-				p("^^С этими словами, Адриан подходит к рубильнику. У вас есть несколько мгновений, чтобы отреагировать");
-				walk("final_scene");
-				char_naethvjirr.canshoot = true;
-				lifeon(adrian_helper);
-			end
-		},
-		{"Как вы собираетесь управлять им, если ключ утерян? *Вы показываете Адриану табличку со схемой работы Наэтвьирра*", [[
-			Адриан показывает вам серебристую пластинку небольшого размера(около 20х15см), на которой отсвечивают красноватые круги и линии. - "Я все предусмотрел. Без этой деталюшки Наэтвьирр будет серьезно ограничен в возможностях - это тот самый компонент, который должен блокироваться или разблокироваться ключом. "
-		]]}
-	};
-};
-
-char_naethvjirr = obj {
-	nam = "naethvjirr";
-	disp = "Наэтвьирр";
-	disp2 = "Наэтвьирра";
-	canshoot = false;	
-	dsc = function(s)
-		if (s.active) then
-			return [[
-				В центре зала перед массивной конструкцией, напоминающей трон, стоит {автоматон навьяр}. Конструкт выглядит совершенно как живой, сияющие белым светом глаза оглядывают помещение и вас в ожидании ваших действий. Тысячи проводов тянутся от "трона" к стенам, подобно щупальцам. ^
-			]];
-		else
-			return [[
-				В центре зала на массивной конструкции, напоминающей трон, сидит {навьяр}. Конструкт выглядит совершенно как живой, однако он абсолютно неподвижен. Покрытые серебристой чешуей, его руки покоятся на коленях. Тысячи проводов тянутся от "трона" и фигуры к стенам, подобно щупальцам. Глаза навьяра закрыты. ^
-			]];
-		end;
-	end;
-	act = [[
-		Я пока не знаю, что с этим делать
-	]];
-	noshootmsg = "Я не знаю, к чему это приведет, пока лучше этого не делать";
-	nohitmsg = "Я не знаю, к чему это приведет, пока лучше этого не делать";
-	onshoot = function(s)
-		p("^^Ваш выстрел повреждает Наэтвьирра, но вы не замечаете, сказалось ли это на его работоспособности");
-		fb_naethvjirr.hitpoints = 2;
-		char_adrian.state = 6;
-		-- TODO Адриан стреляет в одного из членов партии
-		if (#pl.party ~= 0) then
-			local chosen_one;
-			local chosen_one_index = rnd(#pl.party);
-			local chosen_one_name = pl.party[chosen_one_index];
-			if (chosen_one_name == "learr") then
-				chosen_one = char_learr_fb;
-			elseif (chosen_one_name == "phaetlarr") then
-				chosen_one = char_phaetlarr_fb;
-			elseif (chosen_one_name == "radcliffe") then
-				chosen_one = char_radcliffe_fb;
-			else
-				chosen_one = char_wright_fb; 
-			end;
-			table.remove(pl.party, chosen_one_index);
-			p("^^Адриан вскидывает пистолет и стреляет в вашу сторону. " .. chosen_one.disp .. " падает замертво");
-			
-			walk("pre_battle_scene_fight");
-		else
-			-- TODO Адриан стреляет в вас
-			walk("game_over_shot");
-		end;
-	end;
-};
-
-char_learr_fb = obj {
-	nam = "learr_fb";
-	disp = "Леарр";
-	dsc = function()
-		return [[
-			{Леарр} смотрит попеременно то на вас, то на Адриана ^
-		]];
-	end;
-};
-
-char_phaetlarr_fb = obj {
-	nam = "phaetlarr_fb";
-	disp = "Фаэтларр";
-	dsc = function()
-		return [[
-			{Фаэтларр} оглядывает зал ^
-		]];
-	end;
-};
-
-char_radcliffe_fb = obj {
-	nam = "radcliffe_fb";
-	disp = "Уолтер Рэдклифф";
-	dsc = function()
-		return [[
-			{Уолтер Рэдклифф} с интересом разглядывает Наэтвьирра ^
-		]];
-	end;
-};
-
-char_wright_fb = obj {
-	nam = "wright_fb";
-	disp = "Джек Райт";
-	dsc = function()
-		return [[
-			{Джек Райт} ждет ваших действий ^
-		]];
-	end;
-};
-
-final_scene= room {
-	nam = "final_scene";
-	disp = "Лсэрианотр, центральный зал";
-	dsc = [[
-		Вы находитесь в центральном зале древнего города Навьяр. Вдоль стен стоят огромные металлические шкафы, из которых тысячи проводом тянутся к громадной конструкции в центре зала. Мягкий свет льется сверху, практически ослепляя вас после полумрака остальной части мертвого города. 
-	]];
-	obj = {
-		"char_naethvjirr",
-		"char_adrian",
-		"adrian_helper",
-		"char_learr_fb",
-		"char_phaetlarr_fb",
-		"char_radcliffe_fb",
-		"char_wright_fb"
-	};
-};
-
-pre_battle_scene_fight = room {
-	nam = "pre_battle_scene_fight";
-	disp = "Лсэрианотр, центральный зал";
-	dsc = [[
-		Вы не успеваете опомниться, как Блэк снова стоит у пульта, а Наэтвьирр открывает глаза и оглядывает помещение. Адриан тут же издает приказ, указывая на вас:"Убей их"
-	]];
-	obj = {
-		vway("Продолжить", "{Продолжить}", 'final_battle')
-	};
-};
-
-pre_battle_scene_normal = room {
-	nam = "pre_battle_scene_normal";
-	disp = "Лсэрианотр, центральный зал";
-	dsc = [[
-		В глазах автоматона зажигается мягкий синий свет и он поворачивается к Адриану. Какое-то время он молчит, видимо, пытаясь подобрать наиболее подходящий язык для общения. В итоге по головным плавникам Навьяра побежали цветные полосы - ставший уже столь привычным для вас, способ общения среди Навьяров. Он "говорит" быстро, и вы успеваете понять лишь отдельные слова: "время", "пробуждение", "повелитель". Вы понимаете, что у вас есть еще немного времени, чтобы остановить его. Едва вы достаете оружие, как из пола перед троном поднимаются два небольших пилона. Очевидно, что город будет защищать своего хозяина. 
-	]];
-	obj = {
-		vway("Продолжить", "{Продолжить}", 'final_battle')
-	};
-};
\ No newline at end of file
diff --git a/first_city_inner_rim.lua b/first_city_inner_rim.lua
deleted file mode 100644
--- a/first_city_inner_rim.lua
+++ /dev/null
@@ -1,163 +0,0 @@
--- TODO (приват) добавить описание шлюза
--- TODO (приват) картинка с дисплея терминала
--- TODO (приват) вменяемое описание цели данного паззла, тексты на навьярском или реалистичное объяснение их понятности персонажу
-first_city_airlock_control = room {
-	nam = "first_city_airlock";
-	disp = "Комната управления шлюзом центрального зала";
-	dsc = function (s)
-		return "Вы находитесь в небольшой комнате. Перед вами расположен дисплей, на котором расположены три вертикальные полосы разной длины. " .. tostring(s.tanks[1]) .. "/" .. tostring(s.tanks[2]) .. "/" .. tostring(s.tanks[3]);
-	end;
-	tanks = {10, 0, 0};
-	tanks_capacity = {10, 7, 3};
-	selected_source = nil;
-	selected_target = nil;
-	detect = function(s)	
-		if (tanks[2] == 5) then
-			return true;
-		else
-			return false;
-		end;
-	end;
-	obj = {
-		"first_city_transfer",
-		"first_city_select_s",
-		"first_city_select_p",
-		"first_city_select_a"
-	};
-};
-
-first_city_transfer = obj {
-	nam = "first_city_transfer";
-	dsc = "{Выполнить} ^";
-	act = function(s)
-		if (first_city_airlock_control.selected_source and first_city_airlock_control.selected_target) then
-			local tmp = math.min(first_city_airlock_control.tanks[first_city_airlock_control.selected_source], first_city_airlock_control.tanks_capacity[first_city_airlock_control.selected_target] - first_city_airlock_control.tanks[first_city_airlock_control.selected_target]);
-			first_city_airlock_control.tanks[first_city_airlock_control.selected_source] = first_city_airlock_control.tanks[first_city_airlock_control.selected_source] - tmp;
-			first_city_airlock_control.tanks[first_city_airlock_control.selected_target] = first_city_airlock_control.tanks[first_city_airlock_control.selected_target] + tmp;
-			first_city_airlock_control.selected_source = nil;
-			first_city_airlock_control.selected_target = nil;
-			return "Выполнено";
-		else
-			return "Невозможно выполнить";
-		end;
-	end;
-};
-
-first_city_select_s = obj {
-	nam = "first_city_select_s";
-	dsc = "{Выбрать первый баллон} ^";
-	act = function(s)
-		if (not first_city_airlock_control.selected_source) then
-			first_city_airlock_control.selected_source = 1;
-		else
-			first_city_airlock_control.selected_target = 1;
-		end;
-		
-		return "";
-	end;
-};
-
-first_city_select_p = obj {
-	nam = "first_city_select_p";
-	dsc = "{Выбрать второй баллон} ^";
-	act = function(s)
-		if (not first_city_airlock_control.selected_source) then
-			first_city_airlock_control.selected_source = 2;
-		else
-			first_city_airlock_control.selected_target = 2;
-		end;
-		
-		return "";
-	end;
-};
-
-first_city_select_a = obj {
-	nam = "first_city_select_a";
-	dsc = "{Выбрать третий баллон} ^";
-	act = function(s)
-		if (not first_city_airlock_control.selected_source) then
-			first_city_airlock_control.selected_source = 3;
-		else
-			first_city_airlock_control.selected_target = 3;
-		end;
-		
-		return "";
-	end;
-};
-
-first_city_inner_south = room {
-	nam = "first_city_inner_south";
-	disp = "Лсэрианотр, внутреннее кольцо, юг";
-	gate = "first_city_middle_south";
-	east = "first_city_inner_east";
-	west = "first_city_inner_west";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в южной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в южной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-};
-
-first_city_inner_east = room {
-	nam = "first_city_inner_east";
-	disp = "Лсэрианотр, внутреннее кольцо, восток";
-	south = "first_city_inner_south";
-	north = "first_city_inner_north";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в восточной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в восточной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-};
-
-first_city_inner_west = room {
-	nam = "first_city_inner_west";
-	disp = "Лсэрианотр, внутреннее кольцо, запад";
-	south = "first_city_inner_south";
-	north = "first_city_inner_north";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в западной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в западной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-};
-
-first_city_inner_north = room {
-	nam = "first_city_inner_north";
-	disp = "Лсэрианотр, внутреннее кольцо, север";
-	east = "first_city_inner_east";
-	west = "first_city_inner_west";
-	navigatable = true;
-	entered = function(s)
-		if (first_city_airlock_control.detect(first_city_airlock_control)) then
-			path("first_city_to_center"):enable();
-		end;
-	end;
-	dsc = [[
-		Вы находитесь в северной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в северной части внутреннего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	way = {
-		kh_vroom("Центр города", "first_city_central_room_entrance", "first_city_to_center"):disable();
-		kh_vroom("Левиафан", "leviathan_airlock");
-	};
-};
-
-first_city_central_room_entrance = room {
-	nam = "first_city_central_room_entrance";
-	disp = "Лсэрианотр, Вход в центральный зал";
-	dsc = [[
-		Вы находитесь у входа в центральный зал Лсэрианотра. Входная дверь закрывается и вода быстро откачивается из помещения. Вы снимаете скафандр и готовитесь к встрече с Уильямом. Отсюда пути назад уже нет.
-	]];
-	obj = {
-		vway("Центральный зал", "{Вперед}", "final_scene_before_battle");
-	};
-};
\ No newline at end of file
diff --git a/first_city_middle_rim.lua b/first_city_middle_rim.lua
deleted file mode 100644
--- a/first_city_middle_rim.lua
+++ /dev/null
@@ -1,71 +0,0 @@
--- dependencies
-dofile "powerplant.lua";
-dofile "engineering.lua";
-
--- TODO (приватная бета-версия) добавить описания ворот открытых и закрытых
--- TODO (приватная бета-версия) пометить описание инженерного зала в западный сектор
-
-first_city_middle_south = room {
-	nam = "first_city_middle_south";
-	disp = "Лсэрианотр, среднее кольцо, юг";
-	east = "first_city_middle_east";
-	west = "first_city_middle_west";
-	navigatable = true;
-	open = function(s)
-		s.gate = "first_city_inner_south";
-	end;
-	dsc = [[
-		Вы находитесь в южной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в южной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-};
-
-first_city_middle_east = room {
-	nam = "first_city_middle_east";
-	disp = "Лсэрианотр, среднее кольцо, восток";
-	south = "first_city_middle_south";
-	north = "first_city_middle_north";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в восточной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-		Вы видите огромное здание, стоящее поодаль от других. Над огромными двойными дверями расположен символ, недвусмысленно намекающий на назначение этого здания даже незнакомым с языком Навьяр - три молнии, исходящие из круга в центре. Вы чувствуете слабую вибрацию, исходящую из этого здания.
-	]];
-	view = [[
-		Вы находитесь в восточной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-		Вы видите огромное здание, стоящее поодаль от других. Над огромными двойными дверями расположен символ, недвусмысленно намекающий на назначение этого здания даже незнакомым с языком Навьяр - три молнии, исходящие из круга в центре. Вы чувствуете слабую вибрацию, исходящую из этого здания.
-	]];
-	way = {
-		kh_vroom("В здание", "first_city_powerplant", "to_powerplant"):disable();
-	};
-};
-
-first_city_middle_west = room {
-	nam = "first_city_middle_west";
-	disp = "Лсэрианотр, среднее кольцо, запад";
-	south = "first_city_middle_south";
-	north = "first_city_middle_north";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в западной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в западной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-};
-
-first_city_middle_north = room {
-	nam = "first_city_middle_north";
-	disp = "Лсэрианотр, среднее кольцо, север";
-	gate = "first_city_outer_north";
-	east = "first_city_middle_east";
-	west = "first_city_middle_west";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в северной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в северной части среднего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-};
\ No newline at end of file
diff --git a/first_city_outer_rim.lua b/first_city_outer_rim.lua
deleted file mode 100644
--- a/first_city_outer_rim.lua
+++ /dev/null
@@ -1,221 +0,0 @@
---dependencies
-dofile "service_tunnels.lua";
-dofile "hope.lua";
-dofile "hope_cutscene.lua";
-
--- TODO (приватная бета-версия) добавить описания ворот открытых и закрытых
-
-char_first_city_guardian = obj {
-	nam = "first_city_guardian";
-	disp = "Страж";
-	dsc = [[
-		Вы видите фигуру {Навьяра}, стоящего около ворот. Приглядевшись внимательнее, вы понимаете, что это автоматон.^
-	]];
-	act = function()
-		return [[
-			Автоматон выглядит намного совершеннее тех, что вам доводилось видеть на Атлантиде. Его тело покрыто чешуей, как и тело живых Навьяр. Его выдают лишь стеклянные немигающие глаза и полная неподвижность.
-			Головные плавники автоматона плавно меняют цвета, но даже если бы вы понимали, что это значит, вы не смогли бы ему ответить.
-		]];
-	end
-};
-
-first_city_entrance = room {
-	nam = "first_city_entrance";
-	disp = "Лсэрианотр, врата";
-	dsc = function(s)
-		if (not s.open) then
-			return [[
-				Вы находитесь на глубине нескольких километров под водой. Прожектор вашего скафандра с трудом пробивает непроглядную толщу воды. 
-				Почти вплотную перед вами расположены огромные ворота из неизвестного материала. 
-			]];
-		else
-			return [[
-				Вы находитесь на глубине нескольких километров под водой. Прожектор вашего скафандра с трудом пробивает непроглядную толщу воды. 
-				Огромные ворота открыты и Левиафан легко пройдет в них.
-			]];
-		end;
-	end;
-	view = function(s)
-		if (not s.open) then
-			return [[
-				"Левиафан" находится на глубине нескольких километров под водой. Мощный прожектор субмарины с трудом пробивает непроглядную толщу воды. 
-				Огромные ворота из неизвестного материала преграждают вам путь внутрь. 
-			]];
-		else
-			return [[
-				"Левиафан" находится на глубине нескольких километров под водой. Мощный прожектор субмарины с трудом пробивает непроглядную толщу воды. 
-				Огромные ворота открыты и Левиафан легко пройдет в них.
-			]];
-		end;
-	end;
-	obj = {
-		"char_first_city_guardian";
-	};
-	way = {
-		vroom("Левиафан", "leviathan_airlock");
-	};
-};
-
-first_city_outer_south = room {
-	nam = "first_city_outer_south";
-	disp = "Лсэрианотр, внешнее кольцо, юг";
-	gate = "first_city_entrance";
-	east = "first_city_outer_east";
-	west = "first_city_outer_west";
-	navigatable = true;
-	entered = function(s)
-		s.entered = nil;
-		-- Должно выполняться только один раз:
-		-- 1. Генерируем сервисные тоннели
-		-- 2. Генерируем табличку сервисных тоннелей для библиотеки
-		-- 3. Генерируем ссылки на документы на Надежде
-	end;
-	dsc = [[
-		Вы находитесь в южной части внешнего кольца Лсэрианотра. Это огромный коридор, опоясывающий город по периметру. 
-		Высоко над головой виден прозрачный купол, не дающий проникнуть в город минуя ворота. 
-	]];
-	view = [[
-		Вы находитесь в южной части внешнего кольца Лсэрианотра. Это огромный коридор, опоясывающий город по периметру. 
-		Высоко над головой виден прозрачный купол, не дающий проникнуть в город минуя ворота.
-	]];
-	way = {
-		vroom("Левиафан", "leviathan_airlock");
-	};
-};
-
-first_city_outer_east = room {
-	nam = "first_city_outer_east";
-	disp = "Лсэрианотр, внешнее кольцо, восток";
-	south = "first_city_outer_south";
-	north = "first_city_outer_north";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в восточной части внешнего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. На востоке вы видите огромное здание с большим количеством труб, идущих до самого купола. Скорее всего, это какая-то древняя фабрика.
-	]];
-	view = [[
-		Вы находитесь в восточной части внешнего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	way = {
-		vroom("Левиафан", "leviathan_airlock");
-		vroom("В здание", "first_city_factory");
-	};
-};
-
-first_city_outer_west = room {
-	nam = "first_city_outer_west";
-	disp = "Лсэрианотр, внешнее кольцо, запад";
-	south = "first_city_outer_south";
-	north = "first_city_outer_north";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в западной части внешнего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в западной части внешнего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	way = {
-		vroom("Левиафан", "leviathan_airlock");
-		vroom("В здание", "first_city_library");
-	};
-};
-
-first_city_outer_north = room {
-	nam = "first_city_outer_north";
-	disp = "Лсэрианотр, внешнее кольцо, север";
-	gate = "first_city_middle_north";
-	east = "first_city_outer_east";
-	west = "first_city_outer_west";
-	navigatable = true;
-	dsc = [[
-		Вы находитесь в северной части внешнего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	view = [[
-		Вы находитесь в северной части внешнего кольца Лсэрианотр. Это огромный коридор, опоясывающий город по периметру. 
-	]];
-	obj = {
-		"submarine_hope"
-	};
-	way = {
-		vroom("Левиафан", "leviathan_airlock");
-		vroom("Надежда", "hope_airlock");
-	};
-};
-
-path_first_city_tunnel = vroom("В сервисный тоннель", "service_tunnels");
-
-first_city_factory = room {
-	nam = "first_city_factory";
-	disp = "Лсэрианотр, внешнее кольцо, завод";
-	entered = function(s)
-		service_tunnels.position = "3";
-	end;
-	dsc = [[
-		Помещение, в котором вы находитесь, очевидно, некогда было заводом. Конвейеры, странные механизмы, разбросанные инструменты, долгие тысячелетия лежавшие без движения. 
-	]];
-	obj = {
-		"item_pickaxe",
-		"first_city_crack"
-	};
-	way = {
-		disable(path_first_city_tunnel);
-	};
-};
-
-first_city_crack = obj {
-	nam = "first_city_crack";
-	dsc = "В дальней стене вы видите {трещину}. Сквозь нее пробивается слабый свет, очевидно там какое-то помещение.";
-	act = function(s)
-		if (s.wide) then
-			return [[
-				Вы видите за щелью какие-то тоннели. Вы сможете пролезть туда.
-			]];
-		else
-			return [[
-				Нужно чем-то расширить эту щель, если вы хотите туда попасть
-			]];
-		end;
-	end;
-	canhit = true;
-	onhit = function(s)
-		if (s.wide) then
-			return "Трещина уже достаточно большая для вас, нет смысла еще что-то с ней делать."
-		else
-			s.wide = true;
-			enable(path_first_city_tunnel);
-			return "Несколькими осторожными ударами кирки вы расширяете трещину достаточно, чтобы пролезть внутрь."
-		end;
-	end;
-	
-};
-
-first_city_library = room {
-	nam = "first_city_library";
-	disp = "Лсэрианотр, внешнее кольцо, библиотека";
-	dsc = [[
-		В здании вы видите огромные стеллажи, заполненные табличками из неизвестного материала. Таблички исписаны письменами Навьяров и потускнели от времени. 
-	]];
-	obj = {
-		'first_city_index',
-		'first_city_maintenance_info'
-	};
-};
-
-first_city_index = obj {
-	nam = "first_city_index";
-	dsc = "На стене возле входа висит большая {табличка}. ";
-	act = function(s)
-	end;
-};
-
-first_city_maintenance_info = obj {
-	nam = "first_city_index";
-	dsc = "Один из {стеллажей} рядом со входом содержит информацию об обслуживании Лсэрианотра. Вероятно, там вы найдете то, что поможет вам отключить охранную систему города. ";
-	act = function(s)
-		if (s.taken) then
-			return "Врядли вы найдете здесь что-то еще полезное. ";
-		else
-			take("item_service_info")
-			return "Вы просматриваете тысячи записей и уже почти теряете всякую надежду когда натыкаетесь на табличку, описывающую сервисные тоннели города. ";
-		end;
-	end;
-};
\ No newline at end of file
diff --git a/hope.lua b/hope.lua
deleted file mode 100644
--- a/hope.lua
+++ /dev/null
@@ -1,140 +0,0 @@
---[[
-Субмарина Уильяма. Она серьезно пострадала, и врядли экипаж цел. 
-]]
-
-submarine_hope = obj {
-	nam = "submarine_hope";
-	disp = "Надежда";
-	dsc = [[
-		Вы видите "{Надежду}" - субмарину Уильяма Дрейка, первую построенную им. Она заметно пострадала в результате выстрелов из расположенной у входа турели, однако, экипаж в последний момент успел увести подлодку на безопасное расстояние. Люк субмарины разбит и вы сможете заплыть внутрь.
-	]];
-	act = [[ Субмарина сильно повреждена, герметичность корпуса очевидно нарушена. Врядли в ней остался кто-то живой, однако не помешает это проверить. Надпись на борту гласит "А00 - Надежда" ]];
-	-- function()
-		-- walk "leviathan_airlock";
-		-- return "Оказавшись внутри, вы закрываете за собой люк";
-	--end;
-};
-
-hope_airlock = room {
-	nam = "hope_airlock";
-	disp = "Надежда, шлюз";
-	dsc = [[
-		Вы находитесь в шлюзовой камере "Надежды". Она практически идентична шлюзовой камере Левиафана. Сейчас она не функционирует - камера заполнена водой и оба люка открыты.
-	]];
-	way = {
-		vroom("Наружу", "first_city_outer_north");
-		vroom("В рубку", "hope_wheelhouse");
-	};
-};
-
-hope_cargo_door = obj {
-	nam = "hope_cargo_door";
-	disp = "Люк в грузовой отсек";
-	dsc = function(s)
-		if (s.state == 2) then
-			return [[
-				{Люк} в грузовой отсек открыт.
-			]];
-		else
-			return [[
-				{Люк} в грузовой отсек задраен.
-			]];
-		end;
-	end;
-	state = 0;
-	act = function(s)
-		if (s.state == 0) then
-			if (char_learr.follow) then
-				pn([[Вы пытаетесь открыть люк, однако, похоже, он заблокирован с другой стороны. В смотровом люке вы видите голову навьяра, смотрящего на вас. В темноте вы с трудом различаете цветные полосы на его головных плавниках. Полосы бегут нарочито медленно, чтобы вы успели его понять. Леарр мягко отодвигает вас от смотрового отверстия. тем же способом, она что-то говорит навьяру, находящемуся по ту сторону люка. Через несколько минут подобного общения Леарр кивает вам, показывая на дверь. ]]);
-				s.state = 1;
-			else
-				pn([[Вы пытаетесь открыть люк, однако, похоже, он заблокирован с другой стороны. В смотровом люке вы видите голову навьяра, смотрящего на вас. В темноте вы с трудом различаете цветные полосы на его головных плавниках. Полосы бегут нарочито медленно, чтобы вы успели его понять. Вы с трудом переводите цвета в символы: "Eyle'yhe'he'vji'a'rr vee'nn vtre'e'ran'rr" ]]);
-			end;
-		elseif (s.state == 1) then
-			pn([[Вы начинаете открывать люк и огромное количество пузырей воздуха просачивается через образовавшуюся щель. Леарр жестом показывает вам, чтобы вы продолжали. Вы ждете, когда вода заполнит отсек, после чего открываете люк до конца. ]]);
-			hope_airlock_pass:enable();
-			s.state = 2;
-		elseif (s.state == 2) then
-			pn("Люк уже открыт");
-		end;
-		return true;
-	end;
-};
-
-hope_airlock_pass = vroom("В грузовой отсек", "hope_cargo_hold");
-
-hope_wheelhouse = room {
-	nam = "hope_wheelhouse";
-	disp = "Надежда, рубка";
-	dsc = [[
-		Вы находитесь в рубке "Надежды". По размерам она заметно больше, чем рубка на Левиафане. Помещение заполнено водой. Люки в машинное отделение и пассажирский отсек открыты. 
-	]];
-	obj = {
-		hope_cargo_door
-	};
-	way = {
-		vroom("В машинное отделение", "hope_engines");
-		hope_airlock_pass:disable();
-		vroom("В помещение экипажа", "hope_dormitory");
-	};
-};
-
-hope_engines = room {
-	nam = "hope_engines";
-	disp = "Надежда, машинное отделение";
-	dsc = [[
-		Вы находитесь в машинном отделении "Надежды". Попадание воды вызвало короткое замыкание в электрической цепи субмарины. Вам нечего здесь делать.
-	]];
-	way = {
-		vroom("В рубку", "hope_wheelhouse");
-	};
-};
-
-hope_cargo_hold = room {
-	nam = "hope_cargo_hold";
-	disp = "Надежда, грузовой отсек";
-	dsc = [[
-		Вы находитесь в грузовом отсеке "Надежды". Герметичные контейнеры сохранили большую часть груза в целости и сохранности, однако на "Левиафане" достаточно собственных припасов, так что вам придется оставить все это здесь.
-	]];
-	way = {
-		vroom("В рубку", "hope_wheelhouse");
-	};
-	obj = {
-		"char_phaetlarr_hope";
-	};
-};
-
-hope_dormitory = room {
-	nam = "hope_dormitory";
-	disp = "Надежда, помещение для экипажа";
-	dsc = [[
-		Шесть коек расположены вдоль трех стен помещения в два яруса. Вам нечего здесь делать. 
-	]];
-	way = {
-		vroom("В рубку", "hope_wheelhouse");
-	};
-};
-
-char_phaetlarr_hope = obj {
-	nam = "char_phaetlarr_hope";
-	disp = "Фаэтларр";
-	dsc = "Рядом с люком, скрестив руки на груди, стоит {навьяр}. Он, кажется, серьезно удивлен вашим появлением. ^";
-	act = function(s)
-		walkin(phaetlarr_hope_dlg);
-	end;
-};
-
-phaetlarr_hope_dlg = dlg {
-	nam = "phaetlarr_hope_dlg";
-	disp = "Навьяр";
-	entered = [[
-		Навьяр выглядит удивленным и напуганным, однако, судя по всему, он готов вас выслушать. К сожалению, здесь с ним не получится нормально общаться. Цветные полосы на головных плавниках навьяра складываются в слово "Pha'e'tla'rr" - сияющий. 
-	]];
-	phr = {
-		{"Указать на навьяра левой рукой, правой указать на себя, затем на дверь", "Навьяр кивает головой. \"I'rr vee'nn\"", function()
-			-- Все втроем вы возвращаетесь на Левиафан
-			walk("cutscene_hope");
-			return false;
-		end;};
-	};
-};
\ No newline at end of file
diff --git a/hope_cutscene.lua b/hope_cutscene.lua
deleted file mode 100644
--- a/hope_cutscene.lua
+++ /dev/null
@@ -1,117 +0,0 @@
--- TODO переписать диалоги с сопартийцами. 
-cutscene_learr_dlg = dlg {
-	nam = "cutscene_learr_dlg";
-	disp = "Леарр";
-	entered = [[
-		Леарр с интересом рассматривает Фаэтларра. Она почти не обращает на вас внимания
-	]];
-	phr = {
-		{"Что скажешь?", [[
-			Леарр отрывает взгляд от Фаэтларра и поворачивается к вам: "Никогда не думала, что твой отец водится с такими людьми, как Адриан. "
-		]], [[ pstart("adrian") ]]};
-		{"*поговорить с кем-то другим*", [[Вы решаете не беспокоить Леарр]], [[ back() ]]};
-		{tag = "adrian"};
-		{"Он не был таким изначально. Уильям знал его достаточно хорошо. Думал, что знал. ", [[
-			Леарр пожимает плечами: "Возможно, ты прав. Все равно, нам нужно остановить его"
-		]], [[ back() ]]};
-		{"Без Адриана он не дошел бы так далеко ", [[
-			"Без Адриана, он остался бы жив!" - Леарр отворачивается от вас, снова погружаясь в свои мысли. 
-		]], [[ back() ]]};
-		{"Если честно, я и сам удивлен", [[
-			Леарр молча смотрит на вас. Вскоре она отворачивается от вас, погружаясь в свои мысли.
-		]], [[ back() ]]};
-	};
-};
-
-cutscene_phaetlarr_dlg = dlg {
-	nam = "cutscene_phaetlarr_dlg";
-	disp = "Фаэтларр";
-	entered = [[
-		Фаэтларр с недоверием смотрит на вас и на остальных присутствующих. 
-	]];
-	phr = {
-		{"Успокойся, ты можешь доверять нам. Мое имя Дэвид Дрейк", [[
-			Фаэтларр вопросительно смотрит на Леарр. Она отвечает на вашем языке "Все в порядке. Мы не хотим навредить ни тебе ни твоему городу. Наша цель - предотвратить пробуждение Наэтвьирра". Потом Фаэтларр отвечает: "Я готов помогать вам". Его акцент гораздо сильнее, чем у Леарр, которая провела в обществе людей несравненно дольше.
-		]], [[ pstart 'ch1' ]]}; --TODO пофиксить фразу, если кроме Леарр никого в партии нет
-		{tag = "ch1"};
-		{"Что произошло на \"Надежде\"?", [[
-			"Я мало знаю, что происходило в последние дни. Когда Адриан вернулся из Илерьяанотлекра, он запер меня на складе. Не уверен, сколько дней прошло, достаточно много, я думаю, когда наш корабль сильно сотрясло. Как оказалось, я находился в единственном отсеке, куда не попала вода. Он долго пытался меня оттуда вытащить, только вот не учли пары вещей: Я уже достаточно хорошо знал многие особенности конструкции субмарины, в частности то, что отсек может быть заперт только с одной стороны одновременно. Это сделано специально, чтобы избеждать ряда неприятных ситуаций. Вобщем как только он разблокировал дверь со своей стороны, я заблокировал ее изнутри. Не знаю, почему он забыл об этой простой вещи, когда запирал меня. "
-		]], [[ psub 'hope_qs' ]]};
-		{"Ты знал Уильяма Дрейка?", [[
-			"Знал... Знаю. Eylesl'hya'e'ava'nn Pte'rr. "
-		]], [[ psub 'drake_qs' ]]};
-		{tag = "hope_qs"};
-		{"Расскажи, как ты оказался на \"Надежде\"", [[
-			"Уильям пригласил меня в качестве навигатора. В то время я занимался изучением истории нашего народа - сопоставлял различные карты. Естественно, я уже знал о Наэтвьирре и даже примерно знал, где находится Лсэрианотр. Конечно, без Уильяма и, говоря честно, Адриана, я никогда не смог бы определить его точное местоположение. Поясню: из исторических источников и старых рассказов я смог определить расположение Илерьяанотлекра. Тогда я полагал, что этот город - и есть легендартный Лсэрианотр - первый город, древний центр нашей цивилизации. Я мало что знал о Наэтвьирре тогда. Если бы я только знал, чем все обернется..."
-		]]};
-		--[[{"Где сейчас Адриан?", [
-			"Если он еще жив, то он либо пробирается к центру города, либо уже там. В любом случае вам стоит поторопиться. Вы позволите мне присоединиться к вам? "
-		], [ psub 'join' ]};--]]
-		{"Где сейчас Адриан?", [[
-			"Если он еще жив, то он либо пробирается к центру города, либо уже там. В любом случае вам стоит поторопиться. Я согласен помогать вам. "
-		]]};
-		{"Сколько всего человек было на борту?", [[
-			"Когда я присоединился, нас было шестеро, включая меня: Уильям Дрейк командовал экспедицией. Собственно из-за него я и присоединился к экипажу. Тогда он хотел, чтобы Наэтвьирр послужил на благо всем - и навьярам и хевьярам. Тогда он предложил мне быть навигатором. С ним был Адриан Блэк - он сразу показался мне странным, не внушающим доверия. Однажды Уильям сказал мне, что когда все только начиналось, Адриан был совсем другим человеком. Я думаю, только так можно объяснить, почему они оказались на одном корабле. Винсент Даркстар - инженер - от него я узнал очень многое об устройстве субмарины. К сожалению, он погиб во время нападения на нас жителей Илерьяанотлекра. Тогда почти все и погибли - Сильвия, Винсент, Джон." - Фаэтларр тяжело вздохнул и добавил на своем языке: Eylesl'hya'e'ava'nn Eyle'pte'rr.
-		]]};
-		{tag = "drake_qs"};
-		{"Что произошло с Уильямом?", [[
-			"Последнее время Уильям всерьез задумывался о целесообразности возрождения Наэтвьирра. Он наджеялся найти больше ответов в Лсэрианотре, провести там столько времени, сколько потребуется прежде чем принимать решение. Блэк был недоволен этим - не хотел ждать. Мне кажется, он хотел единолично контроллировать Наэтвьирра. Не могу понять, почему Уильям доверял этому человеку. Не могу понять, почему он вообще взял его с собой."
-		]]};
-		{"Расскажи больше об Уильяме", [[
-			"Он - искатель, как говорят у нас. Все время в дороге, читает, ищет, расспрашивает. Лсэрианотр - достойная цель, если ищет ее кто-то достойный. Уильям - такой. Он собрал вокруг себя отличную команду - Сильвия, ее не волнуют древние знания, забытые города и прочее... прошлое, она ищет друзей, помощников, сама готова помогать. Винсент - мне кажется, его ничего кроме корабля не интересует. Он многое мне рассказал об устройсте "Надежды". Джон - мало его знаю, он неразговорчив, однако Уильям безоговорочно доверяет ему. Я думаю, есть за что. Хотя с Адрианом он очень сильно ошибся. "
-		]]};
-		--[[{tag = "join"};
-		{"Конечно, ты нам здорово поможешь", [
-			"Замечательно, вместе мы остановим Адриана, а потом он предстанет перед судом Нарьяанотра. "
-		]};
-		{"Не думаю, что ты будешь полезен", [
-			Лицо Фаэтларра снова принимает недоуменное, слегка испуганное выражение: "Значит, вы бросите меня здесь?" В разговор, внезапно, вмешивается Леарр: "Ты не сделаешь этого, Дэвид! Я уйду вместе с ним"
-		]}; -- TODO решить, сделать "плохой" вариант сюжета, если будет время. Обрезать все концы, если его не будет
-		--]]
-	};
-	exit = function(s)
-		table.remove(cutscene_hope.obj, 1);
-		PartyUtils.addToParty(char_phaetlarr);
-		put(vway("Леарр", "{Поговорить с Леарр. ^}", "cutscene_learr_dlg"), cutscene_hope);
-		put(vway("Райт", "{Поговорить с Райтом. ^}", "cutscene_wright_dlg"), cutscene_hope);
-		put(vway("Рэдклифф", "{Поговорить с Рэдклиффом. ^}", "cutscene_radcliffe_dlg"), cutscene_hope);
-		put(vway("Закончить собрание", "{Закончить собрание. ^}", "leviathan_wardroom"), cutscene_hope);
-	end;
-};
-
-cutscene_wright_dlg = dlg {
-	nam = "cutscene_wright_dlg";
-	disp = "Райт";
-	entered = [[
-		Джек задумчиво смотрит на Фаэтларра. "А можем ли мы доверять ему?" - спрашивает он наконец.
-	]];
-	phr = {
-		{"Леарр доверяет ему, насколько я понял. Я доверяю ей. ", [[
-			будь по-твоему
-		]]}
-	};
-};
-
-cutscene_radcliffe_dlg = dlg {
-	nam = "cutscene_radcliffe_dlg";
-	entered = [[
-		Уолтер задумчиво смотрит на Фаэтларра. "А можем ли мы доверять ему?" - спрашивает он наконец.
-	]];
-	phr = {
-		{"Леарр доверяет ему, насколько я понял. Я доверяю ей. ", [[
-			будь по-твоему
-		]]}
-	};
-};
-
-cutscene_hope = room {
-	nam = "cutscene_hope";
-	disp = "Левиафан, кают-компания";
-	leviathan = true;
-	dsc = [[
-		Вы возращаетесь на Левиафан. В кают-компании вас уже ждут остальные члены экипажа. Наконец-то вы можете расспросить Фаэтларра о произошедшем на "Надежде".
-	]];
-	obj = {
-		vway("Фаэтларр", "{Поговорить с Фаэтларром. ^}", "cutscene_phaetlarr_dlg");
-	};
-};
\ No newline at end of file
diff --git a/main.lua b/main.lua
--- a/main.lua
+++ b/main.lua
@@ -27,7 +27,6 @@ dofile "warehouse18.lua"
 dofile "warehouse32.lua"
 dofile "leviathan.lua"
 dofile "london_dice.lua"
-dofile "london_checkers.lua"
 -- Часть 2: Атлантида
 dofile "atlantis.lua"
 dofile "atlantis_ignis.lua"
diff --git a/navjiarr_hostile_settlement.lua b/navjiarr_hostile_settlement.lua
deleted file mode 100644
diff --git a/navjiarr_settlement.lua b/navjiarr_settlement.lua
deleted file mode 100644
diff --git a/party.lua b/party.lua
--- a/party.lua
+++ b/party.lua
@@ -28,12 +28,15 @@ char_learr = obj {
 		follow = false;
         
         on_books = 0;
+        on_join = 0;
+        on_before = 0;
+        on_atlantis = 0;
 	};
 	nam = "learr";
 	disp = "Леарр";
 	dsc = function(s)
 		if (stead.nameof(where(s)) == s.home) then
-			return [[{Леарр} стоит возле одного из иллюминаторов и наблюдает за происходящим снаружи субмарины. ^]];
+			return [[{Леарр} сидит в кресле, листая книгу. ^]];
 		else
 			return [[{Леарр} ждет ваших указаний. ^]];
 		end;
@@ -173,6 +176,32 @@ learr_home_dlg = dlg {
 	disp = "Леарр";
 	hideinv = true;
 	entered = function(s)
+        --on_books = 0;
+        --on_join = 0;
+        --on_before = 0;
+        --on_atlantis = 0;
+        poff("on_books", "on_join", "on_before", "on_atlantis", "talk");
+        if (rel_learr < 0) then
+            pon("talk");
+        else
+            --[[if (char_learr.on_books < 3) then
+                pon("on_books");
+                pon("talk");
+            end;]]
+            if (char_learr.on_join < 2) then
+                pon("on_join");
+                pon("talk");
+            end;
+            if (char_learr.on_before < 2) then
+                pon("on_before");
+                pon("talk");
+            end;
+            if (char_learr.on_atlantis < 2) then
+                pon("on_atlantis");
+                pon("talk");
+            end;
+        end;
+    
 		if (atl_iyh_state == 7) then
 			pon("on_iyh");
 		else
@@ -187,11 +216,37 @@ learr_home_dlg = dlg {
 			poff('stay');
 		end;
 	
+        psub("generic");   
 		return [[Леарр вопросительно смотрит на вас. ]];
 	end;
 	phr = {
+        {tag="more_questions"};
+        {tag="on_books", "", function() 
+            
+        end};
+        {tag="on_join", "Почему ты отправилась с нами?", function() 
+            char_learr.on_join = 2;
+            return [[Леарр отвечает: "Я с-Уильямом-Дрейком-хотела-отправиться, но отец не-разрешил. Он сейчас-изменил-решение и я могу-с-тобой-искать". ]];
+        end}
+        {tag="on_before", "Расскажи о своей жизни в Ираафаанотре.", function() 
+            char_learr.on_before = 2;
+            return [[Леарр отвечает: "Я вождя-дочь. Я думать-искать-решать-сложно-но-интересно-было-училась. Хевьяры пришли-и-все-изменили. Я теперь-говорить-не-с-навьярами-учусь. Отец будущему-вождю-полезно-это-говорит. Я согласна-с-ним-в-этом".]];
+        end}
+        {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function() 
+            char_learr.on_atlantis = 2;
+            return [[Леарр отвечает: "Мы многому-научиться-у-вас-должны-и-можем. Вы в-воде-не-дышите-как-мы, но вы машины-делающие-это-за-вас-строите. Легенды гласят, что мы тоже-это-умели, но почему-разучились? Я не умею. Отец не умеет. Другие не умеют. И в-книгах-не-написано". Леарр печально вздыхает. ]];
+        end}
+        {tag="generic"};
+        { tag = "talk", always = true, "Я хочу кое-что спросить.", function(s)
+            if rel_learr >= 0 then
+                psub("more_questions");
+                return [[Леарр кивает: "Ты говори". ]];
+            else
+                return [[Леарр отвечает: "Мы потом-поговорим". ]];
+            end;
+        end};
 		{ tag = "on_iyh", always = true, "Что ты можешь рассказать мне о храме?", [[
-			"Каждый-храм два-входа-имеет. Большой-главный-вход далеко-виден. Тайный-задний-вход незаметен-но-всегда-есть. Мы давно-потеряли дорогу-к-этому-святилищу и задний-вход-не-помним. Если мы задний-вход-найдем, то обманим затмевающего-свет и в-храм-проникнем".
+			"Каждый-храм два-входа-имеет. Большой-главный-вход далеко-виден. Тайный-задний-вход незаметен-но-всегда-есть. Мы давно-потеряли дорогу-к-этому-святилищу и задний-вход-не-помним. Если мы задний-вход-найдем, то обманем затмевающего-свет и в-храм-проникнем".
 		]]};
 		{ tag = "join", always = true, "Я хочу, чтобы ты пошла со мной в следующий раз", "Хорошо", 
 			function()