tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены цветные полосы, соответствующие буквам языка навьяров. 

		~Легенда о храме в глубинах~]];

};

item_legend_of_dark_source = obj {

	nam = "item_legend_of_dark_source";

	disp = "Навьярская табличка";

	dsc = [[На полу у входа валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены цветные полосы, соответствующие буквам языка навьяров. 

		~Легенда об излучающем тьму~]];

};

item_legend_of_first_city = obj {

	nam = "item_legend_of_first_city";

	disp = "Навьярская табличка";

	dsc = [[На полу в углу валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены цветные полосы, соответствующие буквам языка навьяров. 

		~Легенда о первом городе~]];

};

item_legend_of_hunter = obj {

	nam = "item_legend_of_hunter";

	disp = "Навьярская табличка";

	dsc = [[На полу в углу валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены цветные полосы, соответствующие буквам языка навьяров. 

		~Легенда об охотнике~]];

};

item_navjiarr_chart_1 = obj {

	nam = "item_navjiarr_chart_1";

	disp = "Навьярская табличка";

	dsc = [[На полу в углу валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены странные обозначения. ]];

};

item_navjiarr_chart_iraa = obj {

	nam = "item_navjiarr_chart_iraa";

	disp = "Карта из Ираафаанотра";

	dsc = [[На полу в углу валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены странные обозначения. ]];

};

item_navjiarr_chart_dyp = obj {

	nam = "item_navjiarr_chart_dyp";

	disp = "Карта из Дипатреанотра";

	dsc = [[На пьедестале лежит металлическая табличка. ]];

	tak = function(s)

		path("Выйти из храма"):enable();

		return [[Как только вы подбираете табличку, дверь открывается. ]];

	end;

	inv = [[Металлическая табличка, на которую нанесены странные обозначения. ]];

};

item_navjiarr_chart_2 = obj {

	nam = "item_navjiarr_chart_2";

	disp = "Навьярская табличка";

	dsc = [[На полу в углу валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены странные обозначения. ]];

};

item_navjiarr_chart_ven = obj {

    nam = "item_navjiarr_chart_ven";

    disp = "Карта из Венаэданотра";

    inv = [[Металлическая табличка с нанесенными обозначениями. ]];

}

item_navjiarr_chart_3 = obj {

	nam = "item_navjiarr_chart_3";

	disp = "Навьярская табличка";

	dsc = [[На полу в углу валяется какой-то {предмет}. ]];

	tak = [[Вы поднимаете предмет - это небольшая металлическая табличка. ]];

	inv = [[Металлическая табличка, на которую нанесены странные обозначения. ]];

};

item_navjiarr_cube = obj {

	nam = "item_navjiarr_cube";

	disp = "Навьярский артефакт";

	inv = [[Небольшой прозрачный куб, очень холодный на ощупь - холод ощущается даже в скафандре. От него исходит слабое свечение. ]];

};

item_talk_device = obj {

	nam = "item_talk_device";

	disp = "Устройство для общения с навьярами";

	inv = [[Небольшое устройство с клавиатурой и большим количеством цветных лампочек. Оно полностью герметично и может быть использовано под водой. ]];

};

item_suit = suit {

	dlg = "call_leviathan";

	nam = "Скафандр";

};

item_deep_key = obj {

    nam = "item_deep_key";

    disp = "Пирамидка";

    dsc = [[На пьедестале вы видите небольшой блестящий {предмет}. ]];

    inv = [[Небольшая полупрозрачная пирамидка из неизвестного материала. Гладкая и холодная на ощупь. На гранях пирамидки нанесены непонятные символы. ]];

    tak = [[Это оказалась небольшая полупрозрачная пирамидка. Вы забираете ее себе. ]];

};

item_navjiarr_chart_z = obj {

    nam = "item_navjiarr_chart_z";

    disp = "Навьярская табличка";

    dsc = [[На пьедестале лежит небольшая металлическая {табличка}. ]];

    tak = function(s)        

        return [[Вы поднимаете предмет - это небольшая металлическая табличка. Вдалеке вы слышите скрежет камней - дверь храма снова открыта. ]];

    end;

    inv = [[Металлическая табличка, на которую нанесены странные обозначения. ]];

};

