nam = "Дипатреанотр, вход в библиотеку";

    dsc = [[Двухэтажное каменное здание библиотеки разительно отличается от большинства строений Дипатреанотра. Выстроенное из массивных каменных плит, а не из булыжников, как остальные, оно хорошо сохранилось несмотря на достаточно большой возраст. Ровные стены тщательно очищаются навьярами от ила и водорослей, сохрнаяя здание в перозданном виде. ]];

    way = {

        kh_vroom("К обелиску", "dyp_center");

        kh_vroom("В библиотеку", "dyp_library_floor1");

    };

};

dyp_library_floor1 = room {

    nam = "Дипатреанотр, библиотека, первый этаж";

    dsc = [[Первый этаж здания библиотеки представляет собой огромный зал. Множество колонн, установленных ровными рядами, поддерживают потолок, между ними и вдоль стен установлены массивные стеллажи, заполненные различными записями. Большинство их сделаны на каменных табличках, но изредка встречаются и древние металлические. Ваше внимание привлекает одна из полок, заполненная небольшими блестящими дисками из неизвестного материала. ]];

    obj = {

        "dyp_library_statue"

    };

    way = {

        kh_vroom("Наружу", "dyp_library_entrance");

        kh_vroom("На второй этаж", "dyp_library_floor2");

    };

};

dyp_library_floor2 = room {

    nam = "Дипатреанотр, библиотека, второй этаж";

    dsc = [[Второй этаж библиотеки мало чем отличается от первого -- точно такие же колонны, точно такие же стеллажи. Здесь гораздо больше полок содержат блестящие диски вместо привычных вам записей. ]];

    obj = {

        "dyp_librarian";

    };

    way = {

        kh_vroom("На первый этаж", "dyp_library_floor1");

    };

};

dyp_librarian = npc {

    var {

        state = 0;

    };

    nam = "dyp_librarian";

    dsc = function(s)

        if s.state == 0 then

            return [[Перед вами на полу сидит {навьяр}. Вокруг него разложены какие-то записи, которые он рассматривает, время от времени перекладывая с места на место. ]];

        else

            return [[Перед вами на полу сидит {Эйлехиарр}. Вокруг него разложены какие-то записи, которые он рассматривает, время от времени перекладывая с места на место. ]];

        end;

    end;

    dlg = "dyp_librarian_dlg";

};

dyp_librarian_dlg = dlg {

    nam = "dyp_librarian_dlg";

    disp = "Эйлехиарр";

    entered = function(s)

        if language_known then

            psub("speak");

            if (dyp_librarian_dlg.state == 0) then

                dyp_librarian_dlg.state = 1;

                return [[Перед вами, прямо на полу сидит навьяр. Рядом с ним разложены какие-то записи, которые он внимательно рассматривает, иногда перекладывая с места на место. Заметив вас, он поднимается и приветствует вас: "Я, Эйлехиарр из Дипатреанотра, приветствую тебя хевьяр. Ты говори, зачем ты пришел". ]];

            else

                return [[Эйлехиарр сидит на полу, перекладывая какие-то записи. Заметив вас он поднимается и приветствует вас: "Ты говори, зачем ты пришел". ]];

            end;

        else

            psub("no_speak");

            return [[Перед вами, прямо на полу сидит навьяр. Рядом с ним разложены какие-то записи, которые он внимательно рассматривает, иногда перекладывая с места на место. Заметив вас, он поднимается. По плавникам на его голове начинают бежать цветные полосы, но вы не понимаете, что он хочет вам сказать. ]];

        end;

    end;

    phr = {

        {tag="no_speak"};

        {always=true, "[Уйти]", code [[ back(); ]]};

        {tag="speak"};

        {"[Кодировщик] Что ты делаешь?", [[Эйлехиарр отвечает: "Эти записи сильно повреждены. К счастью у нас есть несколько копий этого текста. Но мои предшественники умудрились испортить все три!" ]]};

        {"[Кодировщик] Я ищу карту пути в Лсэрианотр.", [[Эйлехиарр задумчиво оглядывает помещение. Делает несколько шагов в одну сторону, потом в другую. Садится рядом со своими записями, снова встает. Наконец, он берет с одной из полок металлическую табличку и сообщает: "Здесь говорится о пещере рядом с храмом. Три ключа закрывают вход". ]], code [[pon("three_keys");]]};

        {tag="three_keys", false, "[Кодировщик] Где найти эти ключи?", [[Эйлехиарр отвечает: "Здесь, в Дипатреанотре. Один ты можешь забрать внизу, у статуи". ]], code [[ dyp_stones_known = true; dyp_lib_stone_state = 1; ]]};

        {always=true, "[Кодировщик] Я пойду.", [[Эйлехиарр прощается: "Ты возвращайся". ]], code [[ back(); ]]};

    };

};

