games/Awakening Changeset - 25b358e1f394

dt_intro = lcutscene('Левиафан, рубка', 'Левиафан, рубка', [[Следуя карте, найденной в светодиске, вы следуете к древнейшему из известных вам навьярских сооружений. Через месяц пути вы оказываетесь в глубоком лабиринте ущелий. Здесь вам предстоит найти искомое. ]], 'Вы прибыли в древний храм. ', 'dt_labyrinth');

dt_labyrinth_foot = room {

    nam = "dt_labyrinth_foot";

    no_exit = [[

        Нет смысла покидать Левиафан здесь.

]];

    view = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]];

    handwheel_room = "dt_labyrinth";

};

dt_labyrinth_ravine_foot = room {

    nam = "dt_labyrinth_ravine_foot";

    no_exit = [[

        Нет смысла покидать Левиафан здесь.

]];

    view = [[Вы находитесь в лабиринте ущелий и впадин. Под вами с северо-запада на юго-восток простирается глубокая расщелина. Где-то здесь скрыт древний навьярский храм. ]];

    handwheel_room = "dt_labyrinth";

};

dt_labyrinth_bridge = room {

    nam = "dt_labyrinth_bridge";

    no_exit = [[

         Вы не сможете высадиться здесь.

]];

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

    handwheel_room = "dt_labyrinth";

};

dt_labyrinth_ravine_bridge_nw_foot = room {

    nam = "dt_labyrinth_ravine_bridge_nw_foot";

    no_exit = [[

        Нет смысла покидать Левиафан здесь.

]];

    view = [[Вы находитесь в лабиринте ущелий и впадин. Под вами с северо-запада на юго-восток простирается глубокая расщелина. На юго-востоке вы видите узкий каменный мостик, протянувшийся над бездной. Из отверстия в скале напротив моста исходит яркий свет.]];

    handwheel_room = "dt_labyrinth";

};

dt_labyrinth_ravine_bridge_se_foot = room {

    nam = "dt_labyrinth_ravine_bridge_se_foot";

    no_exit = [[

        Нет смысла покидать Левиафан здесь.

]];

    view = [[Вы находитесь в лабиринте ущелий и впадин. Под вами с северо-запада на юго-восток простирается глубокая расщелина. На северо-западе вы видите узкий каменный мостик, протянувшийся над бездной. Из отверстия в скале напротив моста исходит яркий свет.]];

    handwheel_room = "dt_labyrinth";

};

--id, dsc, directions, where, leviathan_where

