{"Давай поговорим о другом.", [[Леарр кивает: "Ты говорри". ]], code [[pret();]]};

    }

        {"Хорошо.", [[Аикерьярр отворачивается от вас, не удостоив ответом. ]], code [[back(); ]]};

        -- 1 - вождь попросил светящуюся капсулу с Атлантиды

        -- 2 - вождь попросил зуб акулы

        -- 3(1) - вождь попросил карту

        -- 4(2) - узнали, что карту унес Аэдиенрр в Дипатреанотр

        -- 5(3) - узнали, куда унес карту Аэдиенрр из Дипатреанотра

        -- 6(4) - Отдали оригинал КНО в Ираафаанотр

        -- 7(5) - Отдали жезл в Ираафаанотр

        if dyp_quest_state == 4 then

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

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 = "Дипатреанотр, центр";

    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

                if s.state[i] == 1 then

                    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;

            if k % 2 == 0 then

                for i = 1, 16 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(((i - 1) % 4) * 40) .. ',' .. tostring(math.floor((i - 1) / 4) * 40);

        end;

        print(p);

        return p;

    end;

    click = function(s, x, y)

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

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

        local tile = tx + ty * 4 + 1;

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

            if (tile - 4 > 0) and s.state[tile - 4] == 12 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] == 12 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] == 12 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] == 12 then

                tx = s.state[tile];

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

                s.state[tile + 4] = tx;

            end;

        end;

        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] ~= i - 1 then

                return false;

            end;

        end;

        return true;

    end;

};

            if dyp_stones_known and dup_quest_state == 0 then

                pon("quest");

            if dyp_quest_state == 4 and not s.aed then

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

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

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

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

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

            if have(item_dyp_star_map_copy) then

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

                return "";

            elseif have(item_dyp_star_map) then

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

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

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

                return "";

            end;

        end};

        {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(); ]]};

        if dyp_quest_state ~= 5 then

        if dyp_quest_state ~= 5 then

        if dyp_quest_state ~= 5 then

        if dyp_quest_state == 3 then

        {tag="star_map", false, "[Кодировщик] Ты знаешь что-нибудь о карте небесных огней?", [[Навьяр кивает: "Наше сокровище. Аэдиенрр взял ее не так давно. Он сказал, что знает как найти место, указанное в ней. Но прошло много дней, а он не вернулся. Если ты сможешь найти его и вернуть карту, мы будем очень благодарны. Я не знаю точно конечную цель, но я знаю, что он вышел по направлению к Дипатреанотру". ]], code [[ dyp_quest_state = 4; ]]};

        return [[Вы забираете табличку себе. ]];

    tak = [[Вы забираете табличку. ]];

    pl.where = "dyp_obelisk_puzzle";