if (#s.code == 4) then

            local test = true;

            for i = 1, #s.code do

                test = test and (s.code[i] == dt_code[i]);

            end;

            s.code = {};

            if (test) then

                dt_temple_entrance.open = true;

                pr [[ Через несколько мгновений дисплей гаснет. Дверь открывается почти бесшумно, открывая вам доступ к внутреннему залу древнего святилища. ]];

            else

                pr [[ Через несколько мгновений дисплей гаснет. ]];

            end;

        end;

    end;

};

dt_term1 = obj {

    nam = "dt_term1";

    dsc = "{Нажать фиолетовую кнопку}^";

    act = function(s)

        if (ArrayUtils.indexOf(dt_buttons, 1) ~= 0 or not dt_wires_room.connections[1]) then

            return "Вы нажимаете на кнопку, но ничего не происходит. ";

        else

            table.insert(dt_terminal_room.code, dt_wires_room.connections[1]);

            pr "Вы нажимаете на кнопку, и на экране зажигается соответствующая ей цветная полоса. ";

            dt_terminal_room:check();

        end;

    end;

};

dt_term2 = obj {

    nam = "dt_term2";

    dsc = "{Нажать синюю кнопку}^";

    act = function(s)

        if (ArrayUtils.indexOf(dt_buttons, 2) ~= 0 or not dt_wires_room.connections[2]) then

            return "Вы нажимаете на кнопку, но ничего не происходит. ";

        else

            table.insert(dt_terminal_room.code, dt_wires_room.connections[2]);

            pr "Вы нажимаете на кнопку, и на экране зажигается соответствующая ей цветная полоса. ";

            dt_terminal_room:check();

        end;

    end;

};

dt_term3 = obj {

    nam = "dt_term3";

    dsc = "{Нажать зеленую кнопку}^";

    act = function(s)

        if (ArrayUtils.indexOf(dt_buttons, 3) ~= 0 or not dt_wires_room.connections[3]) then

            return "Вы нажимаете на кнопку, но ничего не происходит. ";

        else

            table.insert(dt_terminal_room.code, dt_wires_room.connections[3]);

            pr "Вы нажимаете на кнопку, и на экране зажигается соответствующая ей цветная полоса. ";

            dt_terminal_room:check();

        end;

    end;

};

dt_term4 = obj {

    nam = "dt_term4";

    dsc = "{Нажать желтую кнопку}^";

    act = function(s)

        if (ArrayUtils.indexOf(dt_buttons, 4) ~= 0 or not dt_wires_room.connections[4]) then

            return "Вы нажимаете на кнопку, но ничего не происходит. ";

        else

            table.insert(dt_terminal_room.code, dt_wires_room.connections[4]);

            pr "Вы нажимаете на кнопку, и на экране зажигается соответствующая ей цветная полоса. ";

            dt_terminal_room:check();

        end;

    end;

};

dt_term5 = obj {

    nam = "dt_term5";

    dsc = "{Нажать оранжевую кнопку}^";

    act = function(s)

        if (ArrayUtils.indexOf(dt_buttons, 5) ~= 0 or not dt_wires_room.connections[5]) then

            return "Вы нажимаете на кнопку, но ничего не происходит. ";

        else

            table.insert(dt_terminal_room.code, dt_wires_room.connections[5]);

            pr "Вы нажимаете на кнопку, и на экране зажигается соответствующая ей цветная полоса. ";

            dt_terminal_room:check();

        end;

    end;

};

dt_term6 = obj {

    nam = "dt_term6";

    dsc = "{Нажать красную кнопку}^";

    act = function(s)

        if (ArrayUtils.indexOf(dt_buttons, 6) ~= 0 or not dt_wires_room.connections[6]) then

            return "Вы нажимаете на кнопку, но ничего не происходит. ";

        else

            table.insert(dt_terminal_room.code, dt_wires_room.connections[6]);

            pr "Вы нажимаете на кнопку, и на экране зажигается соответствующая ей цветная полоса. ";

            dt_terminal_room:check();

        end;

    end;

};

dt_wire_colors = {

    "фиолетовый",

    "синий",

    "зеленый",

    "желтый",

    "оранжевый",

    "красный"

};

