diff --git a/atlantis.lua b/atlantis.lua --- a/atlantis.lua +++ b/atlantis.lua @@ -122,10 +122,12 @@ atl_aqua_leviathan_dock = room { char_radcliffe:accompany(false); char_anna:accompany(false); char_wright:accompany(false); + char_phaetlarr:accompany(false); if (not s.visited) then s.visited = true; walk(atlantis_intro_dock); end; + if (atl_iyh_state == 8) then atl_iyh_state = 9; if atl_iyh_shockfish_dead then @@ -135,6 +137,8 @@ atl_aqua_leviathan_dock = room { else walk('iyh_outro_learr'); end; + elseif atl_iyh_state == 10 and ArrayUtils.indexOf(pl.party, 'anna') == 0 and atl_lev_anna_dlg.state == 0 then + walk('atl_lev_anna_dlg') end; end; dsc = [[Просторное помещение, предназнавенное для размещения субмарин, прибывающих на станцию. В настоящий момент в этом доке расположен Левиафан. Под потолком, на высоте примерно в пять метров укреплены балки, по которым могут перемещаться крюки подъемных кранов. Снизу, под водой, огромный люк закрывает доступ внутрь дока. Несколько легких подвижных мостиков находятся на поверхности воды. ]]; diff --git a/atlantis_dlg.lua b/atlantis_dlg.lua --- a/atlantis_dlg.lua +++ b/atlantis_dlg.lua @@ -1911,12 +1911,8 @@ atl_lev_radcliffe_dlg = dlg { ]]}; {tag="sister"}; {"Я не думаю, что ей место на Левиафане -- экспедиция может быть опасна.", function(s) - if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then - walk(atl_lev_first_sail); - return [["Вы правы, Анне будет безопаснее остаться на Атлантиде. Я знаю, что с вами отправляется Леарр, которая достаточно хорошо знает наш язык, так что я надеюсь, что мы справимся без помощи моей сестры. Я скоро вернусь", -- с этими словами он выходит из дока. ]]; - else - return [["Я хотел бы, чтобы Анна отправилась с нами -- я лично позабочусь о ее безопасности, а вам понадобится человек, долгое время посвятивший изучению культуры навьяров". ]]; - end; + walk(atl_lev_first_sail); + return [["Вы правы, Анне будет безопаснее остаться на Атлантиде. Я знаю, что с вами отправляется Леарр, которая достаточно хорошо знает наш язык, так что я надеюсь, что мы справимся без помощи моей сестры. Я скоро вернусь", -- с этими словами он выходит из дока. ]]; end}; {"Хорошо, ее помощь нам не помешает.", [["Отлично, мы скоро будем готовы", -- с этим словами он выходит из дока. ]], [[ table.insert(pl.party, 'anna'); @@ -1924,4 +1920,44 @@ atl_lev_radcliffe_dlg = dlg { walk(atl_lev_first_sail); ]]}; }; -}; \ No newline at end of file +}; + +atl_lev_anna_dlg = dlg { + var { + state = 0; + }; + nam = 'Анна Рэдклифф'; + entered = function(s) + s.state = 1; + if char_anna_atlantis_dlg.state == 0 then + return [[В доке Левиафана вас встречает девушка лет двадцати-пяти--тридцати. Каштановые волосы ниспадают на плечи. Зеленые глаза пристально смотрят на вас. Она подходит к вам и вежливо просит: "Господин Дрейк, вы меня не знаете, но знаете моего брата Уолтера. Мое имя Анна и я хотела бы присоединиться к вашей экспедиции. Я очень надеюсь, что мой опыт общения с навьярами окажется полезным". ]]; + else + return [[В доке Левиафана вас встречает Анна Рэдклифф. Она подходит к вам и вежливо просит: "Господин Дрейк, позвольте мне присоединиться к вашей экспедиции. Я очень надеюсь, что мой опыт общения с навьярами окажется полезным". ]]; + end; + end; + phr = { + {"Добро пожаловать на борт Левиафана", function(s) + table.insert(pl.party, 'anna'); + move(char_anna, char_anna.home); + pr [[Анна поднимается вместе с вами на борт субмарины. ]]; + walk(leviathan_wardroom); + end}; + {"Вам лучше остаться на Атлантиде. Экспедиция может оказаться опасной. ", function(s) + if ArrayUtils.indexOf(pl.party, 'learr') ~= 0 then + pr [[Анна разочаровано произносит: "Да, я понимаю. Удачи вам в вашем путешествии". ]]; + walk(leviathan_wardroom); + else + return [[Анна отвечает: "Вам на борту нужен кто-то кто разбирается в культуре и языке навьяров". ]]; + end; + end}; + {"Вам лучше остаться на Атлантиде. Нам не нужны еще люди. ", function(s) + if ArrayUtils.indexOf(pl.party, 'learr') ~= 0 then + pr [[Анна молча уходит. ]]; + walk(leviathan_wardroom); + else + rel_anna = rel_anna - 1; + return [[Анна отвечает: "Вам на борту нужен кто-то кто разбирается в культуре и языке навьяров". ]]; + end; + end}; + } +} \ No newline at end of file