syntax: glob

build/**

    atl_iyh_aikerjarr_spoken = false;

    atl_iyh2_aikerjarr_spoken = false;

    atl_lfc_court_allowed = false;

    atl_lfc_leroy_goldman = false;

    atl_fta_darkstar_debrief = false;

    atl_ctt_iraa_refusal = false;

    atl_star_map_copied = false;

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

        return [[Несколько недель Левиафан полным ходом несется по направлению к таинственной точке, отмеченной на карте. Путешествие происходит спокойно -- могучие машины субмарины уверенно двигают ее вперед. Управлять огромным кораблем в одиночку непросто. Вы почти не спите, опасаясь оставлять движение судна без внимания. Однако, вы без проблем добираетесь до места назначения. Здесь, на океанском дне вы видите несколько больших металлических и стеклянных куполов, освещенных электрическими огнями. Приблизившись, вы быстро находите путь в одно из строений. Как только Левиафан проникает внутрь, массивные ворота закрываются, отрезая вас от внешнего мира. ]];

end, "Вы прибыли на Атлантиду. ", leviathan_wheelhouse);

        char_learr:accompany(false);

        char_radcliffe:accompany(false);

        char_anna:accompany(false);

        char_wright:accompany(false);

			elseif atl_iyh_shockfish_dead then

                walk('iyh_outro_learr_shockfish_dead');

            elseif atl_iyh_entrance_destroyed then

				walk('iyh_outro_learr_temple_destroyed');

            else

                walk('iyh_outro_learr');

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

    nam = "Атлантида, Аква, центральный коридор";

    dsc = [[Широкий коридор, заполненный ярким светом электрических ламп. В одном конце коридора расположена шлюзовая дверь, ведущая, в секцию _"Доминус"_. По бокам коридора находятся еще несколько дверей, ведущих в другие помещения секции -- по большей части это склады. Еще две двери ведут в коридоры A и B. ]];

    way = {

        kh_vroom("На склад A", function()

            pr("Люк наглухо задраен. Вы не сможете его открыть. ");

            return false;

        end);

        kh_vroom("На склад B", function()

            if atl_nih_state == 1 or atl_nih_state == 2 then

                return "atl_aqua_warehouse_b";

            else

                pr("Люк наглухо задраен. Вы не сможете его открыть. ");

                return false;

            end;

        end);

        kh_vroom("На склад C", function()

            pr("Люк наглухо задраен. Вы не сможете его открыть. ");

            return false;

        end);

        kh_vroom("На склад D", function()

            pr("Люк наглухо задраен. Вы не сможете его открыть. ");

            return false;

        end);

        kh_vroom("В коридор A", "atl_aqua_corridor_a");

        kh_vroom("В коридор B", "atl_aqua_corridor_b");

        kh_vroom("В секцию \"Доминус\"", "atl_intersection_aqua_dom");

    };

    obj = {

        "atl_illuminators",

        "atl_nih_tubes_aqua"

    };

};

atl_aqua_warehouse_b = darkroom {

    var {

        has_light = false;

    };

    nam = "Атлантида, Аква, склад B";

    dsc_dark = [[Большое помещение без окон погружено в кромешный мрак. В темноте вы с трудом различаете очертания предметов. ]];

    dsc_halflit = [[Слабый свет лампы позволяет вам с трудом ориентироваться в помещении,заставленном различными ящиками. ]];

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

    way = {

        kh_vroom("В коридор", "atl_aqua_main_corridor", nil, 2);

    };

    obj = {

        "atl_aqua_warehouse_b_lightswitch";

        "atl_nih_tube_container2";

    };

};

atl_aqua_warehouse_b_lightswitch = obj {

    nam = "atl_aqua_warehouse_b_lightswitch";

    dsc = [[Рядом со входом расположен {выключатель}. ]];

    seen_level = 2;

    act = function(s)

        atl_aqua_warehouse_b.has_light = not atl_aqua_warehouse_b.has_light;

        if atl_aqua_warehouse_b.has_light then

            return [[Вы щелкаете выключателем и яркий свет электрических ламп заливает помещение. ]];

        else

            return [[Вы щелкаете выключателем и лампы гаснут, погружая помещение в кромешную тьму. ]];

        end;

    end;

    return v;

		kh_vroom("В лифт", function(s)

            if atl_iof_completed then

                pr("Лифт не работает. ");

                return false;

            else      

                return "atl_dom_lift";

            end;

        end);

		kh_vroom("К секции Аква", "atl_dom_main_near_aqua");

		kh_vroom("К кабинету администратора", "atl_dom_main_near_adm");

		kh_vroom("К секции Арктос", "atl_dom_main_near_arctos");

        kh_vroom("К секции Терра", "atl_dom_main_near_terra");

        kh_vroom("К секции Окулус", "atl_dom_main_near_oculus");

        kh_vroom("К секции Луна", "atl_dom_main_near_luna");

		kh_vroom("К коридору А", "atl_dom_main_near_a");

	dsc = [[Огромный круглый зал освещенный электрическими лампами, установленными на многочисленных колоннах. Стеклянный купол над головой ограждает вас от многотонной громады океанских вод. Над куполом расположен огромный металлический диск секции Игнис, расположенной над центральным залом Доминуса. Рядом с вами находится шлюз, ведущий в секцию "Луна". ]];

		kh_vroom("По часовой стрелке", "atl_dom_main_near_a");

        kh_vroom("Против часовой стрелки", "atl_dom_main_near_oculus");

        kh_vroom("К центру зала", "atl_dom_main_c");

		kh_vroom("По часовой стрелке", "atl_dom_main_near_luna");

        kh_vroom("Против часовой стрелки", "atl_dom_main_near_terra");

        kh_vroom("К центру зала", "atl_dom_main_c");

		kh_vroom("По часовой стрелке", "atl_dom_main_near_oculus");

        kh_vroom("Против часовой стрелки", "atl_dom_main_near_arctos");

        kh_vroom("К центру зала", "atl_dom_main_c");

		kh_vroom("По часовой стрелке", "atl_dom_main_near_terra");

        kh_vroom("Против часовой стрелки", "atl_dom_main_near_adm");

        kh_vroom("К центру зала", "atl_dom_main_c");

		kh_vroom("В комнату Голдмана", function(s)

            if goldman_state == 0 then

                return "atl_arctos_goldmans_room";

            else

                p([[Заперто. ]]);

                return false;

            end;

        end);

    way = {

        kh_vroom("В главный коридор", "atl_arctos_main_corridor");

    };

    way = {

        kh_vroom("В главный коридор", "atl_arctos_main_corridor");

    };   

    nam = "Атлантида, Терра, главный коридор";

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

    way = {

        kh_vroom("В мастерскую A", "atl_terra_workshop_a");

        kh_vroom("В мастерскую B", "atl_terra_workshop_b");

        kh_vroom("В мастерскую C", "atl_terra_workshop_c");

        kh_vroom("В мастерскую D", "atl_terra_workshop_d");

        kh_vroom("В секцию Солис", function()

            if (atl_fta_state == 1) then

                return "atl_fta_is_terra_solis";

            else

                pr("Люк наглухо задраен. Вы не сможете его открыть. ");

                return false;

            end;

        end);

kh_vroom("В секцию Доминус", "atl_intersection_terra_dom");

    };

    obj = {

        "atl_nih_tube_container";

        "atl_nih_boxes_terra";

    };

        item_electric_lamp:disable(),

    obj = {

        "item_dynamo";

    };   

        if (char_darkstar_dlg.state == 0) then

        if stead.deref(here()) == "atl_oculus_library" then

        elseif stead.deref(here()) == "atl_oculus_library" then

            return [[{Леарр} спокойно стоит рядом с Екатериной Светловой. ]];

            if (stead.deref(where(char_jack_wright_atlantis)) == atl_ignis_hall_a) then

	dlg = function(s)

        if stead.deref(where(s)) == atl_oculus_lab_a then

            return "char_svetlova_dlg";

        else

            return "char_learr_atlantis_dlg";

        end;

    end;

atl_item_tube_spec = obj {

    nam = "atl_item_tube_spec";

    disp = "Документация по воздуховодам Атлантиды";

    inv = [[Внушительной толщины книжка описывает все особенности и случаи применения различных труб в качестве воздуховодов на станции. Пролистав ее, вы узнаете, что всего существует четыре типа соединения, маркируемые соответственно: RT, KT, NF и TQ. Полная маркировка трубы состоит из типа, длины, указываемой в дециметрах и диаметра, указываемого в миллиметрах. Например RT-17-7 означает трубку RT с длиной 17 дециметров и диаметром 7 миллиметров. Согласно документации, трубы каждого типа можно соединять только с трубами такого же типа, однако на последней странице вы замечаете карандашные пометки: ^При необходимости, можно заменять трубы одного типа на другой с учетом следующих правил: ^KT -> RT -- Диаметр на 1 меньше. ^NF -> KT -- Диаметр на 1 больше. ^TQ -> NF -- Диаметр на 2 больше. ^Другие замены недопустимы и могут вызвать поломки. ]];

};

atl_nih_tubes_gen = function(nam, dsc, tube_type, tube_len, tube_d)

    return obj {

        var {

            broken = false;

            fixed = false;

        };

        tube_type = tube_type;

        tube_len = tube_len;

        tube_d = tube_d;

        nam = nam;

        dsc = dsc;

        act = function(s)

            if (s.fixed) then

                return "Трубы в порядке. ";

            elseif (s.broken) then

                return "Трубы повреждены и воздух со слабым шипением вырывается из них. На трубе имеется маркировка: " .. tube_type .. "-" .. tube_len .. "-" .. tube_d;

            else

                return "Трубы в порядке. ";

            end;

        end;

        used = function(s, o)

            if s.broken and not s.fixed and o.is_tube and o.l == s.tube_len then

                print(s.tube_type, s.tube_d, o.t, o.d);

                local f = false;

                if o.t == s.tube_type and o.d == s.tube_d then

                    remove(o, pl);

                    s.fixed = true;

                    for i = 1, #nih_tubes_array do

                        f = f or (nih_tubes_array[i].broken and not nih_tubes_array[i].fixed);

                    end;

                    if f then

                        atl_nih_state = 2;

                    end;

                    return "Вы заменяете поврежденный фрагмент трубы. ";

                elseif s.tube_type == "KT" and o.t == "RT" and o.d + 1 == s.tube_d then

                    remove(o, pl);

                    s.fixed = true;

                    for i = 1, #nih_tubes_array do

                        f = f or (nih_tubes_array[i].broken and not nih_tubes_array[i].fixed);

                    end;

                    if f then

                        atl_nih_state = 2;

                    end;

                    return "Вы заменяете поврежденный фрагмент трубы. ";

                elseif s.tube_type == "NF" and o.t == "KT" and o.d - 1 == s.tube_d then

                    remove(o, pl);

                    s.fixed = true;

                    for i = 1, #nih_tubes_array do

                        f = f or (nih_tubes_array[i].broken and not nih_tubes_array[i].fixed);

                    end;

                    if f then

                        atl_nih_state = 2;

                    end;

                    return "Вы заменяете поврежденный фрагмент трубы. ";

                elseif s.tube_type == "TQ" and o.t == "NF" and o.d - 2 == s.tube_d then

                    remove(o, pl);

                    s.fixed = true;

                    for i = 1, #nih_tubes_array do

                        f = f or (nih_tubes_array[i].broken and not nih_tubes_array[i].fixed);

                    end;

                    if f then

                        atl_nih_state = 2;

                    end;

                    return "Вы заменяете поврежденный фрагмент трубы. ";

                end;

            end;

        end;

    };

atl_nih_tubes_near_aqua = atl_nih_tubes_gen("atl_nih_tubes_near_aqua", [[Рядом со шлюзом из стены выходят несколько {труб}, по которым подается воздух. ]], "RT", 12, 8);

atl_nih_tubes_near_a = atl_nih_tubes_gen("atl_nih_tubes_near_a", [[За снятой декоративной панелью находятся несколько {труб}, по которым подается воздух. ]], "RT", 11, 9);

atl_nih_tubes_near_admin = atl_nih_tubes_gen("atl_nih_tubes_near_admin", [[За снятой декоративной панелью находятся несколько {труб}, по которым подается воздух. ]], "RT", 15, 7);

atl_nih_tubes_near_luna = atl_nih_tubes_gen("atl_nih_tubes_near_luna", [[За снятой декоративной панелью находятся несколько {труб}, по которым подается воздух. ]], "KT", 12, 6);

atl_nih_tubes_near_oculus = atl_nih_tubes_gen("atl_nih_tubes_near_oculus", [[Вдоль стены протянуто несколько {труб}, по которым подается воздух. ]], "NF", 13, 7);

atl_nih_tubes_near_terra = atl_nih_tubes_gen("atl_nih_tubes_near_terra", [[Вдоль стены протянуто несколько {труб}, по которым подается воздух. ]], "NF", 15, 9);

atl_nih_tubes_near_arctos = atl_nih_tubes_gen("atl_nih_tubes_near_arctos", [[За снятой декоративной панелью находятся несколько {труб}, по которым подается воздух. ]], "KT", 13, 7);

atl_nih_tubes_oculus = atl_nih_tubes_gen("atl_nih_tubes_oculus", [[За снятой декоративной панелью находятся несколько {труб}, по которым подается воздух. ]], "NF", 9, 8);

atl_nih_tubes_terra = atl_nih_tubes_gen("atl_nih_tubes_terra", [[За снятой декоративной панелью находятся несколько {труб}, по которым подается воздух. ]], "NF", 12, 6);

atl_nih_tubes_luna = atl_nih_tubes_gen("atl_nih_tubes_luna", [[Под потолком протянуто несколько {труб}, по которым подается воздух. ]], "KT", 11, 5);

atl_nih_tubes_arctos = atl_nih_tubes_gen("atl_nih_tubes_arctos", [[Под потолком протянуто несколько {труб}, по которым подается воздух. ]], "KT", 11, 7);

atl_nih_tubes_aqua = atl_nih_tubes_gen("atl_nih_tubes_aqua", [[Под потолком протянуто несколько {труб}, по которым подается воздух. ]], "TQ", 11, 7);

atl_nih_tubes_aqua_a = atl_nih_tubes_gen("atl_nih_tubes_aqua_a", [[Под потолком протянуто несколько {труб}, по которым подается воздух. ]], "TQ", 14, 4);

atl_nih_tubes_aqua_b = atl_nih_tubes_gen("atl_nih_tubes_aqua_b", [[Под потолком протянуто несколько {труб}, по которым подается воздух. ]], "TQ", 10, 5);

atl_nih_tube_container = obj {

    nam = "atl_nih_tube_container";

    dsc = [[Крышка одного из {ящиков} снята и вы видите внутри несколько труб. ]];

    act = function (s)

        walkin("atl_nih_tube_container_inv");

    end;

};

atl_nih_tube_container2 = obj {

    nam = "atl_nih_tube_container2";

    dsc = [[У одной из стен аккуратно сложены несколько {труб}. ]];

    act = function (s)

        walkin("atl_nih_tube_container2_inv");

    end;

};

tube = function(table)

    table.is_tube = true;

    table.dsc = "{" .. table.t .. "-" .. table.l .. "-" .. table.d .. "}^";

    table.inv = "Труба маркированная " .. table.t .. "-" .. table.l .. "-" .. table.d ;

    table.disp = "Труба " .. table.t .. "-" .. table.l .. "-" .. table.d ;

    table.tak = "Вы забираете трубу. ";

    return obj(table);

end;

tube_rt_12_8 = tube { nam = "tube_rt_12_8"; t = "RT"; l = 12; d = 8; };

tube_rt_11_9 = tube { nam = "tube_rt_11_9"; t = "RT"; l = 11; d = 9; };

tube_rt_15_7 = tube { nam = "tube_rt_15_7"; t = "RT"; l = 15; d = 7; };

tube_rt_12_5 = tube { nam = "tube_rt_12_5"; t = "RT"; l = 12; d = 5; };

tube_rt_13_6 = tube { nam = "tube_rt_13_6"; t = "RT"; l = 13; d = 6; };

tube_rt_11_4 = tube { nam = "tube_rt_11_4"; t = "RT"; l = 11; d = 4; };

tube_rt_11_6 = tube { nam = "tube_rt_11_6"; t = "RT"; l = 11; d = 6; };

tube_kt_13_8 = tube { nam = "tube_kt_13_8"; t = "KT"; l = 13; d = 8; };

tube_kt_15_10 = tube { nam = "tube_kt_15_10"; t = "KT"; l = 15; d = 10; };

tube_kt_9_9 = tube { nam = "tube_kt_9_9"; t = "KT"; l = 9; d = 9; };

tube_kt_12_7 = tube { nam = "tube_kt_12_7"; t = "KT"; l = 12; d = 7; };

tube_nf_16_7 = tube { nam = "tube_nf_16_7"; t = "NF"; l = 16; d = 7; };

tube_nf_11_7 = tube { nam = "tube_nf_11_7"; t = "NF"; l = 11; d = 7; };

tube_nf_12_9 = tube { nam = "tube_nf_12_9"; t = "NF"; l = 12; d = 9; };

tube_nf_15_7 = tube { nam = "tube_nf_15_7"; t = "NF"; l = 15; d = 7; };

tube_rt_12_6 = tube { nam = "tube_rt_12_6"; t = "RT"; l = 12; d = 6; };

tubes_terra = {

    tube_rt_12_8;

    tube_rt_11_9;

    tube_rt_15_7;

    tube_rt_12_5;

    tube_rt_13_6;

    tube_rt_11_4;

    tube_rt_11_6;

    tube_kt_13_8;

    tube_kt_15_10;

    tube_kt_9_9;

    tube_kt_12_7;

    tube_nf_16_7;

    tube_nf_11_7;

    tube_nf_12_9;

    tube_nf_15_7;

    tube_rt_12_6;

};

atl_nih_tube_container_inv = room {

    nam = "atl_nih_tube_container_inv";

    disp = "Атлантида, Терра, главный коридор";

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

    way = {

        kh_vroom("Отойти от ящика", "atl_terra_main_corridor");

    };

    obj = {

    };

};

tube_nf_14_6 = tube { nam = "tube_nf_14_6"; t = "NF"; l = 14; d = 6; };

tube_nf_10_7 = tube { nam = "tube_nf_10_7"; t = "NF"; l = 10; d = 7; };

tube_nf_11_9 = tube { nam = "tube_nf_11_9"; t = "NF"; l = 11; d = 9; };

tube_nf_14_7 = tube { nam = "tube_nf_14_7"; t = "NF"; l = 14; d = 7; };

tube_tq_14_6 = tube { nam = "tube_tq_14_6"; t = "TQ"; l = 14; d = 6; };

tube_tq_17_5 = tube { nam = "tube_tq_17_5"; t = "TQ"; l = 17; d = 5; };

tube_rt_12_7 = tube { nam = "tube_rt_12_7"; t = "RT"; l = 12; d = 7; };

tube_kt_13_9 = tube { nam = "tube_kt_13_9"; t = "KT"; l = 13; d = 9; };

tubes_aqua = {

    tube_nf_14_6;

    tube_nf_10_7;

    tube_nf_11_9;

    tube_nf_14_7;

    tube_tq_14_6;

    tube_tq_17_5;

    tube_rt_12_7;

    tube_kt_13_9;

};

atl_nih_tube_container2_inv = room {

    nam = "atl_nih_tube_container2_inv";

    disp = "Атлантида, Аква, склад B";

    dsc = [[У стены сложены трубы различных диаметров и размеров. Все трубы промаркированы:]];

    way = {

        kh_vroom("Отойти от ящика", "atl_aqua_warehouse_b");

    };

    obj = {

    };

};

atl_nih_tube_container:disable();

atl_nih_tube_container2:disable();

nih_tubes_array = {

    atl_nih_tubes_near_aqua,

    atl_nih_panel_near_a,

    atl_nih_panel_near_admin,

    atl_nih_panel_near_luna,

    atl_nih_boxes_near_oculus,

    atl_nih_boxes_near_terra,

    atl_nih_tubes_near_arctos,

    atl_nih_panel_oculus,

    atl_nih_boxes_terra,

    atl_nih_tubes_luna,

    atl_nih_tubes_arctos,

    atl_nih_tubes_aqua,

    atl_nih_tubes_aqua_a,

    atl_nih_tubes_aqua_b,

};

nih_array = {

    atl_nih_tubes_near_aqua;

    atl_nih_tubes_near_a;

    atl_nih_tubes_near_admin;

    atl_nih_tubes_near_luna;

    atl_nih_tubes_near_oculus;

    atl_nih_tubes_near_terra;

    atl_nih_tubes_near_arctos;

    atl_nih_tubes_oculus;

    atl_nih_tubes_terra;

    atl_nih_tubes_luna;

    atl_nih_tubes_arctos;

    atl_nih_tubes_aqua;

    atl_nih_tubes_aqua_a;

    atl_nih_tubes_aqua_b;

    atl_nih_panel_near_a;

    atl_nih_panel_near_admin;

    atl_nih_panel_near_luna;

    atl_nih_panel_oculus;

    atl_nih_boxes_near_oculus;

    atl_nih_boxes_near_terra;

    atl_nih_boxes_terra;

    atl_nih_tube_container;

    atl_nih_tube_container2;

};