dyp_item_stone_blue = obj {

    nam = "dyp_item_stone_blue";

    disp = [[Синий камень]];

    inv = [[Небольшой круглый камень, излучающий яркий синий свет. ]];

};

dyp_item_stone_green= obj {

    nam = "dyp_item_stone_green";

    disp = [[Зеленый камень]];

    inv = [[Небольшой круглый камень, излучающий яркий зеленый свет. ]];

};

dyp_item_stone_red = obj {

    nam = "dyp_item_stone_red";

    disp = [[Красный камень]];

    inv = [[Небольшой круглый камень, излучающий яркий красный свет. ]];

};

dyp_item_wand = obj {

    nam = "dyp_item_wand";

    disp = "Жезл";

    inv = [[Жезл из неизвестного металла, покрытый навьярскими письменами. ]];

};

dyp_library_statue = obj {

    nam = "dyp_library_statue";

    dsc =function(s)

        if dyp_lib_stone_state > 1 then

            return [[В центре зала стоит статуя навьяра. В правой руке он держит табличку, которую сосредоточенно рассматривает. Левая рука статуи выглядит так, словно в ней должен находиться какой-то небольшой предмет, однако он отсутствует. ]];

        else

            return [[В центре зала стоит статуя навьяра. В правой руке он держит табличку, которую сосредоточенно рассматривает. В левой руке статуи лежит небольшой светящийся синий {камень}. ]];

        end;

    end;

    act = function(s)

        if dyp_lib_stone_state == 0 then

            return [[Красивая старая статуя. Навьяр изображен пораительно подробно -- вы можете разглядеть каждую чешуйку. Небольшой камень лежит в руке статуи так, что его очень легко вынуть. ]];

        elseif dyp_lib_stone_state == 1 then

            dyp_lib_stone_state = 2;

            take("dyp_item_stone_blue");

            return [[Вы легко забираете из руки статуи камень. ]];

        elseif dyp_lib_stone_state == 2 then

            return [[Красивая старая статуя. Навьяр изображен пораительно подробно -- вы можете разглядеть каждую чешуйку. ]];

        end;

    end;

};

dyp_chief_house_entrance = room {

    nam = "dyp_chief_house_entrance";

    disp = "Дипатреанотр, перед домом вождя";

    dsc = [[Дом вождя Дипатреанотра не уступает размерами библиотеке. Двухэтажное здание очневидно не раз расширялось и достраивалось. Часть его сложена из обработанных каменных плит, другая -- из булыжников, как большинство зданий города. Широкая выложенная камнем улица ведет отсюда к центральной площади города.]];

    way = {

        kh_vroom("К обелиску", "dyp_center");

        kh_vroom("В дом", "dyp_chief_house");

    };

};

dyp_chief_house = room {

    nam = "dyp_chief_house";

    disp = "Дипатреанотр, дом вождя";

    dsc = [[Приемная дома вождя представляет собой огромный зал с ровными рядами стройных каменных колонн, удреживающих потолок. В дальнем конце зала установлен каменный трон, перед которым установлен массивный каменный стол. ]];

    way = {

        kh_vroom("Наружу", "dyp_chief_house_entrance");

    };

    obj = {

        "dyp_chief";

    };

};

dyp_chief = npc {

    nam = "dyp_chief";

    dsc = [[{Вождь Дипатреанотра} сидит на троне с закрытыми глазами. Руки его сложены на груди. В правой он держит небольшой золотистый жезл, в навершии которого укреплен круглый камень, излучающий яркий зеленый свет. Светло-синяя чешуя покрыта узором из татуировок. Как и другие навьяры он одет в костюм из водорослей. На левой руке дремлюего вождя вы видите искусный браслет из блестящего металла. ]];

    dlg = "dyp_chief_dlg";

};