dt_labyrinth_map = {

    ["01"] = {

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

        ne = "02",

        where = dt_labyrinth_foot

};

    ["02"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        sw = "01",

        e = "03",

        where = dt_labyrinth_foot

};

    ["03"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        w = "02",

        ne = "04",

        where = dt_labyrinth_foot

};

    ["04"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        sw = "03",

        nw = "05",

        e = "07",

        where = dt_labyrinth_foot

};

    ["05"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        se = "04",

        n = "06",

        where = dt_labyrinth_foot

};

    ["06"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        s = "05",

        where = dt_labyrinth_foot

};

    ["07"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        w = "04",

        n = "08",

        se = "09",

        where = dt_labyrinth_foot

};

    ["08"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        s = "07",

        where = dt_labyrinth_foot

};

    ["09"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        w = "33",

        ne = "10",

        nw = "07",

        where = dt_labyrinth_foot

};

    ["10"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "11",

        sw = "09",

        where = dt_labyrinth_foot

};

    ["11"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Под вами с северо-запада на юго-восток простирается глубокая расщелина. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "13",

        se = "14",

        nw = "12",

        sw = "10",

        where = dt_labyrinth_ravine_foot

};

    ["12"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Под вами простирается глубокая расщелина. Она продолжается на северо-запад настолько далеко, насколько хватает мощности прожектора Левиафана, однако, судя по карте, вам нет смысла двигаться в том направлении. ]],

        se = "11",

        where = dt_labyrinth_ravine_foot

};

    ["13"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        sw = "11",

        where = dt_labyrinth_foot

};

    ["14"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Под вами с северо-запада на юго-восток простирается глубокая расщелина. На юго-востоке вы видите узкий каменный мостик, протянувшийся над бездной. Из отверстия в скале напротив моста исходит яркий свет. ]],

        nw = "11",

        se = "15",

        where = dt_labyrinth_ravine_bridge_nw_foot

};

    ["15"] = {

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

        nw = "14",

        se = "17",

        sw = "19",

        where = dt_labyrinth_bridge

};

    ["16"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "35",

        where = dt_labyrinth_foot

};

    ["17"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Под вами с северо-запада на юго-восток простирается глубокая расщелина. На северо-западе вы видите узкий каменный мостик, протянувшийся над бездной. Из отверстия в скале напротив моста исходит яркий свет. ]],

        nw = "15",

        where = dt_labyrinth_ravine_bridge_se_foot

};

    ["18"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "31",

        where = dt_labyrinth_foot

};

    ["19"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. на северо-востоке вы видите глубокую расщелину, простирающуюся с северо-запада на юго-восток. над расщелиной висит узкий каменный мостик. Из отверстия в скале напротив него исходит яркий свет. ]],

        ne = "15",

        w = "20",

        where = "dt_temple_ravine"

};

    ["20"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        e = "19",

        s = "21",

        where = dt_labyrinth_foot

};

    ["21"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        n = "20",

        se = "22",

        where = dt_labyrinth_foot

};

    ["22"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        nw = "21",

        sw = "23",

        where = dt_labyrinth_foot

};

    ["23"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "22",

        w = "24",

        where = dt_labyrinth_foot

};

    ["24"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        e = "23",

        sw = "25",

        where = dt_labyrinth_foot

};

    ["25"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "24",

        nw = "26",

        where = dt_labyrinth_foot

};

    ["26"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "27",

        se = "25",

        where = dt_labyrinth_foot

};

    ["27"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "28",

        sw = "26",

        nw = "30",

        where = dt_labyrinth_foot

};

    ["28"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        sw = "27",

        nw = "29",

        where = dt_labyrinth_foot

};

    ["29"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        se = "28",

        where = dt_labyrinth_foot

};

    ["30"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        se = "27",

        w = "31",

        where = dt_labyrinth_foot

};

    ["31"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        e = "30",

        n = "32",

        w = "34",

        sw = "18",

        where = dt_labyrinth_foot

};

    ["32"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        ne = "33",

        s = "31",

        where = dt_labyrinth_foot

};

    ["33"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        e = "09",

        sw = "32",

        where = dt_labyrinth_foot

};

    ["34"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        e = "31",

        w = "35",

        where = dt_labyrinth_foot

};

    ["35"] = {

        dsc = [[Вы находитесь в лабиринте ущелий и впадин. Где-то здесь скрыт древний навьярский храм. ]],

        e = "34",

        sw = "16",

        where = dt_labyrinth_foot

};

};

dt_labyrinth = room {

    var {

        location = "01";

};

    no_exit = [[Нет смысла покидать Левиафан здесь. ]];

    nam = "Штурвал Левиафана";

    not_follow = true;

    dsc = function(s)

        return dt_labyrinth_map[dt_labyrinth.location].dsc;

    end;

    entered = function(s)

        s:update();

    end;

    update = function(s)

        dt_north:disable();

        dt_north_east:disable();

        dt_east:disable();

        dt_south_east:disable();

        dt_south:disable();

        dt_south_west:disable();

        dt_west:disable();

        dt_north_west:disable();

        if (dt_labyrinth_map[dt_labyrinth.location].n) then

            dt_north:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].ne) then

            dt_north_east:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].e) then

            dt_east:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].se) then

            dt_south_east:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].s) then

            dt_south:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].sw) then

            dt_south_west:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].w) then

            dt_west:enable();

        end;

        if (dt_labyrinth_map[dt_labyrinth.location].nw) then

            dt_north_west:enable();

        end;

        move(submarine_leviathan, dt_labyrinth_map[dt_labyrinth.location].where);

    end;

    way = {

        kh_vroom("Отойти от штурвала", "leviathan_wheelhouse");

};

    obj = {

        "dt_north",

        "dt_north_east",

        "dt_east",

        "dt_south_east",

        "dt_south",

        "dt_south_west",

        "dt_west",

        "dt_north_west"

};

};

