global { za_convoy_gone = false; }; za_gate_foot = room { nam = "Вход в Нлейисланотр"; handwheel_room = "za_gate"; underwater = true; no_exit = [[ Нет смысла покидать Левиафан здесь. ]]; view = [[ Через иллюминаторы вы видите перед собой высокие металлические ворота Нлейисланотра. С обеих сторон от них стоят две смотровые башни, на вершинах которых горят красные огоньки. ]]; }; za_gate = dlg { var { state = 0; }; nam = "Левиафан, рубка"; entered = function(s) if (s.state == 0) then s.state = 1; if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then psub("learr"); return [[ Как только Левиафан приближается к городу, массивные металлические ворота начинают закрываться. Огни на башнях окрашиваются красным, а по всему городу начинается какое-то волнение. В рубку поднимается Леарр. Она встает рядом с вами и, окидывая взглядом город, произносит: "Мы туда-не-идем. Они не-пускают-нас". ]]; else psub("anna"); return [[ Как только Левиафан приближается к городу, массивные металлические ворота начинают закрываться. Огни на башнях окрашиваются красным, а по всему городу начинается какое-то волнение. В рубку поднимается Анна. Она встает рядом с вами и, окидывая взглядом город, произносит: "Кажется, нам здесь не рады". ]]; end; else psub("control"); return [[ Левиафан находится перед массивными металлическими воротами Нлейисланотра. Огни на башнях горят ярко-красным, сообщая вам что пути нет. ]]; end; end; phr = { {tag="learr"}; {"[Остановить субмарину]И что нам делать?", [[ Леарр пожимает плечами: "Мы незаметными-пройти-должны. Сильнее-они так-как много-их". ]], code [[ psub("control"); ]]}; {"[Продолжать движение]Попробуем преподать им урок", code = [[ walk("game_over_za_learr"); ]]}; {tag="anna"}; {"[Остановить субмарину]И что нам делать?", [[ Анна пожимает плечами: "Понятия не имею". ]], code [[ psub("control"); ]]}; {"[Продолжать движение]Попробуем преподать им урок", code = [[ walk("game_over_za_anna"); ]]}; {tag="control"}; {always = true, "[Проплыть над воротами]", code = [[ if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then walk("game_over_za_learr"); else walk("game_over_za_anna"); end; ]]}; {always = true, "[Двигаться вдоль стен]", code = [[ move(submarine_leviathan, "za_crack_foot"); walk("za_crack"); ]]}; {always = true, "[Отправиться в другое место]", code = [[ walk("leviathan_handwheel"); ]]}; {always = true, "[Отойти от штурвала]", code = [[ walk("leviathan_wheelhouse"); ]]}; }; }; za_crack_foot = room { nam = "Вход в Нлейисланотр"; handwheel_room = "za_crack"; underwater = true; dsc = [[ Перед вами возвышается каменная стена древнего города. Через широкую трещину в ней вы вполне можете попытаться попасть на другую сторону. ]]; view = [[ Через иллюминаторы вы видите высокие стены Нлейисланотра. Мощный луч прожектора освещает едва заметную трещину в стене. Быть может, вы сможете незаметно пробраться через нее в город. ]]; way = { kh_vroom("В Левиафан", leviathan_airlock); kh_vroom("В трещину", "za_crack_inside"); }; }; za_crack = dlg { nam = "Левиафан, рубка"; entered = [[ Левиафан находится у стены Нлейисланотра. Огни на башнях погашены, сообщая что навьяры скорее всего не придают значения вашему присутствию. ]]; phr = { {always = true, "[Вернуться к воротам]", code = [[ move(submarine_leviathan, "za_gate_foot"); walk("za_gate"); ]]}; {always = true, "[Отправиться в другое место]", code = [[ walk("leviathan_handwheel"); ]]}; {always = true, "[Отойти от штурвала]", code = [[ walk("leviathan_wheelhouse"); ]]}; }; }; za_convoy_route = { "za_cross_6", "za_street_11", "za_cross_5", "za_street_13", "za_cross_24", "za_street_15", "za_cross_7", "za_street_16", "za_cross_8", "za_street_22", "za_cross_11", "za_street_23", "za_cross_12", "za_street_41", "za_cross_22", "za_street_42", "za_cross_23", "za_street_44", "za_cross_15", "za_street_27", "za_prison_entrance", "za_prison" }; za_convoy = { position = null; direction = 'za_cross_6'; index = 1; life = function(s) local loc = stead.deref(here()); for i = 1, #za_convoy_messages do if (za_convoy_messages[i][1] == loc and za_convoy_messages[i][2] == za_convoy.position) then pr(za_convoy_messages[i][3]); end; end; if (za_convoy.index > #za_convoy_route) then --TODO Конвой ушол za_convoy_gone = true; timer:stop(); game.timer = nil; lifeoff(za_convoy); else za_convoy.direction = za_convoy_route[za_convoy.index]; if (loc == za_convoy.position) then --TODO Бой начинается timer:stop(); game.timer = nil; lifeoff(za_convoy); enter(za_phaetlarr_fight_intro); end; end; end; }; za_convoy_messages = { --here--new_position--message-- {"za_street_12", "za_cross_6", "Конвой выходит на перекресток к северу от вас. Навьяры поворачивают в противоположную от вас сторону и продолают свой путь. "}, {"za_street_11", "za_cross_6", "Конвой выходит на перекресток к северу от вас. Навьяры поворачивают в вашу сторону и продолают свой путь. "}, {"za_street_12", "za_street_11", "Конвой удаляется на север. "}, {"za_cross_6", "za_street_11", "Конвой движется на север. "}, {"za_cross_5", "za_street_11", "Конвой приближается к вам. "}, {"za_cross_6", "za_cross_5", "Конвой удаляется на север. "}, {"za_street_11", "za_cross_5", "Конвой движется на север. "}, {"za_street_10", "za_cross_5", "Конвой приближается к вам. "}, {"za_street_13", "za_cross_5", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_10", "za_street_13", "Конвой сворачивает на улицу к западу. "}, {"za_street_11", "za_street_13", "Конвой сворачивает на улицу к западу. "}, {"za_cross_24", "za_street_13", "Конвой приближается к вас с востока. "}, {"za_street_14", "za_cross_24", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_15", "za_cross_24", "Конвой выходит на перекресток к северу от вас. "}, {"za_street_14", "za_street_15", "Конвой удаляется от вас на юг. "}, {"za_cross_24", "za_street_15", "Конвой движется от вас на юг. "}, {"za_cross_7", "za_street_15", "Конвой приближается к вас с севера. "}, {"za_deadend_3n", "za_cross_7", "Конвой выходит на перекресток к северу от вас. "}, {"za_cross_24", "za_cross_7", "Конвой удаляется на юг. "}, {"za_street_15", "za_cross_7", "Конвой движется на юг. "}, {"za_street_16", "za_cross_7", "Конвой выходит на перекресток к востоку от вас. "}, {"za_deadend_3n", "za_street_16", "Конвой уходит на запад. "}, {"za_street_15", "za_street_16", "Конвой уходит на запад. "}, {"za_cross_7", "za_street_16", "Конвой уходит на запад. "}, {"za_cross_8", "za_street_16", "Конвой приближается с востока. "}, {"za_street_17", "za_cross_8", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_22", "za_cross_8", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_16", "za_cross_8", "Конвой уходит на запад. "}, {"za_cross_7", "za_cross_8", "Конвой удаляется на запад. "}, {"za_cross_7", "za_street_22", "Конвой удаляется на запад. "}, {"za_street_16", "za_street_22", "Конвой движется на запад. "}, {"za_street_17", "za_street_22", "Конвой движется на запад. "}, {"za_cross_11", "za_street_22", "Конвой приближается с востока. "}, {"za_cross_8", "za_cross_11", "Конвой удаляется на запад. "}, {"za_street_22", "za_cross_11", "Конвой движется на запад. "}, {"za_street_21", "za_cross_11", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_36", "za_cross_11", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_23", "za_cross_11", "Конвой выходит на перекресток к северу от вас. "}, {"za_street_22", "za_street_23", "Конвой движется на юг. "}, {"za_street_21", "za_street_23", "Конвой удаляется на юг. "}, {"za_street_36", "za_street_23", "Конвой движется на юг. "}, {"za_cross_11", "za_street_23", "Конвой движется на юг. "}, {"za_cross_12", "za_street_23", "Конвой приближается с севера. "}, {"za_cross_11", "za_cross_12", "Конвой удаляется на юг. "}, {"za_street_23", "za_cross_12", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_46", "za_cross_12", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_24", "za_cross_12", "Конвой выходит на перекресток к западу от вас. "}, {"za_street_41", "za_cross_12", "Конвой выходит на перекресток к северу от вас. "}, {"za_street_23", "za_street_41", "Конвой удаляется на юг. "}, {"za_cross_12", "za_street_41", "Конвой движется на юг. "}, {"za_street_46", "za_street_41", "Конвой движется на юг. "}, {"za_street_24", "za_street_41", "Конвой движется на юг. "}, {"za_cross_22", "za_street_41", "Конвой приближается с севера. "}, {"za_cross_12", "za_cross_22", "Конвой удаляется на юг. "}, {"za_street_41", "za_cross_22", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_45", "za_cross_22", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_42", "za_cross_22", "Конвой выходит на перекресток к западу от вас. "}, {"za_street_40", "za_cross_22", "Конвой выходит на перекресток к северу от вас. "}, {"za_street_41", "za_street_42", "Конвой движется на восток. "}, {"za_street_40", "za_street_42", "Конвой движется на восток. "}, {"za_cross_22", "za_street_42", "Конвой движется на восток. "}, {"za_street_45", "za_street_42", "Конвой удаляется на восток. "}, {"za_cross_23", "za_street_42", "Конвой приближается с запада. "}, {"za_cross_22", "za_cross_23", "Конвой удаляется на восток. "}, {"za_street_42", "za_cross_23", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_43", "za_cross_23", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_44", "za_cross_23", "Конвой выходит на перекресток к западу от вас. "}, {"za_street_42", "za_street_44", "Конвой удаляется на восток. "}, {"za_cross_23", "za_street_44", "Конвой движется на восток. "}, {"za_street_43", "za_street_44", "Конвой движется на восток. "}, {"za_cross_15", "za_street_44", "Конвой приближается с запада. "}, {"za_cross_23", "za_cross_15", "Конвой удаляется на восток. "}, {"za_street_44", "za_cross_15", "Конвой выходит на перекресток к востоку от вас. "}, {"za_street_26", "za_cross_15", "Конвой выходит на перекресток к югу от вас. "}, {"za_street_35", "za_cross_15", "Конвой выходит на перекресток к северу от вас. "}, {"za_street_27", "za_cross_15", "Конвой выходит на перекресток к западу от вас. "}, {"za_street_44", "za_street_27", "Конвой удаляется на восток. "}, {"za_cross_15", "za_street_27", "Конвой движется на восток. "}, {"za_street_26", "za_street_27", "Конвой движется на восток. "}, {"za_street_35", "za_street_27", "Конвой движется на восток. "}, {"za_prison_entrance", "za_street_27", "Конвой приближается с запада. "}, {"za_cross_15", "za_prison_entrance", "Конвой удаляется на восток. "}, {"za_street_27", "za_prison_entrance", "Конвой приближается ко входу в здание. "}, {"za_deadend_2s", "za_prison_entrance", "Конвой приближается ко входу в здание к югу от вас. "}, {"za_street_28", "za_prison_entrance", "Конвой приближается ко входу в здание. "}, {"za_street_27", "za_prison", "Двери здания мгновенно раскрываются, впуская навьяров, после чего столь же быстро закрываются. "}, {"za_deadend_2s", "za_prison", "Двери здания мгновенно раскрываются, впуская навьяров, после чего столь же быстро закрываются. "}, {"za_street_28", "za_prison", "Двери здания мгновенно раскрываются, впуская навьяров, после чего столь же быстро закрываются. "} }; za_timer = function() local loc = stead.deref(here()); za_convoy.index = za_convoy.index + 1; za_convoy.position = za_convoy.direction; for i = 1, #za_convoy_messages do if (za_convoy_messages[i][1] == loc and za_convoy_messages[i][2] == za_convoy.position) then pr(za_convoy_messages[i][3]); end; end; if (za_convoy.index > #za_convoy_route) then --TODO Конвой ушол print("Konvoy left"); timer:stop(); game.timer = nil; lifeoff(za_convoy); else za_convoy.direction = za_convoy_route[za_convoy.index]; if (loc == za_convoy.position) then --TODO Бой начинается timer:stop(); game.timer = nil; lifeoff(za_convoy); enter(za_phaetlarr_fight_intro); end; end; end; za_alley = inherit(room, function(s) if (not s.disp) then s.disp = "Нлейисланотр, проулок"; end; if (not s.dsc) then s.dsc = [[ Вы находитесь посреди узкого проулка где-то в Нлейисланотре. ]]; end; return s; end); za_street = inherit(room, function(s) if (not s.disp) then s.disp = "Нлейисланотр, улица"; end; if (not s.dsc) then s.dsc = [[ Вы находитесь посреди улицы где-то в Нлейисланотре. ]]; end; return s; end); za_deadend = inherit(room, function(s) if (not s.disp) then s.disp = "Нлейисланотр, тупик"; end; if (not s.dsc) then s.dsc = [[ Вы находитесь в тупике где-то в Нлейисланотре. ]]; end; return s; end); za_cross = inherit(room, function(s) if (not s.disp) then s.disp = "Нлейисланотр, перекресток"; end; if (not s.dsc) then s.dsc = [[ Вы находитесь на перекрестке где-то в Нлейисланотре. ]]; end; return s; end); za_crack_inside = za_alley { nam = "za_crack_inside"; disp = "Нлейисланотр, у трещины в стене"; dsc = [[ Вы находитесь в небольшом проулке на окраине Нлейисланотра. К западу от вас возвышается городская стена, а с востока и севера вы видите стены домов. ]]; way = { kh_vroom("На юг", "za_alley_1"); kh_vroom("В трещину", "za_crack_foot"); }; }; za_alley_1 = za_alley { nam = "za_alley_1"; way = { kh_vroom("На юг", "za_alley_2"); kh_vroom("На север", "za_crack_inside"); }; }; za_alley_2 = za_alley { nam = "za_alley_2"; way = { kh_vroom("На юг", "za_deadend_1n"); kh_vroom("На север", "za_alley_1"); kh_vroom("На восток", "za_street_1"); }; }; za_deadend_1n = za_deadend{ nam = "za_deadend_1n"; way = { kh_vroom("На север", "za_alley_2"); }; }; za_street_1 = za_street { nam = "za_street_1"; way = { kh_vroom("На запад", "za_alley_2"); kh_vroom("На восток", "za_cross_1"); }; }; za_cross_1 = za_cross { var { state = 0; }; nam = "za_cross_1"; enter = function(s) if (s.state == 0) then s.state = 1; walkin("za_cutscene_1"); end; end; way = { kh_vroom("На юг", "za_street_20"); kh_vroom("На север", "za_street_2"); kh_vroom("На запад", "za_street_1"); kh_vroom("На восток", "za_street_4"); }; }; za_cutscene_1 = cutscene("za_cutscene_1", "Нлейисланотр, перекресток", [[ Из темной невзрачной улицы вы выходите в город. Древние каменные и металлические сооружения возвышаются над вами. Вы стоите посреди просторного перекрестка. Дороги ведут во все стороны. Сейчас посреди ночи улицы города пустынны и вы можете спокойно обследовать их. ]], "za_cross_1"); za_street_2 = za_street { nam = "za_street_2"; way = { kh_vroom("На юг", "za_cross_1"); kh_vroom("На север", "za_street_3"); }; }; za_street_3 = za_street { nam = "za_street_3"; dsc = [[ Вы находитесь посреди улицы где-то в Нлейисланотре. К северу от вас стоят несколько навьяров, опершись на стену дома. ]]; way = { kh_vroom("На юг", "za_street_2"); kh_vroom("На север", function() pr [[ Если они меня увидят, то поднимут тревогу. ]]; return false; end); }; }; za_street_4 = za_street { nam = "za_street_4"; way = { kh_vroom("На запад", "za_cross_1"); kh_vroom("На восток", "za_cross_2"); }; }; za_cross_2 = za_cross { nam = "za_cross_2"; way = { kh_vroom("На юг", "za_street_18"); kh_vroom("На север", "za_street_5"); kh_vroom("На запад", "za_street_4"); kh_vroom("На восток", "za_street_6"); }; }; za_street_5 = za_street { nam = "za_street_5"; way = { kh_vroom("На юг", "za_cross_2"); }; }; za_street_6 = za_street { nam = "za_street_6"; way = { kh_vroom("На запад", "za_cross_2"); kh_vroom("На северо-восток", "za_street_7"); }; }; za_street_7 = za_street { nam = "za_street_7"; way = { kh_vroom("На юго-запад", "za_street_6"); kh_vroom("На восток", "za_cross_3"); }; }; za_cross_3 = za_cross { nam = "za_cross_3"; way = { kh_vroom("На юго-восток", "za_street_9"); kh_vroom("На запад", "za_street_7"); kh_vroom("На северо-запад", "za_street_8"); }; }; za_street_8 = za_street { nam = "za_street_8"; way = { kh_vroom("На юго-восток", "za_cross_3"); }; }; za_street_9 = za_street { nam = "za_street_9"; way = { kh_vroom("На северо-запад", "za_cross_3"); kh_vroom("На юг", "za_cross_4"); }; }; za_cross_4 = za_cross { nam = "za_cross_4"; dsc = [[ Вы находитесь посреди улицы где-то в Нлейисланотре. Улица на востоке завалена камнями и заросла водорослями. ]]; way = { kh_vroom("На юг", "za_street_10"); kh_vroom("На север", "za_street_9"); kh_vroom("На восток", function(s) pr [[ Я не пройду здесь. ]]; return false; end); }; }; za_street_10 = za_street { nam = "za_street_10"; way = { kh_vroom("На юг", "za_cross_5"); kh_vroom("На север", "za_cross_4"); }; }; za_cross_5 = za_cross { nam = "za_cross_5"; way = { kh_vroom("На юг", "za_street_11"); kh_vroom("На север", "za_street_10"); kh_vroom("На запад", "za_street_13"); }; }; za_street_11 = za_street { nam = "za_street_11"; way = { kh_vroom("На юг", "za_cross_6"); kh_vroom("На север", "za_cross_5"); }; }; za_cross_6 = za_cross { var { state = 0; }; nam = "za_cross_6"; entered = function(s) if (s.state == 0) then s.state = 1; pr("С востока к вам приближается группа навьяров. Четверо из них вооружены копьями с ними идет еще один, не вооруженный. Судя по тому, как они обращаются с ним - он пленник. "); game.timer = za_timer; timer:set(2000); lifeon(za_convoy); end; end; dsc = [[ Вы находитесь посреди улицы где-то в Нлейисланотре. На востоке вы видите нескольких навьярских воинов. ]]; way = { kh_vroom("На юг", "za_street_12"); kh_vroom("На север", "za_street_11"); kh_vroom("На восток", function(s) pr [[ Если они меня увидят, то поднимут тревогу. ]]; end); }; }; za_street_12 = za_street { nam = "za_street_12"; way = { kh_vroom("На юг", "za_deadend_2n"); kh_vroom("На север", "za_cross_6"); }; }; za_deadend_2n = za_deadend { nam = "za_deadend_2n"; way = { kh_vroom("На север", "za_street_12"); }; }; za_street_13 = za_street { nam = "za_street_13"; way = { kh_vroom("На запад", "za_cross_24"); kh_vroom("На восток", "za_cross_5"); }; }; za_cross_24 = za_cross { nam = "za_cross_24"; way = { kh_vroom("На юг", "za_street_15"); kh_vroom("На север", "za_street_14"); kh_vroom("На восток", "za_street_13"); }; }; za_street_14 = za_street { nam = "za_street_14"; way = { kh_vroom("На юг", "za_cross_24"); }; }; za_street_15 = za_street { nam = "za_street_15"; way = { kh_vroom("На юг", "cross_7"); kh_vroom("На север", "za_cross_24"); }; }; za_cross_7 = za_cross { nam = "za_cross_7"; way = { kh_vroom("На юг", "za_deadend_3n"); kh_vroom("На север", "za_street_15"); kh_vroom("На запад", "za_street_16"); }; }; za_deadend_3n = za_deadend { nam = "za_deadend_3n"; way = { kh_vroom("На север", "za_cross_7"); }; }; za_street_16 = za_street { nam = "za_street_16"; way = { kh_vroom("На запад", "za_cross_8"); kh_vroom("На восток", "za_cross_7"); }; }; za_cross_8 = za_cross { nam = "za_cross_8"; way = { kh_vroom("На север", "za_street_17"); kh_vroom("На запад", "za_street_22"); kh_vroom("На восток", "za_street_16"); }; }; za_street_17 = za_street { nam = "za_street_17"; way = { kh_vroom("На юг", "za_cross_8"); kh_vroom("На север", "za_cross_9"); }; }; za_cross_9 = za_cross { nam = "za_cross_9"; way = { kh_vroom("На юг", "za_street_17"); kh_vroom("На север", "za_street_18"); kh_vroom("На запад", "za_street_19"); }; }; za_street_18 = za_street { nam = "za_street_18"; way = { kh_vroom("На юг", "za_cross_9"); kh_vroom("На север", "za_cross_2"); }; }; za_street_19 = za_street { nam = "za_street_19"; way = { kh_vroom("На запад", "za_cross_10"); kh_vroom("На восток", "za_cross_9"); }; }; za_cross_10 = za_cross { nam = "za_cross_10"; way = { kh_vroom("На юг", "za_street_21"); kh_vroom("На север", "za_street_20"); kh_vroom("На запад", "za_street_31"); kh_vroom("На восток", "za_street_19"); }; }; za_street_20 = za_street { nam = "za_street_20"; way = { kh_vroom("На юг", "za_cross_10"); kh_vroom("На север", "za_cross_1"); }; }; za_street_31 = za_street { nam = "za_street_31"; way = { kh_vroom("На запад", "za_alley_3"); kh_vroom("На восток", "za_cross_10"); }; }; za_alley_3 = za_alley { nam = "za_alley_3"; way = { kh_vroom("На восток", "za_street_31"); kh_vroom("На север", "za_deadend_1s"); }; }; za_deadend_1s = za_deadend{ nam = "za_deadend_1s"; way = { kh_vroom("На юг", "za_alley_3"); }; }; za_street_21 = za_street { nam = "za_street_21"; way = { kh_vroom("На юг", "za_cross_11"); kh_vroom("На север", "za_cross_10"); }; }; za_cross_11 = za_cross { nam = "za_cross_11"; way = { kh_vroom("На юг", "za_street_23"); kh_vroom("На север", "za_street_21"); kh_vroom("На запад", "za_street_36"); kh_vroom("На восток", "za_street_22"); }; }; za_street_22 = za_street { nam = "za_street_22"; way = { kh_vroom("На запад", "za_cross_11"); kh_vroom("На восток", "za_cross_8"); }; }; za_street_36 = za_street { nam = "za_street_36"; dsc = [[ Западным концом эта улица упирается в городскую стену. ]]; way = { kh_vroom("На восток", "za_cross_11"); }; }; za_street_46 = za_street { nam = "za_street_46"; dsc = [[ Западным концом эта улица упирается в городскую стену. ]]; way = { kh_vroom("На восток", "za_cross_12"); }; }; za_street_23 = za_street { nam = "za_street_23"; way = { kh_vroom("На юг", "za_cross_12"); kh_vroom("На север", "za_cross_11"); }; }; za_cross_12 = za_cross { nam = "za_cross_12"; way = { kh_vroom("На юг", "za_street_41"); kh_vroom("На север", "za_street_23"); kh_vroom("На запад", "za_street_46"); kh_vroom("На восток", "za_street_24"); }; }; za_street_24 = za_street { nam = "za_street_24"; way = { kh_vroom("На запад", "za_cross_12"); kh_vroom("На восток", "za_cross_13"); }; }; za_cross_13 = za_cross { nam = "za_cross_13"; way = { kh_vroom("На юг", "za_street_43"); kh_vroom("На запад", "za_street_24"); kh_vroom("На восток", "za_street_25"); }; }; za_street_25 = za_street { nam = "za_street_25"; way = { kh_vroom("На запад", "za_cross_13"); kh_vroom("На восток", "za_cross_14"); }; }; za_cross_14 = za_cross { nam = "za_cross_14"; way = { kh_vroom("На юг", "za_street_26"); kh_vroom("На север", "za_deadend_3s"); kh_vroom("На запад", "za_street_25"); }; }; za_deadend_3s = za_deadend { nam = "za_deadend_3s"; way = { kh_vroom("На юг", "za_cross_14"); }; }; za_street_26 = za_street { nam = "za_street_26"; way = { kh_vroom("На юг", "za_cross_15"); kh_vroom("На север", "za_cross_14"); }; }; za_cross_15 = za_cross { nam = "za_cross_15"; way = { kh_vroom("На юг", "za_street_35"); kh_vroom("На север", "za_street_26"); kh_vroom("На запад", "za_street_44"); kh_vroom("На восток", "za_street_27"); }; }; za_street_27 = za_street { nam = "za_street_27"; way = { kh_vroom("На запад", "za_cross_15"); kh_vroom("На восток", "za_prison_entrance"); }; }; za_prison_entrance = room { nam = "za_prison_entrance"; disp = "Нлейисланотр, у входа в тюрьму"; dsc = [[ Перед вами вход в большое металлическое здание. Похоже, оно гораздо старше остальных зданий в городе - на это указывают многочисленные следы коррозии на стенах и явно не раз восстановленная дверь. Именно сюда навьяры завели пленника. ]]; way = { kh_vroom("На запад", "za_street_27"); kh_vroom("На восток", "za_street_28"); }; }; za_deadend_2s = za_deadend { nam = "za_deadend_2s"; way = { kh_vroom("На юг", "za_prison_entrance"); }; }; za_street_28 = za_street { nam = "za_street_28"; way = { kh_vroom("На запад", "za_prison_entrance"); kh_vroom("На восток", "za_cross_16"); }; }; za_cross_16 = za_cross { nam = "za_cross_16"; way = { kh_vroom("На юг", "za_street_29"); kh_vroom("На запад", "za_street_28"); kh_vroom("На восток", "za_deadend_4"); }; }; za_deadend_4 = za_deadend { nam = "za_deadend_4"; way = { kh_vroom("На запад", "za_cross_16"); }; }; za_street_29 = za_street { nam = "za_street_29"; way = { kh_vroom("На юг", "za_street_30"); kh_vroom("На север", "za_cross_16"); }; }; za_street_30 = za_street { nam = "za_street_30"; way = { kh_vroom("На юг", "za_cross_17"); kh_vroom("На север", "za_street_29"); }; }; za_cross_17 = za_cross { nam = "za_cross_17"; dsc = [[ Вы находитесь посреди улицы где-то в Нлейисланотре. Улица на юге перегорожена отрядом навьярских воинов. ]]; way = { kh_vroom("На юг", function() pr [[ Мне с ними не справиться. ]]; return false; end); kh_vroom("На север", "za_street_30"); kh_vroom("На запад", "za_street_32"); kh_vroom("На восток", "za_deadend_5"); }; }; za_deadend_5 = za_deadend { nam = "za_deadend_5"; way = { kh_vroom("На запад", "za_cross_17"); }; }; za_street_32 = za_street { nam = "za_street_32"; way = { kh_vroom("На запад", "za_cross_18"); kh_vroom("На восток", "za_cross_17"); }; }; za_cross_18 = za_cross { nam = "za_cross_18"; dsc = [[ Вы находитесь посреди перекрестка рядом с тюрьмой Нлейисланотра. ]]; way = { kh_vroom("На юг", "za_deadend_6"); kh_vroom("На запад", "za_street_33"); kh_vroom("На восток", "za_street_32"); }; obj = { "za_prison_window"; }; }; za_prison_window = obj { var { state = 0; }; nam = "za_prison_window"; dsc = [[ Рядом с собой в стене здания вы видите небольшой зарешеченное {окошко}. ]]; act = function(s) if (s.state == 0) then if (za_convoy_gone) then return [[ В камере по ту сторону окна находится тот самый навьяр, которого вы видели в сопровождении конвоя. ]]; else return [[ Здесь нет ничего интересного. ]]; end; else return [[ Вам здесь больше нечего делать. ]]; end; end; used = function (s, o) if (o == item_toolbox) then walk("za_phaetlarr_free"); end; end; }; za_deadend_6 = za_deadend { nam = "za_deadend_6"; way = { kh_vroom("На север", "za_cross_18"); }; }; za_street_33 = za_street { nam = "za_street_33"; way = { kh_vroom("На запад", "za_cross_19"); kh_vroom("На восток", "za_cross_18"); }; }; za_cross_19 = za_cross { nam = "za_cross_19"; dsc = [[ Вы находитесь посреди улицы где-то в Нлейисланотре. Улица на юге перегорожена отрядом навьярских воинов. ]]; way = { kh_vroom("На юг", function() pr [[ Мне с ними не справиться. ]]; return false; end); kh_vroom("На север", "za_street_34"); kh_vroom("На запад", "za_street_37"); kh_vroom("На восток", "za_street_33"); }; }; za_street_34 = za_street { nam = "za_street_34"; way = { kh_vroom("На юг", "za_cross_19"); kh_vroom("На север", "za_street_35"); }; }; za_street_35 = za_street { nam = "za_street_35"; way = { kh_vroom("На юг", "za_street_34"); kh_vroom("На север", "za_cross_15"); }; }; za_street_37 = za_street { nam = "za_street_37"; way = { kh_vroom("На северо-запад", "za_street_38"); kh_vroom("На восток", "za_cross_19"); }; }; za_street_38 = za_street { nam = "za_street_38"; way = { kh_vroom("На север", "za_cross_20"); kh_vroom("На юго-восток", "za_street_37"); }; }; za_street_47 = za_street { nam = "za_street_47"; dsc = [[ Вы находитесь на углу двух улиц Нлейисланотра. ]]; way = { kh_vroom("На запад", "za_street_39"); kh_vroom("На юг", "za_street_38"); }; }; za_street_39 = za_street { nam = "za_street_39"; way = { kh_vroom("На запад", "za_cross_21"); kh_vroom("На восток", "za_street_47"); }; }; za_cross_21 = za_cross { nam = "za_cross_21"; dsc = [[ Вы находитесь посреди перекрестка где-то в Нлейисланотре. Улица на юге перегорожена отрядом навьярских воинов. ]]; way = { kh_vroom("На юг", function() pr [[ Мне с ними не справиться. ]]; return false; end); kh_vroom("На север", "za_street_40"); kh_vroom("На восток", "za_street_39"); }; }; za_street_40 = za_street { nam = "za_street_40"; way = { kh_vroom("На юг", "za_cross_21"); kh_vroom("На север", "za_cross_22"); }; }; za_cross_22 = za_cross { nam = "za_cross_22"; way = { kh_vroom("На юг", "za_street_40"); kh_vroom("На север", "za_street_41"); kh_vroom("На запад", "za_street_45"); kh_vroom("На восток", "za_street_42"); }; }; za_street_42 = za_street { nam = "za_street_42"; way = { kh_vroom("На запад", "za_cross_22"); kh_vroom("На восток", "za_cross_23"); }; }; za_cross_23 = za_cross { nam = "za_cross_23"; way = { kh_vroom("На север", "za_street_43"); kh_vroom("На запад", "za_street_42"); kh_vroom("На восток", "za_street_44"); }; }; za_street_41 = za_street { nam = "za_street_41"; way = { kh_vroom("На юг", "za_cross_22"); kh_vroom("На север", "za_cross_12"); }; }; za_street_43 = za_street { nam = "za_street_43"; way = { kh_vroom("На юг", "za_cross_23"); kh_vroom("На север", "za_cross_13"); }; }; za_street_44 = za_street { nam = "za_street_44"; way = { kh_vroom("На запад", "za_cross_23"); kh_vroom("На восток", "za_cross_15"); }; }; za_street_45 = za_street { nam = "za_street_45"; way = { kh_vroom("На запад", "za_alley_4"); kh_vroom("На восток", "za_cross_22"); }; }; za_alley_4 = za_alley { nam = "za_alley_4"; way = { kh_vroom("На восток", "za_street_45"); kh_vroom("На юг", "za_deadend_7"); }; }; za_deadend_7 = za_deadend { nam = "za_deadend_7"; way = { kh_vroom("На север", "za_alley_4"); }; }; za_phaetlarr_fight_intro = cutscene("za_phaetlarr_fight_intro_a", "Нлейисланотр, улица",[[Конвой замечает вас и переходит в атаку. Внезапно пленник выхватывает копье у одного из стражников и бросается в бой. ]], "za_plaetlarr_fight"); za_plaetlarr_victory = cutscene("za_phaetlarr_victory", "Нлейисланотр, улица", function(s) if (char_learr.follow) then return [[ Вы побеждаете стражников. Фаэтларр с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" Глядя на Леарр он немного успокаивается и внимательно следит за ее словами: "Они что-хотели?" ]]; elseif (char_anna.follow) then return [[ Вы побеждаете стражников. Фаэтларр с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" В динамиках раздается голос Анны: "Он явно не расположен к нам. Но у нас мало выбора. Спроси его, знает ли он где храм"? ]]; elseif (char_wright.follow) then return [[ Вы побеждаете стражников. Фаэтларр с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" В динамиках раздается голос Джека: "Я думаю, пора возвращаться на корабль. Я надеюсь, он даст нам всю необходимую информацию". ]]; elseif (char_radcliffe.follow) then return [[ Вы побеждаете стражников. Фаэтларр с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" В динамиках раздается голос Уолтера: "Здесь слишком опасно оставаться. Надо доставить его на Левиафан и там решить, что делать дальше". ]]; else return [[ Вы побеждаете стражников. Фаэтларр с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" ]]; end; end, "za_phaetlarr_dlg"); za_plaetlarr_fight = battlefield { nam = "Нлейисланотр, улица"; plX = 4; plY = 1; map = { {2,0,0,0,0,0,2}; {2,0,0,0,0,0,2}; {2,1,1,0,0,0,2}; {2,0,0,0,1,1,2}; {2,0,0,0,0,0,2}; {2,0,0,0,0,0,2}; {2,0,0,0,0,0,2}; }; obstacle = "images/stones.png"; lose = "game_over_za_fight"; win = "za_plaetlarr_victory"; underwater = true; entered = function(s) if (char_learr.follow) then table.insert(s.obj, 2, za_cmbt_learr); s.plX = 3; elseif (char_anna.follow) then table.insert(s.obj, 2, za_cmbt_anna); s.plX = 3; elseif (char_wright.follow) then table.insert(s.obj, 2, za_cmbt_wright); s.plX = 3; elseif (char_radcliffe.follow) then table.insert(s.obj, 2, za_cmbt_radcliffe); s.plX = 3; end; end; obj = { 'za_cmbt_phaetlarr', 'za_cmbt_guard1', 'za_cmbt_guard2', 'za_cmbt_guard3', 'za_cmbt_guard4' }; }; za_cmbt_phaetlarr = combatant { nam = "za_cmbt_phaetlarr"; disp2 = "Фаэтларра"; disp3 = "Фаэтларру"; x = 4; y = 6; pic = "images/phaetlarr.png"; ally = "Я не буду атаковать союзника."; nohit = "Я не буду атаковать союзника."; noshoot = "Я не буду атаковать союзника."; hp = 10; hasSpear = true; make_turn = function(s) local enemies = { }; for item=1,#here().obj do local obj = here().obj[item]; if (obj.enemy and obj.hp > 0) then local p = here():getWalkDistance(s.x, s.y, obj.x, obj.y); if (p) then table.insert(enemies, { o = obj, p = p }); end; end; end; if (#enemies == 0) then pn("Фаэтларр ждет. "); return; end; table.sort(enemies, function(a, b) return (a.p.l < b.p.l); end); local enemy = enemies[1].o; local path = enemies[1].p; -- AI Order: -- If has spear and enemy is far - throw spear -- If has spear and enemy is close - hit with spear -- if spear is nearer than any enemy - walk towards spear -- walk towards nearest enemy -- If enemy close and enemy has spear - take spear from enemy -- If enemy close and enemy doesn't have spear - hit with claws if s.hasSpear then if (math.abs(s.x - enemy.x) + math.abs(s.y - enemy.y) <= 2 and here():canShoot(s.x,s.y, enemy.x, enemy.y)) then --50% if (rnd(2) > 1) then enemy.hp = enemy.hp - 2; pn("Фаэтларр бьет " .. enemy.disp2 .. " копьем и попадает. "); else pn("Фаэтларр бьет " .. enemy.disp2 .. " копьем, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and math.abs(s.y - enemy.y) == 1) then --75% if (rnd(4) > 1) then enemy.hp = enemy.hp - 2; pn("Фаэтларр бьет " .. enemy.disp2 .. " копьем и попадает. "); else pn("Фаэтларр бьет " .. enemy.disp2 .. " копьем, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then --100% enemy.hp = enemy.hp - 2; pn("Фаэтларр бьет " .. enemy.disp2 .. " копьем и попадает. "); return; else local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));--here().getDistance(here().plX, here().plY, s.x, s.y); if (rnd(4) > dist - 2) then s.hasSpear = false; enemy.hp = enemy.hp - 2; pn("Фаэтларр бросает копье в " .. enemy.disp2 .. " и попадает. "); else pn("Фаэтларр бросает копье в " .. enemy.disp2 .. ", но промахивается. "); end; return; end; else if (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then if (enemy.hasSpear) then enemy.hasSpear = false; s.hasSpear = true; pn("Фаэтларр забирает копье у " .. enemy.disp2 .. ". "); else enemy.hp = enemy.hp - 1; pn("Фаэтларр бьет " .. enemy.disp2 .. " и попадает. "); end; end; end; s.x = path.p[2][1]; s.y = path.p[2][2]; pn("Фаэтларр идет к " .. enemy.disp3 .. ". "); end; dsc = function(s) if (s.hp > 0) then return [[ {Фаэтларр} готов к бою. ]]; else return [[ {Фаэтларр} без сознания. ]]; end; end; }; za_cmbt_learr = combatant { nam = "za_cmbt_learr"; disp2 = "Леарр"; disp3 = "Леарр"; x = 5; y = 1; pic = "images/learr.png"; ally = "Я не буду атаковать союзника."; nohit = "Я не буду атаковать союзника."; noshoot = "Я не буду атаковать союзника."; hp = 10; hasSpear = true; make_turn = function(s) local enemies = { }; for item=1,#here().obj do local obj = here().obj[item]; if (obj.enemy and obj.hp > 0) then local p = here():getWalkDistance(s.x, s.y, obj.x, obj.y); if (p) then table.insert(enemies, { o = obj, p = p }); end; end; end; if (#enemies == 0) then pn("Леарр ждет. "); return; end; table.sort(enemies, function(a, b) return (a.p.l < b.p.l); end); local enemy = enemies[1].o; local path = enemies[1].p; for i = 1,#enemies do print(enemies[i].p.l); end; -- AI Order: -- If has spear and enemy is far - throw spear -- If has spear and enemy is close - hit with spear -- if spear is nearer than any enemy - walk towards spear -- walk towards nearest enemy -- If enemy close and enemy has spear - take spear from enemy -- If enemy close and enemy doesn't have spear - hit with claws if s.hasSpear then if (math.abs(s.x - enemy.x) + math.abs(s.y - enemy.y) <= 2 and here():canShoot(s.x,s.y, enemy.x, enemy.y)) then --50% if (rnd(2) > 1) then enemy.hp = enemy.hp - 2; pn("Леарр бьет " .. enemy.disp2 .. " копьем и попадает. "); else pn("Леарр бьет " .. enemy.disp2 .. " копьем, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and math.abs(s.y - enemy.y) == 1) then --75% if (rnd(4) > 1) then enemy.hp = enemy.hp - 2; pn("Леарр бьет " .. enemy.disp2 .. " копьем и попадает. "); else pn("Леарр бьет " .. enemy.disp2 .. " копьем, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then --100% enemy.hp = enemy.hp - 2; pn("Леарр бьет " .. enemy.disp2 .. " копьем и попадает. "); return; end; else if (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then enemy.hp = enemy.hp - 1; pn("Леарр бьет " .. enemy.disp2 .. " и попадает. "); return; end; end; s.x = path.p[2][1]; s.y = path.p[2][2]; pn("Леарр идет к " .. enemy.disp3 .. ". "); end; dsc = function(s) if (s.hp > 0) then return [[ {Леарр} готова к бою. ]]; else return [[ {Леарр} без сознания. ]]; end; end; }; za_cmbt_wright = combatant { nam = "za_cmbt_wright"; disp2 = "Райта"; disp3 = "Райту"; x = 5; y = 1; pic = "images/jack.png"; ally = "Я не буду атаковать союзника."; nohit = "Я не буду атаковать союзника."; noshoot = "Я не буду атаковать союзника."; hp = 10; hasHarpoon = true; make_turn = function(s) local enemies = { }; for item=1,#here().obj do local obj = here().obj[item]; if (obj.enemy and obj.hp > 0) then local p = here():getWalkDistance(s.x, s.y, obj.x, obj.y); if (p) then table.insert(enemies, { o = obj, p = p }); end; end; end; if (#enemies == 0) then pn("Райт ждет. "); return; end; table.sort(enemies, function(a, b) return (a.p.l < b.p.l); end); local enemy = enemies[1].o; local path = enemies[1].p; if (s.x ~= 6 or s.y ~=3) then local ppath = here():getWalkDistance(s.x, s.y, 6, 3); if (ppath.l < path.l) then s.x = ppath.p[2][1]; s.y = ppath.p[2][2]; pn("Райт идет к укрытию"); end; end; -- AI Order: -- If has harpoon and enemy is far - shoot -- If has harpoon and enemy is close - hit with harpoon -- walk towards nearest enemy if (s.hasHarpoon) then if (math.abs(s.x - enemy.x) + math.abs(s.y - enemy.y) <= 2 and here():canShoot(s.x,s.y, enemy.x, enemy.y)) then --50% if (rnd(2) > 1) then enemy.hp = enemy.hp - 2; pn("Райт бьет " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Райт бьет " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and math.abs(s.y - enemy.y) == 1) then --75% if (rnd(4) > 1) then enemy.hp = enemy.hp - 2; pn("Райт бьет " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Райт бьет " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then --100% enemy.hp = enemy.hp - 2; pn("Райт бьет " .. enemy.disp2 .. " гарпуном и попадает. "); return; else local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));--here().getDistance(here().plX, here().plY, s.x, s.y); if (rnd(4) > dist - 2) then s.hasSpear = false; enemy.hp = enemy.hp - 2; pn("Райт стреляет в " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Райт стреляет в " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; end; else s.hasHarpoon = true; pn("Райт перезаряжает ружье. "); end; s.x = path.p[2][1]; s.y = path.p[2][2]; pn("Райт идет к " .. enemy.disp3 .. ". "); end; dsc = function(s) if (s.hp > 0) then return [[ {Райт} готов к бою. ]]; else return [[ {Райт} без сознания. ]]; end; end; }; za_cmbt_radcliffe = combatant { nam = "za_cmbt_radcliffe"; disp2 = "Рэклиффа"; disp3 = "Рэдклиффу"; x = 5; y = 1; pic = "images/walter.png"; ally = "Я не буду атаковать союзника."; nohit = "Я не буду атаковать союзника."; noshoot = "Я не буду атаковать союзника."; hp = 10; hasHarpoon = true; make_turn = function(s) local enemies = { }; for item=1,#here().obj do local obj = here().obj[item]; if (obj.enemy and obj.hp > 0) then local p = here():getWalkDistance(s.x, s.y, obj.x, obj.y); if (p) then table.insert(enemies, { o = obj, p = p }); end; end; end; if (#enemies == 0) then pn("Рэдклифф ждет. "); return; end; table.sort(enemies, function(a, b) return (a.p.l < b.p.l); end); local enemy = enemies[1].o; local path = enemies[1].p; if (s.x ~= 6 or s.y ~=3) then local ppath = here():getWalkDistance(s.x, s.y, 6, 3); if (ppath.l < path.l) then s.x = ppath.p[2][1]; s.y = ppath.p[2][2]; pn("Рэдклифф идет к укрытию"); end; end; -- AI Order: -- If has harpoon and enemy is far - shoot -- If has harpoon and enemy is close - hit with harpoon -- walk towards nearest enemy if (s.hasHarpoon) then if (math.abs(s.x - enemy.x) + math.abs(s.y - enemy.y) <= 2 and here():canShoot(s.x,s.y, enemy.x, enemy.y)) then --50% if (rnd(2) > 1) then enemy.hp = enemy.hp - 2; pn("Рэдклифф бьет " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Рэдклифф бьет " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and math.abs(s.y - enemy.y) == 1) then --75% if (rnd(4) > 1) then enemy.hp = enemy.hp - 2; pn("Рэдклифф бьет " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Рэдклифф бьет " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then --100% enemy.hp = enemy.hp - 2; pn("Рэдклифф бьет " .. enemy.disp2 .. " гарпуном и попадает. "); return; else local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));--here().getDistance(here().plX, here().plY, s.x, s.y); if (rnd(4) > dist - 2) then s.hasSpear = false; enemy.hp = enemy.hp - 2; pn("Рэдклифф стреляет в " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Рэдклифф стреляет в " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; end; else s.hasHarpoon = true; pn("Рэдклифф перезаряжает ружье. "); end; s.x = path.p[2][1]; s.y = path.p[2][2]; pn("Рэдклифф идет к " .. enemy.disp3 .. ". "); end; dsc = function(s) if (s.hp > 0) then return [[ {Рэдклифф} готов к бою. ]]; else return [[ {Рэдклифф} без сознания. ]]; end; end; }; za_cmbt_anna = combatant { nam = "za_cmbt_anna"; disp2 = "Анну"; disp3 = "Анне"; x = 5; y = 1; pic = "images/anna.png"; ally = "Я не буду атаковать союзника."; nohit = "Я не буду атаковать союзника."; noshoot = "Я не буду атаковать союзника."; hp = 10; hasHarpoon = true; make_turn = function(s) local enemies = { }; for item=1,#here().obj do local obj = here().obj[item]; if (obj.enemy and obj.hp > 0) then local p = here():getWalkDistance(s.x, s.y, obj.x, obj.y); if (p) then table.insert(enemies, { o = obj, p = p }); end; end; end; if (#enemies == 0) then pn("Анна ждет. "); return; end; table.sort(enemies, function(a, b) return (a.p.l < b.p.l); end); local enemy = enemies[1].o; local path = enemies[1].p; if (s.x ~= 6 or s.y ~=3) then local ppath = here():getWalkDistance(s.x, s.y, 6, 3); if (ppath.l < path.l) then s.x = ppath.p[2][1]; s.y = ppath.p[2][2]; pn("Анна идет к укрытию"); end; end; -- AI Order: -- If has harpoon and enemy is far - shoot -- If has harpoon and enemy is close - hit with harpoon -- walk towards nearest enemy if (s.hasHarpoon) then if (math.abs(s.x - enemy.x) + math.abs(s.y - enemy.y) <= 2 and here():canShoot(s.x,s.y, enemy.x, enemy.y)) then --50% if (rnd(2) > 1) then enemy.hp = enemy.hp - 2; pn("Анна бьет " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Анна бьет " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and math.abs(s.y - enemy.y) == 1) then --75% if (rnd(4) > 1) then enemy.hp = enemy.hp - 2; pn("Анна бьет " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Анна бьет " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then --100% enemy.hp = enemy.hp - 2; pn("Анна бьет " .. enemy.disp2 .. " гарпуном и попадает. "); return; else local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));--here().getDistance(here().plX, here().plY, s.x, s.y); if (rnd(4) > dist - 2) then s.hasSpear = false; enemy.hp = enemy.hp - 2; pn("Анна стреляет в " .. enemy.disp2 .. " гарпуном и попадает. "); else pn("Анна стреляет в " .. enemy.disp2 .. " гарпуном, но промахивается. "); end; return; end; else s.hasHarpoon = true; pn("Анна перезаряжает ружье. "); end; local plpath = here():getWalkDistance(s.x, s.y, pl.x, pl.y); if (plpath.l > 2) then s.x = plpath.p[2][1]; s.y = plpath.p[2][2]; pn("Анна идет к вам. "); end; end; dsc = function(s) if (s.hp > 0) then return [[ {Анна} готова к бою. ]]; else return [[ {Анна} без сознания. ]]; end; end; }; za_cmbt_guard = function(nam, index, x, y, spear) return combatant { nam = nam; disp2 = "стражника " .. tostring(index); disp3 = "стражника " .. tostring(index); x = x; y = y; hp = 6; pic = "images/navjiarr_guard".. index ..".png"; shootHit = "Вы стреляете в стражника и попадаете в него. "; shootMiss = "Вы стреляете в стражника, но не попадаете в него. "; shootKill = "Вы стреляете в стражника и он падает замертво. "; handHit = "Вы ударяете стражника. "; handKill = "После вашего удара стражник падает. "; handFar = "Слишком далеко. "; hasSpear = spear; enemy = true; dsc = function(s) if (s.hp > 0) then if (s.hasSpear) then return "{Стражник " .. tostring(index).. "} вооружен копьем готов к бою. "; else return "{Стражник " .. tostring(index).. "} готов к бою. "; end; else return false; end; end; make_turn = function(s) local enemies = { }; for item=1,#here().obj do local obj = here().obj[item]; if (obj.ally and obj.hp > 0) then local p = here():getWalkDistance(s.x, s.y, obj.x, obj.y); if (p) then table.insert(enemies, { o = obj, p = p }); end; end; end; table.sort(enemies, function(a, b) return (a.p.l < b.p.l); end); local enemy = enemies[1]; local path = here():getWalkDistance(s.x, s.y, here().plX, here().plY); if (not enemy or path and enemy.p.l > path.l ) then enemy = pl; else path = enemy.p; enemy = enemy.o; end; if (not enemy or not path) then pn("Стражник ".. tostring(index).. " ждет. "); return; end; -- AI Order: -- If has spear and enemy is close - hit with spear -- walk towards nearest enemy -- If enemy close - hit with claws if (s.hasSpear) then here():canShoot(s.x,s.y, enemy.x, enemy.y); if (math.abs(s.x - enemy.x) + math.abs(s.y - enemy.y) <= 2 and here():canShoot(s.x,s.y, enemy.x, enemy.y)) then if (math.abs(s.x - enemy.x) == 2 or math.abs(s.y - enemy.y) == 2) then --50% if (rnd(2) > 1) then enemy.hp = enemy.hp - 2; pn("Стражник ".. tostring(index).. " бьет " .. enemy.disp2 .. " копьем и попадает. "); else pn("Стражник ".. tostring(index).. " бьет " .. enemy.disp2 .. " копьем, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and math.abs(s.y - enemy.y) == 1) then --75% if (rnd(4) > 1) then enemy.hp = enemy.hp - 2; pn("Стражник ".. tostring(index).. " бьет " .. enemy.disp2 .. " копьем и попадает. "); else pn("Стражник ".. tostring(index).. " бьет " .. enemy.disp2 .. " копьем, но промахивается. "); end; return; elseif (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then --100% enemy.hp = enemy.hp - 2; pn("Стражник ".. tostring(index).. " бьет " .. enemy.disp2 .. " копьем и попадает. "); return; end; end; else if (math.abs(s.x - enemy.x) == 1 and s.y == enemy.y or s.x == enemy.x and math.abs(s.y - enemy.y) == 1) then enemy.hp = enemy.hp - 1; pn("Стражник ".. tostring(index).. " бьет " .. enemy.disp2 .. " и попадает. "); return; end; end; print("fug2",path); s.x = path.p[2][1]; s.y = path.p[2][2]; pn("Стражник ".. tostring(index).. " идет к " .. enemy.disp3 .. ". "); end; }; end; za_cmbt_guard1 = za_cmbt_guard("za_cmbt_guard1", 1, 3, 5, true); za_cmbt_guard2 = za_cmbt_guard("za_cmbt_guard2", 2, 5, 5, false); za_cmbt_guard3 = za_cmbt_guard("za_cmbt_guard3", 3, 3, 7, true); za_cmbt_guard4 = za_cmbt_guard("za_cmbt_guard4", 4, 5, 7, true); za_phaetlarr_dlg = dlg { var { state = 0; }; nam = "za_phaetlarr_dlg"; disp = "Фаэтларр"; entered = function(s) psub("intro"); if (char_learr.follow) then s.state = 1; return [[ Навьяр смотрит попеременно на Леарр и на вас, после чего отвечает: "Я Фаэтларр из Венаэданотра. Хевьяры обманули их и меня. Но как вы здесь оказались? Они закрыли хевьярам путь в город". Обращаясь к Леарр, он продолжает: "Ты осторожна будь. Хевьярам нельзя доверять". ]]; else return [[ Навьяр представляется: "Я Фаэтларр из Венаэданотра". После чего повторяет свой вопрос: "Что вы здесь хотите?" ]]; end; end; phr = { {tag="intro"}; {"[Цветокод]Венаэданотр неблизко. Как ты оказался здесь?", function(s) if (char_learr.follow) then return [[ Фаэтларр больше обращается к Леарр, чем к вам: "Другие хевьяры взяли меня на свой корабль. Пойдем со мной, сестра, вместе мы вернемся в Венаэданотр". Потом он гневно смотрит на вас: "Уходите, мы справимся сами". Видя, что Леарр не двигается, он застывает в удивлении. ]]; else return [[ "Другие хевьяры взяли меня на свой корабль. Больше я не повторю такой ошибки. Уходите, я справлюсь сам". ]]; end; end, code [[ if (char_learr.follow) then psub("on_my_own_learr"); else psub("on_my_own"); end; ]]}; {"[Цветокод]Мы ищем Лсэрианотр", function(s) if (char_learr.follow) then return [[ Фаэтларр больше обращается к Леарр, чем к вам: "Пойдем сестра. Эти такие же, как и те, с которыми был я. Вернемся в Венаэданотр". Потом он гневно смотрит на вас: "Уходите. Я не стану помогать вам". ]]; else return [[ "Вы заодно с ними. Уходите, я не стану помогать вам". ]]; end; end, code [[ psub("on_my_own"); ]]}; {tag="on_my_own"}; {"[Цветокод]Расскажи больше о них", [[ "Что вы хотите знать?" ]], code [[ psub("more_on_them"); ]]}; {"[Цветокод]Мы не враги тебе", [[ "Почему я должен вам верить?" ]], code [[ psub("trust");]]}; {tag="more_on_them", empty = code [[ pret(); ]]}; {"[Цветокод]Куда они направились?", [[ "Они идут в Лсэрианотр. Их цель - пробудить Наэтвьирра. Блэк хочет с его помощью стать правителем мира. Дрейк хотел найти древние знания. Но сейчас он мертв". ]], code [[ pon("black");pon("drake"); ]]}; {"[Цветокод]Сколько их было?", [[ "Хевьяров было пятеро. Но на борту также были навьяры. Нас было много. Большинство из них свято верят в Наэтвьирра, способного возродить старый мир. Хотя Уильям Дрейк не одобрял этого, Адриан Блэк всячески поощрял это". ]]}; {"[Цветокод]Почему они оставили тебя?", [[ "Мы должны были взять ключ. Я, Дрейк и Блэк. Местные были против, но у нас не было выбора - ключ нужен для открытия врат Лсэрианотра. Мы пробрались в храм без проблем. Потом начались проблемы. Когда я взял ключ, я оказался в ловушке. К сожалению, у них не было инструментов, чтобы вытащить меня. Тогда я отдал ключ Дрейку и они ушли за инструментами. Они не вернулись. А потом пришли местные. От них я узнал, что Дрейк был убит". ]], code [[ pon("drake"); ]]}; {tag="black", false, "[Цветокод]Теперь Блэк главный?", [[ "Да. У других хевьяров нет выбора, а навьяры на его корабле почти поклоняются ему". ]]}; {tag="drake", false, "[Цветокод]Что случилось с Дрейком?", [[ Фаэтларр долго молчал. Наконец он собрался с силами и ответил: "Его убили местные во время их отступления с ключем". ]], code [[ pon("i_am_drake"); ]]}; {tag="i_am_drake", false, "[Цветокод]Я Дэвид Дрэйк. Сын Уильяма", [[ Фаэтларр удивленно смотрит на вас: "Близких вьяров пути близки". ]], code [[ za_phaetlarr_dlg.state = za_phaetlarr_dlg.state + 1; poff("i_am_drake2"); ]]}; {tag="trust"}; {"[Цветокод]Мы хотим остановить Блэка", [[Фаэтларр Фаэтларр кажется сильно удивленным. Он долго молчит, обдумывая ваши слова. Наконец, навьяр кивает. ]], code [[ pon("need_help"); ]]}; {tag="need_help", false, "[Цветокод]Нам нужна твоя помощь", [[ Фаэтларр делает вам знак продолжать. ]], code [[ psub("not_sure"); ]]}; {tag="i_am_drake2", "[Цветокод]Я сын Уильяма Дрейка", [[ Фаэтларр удивленно смотрит на вас: "Близких вьяров пути близки". ]], code [[ za_phaetlarr_dlg.state = za_phaetlarr_dlg.state + 1; ]]}; {tag="not_sure"}; {"[Цветокод]Нам нужно знать, где находится храм Нлейисланотра", [[ Фаэтларр уверенно говорит: "Вы спасли меня. Я помогу в ответ. Но я прошу вас еще об одном. Я хочу на борт вашего корабля". ]], code [[ pon('join'); pon('go'); ]]}; {tag="join", false, "[Цветокод]Хорошо, мы согласны", code = [[ nleyyslanotrr_temple_found = true; walk("za_phaetlarr_final"); ]]}; {tag="go", false, "[Цветокод]Что, если мы откажемся?", [[ "Я не скажу вам где храм, и каждый идет своей дорогой". ]]}; }; }; za_char_phaetlarr = npc { nam = "za_char_phaetlarr"; dsc = [[ {Фаэтларр} стоит рядом и ждет ваших действий. ]]; phrases = { "Фаэтларр ждет ваших действий. " }; }; za_phaetlarr_final = cutscene("za_phaetlarr_final", "Левиафан, Кают-компания", [[ Вы возвращаетесь на Левиафан, где уже собрался весь экипаж. Фаэтларр рассказывает вам как попасть в храм ]], "leviathan_wardroom"); za_phaetlarr_free = cutscene("za_phaetlarr_free", "Нлейисланотр, улица", function(s) if (char_learr.follow) then return [[ При помощи инструментов, вы убираете решетку из окна и освобождаете Фаэтларра. Навьяр выбирается из тюрьмы и с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" Глядя на Леарр он немного успокаивается и внимательно следит за ее словами: "Они что-хотели?" ]]; elseif (char_anna.follow) then return [[ При помощи инструментов, вы убираете решетку из окна и освобождаете Фаэтларра. Навьяр выбирается из тюрьмы и с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" В динамиках раздается голос Анны: "Он явно не расположен к нам. Но у нас мало выбора. Спроси его, знает ли он где храм"? ]]; elseif (char_wright.follow) then return [[ При помощи инструментов, вы убираете решетку из окна и освобождаете Фаэтларра. Навьяр выбирается из тюрьмы и с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" В динамиках раздается голос Джека: "Я думаю, пора возвращаться на корабль. Я надеюсь, он даст нам всю необходимую информацию". ]]; elseif (char_radcliffe.follow) then return [[ При помощи инструментов, вы убираете решетку из окна и освобождаете Фаэтларра. Навьяр выбирается из тюрьмы и с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" В динамиках раздается голос Уолтера: "Здесь слишком опасно оставаться. Надо доставить его на Левиафан и там решить, что делать дальше". ]]; else return [[ При помощи инструментов, вы убираете решетку из окна и освобождаете Фаэтларра. Навьяр выбирается из тюрьмы и с недоверием смотрит на вас, сжимая копье. Вы видите, как цветные полосы на его плавниках формируются в вопрос: "Что вы здесь хотите?" ]]; end; end, za_phaetlarr_dlg);