dt_wires_room = dlg {

    var {

        connections = {

            1,

            2,

            3,

            4,

            5,

            6

        };

        selected = nil;

    };

    not_follow = true;

    nam = "dt_wires_room";

    disp = "У входа в храм, панель";

    dsc = [[

        Перед вами открытая панель, за которой находятся шесть проводов, подключенные к своим разъемам. Провода отличаются цветами. 

    ]]; 

    choose_socket = function(s)

        pon("s0", "s1", "s2", "s3", "s4", "s5");

        for conn = 1, 6 do

            if (dt_wires_room.connections[conn] == 1) then

                poff("s0");

            elseif (dt_wires_room.connections[conn] == 2) then

                poff("s1");

            elseif (dt_wires_room.connections[conn] == 3) then

                poff("s2");

            elseif (dt_wires_room.connections[conn] == 4) then

                poff("s3");

            elseif (dt_wires_room.connections[conn] == 5) then

                poff("s4");

            elseif (dt_wires_room.connections[conn] == 6) then

                poff("s5");

            end;

        end;

        psub("socket");

    end;

    phr = { 

        {tag="wire"};

        {

            tag = "w0", always = true, 

            function(s)

                local connect = "не подключен";

                if (dt_wires_room.connections[1] ~= nil) then

                    connect = dt_wire_colors[dt_wires_room.connections[1]] .. " разъем";

                    return "Отсоединить фиолетовый провод (".. connect .. ")";

                else

                    return "Выбрать фиолетовый провод (".. connect .. ")";

                end;

            end, function(s)

                if (dt_wires_room.connections[1] ~= nil) then

                    dt_wires_room.connections[1] = nil;

                    return "Вы отсоединяете провод";

                else

                    dt_wires_room.selected = 1;

                    dt_wires_room:choose_socket();

                    return "Куда подключить?";

                end;

            end

        };

        {

            tag = "w1", always = true, 

            function(s)

                local connect = "не подключен";

                if (dt_wires_room.connections[2] ~= nil) then

                    connect = dt_wire_colors[dt_wires_room.connections[2]] .. " разъем";

                    return "Отсоединить синий провод (".. connect .. ")";

                else

                    return "Выбрать синий провод (".. connect .. ")";

                end;

            end, function(s)

                if (dt_wires_room.connections[2] ~= nil) then

                    dt_wires_room.connections[2] = nil;

                    return "Вы отсоединяете провод";

                else

                    dt_wires_room.selected = 2;

                    dt_wires_room:choose_socket();

                    return "Куда подключить?";

                end;

            end

        };

        {

            tag = "w2", always = true, 

            function(s)

                local connect = "не подключен";

                if (dt_wires_room.connections[3] ~= nil) then

                    connect = dt_wire_colors[dt_wires_room.connections[3]] .. " разъем";

                    return "Отсоединить зеленый провод (".. connect .. ")";

                else

                    return "Выбрать зеленый провод (".. connect .. ")";

                end;

            end, function(s)

                if (dt_wires_room.connections[3] ~= nil) then

                    dt_wires_room.connections[3] = nil;

                    return "Вы отсоединяете провод";

                else

                    dt_wires_room.selected = 3;

                    dt_wires_room:choose_socket();

                    return "Куда подключить?";

                end;

            end

        };

        {

            tag = "w3", always = true, 

            function(s)

                local connect = "не подключен";

                if (dt_wires_room.connections[4] ~= nil) then

                    connect = dt_wire_colors[dt_wires_room.connections[4]] .. " разъем";

                    return "Отсоединить желтый провод (".. connect .. ")";

                else

                    return "Выбрать желтый провод (".. connect .. ")";

                end;

            end, function(s)

                if (dt_wires_room.connections[4] ~= nil) then

                    dt_wires_room.connections[4] = nil;

                    return "Вы отсоединяете провод";

                else

                    dt_wires_room.selected = 4;

                    dt_wires_room:choose_socket();

                    return "Куда подключить?";

                end;

            end

        };

        {

            tag = "w4", always = true, 

            function(s)

                local connect = "не подключен";

                if (dt_wires_room.connections[5] ~= nil) then

                    connect = dt_wire_colors[dt_wires_room.connections[5]] .. " разъем";

                    return "Отсоединить оранжевый провод (".. connect .. ")";

                else

                    return "Выбрать оранжевый провод (".. connect .. ")";

                end;

            end, function(s)

                if (dt_wires_room.connections[5] ~= nil) then

                    dt_wires_room.connections[5] = nil;

                    return "Вы отсоединяете провод";

                else

                    dt_wires_room.selected = 5;

                    dt_wires_room:choose_socket();

                    return "Куда подключить?";

                end;

            end

        };

        {

            tag = "w5", always = true, 

            function(s)

                local connect = "не подключен";

                if (dt_wires_room.connections[6] ~= nil) then

                    connect = dt_wire_colors[dt_wires_room.connections[6]] .. " разъем";

                    return "Отсоединить красный провод (".. connect .. ")";

                else

                    return "Выбрать красный провод (".. connect .. ")";

                end;

            end, function(s)

                if (dt_wires_room.connections[6] ~= nil) then

                    dt_wires_room.connections[6] = nil;

                    return "Вы отсоединяете провод";

                else

                    dt_wires_room.selected = 6;

                    dt_wires_room:choose_socket();

                    return "Куда подключить?";

                end;

            end

        };

        {

            tag = "leave", always = true, "Отойти от панели", code = [[ walk("dt_temple_entrance"); ]]

        };

        {tag="socket"};

        {

            tag = "s0", always = true,

            "В фиолетовый разъем", function(s)

                dt_wires_room.connections[dt_wires_room.selected] = 1;

                psub("wire");

                return "Провод подключен";

            end

        };

        {

            tag = "s1", always = true,

            "В синий разъем", function(s)

                dt_wires_room.connections[dt_wires_room.selected] = 2;

                psub("wire");

                return "Провод подключен";

            end

        };

        {

            tag = "s2", always = true,

            "В зеленый разъем", function(s)

                dt_wires_room.connections[dt_wires_room.selected] = 3;

                psub("wire");

                return "Провод подключен";

            end

        };

        {

            tag = "s3", always = true,

            "В желтый разъем", function(s)

                dt_wires_room.connections[dt_wires_room.selected] = 4;

                psub("wire");

                return "Провод подключен";

            end

        };

        {

            tag = "s4", always = true,

            "В оранжевый разъем", function(s)

                dt_wires_room.connections[dt_wires_room.selected] = 5;

                psub("wire");

                return "Провод подключен";

            end

        };

        {

            tag = "s5", always = true,

            "В красный разъем", function(s)

                dt_wires_room.connections[dt_wires_room.selected] = 6;

                psub("wire");

                return "Провод подключен";

            end

        };

    };   

};