dyp_chief_dlg = dlg {

    var {

        lse = false;

        aed = false;

    };

    nam = "dyp_chief_dlg";

    disp = "Вождь Дипатреанотра";

    entered = function(s)

        if not language_known then

            psub("no_speak");

            return [[Как только вы приближаетесь к столу, глаза вождя открываются. Он поднимается с трона. Руки его остаются сложенными на груди, а взгляд его желтых глаз устремляется на вас. По его головным плавникам бегут цветные полосы. К сожалению, вы не понимаете, что он пытается вам сказать. ]];

        else

            psub("speak");

            if atl_iyh_state == 10 and not s.lse then

                s.lse = true;

                pon("lseryanotrr");

            end;

            if dyp_quest_state == 1 and have(item_electric_lamp, pl) and item_electric_lamp.state == 2 then

                pon("quest1");

            end;

            if dyp_quest_state == 2 and have(item_shark_tooth, pl) then

                pon("quest2");

            end;

            if dyp_stones_known and dup_quest_state == 0 then

                pon("quest");

                pon("star_map");

            end;

            if dyp_quest_state == 4 and not s.aed then

                s.aed = true;

                pon("aedienrr");

            end;

            return [[Как только вы приближаетесь к столу, глаза вождя открываются. Он поднимается с трона. Руки его остаются сложенными на груди, а взгляд его желтых глаз устремляется на вас. По его головным плавникам бегут цветные полосы: "Чем скромные навьяры из Дипатреанотра обязаны визиту почтенного хевьяра? Ты говори". ]];

        end;

    end;

    phr = {

        {tag="no_speak"};

        {always=true, "[Уйти]", code [[ back(); ]]};

        {tag="speak"};

        {tag="lseryanotrr", false, "[Кодировщик] Я ищу карту пути в Лсэрианотр.", [[Вождь отвечает: "Ты спроси в храме или в библиотеке. Я ничего такого не знаю". ]]};

        --[[{tag="star_map", false, "[Кодировщик] Мне нужен камень из твоего жезла. Что я могу предложить в обмен на него?", [ [Глаза вождя загораются, он ухмыляется. По плавникам быстро, словно в нетерпении, бегут цветные полосы: "Я хочу карту небесных огней из Ираафаанотра. Принеси ее и забирай этот жезл вместе с камнем". ] ], code [ [ dyp_quest_state = 1; ] ]};]]

        {tag="quest", false, "[Кодировщик] Мне нужен камень из твоего жезла. Что я могу предложить в обмен на него?", [[Глаза вождя загораются, он ухмыляется. По плавникам быстро, словно в нетерпении бегут цветные полосы: "Принеси мне три вещи, что я попрошу и получишь жезл вместе с камнем". ]], code [[psub("agree_quest");]]};

        {tag="quest1", false, "[Отдать светильник] [Кодировщик] Вот то, что ты просил. Что тебе еще нужно?", [[Вождь с интересом рассматривает принесенный вами прибор, после чего ставит его на стол перед собой и говорит: "Еще мне нужен акулий зуб". ]], code [[ remove("item_electric_lamp", pl); dyp_quest_state = 2; ]]};

        {tag="quest2", false, "[Отдать зуб акулы] [Кодировщик] Вот то, что ты просил. Что тебе еще нужно?", [[Вождь кладет зуб на стол рядом со светильником и говорит: "Я хочу карту небесных огней из Ираафаанотра. Принеси ее и забирай этот жезл вместе с камнем". ]], code [[ remove("item_shark_tooth", pl); dyp_quest_state = 3; psub("agree_quest2"); ]]};

        {tag="quest3", false, "[Отдать карту небесных огней] Вот то, что ты просил. Я могу забрать камень?", function(s)

                -- отдаем копию

                return "";

                --[[Вождь отдает вам жезл, как и обещал. ]]

                -- отдаем оригинал, но жезл из тайника отдали в Ираафаанотр

                -- отдаем оригинал, жезл из тайника не отдали в Ираафаанотр

                return "";

            end;

        end};

        {tag="aedienrr", "[Кодировщик] Ваш город посещал Аэдиенрр из Ираафаанотра недавно?", [[Вождь отвечает: "Не мое дело следить за этим. Спроси у стражников". ]]};

        {always=true, "[Кодировщик] Я пойду.", [[Вождь прощается с вами: "Ты возвращайся". Он садится обратно на трон и закрывает глаза. ]], code [[ back(); ]]};

        {tag="agree_quest"};

        {always=true,"[Кодировщик] Что ты хочешь, чтобы я принес?", [[Вождь отвечает: "Первая вещь, что мне нужна -- это светящаяся капсула из вашего города". ]], code [[ dyp_quest_state = 1; pret(); ]]};

        {always=true,"[Кодировщик] Я передумал. ", [[Вождь пожимает плечами. ]], code [[ pon("quest"); pret(); ]]};

        {tag="agree_quest2"};

        {always=true,"[Кодировщик] Как к этому отнесутся в Ираафаанотре?", [[Вождь отвечает: "Они могут быть против. Уговори их". ]], code [[ pret(); ]]};

        {always=true,"[Кодировщик] Я не буду этого делать.", [[Вождь отвечает: "Я отдам посох только за карту небесных огней". ]], code [[ pret(); ]]};

    };

};

