};

    way = {

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

    };

};

dyp_guardian = npc {

    nam = "dyp_guardian";

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

    phrases = function(s)

        if language_known then

            return {

                [[Стражник не обращает на вас внимания. ]];

                [[По головным плавникам стражника бегут цветные полосы: "Ты говори с вождем, не со мной". ]];

            };

        else

            return {

                [[Стражник не обращает на вас внимания. ]];

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

            };

        end;

    end;

    dlg = function(s)

        if dyp_quest_state == 4 then

            return "dyp_guardian_dlg";

        end;

    end;

};

dyp_guardian_dlg = dlg {

    nam = "dyp_guardian_dlg";

    disp = "Стражник";

    entered = function(s)

        if language_known then

            psub("speak");

            return [[По головным плавникам стражника бегут цветные полосы: "Ты говори с вождем, не со мной". ]];

        else

            psub("no_speak");

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

        end;

    end;

    phr = {

        {tag="no_speak"};

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

        {tag="speak"};

        {"[Кодировщик] Я ищу навьяра по имени Аэдиенрр. Он проходил здесь недавно.", [[Стражник кивает: "Аэдиенрр из Ираафаанотра ушел на восток несколько дней назад. Кажется, он направлялся к обелискам". ]], code [[ dyp_quest_state = 5; ]]};

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

    };

};

dyp_obelisk = obj {

    nam = "dyp_obelisk";

    dsc = [[В центре площади стоит большой каменный {обелиск}, с нанесенными на него символами. ]];

    act = function(s)

        if here() == dyp_center and atl_rep_dyp < 0 then

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

        end;

        if dyp_stones_known then

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

            walkin("dyp_obelisk_puzzle");

        else

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

        end;

    end;

};

dyp_obelisk_puzzle = room {

    var {

        state = {

             0, 1, 2, 3,

             4, 5, 6, 7,

             8, 9,10,11,

            12,13,14,15

        };

        set = false;

    };

    win = "";

    nam = "Дипатреанотр, центр";

    underwater = true;

    entered = function(s)

        if not s.set then

            s.set = true;

            local details = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};

            local matches = 3;

            for i = 1, 16 do

                local item;

                local index;

                repeat

                    index = rnd(#details);

                    item = details[index];

                until matches > 0 or item ~= s.state[i] or i == 16;

                table.remove(details, index);

                s.state[i] = item;

            end;

            local k = 1;

            for i = 1, 16 do

                    for j = i + 1, 16 do

                        if s.state[i] > s.state[j] and s.state[j] ~= 12 then

                            k = k + 1;

                        end;

                    end;

                else

                    k = k + math.floor(i / 4);

                end;

            end;

                for i = 16, 1, -1 do

                    if s.state[i] == 14 then

                        s.state[i] = 15;

                    elseif s.state[i] == 15 then

                        s.state[i] = 14;

                    end;

                end;

            end;

        end;

    end;

    pic = function(s)

        local p = 'images/dyp15.png';

        for i = 1, #s.state do

            local f = s.state[i];

            p = p .. ';images/dyp15_' .. tostring(f) .. '.png@' .. tostring(math.floor((i - 1) / 4) * 40) .. ',' .. tostring((3 - (i - 1) % 4) * 40);

        end;

        return p;

    end;

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

    click = function(s, x, y)

        local ty = math.floor(x / 40);

        local tx = 3 - math.floor(y / 40);

        local tile = tx + ty * 4 + 1;

        if (s.state[tile] ~= 15) then

            if (tile - 4 > 0) and s.state[tile - 4] == 15 then

                tx = s.state[tile];

                s.state[tile] = s.state[tile - 4];

                s.state[tile - 4] = tx;

            elseif tx > 0 and s.state[tile - 1] == 15 then

                tx = s.state[tile];

                s.state[tile] = s.state[tile - 1];

                s.state[tile - 1] = tx;

            elseif tx < 3 and s.state[tile + 1] == 15 then

                tx = s.state[tile];

                s.state[tile] = s.state[tile + 1];

                s.state[tile + 1] = tx;

            elseif (tile + 4) <= 16 and s.state[tile + 4] == 15 then

                tx = s.state[tile];

                s.state[tile] = s.state[tile + 4];

                s.state[tile + 4] = tx;

            end;

        end;

        local f = "";

        for i = 1, #s.state do

            f = f .. "," .. tostring(s.state[i]);

        end;

        print(f);

        if not s:check_win() then

            walkin(here());

        else

            p = [[Одна из каменных плит рядом с обелиском отодвигается. В образовавшейся выемке вы видите небольшой светящийся красным светом камень. Вы забираете камень себе. ]];

            put(dyp_item_stone_red, pl);

            walk(dyp_center);

        end;

    end;

    check_win = function(s)

        for i = 1, #s.state do

            if s.state[i] ~= 16 - i then

                return false;

            end;

        end;

        return true;

    end;

    way = {

        kh_vroom("Отойти", "dyp_center");

    };

};

dyp_navjiarr = npc{

    nam = "dyp_navjiarr";

    dsc = [[Немногие {навьяры}, находящиеся сейчас на площади с интересом оглядываютс на Левиафан и вас. ]];

    phrases = {

        "Не стоит их беспокоить. ",

        "Вряд ли они смогут сказать вам что-то полезное. "

    };

};

dyp_library_entrance = room {

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

    underwater = true;

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

    way = {

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

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

    };

};

dyp_library_floor1 = room {

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

    underwater = true;

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

    obj = {

        "dyp_library_statue"

    };

    way = {

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