item_naethvjirr_key = obj {

    nam = "item_naethvjirr_key";

    disp = "Ключ из древнего храма";

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

    inv = [[Небольшая прозрачная {коробочка}, внутрь которой заключена прямоугольная пластинка из неизвестного материала. Пластинка с обеих сторон покрыта тонкими металлическими нитями. ]];

};

	end;

	tab.kbd = function(s, down, key)

		if (not down) then

            if (key == "escape") then

                back();

            elseif (key == "return") then

				if (s.input) then

					s:check(s.input);

				end;

			elseif (key == "backspace") then

				if (s.input:len() > 0) then

					s.input = s.input:sub(1, s.input:len() - 1);

				end;

			else

				if (string.len(s.input) < s.maxlen) then

					s.input = s.input .. key;

					-- hide buttons :)

				end;

			end;

		end;

		pr("");

	end;

	tab.obj = {

		"_kh_input1",

        "_kh_input2",

        "_kh_input3",

        "_kh_input4",

        "_kh_input5",

        "_kh_input6",

        "_kh_input7",

        "_kh_input8",

        "_kh_input9",

        "_kh_input0",

        "_kh_backspace",

        "_kh_cancel",

        "_kh_enter"

	};

	return room(tab);

end;

function input_number_nav(tab)

    if (not tab.maxlen) then

        tab.maxlen = 2;

    end;

    tab.forcedsc = true;

    tab.noinv = true;

    tab.input = "";

    tab.dsc = function(s)

        pr(tab.label .. tab.input .. "_");

        return false;

        --return tab.label .. tab.input .. "_";

    end;

    tab.entered = function(s)

        s.input = "";

        hook_keys('0', '1', '2', '3', '4', '5', 'backspace', 'return', 'escape');

    end;

    tab.left = function(s)

        unhook_keys('0', '1', '2', '3', '4', '5', 'backspace', 'return', 'escape');

    end;

    tab.kbd = function(s, down, key)

        if (not down) then

            if (key == "escape") then

                back();

            elseif (key == "return") then

                if (s.input) then

                    s:check(s.input);

                end;

            elseif (key == "backspace") then

                if (s.input:len() > 0) then

                    s.input = s.input:sub(1, s.input:len() - 1);

                end;

            else

                if (string.len(s.input) < s.maxlen) then

                    s.input = s.input .. key;

                    -- hide buttons :)

                end;

            end;

        end;

        pr("");

    end;

    tab.obj = {

        "_kh_input1",

        "_kh_input2",

        "_kh_input3",

        "_kh_input4",

        "_kh_input5",

        "_kh_input0",

        "_kh_backspace",

        "_kh_cancel",

        "_kh_enter"

    };

    return room(tab);

end;

_kh_input1 = obj {

    nam = "_kh_input1";

    dsc = "{1}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "1";

        end;

        return "";

    end;

};

_kh_input2 = obj {

    nam = "_kh_input2";

    dsc = "{2}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "2";

        end;

        return "";

    end;

};

_kh_input3 = obj {

    nam = "_kh_input3";

    dsc = "{3}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "3";

        end;

        return "";

    end;

};

_kh_input4 = obj {

    nam = "_kh_input4";

    dsc = "{4}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "4";

        end;

        return "";

    end;

};

_kh_input5 = obj {

    nam = "_kh_input5";

    dsc = "{5}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "5";

        end;

        return "";

    end;

};

_kh_input6 = obj {

    nam = "_kh_input6";

    dsc = "{6}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "6";

        end;

        return "";

    end;

};

_kh_input7 = obj {

    nam = "_kh_input7";

    dsc = "{7}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "7";

        end;

        return "";

    end;

};

_kh_input8 = obj {

    nam = "_kh_input8";

    dsc = "{8}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "8";

        end;

        return "";

    end;

};

_kh_input9 = obj {

    nam = "_kh_input9";

    dsc = "{9}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "9";

        end;

        return "";

    end;

};

_kh_input0 = obj {

    nam = "_kh_input0";

    dsc = "{0}";

    act = function(s)

        if (here().input:len() < here().maxlen) then

            here().input = here().input .. "0";

        end;

    end;

};

_kh_backspace = obj {

    nam = "_kh_back";

    dsc = "{Стереть}";

    act = function(s)

        if (here().input:len() > 0) then

            here().input = here().input:sub(1, here().input:len() - 1);

        end;

    end;

};

_kh_cancel = obj {

    nam = "_kh_cancel";

    dsc = "{Отмена}";

    act = function(s)

        back();

    end;

};

_kh_enter = obj {

    nam = "_kh_enter";

    dsc = "{Ввод}";

    act = function(s)

        if (here().input) then

            here():check(here().input);

        end;

    end;

};