--[[

Дипатреанотр храм

]]

dyp_temple_entry = lcutscene("dyp_temple_entry", "Левиафан, рубка", [[Храм Дипатреанотра располагается в нескольких часах пути от Атлантиды на Левиафане. К массивным дверям храма, вырезанным в толще скалы, ведет широкая каменная лестница, некогда украшенная резными орнаментами, ныне осыпавшимися и раскрошившимися. Над входом вырезано изображение, состоящее из нескольких концентрических кругов и каких-то символов. ]], "Вы прибыли в Храм Дипатреанотра. ", leviathan_wheelhouse);

dyp_temple_guard = npc {

    nam = "ctt_dyp_temple_guard";

    dsc = [[У ворот стоят два навьяра, вооруженные копьями. При вашем приближении они начинают нервничать -- переглянувшись, они перехватывают копья, готовясь при необходимости прогнать вас. По плавникам одного из них бегут цветные полосы: темно-фиолетовая, зеленая, оранжевая -- шире чем остальные, серая, ярко-розовая, желтая -- снова широкая, салатовая, снова широкая желтая и, наконец, широкая бледно-оранжевая. После небольшой паузы, полосы появляются снова. ]];

    phrases = {

        [[Стражник не реагирует на ваши попытки начать общение. ]];

    };

};

dyp_temple_carving_look = room {

    nam = "Храм Дипатреанотра, вход";

    pic ="images/iyh_navjiarr_map.png"; 

    dsc = [[Над входом в храм вырезана схема, состоящая из нескольких концентрических кругов. Часть схемы полностью стерлась от времени. ]];

    obj = {

        vway("continue", "{Продолжить}", "dyp_temple_entrance");

    };

};

dyp_temple_carving = obj {

    nam = "dyp_temple_carving";

    dsc = [[Над входом в храм вырезано {изображение} состоящее из нескольких кругов и еще каких-то символов. Часть изображения стерлась от времени, однако остальная часть все еще читаема. ]];

    act = function(s)

        walkin("dyp_temple_carving_look");

    end;

};

dyp_temple_entrance = room {

    nam = "Храм Дипатреанотра, вход";

    dsc = [[Перед вами находится вырезанный в скале вход в навьярский храм. Массивные каменные ступени ведут к громадным двустворчатым дверям, украшенным полустершимися орнаментами. Некогда яркие краски потускнели -- осторожные навьяры не решаются их обновить. ^Скала продолжается на восток и на юго-запад от храма. Вдалеке на севере видны длинные, вытянувшиеся на несколько метров вверх водоросли. К северо-западу заметен каменный обелиск. ]];

    view = [[Через иллюминаторы вы видите вырезанный в скале вход в навьярский храм. Массивные каменные ступени ведут к громадным двустворчатым дверям, украшенным полустершимися орнаментами. Некогда яркие краски потускнели -- осторожные навьяры не решаются их обновить. ^Скала продолжается на восток и на юго-запад от храма. Вдалеке на севере видны длинные, вытянувшиеся на несколько метров вверх водоросли. К северо-западу заметен каменный обелиск. ]];

    underwater = true;

    handwheel_room = 'dyp_temple_navigation';

    obj = {

        "dyp_temple_guard";

        "dyp_temple_carving";

    };

    way = {

        kh_vroom("В храм", function(s)

            pr('Охранники не колеблясь убьют вас, если вы попытаетесь войти. ');

            return false;

        end):disable();

        kh_vroom("В Левиафан", "leviathan_airlock");

    };

};

