dyp_item_wand = obj {

    nam = "dyp_item_wand";

    disp = "Жезл";

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

};

dyp_crab_cave_puzzle = room {

    var {

        values = {

            0, 2, 1, 2, 5 ,4,

            1, 1, 2, 4, 0, 5,

            1, 3, 2, 4, 0, 3,

            0, 2, 0, 3, 5, 4,

            5, 0, 4, 1, 3, 3,

            3, 5, 5, 1, 4, 2

        };

        pressed = {

            nil,

            nil,

            nil,

            nil,

            nil,

            nil

        };

    };

    nam = "Пещера";

    pic = function(s)

        local p = "blank:180x180";

        for v = 1, #s.values do

            local tx = (v - 1) % 6;

            local ty = math.floor((v - 1) / 6);

            local lstate = '';

            if s.pressed[s.values[v] + 1] and s.pressed[s.values[v] + 1][1] == tx and s.pressed[s.values[v] + 1][2] == ty then

                lstate = 'p';

            end;

            p = p .. ';images/cavelock_' .. tostring(s.values[v]) .. lstate .. '.png@' .. tostring(tx * 30) .. ',' .. tostring(ty * 30);

        end;

        print(p);

        return p;

    end;

    click = function(s,x,y)

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

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

        local i = tx + ty * 6 + 1;

        local val = s.values[i];

        for p = 1, 6 do

            if s.pressed[p] and (s.pressed[p][1] == tx or s.pressed[p][2] == ty) then

                s.pressed[p] = nil;

            end;

        end;

        s.pressed[val + 1] = {tx, ty};

        for p = 1, 6 do

            if not s.pressed[p] then

                walkin(here());

                return;

            end;

        end;

        p("С легким скрежетом сундук открывается. Внутри вы обнаруживаете небольшой жезл с нанесенными цветными символами. Цвета определенно соответствуют навьярским словам, но что значат символы вам неведомо. ");

        put(dyp_item_wand, pl);

        walk(dyp_crab_cave);

    end;

};

    pl.where = "dyp_crab_cave_puzzle";