dt_north = obj {

    nam = "dt_north";

    dsc = "{На север}^";

    act = function(s)

        pr [[Вы движетесь на север. ]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].n;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_north_east = obj {

    nam = "dt_north_east";

    dsc = "{На северо-восток}^";

    act = function(s)

        pr [[

            Вы движетесь на северо-восток.

]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].ne;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_east = obj {

    nam = "dt_east";

    dsc = "{На восток}^";

    act = function(s)

        pr [[

            Вы движетесь на восток.

]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].e;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_south_east = obj {

    nam = "dt_south_east";

    dsc = "{На юго-восток}^";

    act = function(s)

        pr [[

            Вы движетесь на юго-восток.

]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].se;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_south = obj {

    nam = "dt_south";

    dsc = "{На юг}^";

    act = function(s)

        pr [[

            Вы движетесь на юг.

]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].s;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_south_west = obj {

    nam = "dt_south_west";

    dsc = "{На юго-запад}^";

    act = function(s)

        pr [[

            Вы движетесь на юго-запад.

]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].sw;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_west = obj {

    nam = "dt_west";

    dsc = "{На запад}^";

    act = function(s)

        pr [[

            Вы движетесь на запад.

]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].w;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_north_west = obj {

    nam = "dt_north_west";

    dsc = "{На северо-запад}^";

    act = function(s)

        pr [[Вы движетесь на северо-запад. ]];

        dt_labyrinth.location = dt_labyrinth_map[dt_labyrinth.location].nw;

        dt_labyrinth:update();

        pr(dt_labyrinth_map[dt_labyrinth.location].dsc);

    end;

};

dt_temple_ravine = room {

    nam = "dt_temple_ravine";

    handwheel_room = "dt_labyrinth";

    disp = "Ущелье";

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

    dsc = function(s)

        if dt_temple_bridge1.state == 2 then

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

        else

            return [[Вы стоите на дне расщелины. К северо-востоку от вас находится глубокое ущелье. Через ущелье переброшен узкий каменный мостик, на другом конце которого вы видите в скале прямоугольное отверстие явно искусственного происхождения. Из отверстия исходит яркий свет. ]];

        end;

    end;

    view = [[Вы находитесь в лабиринте ущелий и впадин. на северо-востоке вы видите глубокую расщелину, простирающуюся с северо-запада на юго-восток. над расщелиной висит узкий каменный мостик. Из отверстия в скале напротив него исходит яркий свет. ]];

    way = {

        kh_vroom("В Левиафан", "leviathan_airlock");

        kh_vroom("На мост", "dt_temple_bridge1");

};

};

dt_temple_bridge1 = room {

    var {

        state = 0;

};

    nam = "dt_temple_bridge1";

    disp = "Мост над пропастью";

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

    dsc = function(s)

        if s.state == 2 then

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

        else

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

        end;

    end;

    entered = function(s)

        char_radcliffe:accompany(false);

        char_wright:accompany(false);

        char_anna:accompany(false);

        if (s.state == 0) then

            s.state = 1;

            if (char_learr.follow) then

                pr [[Леарр с сомнением смотрит на шаткую постройку и по ее головным плавникам бегут цветные полосы: "Не думаю, что мост выдержит нас обоих, я поплыву сверху". ]];

            end;

            if (char_phaetlarr.follow) then

                pr [[Фаэтларр осматривает мост и по его головным плавникам бегут цветные полосы: "Я бы не рискнул пойти по нему, но у тебя, хевьяр, кажется нет выбора", - навьяр смотрит на вас со странной ухмылкой. ]];

            end;

            if (char_radcliffe.follow) then

                pr [[В динамиках раздается голос Уолтера Рэдклиффа: "Я не думаю, что мост выдержит нас обоих. Если тебе нужен помощник, то навьяр здесь будет полезнее. К тому же, это их святилище". ]];

            end;

            if (char_wright.follow) then

                pr [[В динамиках раздается голос Джека Райта: "Нам точно стоит идти здесь? Мост не выглядит надежным. Думаю, тебе стоит взять навьяра, если тебе нужен спутник". ]];

            end;

            if (char_anna.follow) then

                pr [[В динамиках раздается голос Анны Рэдклифф: "Думаю, мост без проблем выдержит одного из нас. Удачи. Мне кажется, тебе лучше было бы идти с навьяром". ]];

            end;

        end;

        if have(item_naethvjirr_key) then

            s.state = 2;

            path('Дальше по мосту'):disable();

            path('На мост', dt_temple_ravine): disable();

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

        end;

    end;

    way = {

        kh_vroom("В ущелье", "dt_temple_ravine");

        kh_vroom("Дальше по мосту", "dt_temple_bridge2");

};

};

dt_temple_bridge2 = room {

    var {

        state = 0;

};

    nam = "dt_temple_bridge2";

    disp = "Мост над пропастью";

    dsc = [[

        Вы почти дошли до проема в скале. Вам кажется, что внизу, в бездне движется что-то огромное.

]];

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

    entered = function(s)

        if (s.state == 0) then

            s.state = 1;

            if (char_learr.follow) then

                pr [[

                    По головным плавникам Леарр бегут цветные полосы: "Что это? Там, внизу".

]];

                pr [[По головным плавникам Леарр бегут цветные полосы: "Что это? Там, внизу". ]];

            end;

            if (char_phaetlarr.follow) then

                pr [[

                    По головным плавникам Фаэтларра бегут цветные полосы: "Ты видишь это, хевьяр?".

]];

                pr [[По головным плавникам Фаэтларра бегут цветные полосы: "Ты видишь это, хевьяр?". ]];

            end;

            end;

        if have(item_naethvjirr_key) then

            pr [[Мост под вами содрогается, глянув вниз, вы замечаете какое-то движение в глубине. Что бы это ни было, оно движется наверх. ]];

        end;

    end;

    way = {

        kh_vroom("К ущелью", "dt_temple_bridge1");

        kh_vroom("В проем", "dt_temple_entrance");

};

};

dt_temple_entrance = room {

    var {

        state = 0;

        open = false;

};

    nam = "dt_temple_entrance";

    disp = "У входа в храм";

    dsc = function(s)

        if (dt_temple_entrance.open) then

            return [[

                Вы находитесь в небольшом помещении, ярко освещенном лампами в виде длинных трубок. Стены вокруг покрыты навьярскими письменами. Дверь во внутреннее помещение храма открыта.

]];

        else

            return [[

                Вы находитесь в небольшом помещении, ярко освещенном лампами в виде длинных трубок. Стены вокруг покрыты навьярскими письменами. Тяжелая дверь во внутреннее помещение храма заблокирована.

]];

        end;

    end;

    entered = function(s)

        if (s.state == 0) then

            s.state = 1;

            if (char_learr.follow) then

                pr [[

                    Леарр с интересом рассматривает древние письмена. По ее головным плавникам бегут цветные полосы: "Потрясающе! Это слова наших предков. Тех, кто видел Лсэрианотр собственными глазами, а может даже и самих создателей Спящего в Глубинах!".

]];

            end;

            if (char_phaetlarr.follow) then

                pr [[

                    Фаэтларр бегло осматривает письмена: "Кажется, Дрейк кое-что упустил. Хорошо, что мы здесь хевьяр".

]];

            end;

        end;

    end;

    obj = {

        "dt_terminal",

        "dt_wires"

};

    way = {

        kh_vroom("К ущелью", "dt_temple_bridge2");

        kh_vroom("В храм", function(s)

            if (dt_temple_entrance.open) then

                return "dt_temple";

            else

                pr [[Дверь заперта. ]];

                return false;

            end;

        end);

};

};

dt_terminal = obj {

    nam = "dt_terminal";

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

    act = function(s)

        walkin("dt_terminal_room");

    end;

};

dt_wires = obj {

    nam = "dt_wires";

    dsc = [[Под пультом вы видите открытую {панель} с какими-то проводами. ]];

    act = function(s)

        walkin("dt_wires_room");

    end;

};

dt_terminal_room = room {

    var {

        code = {};

};

    not_follow = true;

    nam = "dt_terminal_room";

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

    forcedsc = true;

    dsc = function(s)

        local r = "";

        if (#s.code == 0) then

            r = "Вы стоите перед небольшим пультом. На экране пусто. ";

        else

            r = "Вы стоите перед небольшим пультом. На экране вы видите следующую последовательность цветов: ";

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

                r = r .. dt_wire_colors[s.code[i]] .. ", ";

            end;

            r = r .. dt_wire_colors[s.code[#s.code]] .. ". ";

        end;

        r = r .. "Под экраном расположены шесть кнопок. "

        return r;

    end;

    way = {

        kh_vroom("Отойти от терминала", "dt_temple_entrance");

};

    obj = {

        "dt_term1",

        "dt_term2",

        "dt_term3",

        "dt_term4",

        "dt_term5",

        "dt_term6"

};

    check = function(s)

        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,

};

        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 = 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 = "Левиафан, рубка";

    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

            dt_f_torpedo:disable();

            dt_f_sonic:disable();

        end;

        if (submarine_leviathan.hull_integrity <= 0) then

            walk("game_over_kraken");

        end;

    end;

    obj = {

        "dt_f_rotate_ccw45",

        "dt_f_rotate_cw45",

        "dt_f_torpedo",

        "dt_f_sonic",

        "dt_f_recharge",

        "dt_f_wait"

};

};

dt_f_rotate_ccw45 = obj {

    nam = "dt_f_rotate_ccw45";

    dsc = "{Повернуть на 45 градусов против часовой стрелки}^";

    act = function(s)

        dt_fight.dir = dt_fight.dir - 1;

        if (dt_fight.dir < 0) then

            dt_fight.dir = dt_fight.dir + 8;

        end;

        dt_fight.rotation = dt_fight.rotation - 45;

        pr "Субмарина поворачивает против часовой стрелки. ";

        dt_fight:maketurn();

    end;

};

dt_f_rotate_cw45 = obj {

    nam = "dt_f_rotate_cw45";

    dsc = "{Повернуть на 45 градусов по часовой стрелке}^";

    act = function(s)

        dt_fight.dir = dt_fight.dir + 1;

        if (dt_fight.dir > 7) then

            dt_fight.dir = dt_fight.dir - 8;

        end;

        dt_fight.rotation = dt_fight.rotation - 45;

        pr  "Субмарина поворачивает по часовой стрелке. ";

        dt_fight:maketurn();

    end;

};

dt_f_torpedo = obj {

    nam = "dt_f_torpedo";

    dsc = "{Выстрелить торпедой}^";

    act = function(s)

        pr "Вы выпускаете торпеду. ";

        dt_fight.has_shot = true;

        submarine_leviathan.torpedoes = submarine_leviathan.torpedoes - 1;

        for i=1, #dt_fight.tentacles do

            if dt_fight.tentacles[i].dir == dt_fight.dir and dt_fight.tentacles[i].hp > 0 and dt_fight.tentacles[i].away == 0 then

                dt_fight.tentacles[i].hp = dt_fight.tentacles[i].hp - 70;

                dt_fight.tentacles[i].away = 2;

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

                    pr "Торпеда попадает в одно из щупалец, нанеся ему существенный урон. Кракен резко отдергивает его. ";

                else

                    pr "Щупальце отрывает взрывом. Кракен бьется в конвульсиях. ";

                end;

            end;