dyp_temple_east = room {

    nam = "Океан";

    view = [[Вы находитесь у подножья скалы, протянувшейся на многие километры на восток от вас. На западе она сворачивает к югу. В освещенной мощным прожектором Левиафана скале вы видите раверзшуюся пасть пещеры. ]];

    dsc = [[Вы находитесь у подножья скалы, протянувшейся на многие километры на восток от вас. На западе она сворачивает к югу. Перед собой вы видите разверзшуюся пасть пещеры, освещенную мощным прожектором Левиафана. ]];

    underwater = true;

    handwheel_room = 'dyp_temple_navigation';

    way = {

        kh_vroom("В пещеру", "dyp_temple_cave_entrance");

        kh_vroom("В Левиафан", "leviathan_airlock");

    };

};

dyp_temple_south_west = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Вы находитесь у подножья скалы. К юго-западу от вас скала сворачивает на юг и тянется на многие километры. К северо-востоку вы видите храм Дипатреанотра. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_south_far = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Вы находитесь у подножья скалы, протянувшейся на многие километры на юг. На севере скала сворачивает к востоку. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_north_west = room {

    nam = "Океан";

    no_exit = function(s)

        if dyp_quest_state ~= 5 then

            return [[Нет смысла покидать Левиафан здесь. ]];

        end;

    end;

    underwater = true;

    handwheel_room = 'dyp_temple_navigation';

    view = [[Перед вами возвышается массивный каменный обелиск. Некогда он был украшен резными орнаментами, но сейчас все они практически полностью стерлись. К юго-востоку от вас возвышается отвесная скала, протянувшаяся на многие километры с юга на восток. Вдалеке на западе вы видите каменные строения навьярского города -- Дипатреанотра. ]];

    dsc = [[К юго-востоку от вас возвышается отвесная скала, протянувшаяся на многие километры с юга на восток. Вдалеке на западе вы видите каменные строения навьярского города -- Дипатреанотра. ]];

    obj = {

        "dyp_temple_west_footprints";

        "dyp_temple_north_west_obelisk";

    };

    way = {

        kh_vroom("В Левиафан", "leviathan_airlock");

    };

};

dyp_temple_west_footprints = obj {

    nam = "dyp_temple_west_footprints";

    dsc = [[На илистом дне вы видите {следы}. ]];

    act = [[Следы навьяра ведут на север. ]];

};

dyp_temple_north_west_obelisk = obj {

    nam = "dyp_temple_north_west_obelisk";

    dsc = [[Перед вами возвышается массивный каменный {обелиск}. Некогда он был украшен резными орнаментами, но сейчас все они практически полностью стерлись. ]];

    act = [[Древняя каменная конструкция, с неизвестной целью помещенная в этом месте. ]];

};

dyp_temple_north = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Левиафан застыл над высокими стеблями водорослей, едва заметно колышущимися в спокойной воде. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_crevice_middle = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Левиафан застыл над неглубоким ущельем, протянувшимся с востока на запад. На юге вы видите длинные стебли водорослей, поднимающиеся на несколько метров над землей. Вдалеке на севере протянулась параллельно ущелью высокая отвесная скала. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_crevice_east = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Левиафан застыл над неглубоким ущельем, протянувшимся с востока на запад. На юго-западе вы видите длинные стебли водорослей, поднимающиеся на несколько метров над землей. Вдалеке на севере протянулась параллельно ущелью высокая отвесная скала. На северо-востоке вы видите огромный скелет кита, с незапамятных времен покоящийся там. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_crevice_far_east = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Левиафан застыл над неглубоким ущельем, протянувшимся с востока на запад. На севере вы видите огромный скелет кита, с незапамятных времен покоящийся там. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_crevice_west = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Левиафан застыл над неглубоким ущельем, протянувшимся с востока на запад. На юго-востоке вы видите длинные стебли водорослей, поднимающиеся на несколько метров над землей. На северо-западе возвышается каменный обелиск, а еще дальше на севере параллельно ущелью протянулась высокая отвесная скала. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_crevice_far_west = room {

    nam = "Океан";

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    view = [[Левиафан застыл над неглубоким ущельем, протянувшимся с востока на запад. Вдалеке на севере и на юге от вас возвышаются каменные обелиски. ]];

    handwheel_room = 'dyp_temple_navigation';

};