--[[

	Создает obj, который добавляет другой obj на сцену при активации и становится неинтерактивным

	nam - имя объекта

	dsc_a - описание до активации

	dsc_b - описание после активации

	act_a - описание взаимодействия до активации

	act_b - описание взаимодействия после активации

	o2 - obj, добавляемый на сцену

	r - удаляет объект после активации

]]

function obscured_obj(nam, dsc_a, act_a, o2, r, dsc_b, act_b)

	return obj {

		var {

			activated = false;

		};

		nam = nam;

		dsc = function(s)

			if (s.activated) then

				return dsc_b;

			else 

				return dsc_a;

			end;

		end;

		act = function(s)

			if (s.activated) then

				return act_b;

			else

				s.activated = true;

				put(o2, here());

				if (r) then

					remove(r, here());

				end;

				return act_a;

			end;

		end;

	};

end;

_atlantis_suit_menu = dlg {

	nam = "Скафандр";

	_item = nil;

	dsc = [[

		Что вы хотите сделать?

	]];

	phr = {

		{1, always = "true", "Использовать рацию", function(s)

			local val = EngineUtils.getValue(_atlantis.suit_menu._item.dlg, _atlantis.suit_menu._item);

			if (val) then

				walkin(val);

				stead.ref(val).__from__ = _atlantis.suit_menu.__from__;

			else

				back();

				return "Никто не отвечает";

			end;

		end};

			if (EngineUtils.getValue(_atlantis_suit_menu._item.cantakeoff, _atlantis_suit_menu._item)) then

				drop(_atlantis._uit_menu._item);

				back();

				return "Вы снимаете скафандр";

			else

				back();

				return "Вы не можете снять скафандр сейчас";

			end;

		end};

			back();

			return "";

		end};

	};

};

_atlantis = {

	suit_inv = function(s)

		_atlantis_suit_menu._item = s;

		walkin(_atlantis_suit_menu);

	end;

};

suit = function(tab)

	if (not tab.inv) then

		tab.inv = _atlantis.suit_inv;

	end;

	return obj(tab);

end;

labyrinth = function(tab)

    local enter = tab.enter;

    local exit = tab.exit;

    local dsc = tab.dsc;

    local lab;

    tab.enter = function(s)

        path('e1'):disable();

        path('e2'):disable();

        path('e3'):disable();

        path('e4'):disable();

        path('ex'):disable();

        local e1open = s.map[s.position].e1 and not EngineUtils.getValue(s.map[s.position].e1lock, s);

        local e2open = s.map[s.position].e2 and not EngineUtils.getValue(s.map[s.position].e2lock, s);

        local e3open = s.map[s.position].e3 and not EngineUtils.getValue(s.map[s.position].e3lock, s);

        local e4open = s.map[s.position].e4 and not EngineUtils.getValue(s.map[s.position].e4lock, s);

        local exopen = s.map[s.position].ex and not EngineUtils.getValue(s.map[s.position].exlock, s);

        if (e1open) then

            path('e1'):enable();

        end;

        if (e2open) then

            path('e2'):enable();

        end;

        if (e3open) then

            path('e3'):enable();

        end;

        if (e4open) then

            path('e4'):enable();

        end;

        if (exopen) then

            path('ex'):enable();

        end;

        if (type(enter) == 'function') then

            enter(s);

        end;

        if (type(s.map[s.position].enter) == 'function') then

            s.map[s.position].enter(s);

        end;

    end;

    tab.exit = function(s)

        if (type(exit) == 'function') then

            exit(s);

        end;

        if (type(s.map[s.position].exit) == 'function') then

            s.map[s.position].exit(s);

        end;

    end;

    tab.dsc = function(s)

        if (type(dsc) == "function") then

            return dsc(s);

        else

            return dsc .. s.map[s.position].name;

        end;

    end;

    tab.way = {

        kh_vroom(tab.dir1, function()

            lab.oldposition = lab.position;

            lab.position = lab.map[lab.position].e1;

            return lab;

        end, "e1");

        kh_vroom(tab.dir2, function()

            lab.oldposition = lab.position;

            lab.position = lab.map[lab.position].e2;

            return lab;

        end, "e2");

        kh_vroom(tab.dir3, function()

            lab.oldposition = lab.position;

            lab.position = lab.map[lab.position].e3;

            return lab;

        end, "e3");

        kh_vroom(tab.dir4, function()

            lab.oldposition = lab.position;

            lab.position = lab.map[lab.position].e4;

            return lab;

        end, "e4");

        kh_vroom(tab.ex, function()

            return lab.map[lab.position].ex;

        end, "ex");

        kh_vroom("Ждать", function()

            lab.oldposition = lab.position;

            return lab;

        end, "wt");

    };