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)

                if (not exist(dyp_dead_navjiarr, s)) then

                    move(dyp_dead_navjiarr, s);

                end;

            end;

            exit = function(s)

                remove(dyp_dead_navjiarr, s);

            end;

        };

    };

};

dyp_scepter_chest = obj {

    var {

        state = 0;

    };

    nam = "dyp_scepter_chest";

    dsc = function(s)

        if s.state == 0 then

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

        else

            return [[В углу аккуратно поставлен небольшой {сундучок}. Сейчас он пуст. ]];

        end;

    end;

    act = function(s)

        if s.state == 1 then

            return [[Вам здесь больше ничего не нужно. ]];

        else

            walk("dyp_crab_cave_puzzle");

            return [[Вы присматриваетесь к замку. ]];

        end;

    end;

};

dyp_dead_navjiarr = obj {

    var {

        state = 0;

    }:

    nam = "dyp_dead_navjiarr";

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

    act = function(s)

        if s.state == 0 then

            move(dyp_item_star_map, pl);

            move(dyp_item_aedienrr_notes, pl);

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

        end;

    end;

};

dyp_item_aedienrr_notes = obj {

    nam = "dyp_item_aedienrr_notes";

    disp = function(s)

        if language_known then

            return "Записи Аэдиенрра";

        else

            return "Каменная табличка";

        end;

    end;

    inv = function(s)

        if language_known then

            return "Надписи на каменной табличке рассказывают о последнем путешествии Аэдиенрра. Молодой навьяр разгадал схемы на карте небесных огней и предположил, что они ведут в пещеру в скале к северу от Дипатреанотра. Ориентирами служат каменные обелиски-предостережения и храм, расположенный к востоку от нее. Никто из Ираафаанотра не смогу рассказать ничего о храме, поэтому исследователю пришлось долго идти наугад. Последняя запись гласит, что он почти добрался до пещеры... ";

        else

            return "Вы не понимаете языка и надписи значат для вас не больше чем ряды вертикальных цветных полосок. ";

        end;

    end;

};

dyp_item_star_map = obj {

    nam = "dyp_item_star_map";

    disp = "Карта небесных огней";

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

};

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)

    nam = "Пещера";

    plX = 4;

    plY = 7;

    map = {

        {2,0,0,0,0,0,2};

        {2,0,0,0,0,0,2};

        {2,1,0,0,0,0,2};

        {2,0,0,1,0,1,2};

        {2,0,1,0,0,0,2};

        {2,0,0,0,0,1,2};

        {2,0,0,0,0,0,2};

    };

    win = "dyp_crab_cave_win";

    lose = "game_over_crab_cave";

    obstacle = "images/stones.png";

    underwater = true;

    entered = function(s)

        --TODO prepend player associate - anna, learr, walter or jack

        if (char_learr.follow) then

            table.insert(s.obj, 1, dyp_cmbt_learr);

            s.plX = 3;

        elseif (char_anna.follow) then

            table.insert(s.obj, 1, dyp_cmbt_anna);

            s.plX = 3;

        elseif (char_wright.follow) then

            table.insert(s.obj, 1, dyp_cmbt_wright);

            s.plX = 3;

        elseif (char_radcliffe.follow) then

            table.insert(s.obj, 1, dyp_cmbt_radcliffe);

            s.plX = 3;

        end;

    end;

    obj = {

        "dyp_king_crab";

        dyp_little_crab("dyp_little_crab_1", 1, 2, 1);

        dyp_little_crab("dyp_little_crab_2", 2, 3, 1);

        dyp_little_crab("dyp_little_crab_3", 3, 5, 1);

        dyp_little_crab("dyp_little_crab_4", 4, 6, 1);

        dyp_little_crab("dyp_little_crab_5", 5, 3, 2);

        dyp_little_crab("dyp_little_crab_6", 6, 4, 2);

        dyp_little_crab("dyp_little_crab_7", 7, 5, 2);

    };

};

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;

    way = {

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

    };

};

dyp_crab_cave_win = cutscene("dyp_crab_cave_win", "Пещера", [[Вы расправляетесь с выводком крабов, поселившихся в этой пещере. Чуть поодаль, вы видите тело навьяра, истерзанное этими монстрами. ]], "dyp_crab_cave");