dt_temple = room {

    var {

        state = 0;

    };

    nam = "dt_temple";

    disp = "Древний храм";

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

    obj = {

        "dt_walls",

        "dt_pedestal",

        "dt_screens",

        "item_naethvjirr_key"

    };

    way = {

        kh_vroom("Выйти", "dt_temple_entrance");

    };

};

dt_walls = obj {

    nam = "dt_walls";

    dsc = [[Стены зала, освещенные такими же лампами, как и внешнее помещение, украшены множеством предостерегающих рисунков и символов. ]];

};

dt_pedestal = obj {

    nam = "dt_pedestal";

    dsc = [[В центре зала установлен массивный металлический пьедестал. ]];

};

dt_screens = obj {

    nam = "dt_screens";

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

}

dt_fight_intro = cutscene('Левиафан', 'Левиафан', [[Оказавшись внутри Левиафана, вы со всех ног бросаетесь в рубку, чтобы увести корабль подальше от опасности, но не тут то было. Громадная туша нависла над Левиафаном, преграждая своими щупальцами пути отхода. ]], 'dt_fight');

dt_fight = room {

    var {

        state = 0;

        has_shot = false;

        rotation = 90;

        dir = 0;

        tentacles = {

            {hp=200, dir=0, away = 0 };

            {hp=200, dir=1, away = 0 };

            {hp=200, dir=2, away = 0 };

            {hp=200, dir=3, away = 0 };

            {hp=200, dir=4, away = 0 };

        };

    };

    nam = "dt_fight";

    disp = "Левиафан, рубка";

    not_follow = true;

    forcedsc = true;

    entered = function(s)

        s:maketurn();

        if (s.state == 0) then

            s.state = 1;

            local dirs = {0,1,2,3,4,5,6,7};

            for i = 1, #s.tentacles do

                local cd = rnd(#dirs);

                s.tentacles[i].dir = dirs[cd];

                table.remove(dirs, cd);

            end;

        end;

    end;

    eval_tentacle = function(s, tentacle)

        if (tentacle.hp <= 70) then

            return [[Серьезно раненое щупальце ]];

        elseif (tentacle.hp <= 140) then

            return [[Раненое щупальце ]];

        elseif (tentacle.hp < 200) then

            return [[Легко раненое щупальце ]];

        else

            return [[Щупальце ]];

        end;

    end;

    dsc = function(s)

        local fr = s.dir + 1;

        local r = s.dir + 2;

        local br = s.dir + 3;

        local b = s.dir + 4;

        local fl = s.dir - 1;

        local l = s.dir - 2;

        local bl = s.dir - 3;

        if (fr > 7) then

            fr = fr - 8;

        end;

        if (r > 7) then

            r = r - 8;

        end;

        if (br > 7) then

            br = br - 8;

        end;

        if (b > 7) then

            b = b - 8;

        end;

        if (fl < 0) then

            fl = fl + 8;

        end;

        if (l < 0) then

            l = l + 8;

        end;

        if (bl < 0) then

            bl = bl + 8;

        end;

--        for i = 1, #s.tentacles do

--            pr(s.tentacles[i].hp .. " ");

--        end;

--        pr("^");

        pr [[Щупальца кракена тянутся к Левиафану. ]];

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == s.dir and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится прямо перед субмариной. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == fr and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится спереди и справа от субмарины. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == fl and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится спереди и слева от субмарины. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == r and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится справа по борту. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == l and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится слева по борту. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == b and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится сзади. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == bl and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится сзади и слева. ]]);

            end;

        end;

        for i = 1, #s.tentacles do 

            if (s.tentacles[i].hp > 0 and s.tentacles[i].dir == br and s.tentacles[i].away == 0) then

                pr(s:eval_tentacle(s.tentacles[i]) .. [[ находится сзади и справа. ]]);

            end;

        end;

    end;

    maketurn = function(s)

        local dcnt = 0;

        if (s.has_shot) then

            local fr = s.dir + 1;

            local r = s.dir + 2;

            local br = s.dir + 3;

            local b = s.dir + 4;

            local fl = s.dir - 1;

            local l = s.dir - 2;

            local bl = s.dir - 3;

            if (fr > 7) then

                fr = fr - 8;

            end;

            if (r > 7) then

                r = r - 8;

            end;

            if (br > 7) then

                br = br - 8;

            end;

            if (b > 7) then

                b = b - 8;

            end;

            if (fl < 0) then

                fl = fl + 8;

            end;

            if (l < 0) then

                l = l + 8;

            end;

            if (bl < 0) then

                bl = bl + 8;

            end;

            s.has_shot = false;

            s.rotation = 90;

            for i = 1, #s.tentacles do 

                if (s.tentacles[i].hp > 0) then

                    if (s.tentacles[i].away > 0) then

                        s.tentacles[i].away = s.tentacles[i].away - 1;

                        if (s.tentacles[i].away == 0) then

                            --TODO show up somewhere

                            local dirs = {};

                            for j = 1, #s.tentacles do 

                                if (s.tentacles[j].hp > 0 and s.tentacles[j].away == 0) then

                                    table.insert(dirs, s.tentacles[j].dir);

                                end;

                            end;

                            local newdir;

                            repeat 

                                newdir = rnd(8) - 1;

                            until ArrayUtils.indexOf(dirs, newdir) == 0;

                            s.tentacles[i].dir = newdir;

                            if (s.tentacles[i].hp <= 70) then

                                pr [[Серьезно раненое щупальце ]];

                            elseif (s.tentacles[i].hp <= 140) then

                                pr [[Раненое щупальце ]];

                            elseif (s.tentacles[i].hp < 200) then

                                pr [[Легко раненое щупальце ]];

                            end;

                            if (newdir == f) then

                                pr [[подтягивается спереди. ]];

                            elseif (newdir == fr) then

                                pr [[подтягивается спереди справа. ]];

                            elseif (newdir == fl) then

                                pr [[подтягивается спереди слева. ]];

                            elseif (newdir == r) then

                                pr [[подтягивается справа. ]];

                            elseif (newdir == l) then

                                pr [[подтягивается слева. ]];

                            elseif (newdir == br) then

                                pr [[подтягивается сзади справа. ]];

                            elseif (newdir == bl) then

                                pr [[подтягивается сзади слева. ]];

                            elseif (newdir == b) then

                                pr [[подтягивается сзади. ]];

                            end;

                        end;

                    else

                        --TODO hit leviathan or hide up

                        if (rnd(8) > 1) then

                            submarine_leviathan.hull_integrity = submarine_leviathan.hull_integrity - 5;

                            pr [[Кракен ударяет Левиафан щупальцем. ]];

                        else

                            s.tentacles[i].away = 1;

                            pr [[Кракен отдергивает одно из щупалец. ]];

                        end;

                    end;

                else

                    dcnt = dcnt + 1;

                end;

            end;

        end;

        if (dcnt > 2) then

            walk("dt_kraken_victory");

        end;

        dt_f_rotate_ccw45:enable();

        dt_f_rotate_cw45:enable();

        dt_f_sonic:enable();

        if (submarine_leviathan.torpedoes == 0) then

            dt_f_torpedo:disable();

        else

            dt_f_torpedo:enable();

        end;

        if (submarine_leviathan.torpedoes == 2) then

            dt_f_recharge:disable();

        else

            dt_f_recharge:enable();

        end;

        if (s.rotation < 45) then

            dt_f_rotate_ccw45:disable();

            dt_f_rotate_cw45:disable();

        end;

        if (s.has_shot) then