dyp_temple_warning = room {

    nam = "Океан";

    no_exit = function(s)

        if dyp_quest_state ~= 5 then

            return [[Нет смысла покидать Левиафан здесь. ]];

        end;

    end;

    view = [[Перед вами возвышается массивный каменный обелиск. Большая часть изображенного на нем стерлась. ]];

    dsc = [[Вы находитесь посреди бескрайней илистой равнины. К северу вы видите скалу, протянувшуюся с запада на восток. К югу вы видите глубокое ущелье, протянувшееся параллельно скале. ]];

    underwater = true;

    handwheel_room = 'dyp_temple_navigation';

    way = {

        kh_vroom("В Левиафан", "leviathan_airlock");

    };

    obj = {

        "dyp_temple_obelisk_footprints";

        "dyp_temple_warning_obelisk";

    };

};

dyp_temple_obelisk_footprints = obj {

    nam = "dyp_temple_obelisk_footprints";

    dsc = [[На илистом дне вы видите {следы}. ]];

    act = [[Следы навьяра ведут на север. ]];

            psub("dyp_temple_crevice_far_east");

            return where(submarine_leviathan).view;

        end};

        {always=true, "[Отойти от штурвала]", code = [[

            walk('leviathan_wheelhouse');

        ]]};

        {always=true, "[Отправиться в другое место]", code = [[

            walk('leviathan_dlg');

        ]]};

        {tag="dyp_center"};

        {always=true, "[На восток, к обелиску]", function()

            move(submarine_leviathan, "dyp_temple_north_west");

            psub("dyp_temple_north_west");

            return where(submarine_leviathan).view;

        end};

        {always=true, "[Отойти от штурвала]", code = [[

            walk('leviathan_wheelhouse');

        ]]};

        {always=true, "[Отправиться в другое место]", code = [[

            walk('leviathan_dlg');

        ]]};

    };

};

dyp_temple_cave_entrance = room {

    nam = "dyp_temple_cave_entrance";

    disp = "Храм Дипатреанотра, пещера";

    dsc = [[Вы стоите у выхода из глубокой пещеры, расположенной неподалеку от храма Дипатреанотра. Перед вами длинный коридор, ведущий куда-то вглубь скалы. Вдалеке, в коридоре вы видите слабое свечение. ]];

    underwater = true;

    way = {

        kh_vroom("Выйти из пещеры", "dyp_temple_east");

        kh_vroom("Вглубь пещеры", "dyp_temple_cave_deep");

    };

};

dyp_temple_cave_deep = room {

    nam = "dyp_temple_cave_deep";

    disp = "Храм Дипатреанотра, пещера";

    dsc = [[Здесь коридор разветвляется на три. В конце каждого вы видите слабое свечение красного, зеленогои синего цветов. ]];

    underwater = true;

    way = {

        kh_vroom("К выходу из пещеры", "dyp_temple_cave_entrance");

        kh_vroom("В \"Красный\" коридор", "dyp_temple_cave_red");

        kh_vroom("В \"Зеленый\" коридор", "dyp_temple_cave_green");

        kh_vroom("В \"Синий\" коридор", "dyp_temple_cave_blue");

    };

};

dyp_temple_cave_red = room {

    nam = "dyp_temple_cave_red";

    disp = "Храм Дипатреанотра, пещера";

    dsc = [[Проход заканчивается массивной металлической дверью, совершенно гладкой. Вы не видите никакого способа открыть ее. ]];

    underwater = true;

    obj = {

        "dyp_temple_statue_red";

    };

    way = {

        kh_vroom("В главный коридор", "dyp_temple_cave_deep");

    };

};

dyp_temple_statue_red = obj {

    nam = "dyp_temple_statue_red";

    dsc = [[Рядом с дверью стоит древняя статуя навьяра. В правой руке статуя держит копье, в навершии которого ярко светится красный камень. На поясе статуи вы видите небольшое круглое {отверстие}. ]];

};

dyp_temple_cave_green = room {

    nam = "dyp_temple_cave_green";

    disp = "Храм Дипатреанотра, пещера";

    dsc = [[Проход заканчивается массивной металлической дверью, совершенно гладкой. Вы не видите никакого способа открыть ее. ]];

    underwater = true;

    obj = {

        "dyp_temple_statue_green";

    };

    way = {

        kh_vroom("В главный коридор", "dyp_temple_cave_deep");

    };

};

