party_accompany = function(s, value) if (ArrayUtils.indexOf(pl.party, s.nam) == 0) then return; end; s.follow = value; if (value) then lifeon(s); else move(s, s.home, where(s)); lifeoff(s); end; end; party_follow = function(s) if (where(pl).cutscene or where(pl).not_follow) then elseif (where(pl).leviathan) then if (stead.nameof(where(s)) ~= s.home) then move(s, s.home, where(s)); end; else move(s, where(pl), where(s)); end; end; -- TODO больше отвлеченных диалогов, дабы было о чем поговорить с сопартийцами. Не стоит делать их деревянными безжизненными манекенами char_learr = obj { var { follow = false; on_books = 0; }; nam = "learr"; 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) 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; }; 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; }; char_anna = obj { var { follow = false; anna_asked = 0; walter_asked = 0; atlantis_asked = 0; drake_asked = 0; join_asked = 0; rel_on_join = nil; }; nam = "anna"; 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) if (stead.nameof(where(s)) == s.home) then walkin(anna_home_dlg); else walkin(anna_dlg); end; end; }; learr_home_dlg = dlg { nam = "learr_dlg"; disp = "Леарр"; hideinv = true; entered = function(s) if (atl_iyh_state == 7) then pon("on_iyh"); else poff("on_iyh"); end; if (char_learr.follow) then pon('stay'); poff('join'); else pon('join'); poff('stay'); end; return [[ Леарр вопросительно смотрит на вас ]]; end; phr = { { tag = "on_iyh", always = true, "Что ты можешь рассказать мне о храме?", [[ "Каждый-храм два-входа-имеет. Большой-главный-вход далеко-виден. Тайный-задний-вход незаметен-но-всегда-есть. Мы давно-потеряли дорогу-к-этому-святилищу и задний-вход-не-помним. Если мы задний-вход-найдем, то обманим затмевающего-свет и в-храм-проникнем". ]]}; { tag = "join", always = true, "Я хочу, чтобы ты пошла со мной в следующий раз", "Хорошо", function() char_learr:accompany(true); char_phaetlarr:accompany(false); char_radcliffe:accompany(false); char_wright:accompany(false); char_anna:accompany(false); pon('stay'); poff('join'); end; }; { tag = "stay", always = "true", "Оставайся на Левиафане", "Хорошо", function() char_learr.accompany(char_learr, false); poff('stay'); pon('join'); end; }; { tag = "exit", always = "true", "Это все", "Хорошо", function() back(); end; } }; }; 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) 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; return [[ Уолтер задумчиво смотрит на вас ]]; end; phr = { {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 = "Джек Райт"; hideinv = true; 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'); end; return [[ Джек ждет ваших указаний ]]; end; phr = { {tag="on_iyh", always=true, "Что ты можешь рассказать мне о храме?", [[Джек Райт задумчиво произносит: "Возможно получится выманить ската, если направить прожектор на вход храма..." Немного подумав, он добавляет: "Другое дело, что при этом он, скорее всего, атакует Левиафан. "]]}; {tag="join", always="true", "Я хочу, чтобы ты пошел со мной в следующий раз.", [[Джек Райт отвечает: "Хорошо". ]], code [[ char_learr:accompany(false); char_phaetlarr:accompany(false); char_radcliffe:accompany(false); char_wright:accompany(true); char_anna:accompany(false); pon('stay'); poff('join'); ]]}; {tag="stay", always="true", "Оставайся на Левиафане.", [[Джек Райт отвечает: "Хорошо". ]], code [[ char_wright:accompany(false); pon('join'); poff('stay'); ]]}; {tag="exit", always="true", "Это все.", [[Джек Райт отвечает: "Хорошо". ]], code [[ back(); ]]}; }; }; anna_home_dlg = dlg { nam = "anna_home_dlg"; disp = "Анна Рэдклифф"; hideinv = true; entered = function(s) if (atl_iyh_state == 7) then pon("on_iyh"); else poff("on_iyh"); end; poff("on_anna", "on_walter", "on_atlantis", "on_drake", "on_join", "talk"); if (rel_anna < 0) then pon("talk"); else if (char_anna.anna_asked < 2) then pon("on_anna"); pon("talk"); end; if (char_anna.walter_asked < 2) then pon("on_walter"); pon("talk"); end; if (char_anna.atlantis_asked < 2) then pon("on_atlantis"); pon("talk"); end; if (char_anna.drake_asked < 2) then pon("on_drake"); pon("talk"); end; if (char_anna.join_asked < 2) then pon("on_join"); pon("talk"); end; end; if (char_anna.follow) then pon('stay'); poff('join'); else pon('join'); poff('stay'); end; return [[ Анна ждет ваших указаний ]]; end; phr = { {tag="talk", false, "Мы можем поговорить?", function(s) if (rel_anna < 0) then return [[Анна отрицательно качает головой: "Не сейчас". ]]; else psub("talk_more"); 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(false); char_wright:accompany(false); char_anna:accompany(true); pon('stay'); poff('join'); return [[Я готова]]; else -- TODO сообщать это только если в партии есть навьяры return [[У нас не хватит оборудования. Лучше возьми кого-нибудь из навьяров]]; end; end; }; { tag = "stay", always = "true", "Оставайся на Левиафане", "Хорошо", function() char_anna:accompany(false); pon('join'); poff('stay'); end; }; { tag = "exit", always = "true", "Это все", "Хорошо", function() back(); end; }; { tag = "talk_more"}; {tag="on_anna", "Расскажи о себе. ", function(s) char_anna.anna_asked = 2; return [[Анна Рэдклифф грустно вздыхает: "Мне почти нечего рассказывать. Я с молодости живу здесь, на Атлантиде. Когда Уолтер сказал, что мы будем жить здесь, я сперва расстроилась -- тогда это казалось мне невероятно скучным -- жить вдалеке от цивилизации, среди людей, которые старше меня на двадцать с лишним лет. На самом деле все оказалось не столь плохо -- здесь есть навьяры. Когда они заняты -- я сижу в библиотеке, с Мари, или смотрю фильмы в Игнисе". ]]; end}; {tag="on_walter", "Расскажи об Уолтере. ", function(s) char_anna.walter_asked = 2; return [[Анна Рэдклифф отвечает: "Уолтер -- мой старший брат. Он заботится обо мне с тех пор, как мама с папой покинули нас. Хотя моя жизнь сильно изменилась, когда Уолтер забрал меня с собой на Атлантиду, я не жалею об этом". ]]; end}; {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s) char_anna.on_atlantis = 2; return [[Анна Рэдклифф отвечает: "Последние десять лет я живу здесь, на Атлантиде. Я хорошо помню, как расстроена я была, приехав сюда. Конечно, я не думала, что мы все проведем здесь лет десять. Мне казалось, что уже через полгода-год мы вернемся на поверхность, но намерения вашего отца сильно отличались от этого. Потом Екатерина и Сильвия познакомили меня с Телнеарром и Хетеарром -- двумя навьярами, которые первыми жили на станции. Потом Хетеарр вернулся домой, а вместо него на станцию прибыл Ривеерр. А затем покинул станцию и Телнеарр. Его заменила Леарр". ]]; end}; {tag="on_drake", "Расскажи об Уильяме Дрейке. ", function(s) char_anna.on_drake = 2; return [[Анна Рэдклифф отвечает: "Хотя Дрейк -- руководитель Атлантиды, он проводит больше времени здесь, в Окулусе, чем в своем кабинете в Доминусе. Сейчас он в экспедиции -- они с Блэком отправились на поиски отдаленных навьярских поселений". ]]; end}; {tag="on_join", "Почему ты решила присоединиться к нам?", function(s) char_anna.on_join = 2; if (char_anna.rel_on_join >= 0) then return [[Анна Рэдклифф отвечает: "". ]]; elseif (char_walter.rel_on_join >= 0) then return [[Анна Рэдклифф отвечает: "". ]]; else return [[Анна Рэдклифф отвечает: "". ]]; end; end}; }; };