games/Awakening Changeset - 9d5e745f9619

Changeset - 9d5e745f9619

Parent rev.

Child rev.

[Not reviewed]

default

0 2 0

Silverwing - 7 years ago 2017-09-24 10:04:12

Radcliffe dlgs

2 files changed with 137 insertions and 6 deletions:

atlantis_dlg.lua

party.lua

0 comments (0 inline, 0 general)

atlantis_dlg.lua

➞

Show inline comments

@@ @@ -1917,151 +1917,215 @@ char_legrand_dlg = dlg { @@
 		{"Я нашел тайник отца со старыми схемами. Пришлось побегать, чтобы восстановить субмарину. Я чудом собрал все необходимое", [[
 			Мари Легран удивленно смотрит на вас: "Удивительно. Скорее всего Уильям хотел, чтобы вы нашли Левиафан. Жаль, что вы прибыли слишком поздно. Когда он узнал про этот древний город, он собрал несколько помощников и отправился на Надежде на его поиски".
 		]], code [[ pon("father_more");psub("generic"); ]]};
 		{tag="generic"};
 		{tag="father_more", false, "Кто отправился вместе с моим отцом?", [[
 			"Немногие. Они вообще хотел отправиться вдвоем с Блэком, но Блэк уговорил Уильяма взять Джона Брауна и Дэмина Пина".
 		]], code [[psub("more_people");]]};
 		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе начался из-за саботажа?", function(s)
 			atl_lfc_panic = atl_lfc_panic + 1;
 			atl_rep_darkstar = atl_rep_darkstar - 1;
 			if (atl_lfc_panic <= 2) then
 				return [[
 					Мари Легран удивленно смотрит на вас: "Откуда вы знаете? Кому такое в голову придти может?"
 				]];
 			elseif (atl_lfc_panic == 3) then
 				return [[
 					Мари Легран удивленно смотрит на вас: "Вы понимаете, что говорите? Кому такое в голову придти может?"
 				]];
 			end;
 		end};
 		{tag="ignis_what", false, "Вы знаете, что произошло в Игнисе?", [[
 			"Поговорите лучше с Даркстаром или Райтом".
 		]]};
 		{always=true, "Я пойду", [[
 			"Приходите еще"
 		]], code [[ back(); ]]};
 		{tag="more_people"};
 		{"Расскажите больше об Адриане Блэке", [[
 		]]};
 		{"Расскажите больше о Джоне Брауне", [[
 		]]};
 		{"Расскажите больше о Дэмине Пине", [[
 		]]};
 		{"Давайте о другом поговорим", [[
 			"Хорошо"
 		]], code [[pret();]]};
 	};
 };
 char_radcliffe_atlantis_dlg = dlg {
 	var {
 		state = 0;
 		lfc_dialog = false;
 	};
 	nam = "Уолтер Рэдклифф";
 	disp = "Уолтер Рэдклифф";
 	entered = function(s)
         poff("on_anna", "on_walter", "on_atlantis", "on_drake", "on_black", "on_join", "talk");
         if (rel_walter < 0) then
             pon("talk");
         else
             if (char_walter.on_anna < 2) then
                 pon("on_anna");
                 pon("talk");
             end;
             if (char_walter.on_black < 2) then
                 pon("on_black");
                 pon("talk");
             end;
             if (char_walter.on_walter < 2) then
                 pon("on_walter");
                 pon("talk");
             end;
             if (char_walter.on_atlantis < 2) then
                 pon("on_atlantis");
                 pon("talk");
             end;
             if (char_walter.on_drake < 2) then
                 pon("on_drake");
                 pon("talk");
             end;
             if (char_walter.on_join < 2) then
                 pon("on_join");
                 pon("talk");
             end;
         end;
 		if (atl_lfc_state ~= 1) then
 			poff('sabotage', 'ignis_what');
 		end;
 		if (atl_lfc_state == 1 and not s.lfc_dialog) then
 			s.lfc_dialog = true;
 			pon('sabotage', 'ignis_what');
 		end;
 		if (s.state == 0) then
 			s.state = 1;
 			psub("first_meeting");
 			return [[
 				Перед вами стоит человек лет сорока--сорока-пяти, одетый в рабочий халат. Как только вы входите, он протягивает вам руку: "Добро пожаловать, господин Дрейк. Я - Уолтер Рэдклифф, инженер".
 			]];
 		else
 			psub("generic");
 			return [[
 				Уолтер Рэдклифф кивает вам: "Добрый день".
 			]];
 		end;
 	end;
 	phr = {
         {tag="questions"};
         {tag="on_black", "Что ты можешь сказать о Блэке?", function(s)
             char_walter.on_black = 2;
             return [[Уолтер пожимает плечами: "Что я могу сказать про него? Его не очень здесь любят, однако он, поверьте, вполне искренне радеет за благополучие нашей миссии". ]];
         end};
         {tag="on_walter", "Расскажи о себе.". function(s)
             char_walter.on_walter = 2;
             return [[]];
         end};
         {tag="on_anna", "Расскажи о своей сестре, Анне.", function(s)
             char_walter.on_anna = 2;
             if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
                 return [[Уолтер вздыхает: "Будь у меня выбор тогда, я ни за что не взял бы ее на Атлантиду. И жалел бы сейчас об этом. Не думаю, что на поверхности она стала бы той, кто она сейчас. Все-таки общество поглощенных своей работой людей накладывает определенный отпечаток, я думаю. Я все еще не уверен, что взять ее на Левиафан было хорошей идеей -- Бог знает, с чем мы столкнемся в наших странствиях, но она очень этого хотела". ]];
             else
                 return [[Уолтер вздыхает: "Будь у меня выбор тогда, я ни за что не взял бы ее на Атлантиду. И жалел бы сейчас об этом. Не думаю, что на поверхности она стала бы той, кто она сейчас. Все-таки общество поглощенных своей работой людей накладывает определенный отпечаток, я думаю. То, что она осталась на станции успокаивает меня, хотя она так рвалась в эту экспедицию вместе с нами". ]];
             end;
         end};
         {tag="on_drake", "Что ты можешь сказать о Дрейке?", function(s)
             char_walter.on_drake = 2;
             return [[Уолтер отвечает: "Не думаю, что скажу про него больше чем кто-то еще. Послушайте Райта, Моро, быть может Даркстара, хотя черт знает, что у этого типа на уме. Они скажут вам все и даже больше. "]];
         end};
         {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s)
             char_walter.on_atlantis = 2;
             return [[Уолтер отвечает: "Думаю только Райт и Уинтерлайт в полной мере осознают, насколько большим достижением для нас, для всего человечества, является постройка этой станции. Тем не менее, они, отчего-то, не спешат поделиться своими знаниями с другими. Не думаю, что сегодняшнее общество сможет по достоинству оценить новые возможности, даруемые этими технологиями. Да и что станет с навьярами? Вспомните Новый Свет, посмотрите на другие наши колонии -- хотите ли вы этого для Леарр и других?"]];
         end};
         {tag="quit", always=true, "Поговорим в другой раз. ", [[Уолтер кивает: "Хорошо".]], code [[pret();]]};
 		{tag = "first_meeting"};
 		{"[Пожать руку]Рад знакомству", [[
 			"Мы с Майклом вместе работали над Левиафаном. Многие решения в вашей субмарине - мои. Если вы не против, я хотел бы продолжить путешествие вместе с вами - во-первых - вам пригодится мой опыт, а во-вторых - я хочу увидеть Левиафан в деле".
 		]], code [[
 			rel_walter = rel_walter + 1;
 			psub("leviathan");
 		]]};
 		{"Рад знакомству", [[
 			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".
 		]], code [[
 			psub("generic");
 		]]};
 		{"[Промолчать]", [[
 			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".
 		]], code [[
 			rel_walter = rel_walter - 1;
 			psub("generic");
 		]]};
 		{tag = "leviathan"};
 		{"Интересно, и что вы можете рассказать о Левиафане?", [[
 			Уолтер снимает очки, убирая их в нагрудный карман: "Левиафан строился как Надежда - для дальних путешествий и максимальной автономности. После успеха предыдущих субмарин, Райт решил сделать Левиафан заметно больше предыдущих кораблей. Сверхмощная батарея обеспечивает субмарину энергией более месяца при максимальных оборотах двигателей. Также есть паровой двигатель - он используется не только для движения, но и генерирует электричество. До Левиафана мы не экспериментировали с этим".
 		]]};
 		{"Вы знаете, куда отправился мой отец отсюда?", [[
 			Уолтер отрицательно качает головой: "Не больше, чем остальные на станции".
 		]]};
 		{"Буду рад, если вы присоединитесь к нам", [[
 			"Отлично. Но вы ведь, еще поговорить хотите?"
 		]], code [[ psub("generic");]]};
 		{"Я не думаю, что вы поможете", [[
 			"Очень жаль. Впрочем, у вас есть время подумать. Насколько я знаю, Даркстар и Моро собираются держать вас здесь какое-то время".
 		]], code [[ psub("generic");]]};
 		{tag = "generic"};
         {tag="questions", always=true, "У меня есть несколько вопросов. ", function(s)
             if (rel_anna < 0) then
                 return [[Уолтер отрицательно качает головой: "Не сейчас, я занят". ]];
             else
                 psub("questions");
                 return [[Уолтер кивает: "Слушаю". ]];
             end;
         end};
 		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе - результат саботажа?", [[
 			"Безусловно. Системы энергоснабжения проектировал я и абсолютно уверен в их безопасности и надежности. Судя по тому, что произошло - кто-то весьма грамотный ,,доработал'' систему энергоснабжения Игниса. Я не думаю, что это мог быть один человек... Хотя если он делал это несколько дней - вполне вероятно. Как это сделать, кроме нас с Райтом знают только трое: Мишель Леруа, Чарльз Джонс и Мари Легран. И еще кое-что. Даркстар просил меня ни с кем про это не разговаривать, поэтому надеюсь на ваше понимание. Отдельно попрошу - не говорить на эту тему с моей сестрой".
 		]], code [[
 			rel_walter = rel_walter + 1;
 		]]};
 		{tag="ignis_what", false, "Вы, как инженер, можете рассказать, что произошло в Игнисе?", [[
 			"Пожар. Вам что-то еще известно?"
 		]]};
 		{"Я пойду", [[
 			"До встречи", - Уолтер отворачивается от вас и возвращается к своим делам.
 		]], code [[ back();]]};
 	};
 };
 char_page_dlg = dlg {
 	var {
 		state = 0;
 	};
 	nam = "Фрэнсис Пейдж";
 	disp = "Фрэнсис Пейдж";
 	entered = function(s)
 		if (atl_lfc_state ~= 1) then
 			poff('sabotage', 'ignis_what');
 		end;
 		if (atl_lfc_state == 1 and not s.lfc_dialog) then
 			s.lfc_dialog = true;
 			pon('sabotage', 'ignis_what');
 		end;
 		if (s.state == 0 ) then
 			s.state = 1;
 			psub("first_meeting");
 			return [[Перед вами стоит мужчина лет пятидесяти с густой седой бородой. Он бросает на вас быстрый взгляд и здоровается, продолжая осмотр Наутилуса: "Добро пожаловать на Атлантиду. Я Фрэнсис Пейдж. Я занимаюсь обслуживанием субмарин". ]];
 		else
 			psub("generic");
 			return [[Перед вами стоит Фрэнсис Пейдж. не отрываясь от осмотра Наутилуса он говорит: "Вы вернулись". ]];
 		end;
 	end;
 	phr = {
 		{tag="first_meeting"};
 		{"Дэвид Дрейк, рад знакомству", [[Фрэнсис на секунду отвлекается и внимательно смотрит на вас: "Да, я замечаю сходство с Уильямом". ]], code [[ psub("first_meeting_2"); ]]};
 		{tag="first_meeting_2"};
 		{"Вы хорошо знали отца?", [[Фрэнсис кивает: "Я уважаю его, как, думаю, все на этой станции. Пожертвовать всем ради призрачной мечты - только великий человек мог пойти на такое. Он отправился на поиски легендарного города древних навьяров. К сожалению, я не смог отправиться с ним - я нужен на станции. Я знаю что вы здесь из-за него и я надеюсь, что вы не оставите вашу идею найти Уильяма и доведете свое дело до конца". ]], code [[ psub("generic"); ]]};
 		{"У меня к вам несколько вопросов", [["Слушаю". ]], code [[ psub("generic"); ]]};
 		{tag="generic"};
 		{tag="sabotage", false, "Вы знаете, что пожар в Игнисе - следствие саботажа?", function(s)
 			atl_lfc_panic = atl_lfc_panic + 1;

party.lua

➞

Show inline comments

@@ @@ -35,96 +35,103 @@ char_learr = obj { @@
 		if (stead.nameof(where(s)) == s.home) then
 			return [[{Леарр} стоит возле одного из иллюминаторов и наблюдает за происходящим снаружи субмарины. ^]];
 		else
 			return [[{Леарр} ждет ваших указаний. ^]];
 		end;
 	end;
 	home = "leviathan_wardroom";
 	accompany = party_accompany;
 	life = party_follow;
 	act = function(s)
 		if (stead.nameof(where(s)) == s.home) then
 			walkin(learr_home_dlg);
 		else
 			walkin(learr_dlg);
 		end;
 	end;
 };
 char_phaetlarr = obj {
 	var {
 		follow = false;
 	};
 	nam = "phaetlarr";
 	disp = "Фаэтларр";
 	dsc = function(s)
 		if (stead.nameof(where(s)) == s.home) then
 			return [[{Фаэтларр} с интересом наблюдает за работой двигателей "Левиафана" ^]];
 		else
 			return [[{Фаэтларр} ждет ваших указаний. ^]];
 		end;
 	end;
 	home = "leviathan_engines";
 	accompany = party_accompany;
 	life = party_follow;
 	act = function(s)
 		if (stead.nameof(where(s)) == s.home) then
 			walkin(phaetlarr_home_dlg);
 		else
 			walkin(phaetlarr_dlg);
 		end;
 	end;
 };
 char_radcliffe = obj {
 	var {
 		follow = false;
         rel_on_join = nil;
         on_walter = 0;
         on_atlantis = 0;
         on_black = 0;
         on_drake = 0;
         on_anna = 0;
         on_join = 0;
 	};
 	nam = "radcliffe";
 	disp = "Уолтер Рэдклифф";
 	dsc = function(s)
 		if (stead.nameof(where(s)) == s.home) then
 			return [[{Уолтер Рэдклифф} задумчиво крутит в руках какую-то деталь. ^]];
 		else
 			return [[{Уолтер Рэдклифф} ждет ваших указаний. ^]];
 		end;
 	end;
 	home = "leviathan_engines";
 	accompany = party_accompany;
 	life = party_follow;
 	act = function(s)
 		if (stead.nameof(where(s)) == s.home) then
 			walkin(radcliffe_home_dlg);
 		else
 			walkin(radcliffe_dlg);
 		end;
 	end;
 };
 char_wright = obj {
 	var {
 		follow = false;
         iof_reaction = 0;
         on_learr = 0;
         on_leviathan = 0;
 	};
 	nam = "wright";
 	disp = "Джек Райт";
 	dsc = function(s)
 		if (stead.nameof(where(s)) == s.home) then
 			return [[{Джек Райт} читает какую-то книгу. ^]];
 		else
 			return [[{Джек Райт} ждет ваших указаний. ^]];
 		end;
 	end;
 	home = "leviathan_wardroom";
 	accompany = party_accompany;
 	life = party_follow;
 	act = function(s)
 		walkin(wright_main_dlg);
 	end;
 };
@@ @@ -217,119 +224,179 @@ phaetlarr_home_dlg = dlg { @@
 	nam = "phaetlarr_dlg";
 	disp = "Фаэтларр";
 	hideinv = true;
 	entered = function(s)
 		if (char_phaetlarr.follow) then
 			pon('stay');
 			poff('join');
 		else
 			pon('join');
 			poff('stay');
 		end;
 		return [[
 			Фаэтларр ждет ваших указаний
 		]];
 	end;
 	phr = {
 		{ tag = "join", always = "true", "Я хочу, чтобы ты пошел со мной в следующий раз", "Хорошо",
 			function()
 				char_learr:accompany(false);
 				char_phaetlarr:accompany(true);
 				char_radcliffe:accompany(false);
 				char_wright:accompany(false);
 				char_anna:accompany(false);
 				poff('join');
 				pon('stay');
 			end;
 		};
 		{ tag = "stay", always = "true", "Оставайся на Левиафане", "Хорошо",
 			function()
 				char_phaetlarr.accompany(char_phaetlarr, false);
 				pon('join');
 				poff('stay');
 			end;
 		};
 		{ tag = "exit", always = "true", "Это все", "Хорошо",
 			function()
 				back();
 			end;
+		}
 	};
 };
 radcliffe_home_dlg = dlg {
 	nam = "radcliffe_dlg";
 	disp = "Уолтер Рэдклифф";
 	hideinv = true;
 	entered = function (s)
         poff("on_anna", "on_walter", "on_atlantis", "on_drake", "on_black", "on_join", "talk");
         if (rel_walter < 0) then
             pon("talk");
         else
             if (char_walter.on_anna < 2) then
                 pon("on_anna");
                 pon("talk");
             end;
             if (char_walter.on_black < 2) then
                 pon("on_black");
                 pon("talk");
             end;
             if (char_walter.on_walter < 2) then
                 pon("on_walter");
                 pon("talk");
             end;
             if (char_walter.on_atlantis < 2) then
                 pon("on_atlantis");
                 pon("talk");
             end;
             if (char_walter.on_drake < 2) then
                 pon("on_drake");
                 pon("talk");
             end;
             if (char_walter.on_join < 2) then
                 pon("on_join");
                 pon("talk");
             end;
         end;
 		if (atl_iyh_state == 7) then
 			pon("on_iyh");
 		else
 			poff("on_iyh");
 		end;
 		if (char_radcliffe.follow) then
 			pon('stay');
 			poff('join');
 		else
 			pon('join');
 			poff('stay');
 		end;
         psub("generic");
 		return [[
 			Уолтер задумчиво смотрит на вас
 		]];
 		return [[Уолтер задумчиво смотрит на вас. ]];
 	end;
 	phr = {
         {tag="questions"};
         {tag="on_black", "Что ты можешь сказать о Блэке?", function(s)
             char_walter.on_black = 2;
             return [[Уолтер пожимает плечами: "Что я могу сказать про него? Его не очень здесь любят, однако он, поверьте, вполне искренне радеет за благополучие нашей миссии". ]];
         end};
         {tag="on_walter", "Расскажи о себе.". function(s)
             char_walter.on_walter = 2;
             return [[]];
         end};
         {tag="on_anna", "Расскажи о своей сестре, Анне.", function(s)
             char_walter.on_anna = 2;
             if (ArrayUtils.indexOf(pl.party, 'anna') ~= 0) then
                 return [[Уолтер вздыхает: "Будь у меня выбор тогда, я ни за что не взял бы ее на Атлантиду. И жалел бы сейчас об этом. Не думаю, что на поверхности она стала бы той, кто она сейчас. Все-таки общество поглощенных своей работой людей накладывает определенный отпечаток, я думаю. Я все еще не уверен, что взять ее на Левиафан было хорошей идеей -- Бог знает, с чем мы столкнемся в наших странствиях, но она очень этого хотела". ]];
             else
                 return [[Уолтер вздыхает: "Будь у меня выбор тогда, я ни за что не взял бы ее на Атлантиду. И жалел бы сейчас об этом. Не думаю, что на поверхности она стала бы той, кто она сейчас. Все-таки общество поглощенных своей работой людей накладывает определенный отпечаток, я думаю. То, что она осталась на станции успокаивает меня, хотя она так рвалась в эту экспедицию вместе с нами". ]];
             end;
         end};
         {tag="on_drake", "Что ты можешь сказать о Дрейке?", function(s)
             char_walter.on_drake = 2;
             return [[Уолтер отвечает: "Не думаю, что скажу про него больше чем кто-то еще. Послушайте Райта, Моро, быть может Даркстара, хотя черт знает, что у этого типа на уме. Они скажут вам все и даже больше. "]];
         end};
         {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s)
             char_walter.on_atlantis = 2;
             return [[Уолтер отвечает: "Думаю только Райт и Уинтерлайт в полной мере осознают, насколько большим достижением для нас, для всего человечества, является постройка этой станции. Тем не менее, они, отчего-то, не спешат поделиться своими знаниями с другими. Не думаю, что сегодняшнее общество сможет по достоинству оценить новые возможности, даруемые этими технологиями. Да и что станет с навьярами? Вспомните Новый Свет, посмотрите на другие наши колонии -- хотите ли вы этого для Леарр и других?"]];
         end};
         {tag="quit", always=true, "Поговорим в другой раз. ", [[Уолтер кивает: "Хорошо".]], code [[pret();]]};
         {tag="generic"};
 		{tag="on_iyh", always=true, "Что ты можешь рассказать мне о храме?", [[
 			"Возможно, мы сможем разрушить вход в храм. Однако я не знаю, как навьяры на это отреагируют. "
 		]]};
         {tag="questions", always=true, "У меня есть несколько вопросов. ", function(s)
             if (rel_anna < 0) then
                 return [[Уолтер отрицательно качает головой: "Не сейчас, я занят". ]];
             else
                 psub("questions");
                 return [[Уолтер кивает: "Слушаю". ]];
             end;
         end};
 		{tag="on_iyh", always=true, "Что ты можешь рассказать мне о храме?", [[Уолтер пожимает клечами: "Возможно, мы сможем разрушить вход в храм. Однако я не знаю, как навьяры на это отреагируют". ]]};
 		{tag="join", always=true, "Я хочу, чтобы ты пошел со мной в следующий раз", "Хорошо",
 			function()
 				if (submarine_leviathan.suits > 1) then
 					char_learr:accompany(false);
 					char_phaetlarr:accompany(false);
 					char_radcliffe:accompany(true);
 					char_wright:accompany(false);
 					char_anna:accompany(false);
 					pon('stay');
 					poff('join');
 					return [[Я готов]];
 				else
 					-- TODO сообщать это только если в партии есть навьяры
 					return [[У нас не хватит оборудования. Лучше возьми кого-нибудь из навьяров]];
 				end;
 			end;
 		};
 		{tag="stay", always="true", "Оставайся на Левиафане", "Хорошо",
 			function()
 				char_radcliffe.accompany(char_radcliffe, false);
 				pon('join');
 				poff('stay');
 			end;
 		};
 		{tag="exit", always="true", "Это все", "Хорошо",
 			function()
 				back();
 			end;
 		};
 	};
 };
 wright_main_dlg = dlg {
 	nam = "wright_main_dlg";
 	disp = "Джек Райт";
 	entered = function(s)
 		if (atl_iyh_state == 7) then
 			pon("on_iyh");
 		else
 			poff("on_iyh");
 		end;
 		if (char_wright.follow) then
 			pon('stay');
 			poff('join');
 		else
 			pon('join');
 			poff('stay');

0 comments (0 inline, 0 general)