dyp_temple_statue_green = obj {

    nam = "dyp_temple_statue_green";

    dsc = [[Рядом с дверью стоит древняя статуя навьяра. В правой руке статуя держит копье, в навершии которого ярко светится зеленый камень. На поясе статуи вы видите небольшое круглое {отверстие}. ]];

};

dyp_temple_cave_blue = room {

    nam = "dyp_temple_cave_blue";

    disp = "Храм Дипатреанотра, пещера";

    dsc = [[Проход заканчивается массивной металлической дверью, совершенно гладкой. Вы не видите никакого способа открыть ее. ]];

    underwater = true;

    obj = {

        "dyp_temple_statue_blue";

    };

    way = {

        kh_vroom("В главный коридор", "dyp_temple_cave_deep");

    };

};

dyp_temple_statue_blue = obj {

    nam = "dyp_temple_statue_blue";

    dsc = [[Рядом с дверью стоит древняя статуя навьяра. В правой руке статуя держит копье, в навершии которого ярко светится синий камень. На поясе статуи вы видите небольшое круглое {отверстие}. ]];

};

dyp_crab_cave = labyrinth {

    var {

        position = "00";

        fight = false;

    };

    nam = "dyp_crab_cave";

    disp = "Пещера";

    dir1 = "На северо-запад";

    dir2 = "На северо-восток";

    dir3 = "На юго-запад";

    dir4 = "На юго-восток";

    ex = "Выйти";

    underwater = true;

    map = {

        ["00"] = {

            name = [[Вы стоите у входа в глубокую пещеру. Стены здесь неровные и извилистые, образую причудливые переплетения длинный коридоров. Кто знает, куда они приведут? На каменистом полу едва ли можно заметить какие-либо следы. ]];

            e1 = "10";

            e2 = "11";

        };

        ["10"] = {

            e1 = "20";

            e2 = "21";

            e4 = "00";

        };

        ["11"] = {

            e1 = "21";

            e2 = "22";

            e3 = "00";

        };

        ["20"] = {

            e1 = "30";

            e4 = "10";

        };

        ["21"] = {

            e1 = "31";

            e2 = "32";

            e3 = "10";

            e4 = "11";

        };

        ["22"] = {

            e2 = "33";

            e3 = "11";

        };

        ["30"] = {

            e1 = "40";

            e2 = "41";

            e4 = "20";

        };

        ["31"] = {

            e2 = "42";

            e4 = "21";

        };

        ["32"] = {

            e2 = "43";

            e3 = "21";

        };

        ["33"] = {

            e3 = "22";

        };

        ["40"] = {

            e2 = "50";

            e4 = "30";

        };

        ["41"] = {

            e3 = "30";

        };

        ["42"] = {

            e1 = "51";

            e3 = "31";

        };

        ["43"] = {

            e1 = "52";

            e3 = "32";

            enter = function(s)

                if not s.fight then

                    s.fight = true;

                    walk("dyp_crab_fight_intro");

                end;

            end;

        };

        ["50"] = {

            e3 = "40";

        };

        ["51"] = {

            e4 = "42";

        };

        ["52"] = {

            e4 = "43";

            enter = function(s)

                end;

            end;

            exit = function(s)

            end;

        };

    };

};

dyp_crab_fight_intro = cutscene("dyp_crab_fight_intro", "Пещера", [[Впереди, вы замечаете какое-то движение. Луч прожетора выхватывает огромные острые клешни гигантского краба, устремившегося к вам. Следом за ним вы видите множество крабов поменьше, также ползущих к вам на своих тонких острых ногах. ]], "dyp_crab_fight");

dyp_crab_fight_win = cutscene("dyp_crab_fight_win", "Пещера", [[Отбившись от крабов, вы остаетесь одни в темном лабиринте пещер. ]], "dyp_crab_cave");

dyp_cmbt_learr = combatant {

    nam = "dyp_cmbt_learr";

    disp2 = "Леарр";

    disp3 = "Леарр";

    x = 5;

    y = 7;

    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;

};

dyp_cmbt_wright = combatant {

    nam = "za_cmbt_wright";

    disp2 = "Райта";

    disp3 = "Райту";

    x = 5;

    y = 7;

    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 .. ". ");