games/Awakening Changeset - 037e19ceec23

Changeset - 037e19ceec23

Parent rev.

Child rev.

[Not reviewed]

default

0 3 0

Silverwing - 8 years ago 2017-02-11 15:39:16

More leviathan improvements

3 files changed with 23 insertions and 40 deletions:

leviathan.lua

utils.lua

wright.lua

0 comments (0 inline, 0 general)

leviathan.lua

➞

Show inline comments

@@ @@ -65,268 +65,268 @@ leviathan_airlock = darkroom { @@
 			return "leviathan_wardroom";
 		end, 1);
 		kh_vroom("В люк", function()
 			local val = EngineUtils.getValue(where(submarine_leviathan).no_exit);
 			if (val) then
 				pr(val);
 				return false;
 			else
 				if (where(submarine_leviathan).underwater) then
 					put(item_suit, pl);
 				elseif (have(item_suit)) then
 					remove(item_suit, pl);
 				end;
 				return where(submarine_leviathan);
 			end;
 		end, 2);
 	};
     obj = {
         "leviathan_suits",
         "leviathan_trapdoor"
     };
 };
 leviathan_suits = obj {
     nam = "leviathan_suits";
     dsc = "У стены стоят два {водолазных костюма}. ";
     act = "Костюмы для глубоководного погружения. ";
 };
 leviathan_trapdoor = obj {
     nam = "leviathan_trapdoor";
     dsc = "На потолке расположен люк, ведущий наружу субмарины. ";
 };
 leviathan_captains_cabin = darkroom {
     var {
         light_on = false;
     };
     has_light = function(s)
         return s.light_on and submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	nam = "leviathan_captains_cabin";
 	disp = "Левиафан, каюта капитана";
 	leviathan = true;
 	dsc_lit = [[Каюта капитана несколько больше остальных. Под потолком расположена элетрическая лампа, излучающая яркий свет. ]];
 	dsc_halflit = [[Вы находитесь в каюте, очевидно, предназначенной для капитана. Под потолком расположена элетрическая лампа, однако сейчас она не горит. Эта каюта немного больше остальных. В слабом свете лампы вы с трудом различаете очертания дверей и предметов. ]];
 	dsc_dark = [[Вы находитесь в одной из кают. В темноте вы не можете ничего различить. ]];
 	way = {
-		kh_vroom("В коридор", "leviathan_corridor", 0);
+		kh_vroom("В коридор", "leviathan_corridor", 1);
 	};
 	obj = {
 		"phone_cabin";
         "lev_capn_desk";
         "lev_capn_map";
         "lev_capn_chair";
         "lev_capn_bed";
         "lev_capn_view";
 	};
 };
 lev_capn_desk = obj {
     nam = "lev_capn_desk";
     dsc = [[У стены установлен небольшой стол с несколькими {ящиками}. ]];
     act = "Ящики пусты. ";
 };
 lev_capn_map = obj {
     nam = "lev_capn_map";
     dsc = [[Над столом висит {карта} Атлантического океана. ]];
     act = function(s)
         if atlantis_found then
             return [[Карта Атлантического океана, судя по маркировке, принадлежащая компании "Вестхейвен Трансоушен". На ней изображено несколько объектов, имеющих значение для компании и, в частности, Атлантида. ]];
         else
             atlantis_found = true;
             return [[Карта Атлантического океана, судя по маркировке, принадлежащая компании "Вестхейвен Трансоушен". Вы внимательно осматриваете карту в поисках чего-нибудь необычного. Ваше внимание привлекает отметка "Атлантида", сделанная посреди океана. К сожалению, никаких пояснений у вас нет и единственное, что вы можете сделать - это попытаться добраться до этой точки. ]];
         end;
     end;
 };
 lev_capn_chair = obj {
     nam = "lev_capn_chair";
     dsc = "Рядом со столом стоит {кресло}";
     act = "Капитанское кресло. Удобное. ";
 };
 lev_capn_bed = obj {
     nam = "lev_capn_bed";
     dsc = "У стены напротив стола расположена {койка}. ";
     act = "Мне сейчас некогда спать. ";
 };
 lev_capn_view = obj {
     nam = "lev_capn_view";
     dsc = "Напротив входа расположен {иллюминатор}. ";
     act = function(s)
         return here().view_left;
     end;
 };
 lev_capn_ls = obj {
     nam = "lev_capn_ls";
     dsc = function(s)
         if (here().light_on) then
             return "У входа находится {выключатель}, Сейчас он включен. ";
         else
             return "У входа находится {выключатель}, Сейчас он выключен. ";
         end;
     end;
     act = function(s)
         pr [[Вы переключаете выключатель. ]];
         if (here().light_on) then
             here().light_on = false;
             if (submarine_leviathan.power_on and submarine_leviathan.battery) then
                 pr [[Свет гаснет. ]];
             else
                 pr [[Ничего не происходит. ]];
             end;
         else
             here().light_on = true;
             if (submarine_leviathan.power_on and submarine_leviathan.battery) then
                 pr [[Свет зажигается. ]];
             else
                 pr [[Ничего не происходит. ]];
             end;
         end;
     end;
 };
 leviathan_cabin_1 = darkroom {
 	nam = "leviathan_cabin_1";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, каюта №1";
 	leviathan = true;
 	dsc_lit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, излучающая яркий свет. ]];
     dsc_halflit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, однако сейчас она не горит. В слабом свете лампы вы с трудом различаете очертания дверей и предметов.  ]];
     dsc_dark = [[В помещении темно и вы ничего не видите. ]];
 	way = {
-		kh_vroom("В коридор", "leviathan_corridor", 0);
+		kh_vroom("В коридор", "leviathan_corridor", 1);
 	};
     obj = {
         'lev_cab_table';
         'lev_cab_beds';
         'lev_cab_view';
     };
 };
 leviathan_cabin_2 = darkroom {
 	nam = "leviathan_cabin_2";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, каюта №2";
 	leviathan = true;
 	dsc_lit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, излучающая яркий свет. ]];
     dsc_halflit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, однако сейчас она не горит. В слабом свете лампы вы с трудом различаете очертания дверей и предметов.  ]];
     dsc_dark = [[В помещении темно и вы ничего не видите. ]];
 	way = {
-		kh_vroom("В коридор", "leviathan_corridor", 0);
+		kh_vroom("В коридор", "leviathan_corridor", 1);
 	};
     obj = {
         'lev_cab_table';
         'lev_cab_beds';
         'lev_cab_view';
     };
 };
 leviathan_cabin_3 = darkroom {
 	nam = "leviathan_cabin_3";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, каюта №3";
 	leviathan = true;
 	dsc_lit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, излучающая яркий свет. ]];
     dsc_halflit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, однако сейчас она не горит. В слабом свете лампы вы с трудом различаете очертания дверей и предметов.  ]];
     dsc_dark = [[В помещении темно и вы ничего не видите. ]];
 	way = {
-		kh_vroom("В коридор", "leviathan_corridor", 0);
+		kh_vroom("В коридор", "leviathan_corridor", 1);
 	};
     obj = {
         'lev_cab_table';
         'lev_cab_beds';
         'lev_cab_view';
     };
 };
 leviathan_cabin_4 = darkroom {
 	nam = "leviathan_cabin_4";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, каюта №4";
 	leviathan = true;
 	dsc_lit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, излучающая яркий свет. ]];
     dsc_halflit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, однако сейчас она не горит. В слабом свете лампы вы с трудом различаете очертания дверей и предметов.  ]];
     dsc_dark = [[В помещении темно и вы ничего не видите. ]];
 	way = {
-		kh_vroom("В коридор", "leviathan_corridor", 0);
+		kh_vroom("В коридор", "leviathan_corridor", 1);
 	};
     obj = {
         'lev_cab_table';
         'lev_cab_beds';
         'lev_cab_view';
     };
 };
 leviathan_cabin_5 = darkroom {
 	nam = "leviathan_cabin_5";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, каюта №5";
 	leviathan = true;
 	dsc_lit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, излучающая яркий свет. ]];
     dsc_halflit = [[Эта каюта ничем не отличается от других, расположенных по левому борту субмарины. Под потолком расположена электрическая лампа, однако сейчас она не горит. В слабом свете лампы вы с трудом различаете очертания дверей и предметов.  ]];
     dsc_dark = [[В помещении темно и вы ничего не видите. ]];
 	way = {
-		kh_vroom("В коридор", "leviathan_corridor", 0);
+		kh_vroom("В коридор", "leviathan_corridor", 1);
 	};
     obj = {
         'lev_cab_table';
         'lev_cab_beds';
         'lev_cab_view';
     };
 };
 lev_cab_table = obj {
     nam = "lev_cab_table";
     dsc = [[У стены рядом с иллюминатором расположен небольшой {столик}. ]];
     act = "Столик пуст. ";
 };
 lev_cab_beds = obj {
     nam = "lev_cab_beds";
     dsc = [[Напротив стола расположены две {койки} одна над другой. ]];
     act = "Мне сейчас некогда спать. ";
 };
 lev_cab_view = obj {
     nam = "lev_cab_view";
     dsc = "Напротив входа расположен {иллюминатор}. ";
     act = function(s)
         return here().view_left;
     end;
 };
 leviathan_corridor = darkroom {
 	nam = "leviathan_corridor";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, коридор";
 	leviathan = true;
 	dsc_lit = [[Длинный коридор со множеством дверей. По всей длине коридора на стенах расположены электрические лампы, излучающие яркий свет. ]];
 	dsc_halflit = [[Длинный темный коридор. В слабом свете лампы вы с трудом различаете очертания предметов и множества дверей. ]];
 	dsc_dark = [[Длинный темный коридор. в темноте вы почти ничего не видите. ]];
 	way = {
 		kh_vroom("В каюту капитана", "leviathan_captains_cabin", 1);
 		kh_vroom("В каюту №1", "leviathan_cabin_1", 1);
 		kh_vroom("В каюту №2", "leviathan_cabin_2", 1);
 		kh_vroom("В каюту №3", "leviathan_cabin_3", 1);
 		kh_vroom("В каюту №4", "leviathan_cabin_4", 1);
 		kh_vroom("В каюту №5", "leviathan_cabin_5", 1);
 		kh_vroom("В кают-компанию", "leviathan_wardroom", 1);
 		kh_vroom("В грузовой отсек", "leviathan_cargo_hold", 1);
 		kh_vroom("В машинный отсек", "leviathan_engines", 1);
@@ @@ -435,111 +435,97 @@ leviathan_battery = obj { @@
 	end;
 	act = function(s)
 		if (s.opened) then
 			s.opened = false;
 			return [[Вы возвращаете крышку блока батарей на место. ]];
 		else
 			if (not submarine_leviathan.battery) then
 				s.opened = true;
 				return [[Вы сдвигаете крышку блока батарей в сторону, получая доступ к ней. ]];
 			else
 				return [[Незачем это трогать. ]];
 			end;
 		end;
 	end;
 	used = function(s, o)
 		if (o == item_electrodes) then
 			remove(item_electrodes, pl);
 			submarine_leviathan.battery = true;
 			s.opened = false;
 			return [[Вы заменяете электроды. Теперь аккумулятор готов к работе. Вы возвращаете крышку блока батарей на место. ]];
 		else
 			return false;
 		end;
 	end;
 	seen_level = 1;
 	opened = false;
 };
 leviathan_breaker = obj {
 	nam = "leviathan_breaker";
 	dsc = function(s)
 		if (submarine_leviathan.power_on) then
 			return [[Рядом с батареей укреплен {рубильник}. Сейчас он включен. ]];
 		else
 			return [[Рядом с батареей укреплен {рубильник}. Сейчас он выключен. ]];
 		end;
 	end;
 	act = function(s)
 		if (submarine_leviathan.power_on) then
 			submarine_leviathan.power_on = false;
 			-- TODO включать свет по всему Левиафану, если восстановлены разрывы цепи и установлена батарея
 			-- TODO включать двигатель если установлена батарея
 			pr([[Вы выключаете рубильник. ]]);
 		else
 			submarine_leviathan.power_on = true;
 			-- TODO включать двигатель если установлена батарея
 			pr([[Вы включаете рубильник. ]]);
 			if (submarine_leviathan.battery and submarine_leviathan.circuit_breaks == 0) then
 				leviathan_airlock.has_light = true;
 				leviathan_wardroom.has_light = true;
 				leviathan_wheelhouse.has_light = true;
 				leviathan_corridor.has_light = true;
 				leviathan_cabin_1.has_light = true;
 				leviathan_cabin_2.has_light = true;
 				leviathan_cabin_3.has_light = true;
 				leviathan_cabin_4.has_light = true;
 				leviathan_cabin_5.has_light = true;
 				leviathan_captains_cabin.has_light = true;
 				leviathan_cargo_hold.has_light = true;
 				leviathan_engines.has_light = true;
 				leviathan_lower_deck.has_light = true;
 				leviathan_life_support.has_light = true;
 				pr([[Повсюда зажигается яркий свет, на мгновение ослепляя вас. ]]);
 				pr([[Повсюду зажигается яркий свет, на мгновение ослепляя вас. ]]);
 			end;
 		end;
 	end;
 	seen_level = 1;
 };
 leviathan_lower_deck = darkroom {
 	nam = "leviathan_lower_deck";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, нижняя палуба";
 	leviathan = true;
 	dsc_lit = [[Большой отсек на нижней палубе Левиафана освещен электрическими лампами, укрепленными на стенах. Повсюду раскиданы неизвестно откуда взявшиеся обломки металла. В передней части помещения вы видите несколько отверстий для зарядки торпедных аппаратов. ]];
 	dsc_halflit = [[Большой отсек на нижней палубе Левиафана слабо освещен вашей лампой. Повсюду раскиданы неизвестно откуда взявшиеся обломки металла. В передней части помещения вы видите несколько отверстий для зарядки торпедных аппаратов. ]];
 	dsc_dark = [[На нижней палубе Левиафана темно и вы совсем ничего не видите. ]];
 	way = {
 		kh_vroom("В коридор", "leviathan_corridor", 1);
 		kh_vroom("К системе жизнеобеспечения", "leviathan_life_support", 1);
 	};
 	obj = {
 		"leviathan_lower_wiring";
 	};
 };
 leviathan_life_support = darkroom {
 	nam = "leviathan_life_support";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, система жизнеобеспечения";
 	leviathan = true;
 	dsc_lit = [[Электрическая лампа освещает важнейший отсек корабля. Здесь расположено все необходимое для обеспечения команды воздухом для дыхания в течение нескольких месяцев. ]];
 	dsc_halflit = [[Слабый свет лампы освещает важнейший отсек корабля. Здесь расположено все необходимое для обеспечения команды воздухом для дыхания в течение нескольких месяцев. ]];
 	dsc_dark = [[Отсек погружен во мрак и вы не видите совсем ничего. ]];
 	way = {
 		kh_vroom("Назад", "leviathan_lower_deck", 1);
 	};
 	obj = {
 		'leviathan_airtanks';
 		'leviathan_airregen';
 		"leviathan_life_wiring";
 	};
 };
 leviathan_airtanks = obj {
 	nam = "leviathan_airtanks";
 	dsc = function(s)
@@ @@ -557,164 +543,161 @@ leviathan_airregen = obj { @@
 	nam = "leviathan_airregen";
 	dsc = [[{Установка регенерации воздуха} сейчас находится в плачевном состоянии - часть деталей отсутствуют, еще некоторые поломаны. ]];
 	seen_level = 1;
 };
 leviathan_wheelhouse = darkroom {
 	nam = "leviathan_wheelhouse";
     has_light = function(s)
         return submarine_leviathan.power_on and submarine_leviathan.battery;
     end;
 	disp = "Левиафан, рубка";
 	leviathan = true;
 	dsc_lit = function(s)
 		local view = "";
 		if (type(where(submarine_leviathan).view) == "function") then
 			view = where(submarine_leviathan):view();
 		else
 			view = where(submarine_leviathan).view;
 		end;
 		return [[Небольшое помещение в передней части субмарины освещено ярким светом электрических ламп. Через три огромных иллюминатора вы можете увидеть происходящее снаружи субмарины. ]] .. (view);
 	end;
 	dsc_halflit = function(s)
 		local view = "";
 		if (type(where(submarine_leviathan).view) == "function") then
 			view = where(submarine_leviathan):view();
 		else
 			view = where(submarine_leviathan).view;
 		end;
 		return [[Небольшое помещение в передней части субмарины освещено слабым светом вашей лампы. Через три огромных иллюминатора вы можете увидеть происходящее снаружи субмарины. ]] .. (view);
 	end;
 	dsc_dark = function(s)
 		local view = "";
 		if (type(where(submarine_leviathan).view) == "function") then
 			view = where(submarine_leviathan):view();
 		else
 			view = where(submarine_leviathan).view;
 		end;
 		return [[Небольшое помещение в передней части субмарины не освещено. В темноте вы ничего не можете разглядеть. Через три огромных иллюминатора вы можете увидеть происходящее снаружи субмарины. ]] .. (view);
 	end;
 	way = {
 		kh_vroom("В кают-компанию", "leviathan_wardroom", 2);
 	};
 	obj = {
 		'leviathan_handwheel';
 		'leviathan_airpump_control';
 		'leviathan_controls';
 		'leviathan_wheelhouse_sensors';
 		"leviathan_wheelhouse_wiring";
 	};
 };
 leviathan_controls = obj {nam = '1'}
 leviathan_handwheel = obj {
 	nam = "leviathan_handwheel";
 	dsc = [[Перед вами расположен {штурвал}. Рядом с ним расположено несколько рычагов. ]];
 	act = function(s)
 		if (atlantis_found and submarine_leviathan.air_level > 400000 and submarine_leviathan.circuit_breaks == 0 and submarine_leviathan.power_on) then
 			--walkin("demo_end");
 			local dlg = EngineUtils.getValue(where(submarine_leviathan).handwheel_room);
 			if (dlg) then
 				walkin(dlg);
 			else
 				walkin('leviathan_dlg');
 			end;
 		elseif (not submarine_leviathan.power_on) then
 			return [[Без электричества _"Левиафан"_ не сдвинется с места. ]];
 		elseif (not atlantis_found) then
 			return [[Вы не знаете, куда плыть. ]];
 		elseif (submarine_leviathan.air_level <= 400000) then
 			return [[Без воздуха вы далеко не уплывете. ]];
 		elseif (submarine_leviathan.circuit_breaks > 0) then
 			return [[В темноте вы не можете управлять кораблем. ]];
 		end;
 	end;
 };
 leviathan_airpump_control = obj {
 	nam = "leviathan_airpump_control";
 	dsc = function(s)
 		if (submarine_leviathan.airpump) then
 			return [[Один из них отвечает за управление {воздушными насосами} и находится сейчас во включенном состоянии. ]];
 		else
 			return [[Один из них отвечает за управление {воздушными насосами} и находится сейчас в выключенном состоянии.  ]];
 		end;
 	end;
 	act = function(s)
 		if (submarine_leviathan.airpump) then
 			submarine_leviathan.airpump = false;
 			return [[Вы выключаете воздушные насосы. ]];
 		else
 			lifeon(s);
 			submarine_leviathan.airpump = true;
 			return [[Вы включаете воздушные насосы. ]];
 		end;
 	end;
 	life = function(s)
 		if (submarine_leviathan.power_on) then
 			if (submarine_leviathan.airpump and submarine_leviathan.battery) then
 				submarine_leviathan.air_level = submarine_leviathan.air_level + 250;
 				if (submarine_leviathan.air_level > 432000) then submarine_leviathan.air_level = 432000;
 				pr([[Вы слышите гул работающих насосов. ]]);
 				end;
 			end;
 		end;
 		if (submarine_leviathan.power_on and submarine_leviathan.airpump and submarine_leviathan.battery) then
             submarine_leviathan.air_level = submarine_leviathan.air_level + 4000;
             if (submarine_leviathan.air_level > 432000) then
                 submarine_leviathan.air_level = 432000;
                 lifeoff(s);
             end;
             if (here().leviathan) then
                 pr([[Вы слышите гул работающих насосов. ]]);
             end;
         end;
 	end;
 	seen_level = 1;
 };
 leviathan_controls = obj {
 	nam = "leviathan_controls";
 	dsc = [[Остальные {рычаги} используются для управления движением субмарины. ]];
 	seen_level = 1;
 };
 leviathan_wheelhouse_sensors = obj {
 	nam = "leviathan_wheelhouse_sensors";
 	dsc = [[Чуть ниже рычагов находится небольшая {панель} с лампочками и стрелками каких-то приборов. ]];
 	act = function(s)
 		if (submarine_leviathan.battery) then
 			pr("На панели горят следующие лампочки: ");
 			pr("батарея работает");
 			if (submarine_leviathan.power_on) then
 				pr(", питание включено");
 			end;
 			if (submarine_leviathan.airpump) then
 				pr(", воздушные насосы включены");
 			end;
 			if (submarine_leviathan.circuit_breaks > 0) then
 				pr(", разорвана цепь освещения");
 			end;
 			pr(". ");
 		else
 			pr("На панели не горит ни одна лампочка. ");
 		end;
 		local percent = submarine_leviathan.air_level / 432000 * 100;
 		pr ([[
 			Кислородные баллоны заполнены на
 		]] .. tostring(math.floor(percent + 0.5)) .. "%. ");
 	end;
 	seen_level = 1;
 };
 leviathan_wiring_dsc = [[Под потолком висят какие-то {провода}. ]];
 leviathan_wiring_act = function(s)
 	if (submarine_leviathan.power_on and submarine_leviathan.battery) then
 		return [[Возможно, лучше отключить электричество, прежде чем копаться в проводах. ]];
 	end;
 	if (s.state == 0) then
 		return [[Некоторые провода разорваны. ]];
 	elseif (s.state == 1) then
 		return [[Некоторые провода перемотаны изолентой. ]];
 	else
 		return [[Провода в порядке. ]];
 	end;
 end;
 leviathan_wiring_used = function(s, o)
 	if (submarine_leviathan.power_on and submarine_leviathan.battery) then
 		return [[Возможно, лучше отключить электричество, прежде чем копаться в проводах. ]];
 	end;
 	if (o == item_ducttape and s.state == 0) then

utils.lua

➞

Show inline comments

@@ @@ -476,128 +476,124 @@ end; @@
     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;
         return "";
     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;
         return "";
     end;
 };
 _kh_cancel = obj {
     nam = "_kh_cancel";
     dsc = "{Отмена}";
     act = function(s)
         back();
         return "";
     end;
 };
 _kh_enter = obj {
     nam = "_kh_enter";
     dsc = "{Ввод}";
     act = function(s)
         if (here().input) then
             here():check(here().input);
         end;
         return "";
     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 = [[
 		Что вы хотите сделать?
 	]];

wright.lua

➞

Show inline comments

@@ @@ -8,96 +8,100 @@ door_wright = obj { @@
 	nam = "door_wright";
 	disp = "Дверь";
 	act = function(s)
 		if (s.locked) then
 			walkin "wright_entry_dlg";
 		end;
 		return true;
 	end;
 	dsc = function(s)
 		if (s.locked) then
 			return [[Обшарпанная деревянная {дверь}, ведущая в дом, заперта изнутри. ]];
 		else
 			return [[Обшарпанная деревянная {дверь}, ведущая в дом, незаперта. ]];
 		end;
 	end;
 };
 char_wright_home = obj {
     var {
         known = false;
         documents = false;
         known_leviathan = false;
     };
 	nam = "char_wright_home";
 	disp = "Джек Райт";
 	dsc = function(s)
 		if (s.documents) then
 			return [[За столом сидит {Джек Райт} и с интересом рассматривает схемы, которые вы ему отдали. ]];
 		else
             if (s.known) then
                 return [[За столом сидит {Джек Райт}, неспешно просматривая какие-то бумаги. ]];
             else
 			    return [[За столом сидит {молодой человек}, неспешно просматривающий какие-то бумаги. ]];
             end;
 		end;
 	end;
 	act = function(s)
 		walkin(wright_dlg);
 	end;
 };
 wright_dlg = dlg {
     var {
         state = 1;
     };
 	nam = "wright_dlg";
 	disp = "Джек Райт";
 	entered = function(s)
         if (submarine_leviathan.power_on and submarine_leviathan.airpump and submarine_leviathan.battery and submarine_leviathan.air_level < 432000) then
             submarine_leviathan.air_level = 432000;
             lifeoff(s);
         end;
 		if (atlantis_found and submarine_leviathan.air_level > 400000 and submarine_leviathan.circuit_breaks == 0 and submarine_leviathan.power_on) then
 			psub('leviathan_restored');
 			return [[Джек Райт отвлекается от газеты: "Добрый день". ]];
 		elseif (s.state == 1) then
 			--First meeting
             char_wright_home.known = true;
 			psub('first_visit');
 			return [[Перед вами молодой человек, одетый в недорогой, но опрятный костюм. Его бледное лицо украшает короткая темная борода и пышные усы. Темные волосы коротко острижены. Серые глаза с интересом разглядывают вас. Он протягивает вам руку и представляется: "Добрый день. Мое имя -- Джек Райт. Майкл -- мой отец, но он пропал несколько лет назад". ]];
 		elseif (s.state == 2) then
 			--Documents not given
 			psub('ask_documents');
 			return [[Джек отвлекается от газеты: "Добрый день. Вы обещали принести какие-то документы". ]];
 		elseif (s.state == 3) then
 			--Documents given
 			if (not leviathan_discovered) then
 				psub('checking_documents');
 				return [[Джек отвлекается от документов: "Добрый день. Если вы по поводу документов, то я еще ничего не нашел". ]];
 			else
 				s.state = 5;
 				warehouse32_found = true;
 				psub('warehouse_discovered');
 				return [[Джек отвлекается от документов: "Добрый день. У меня хорошие новости. Я нашел склад 32", - он достает карту города и показывает вам место. ]];
 			end;
 		elseif (s.state == 4) then
 			--Documents taken back
 			psub('ask_documents2');
 			return [[Джек отвлекается от газеты: "Добрый день. Я хотел бы еще раз вглянуть на эти бумаги". ]];
 		elseif (s.state == 5) then
 			psub('warehouse_discovered2');
             poff("phr_warehouse_visited");
             poff("phr_leviathan");
             if (warehouse32_visited) then
                 pon("phr_warehouse_visited");
             end;
             if (not char_wright_home.known_leviathan) then
                 pon("phr_leviathan");
             end;
 			return [[Джек отвлекается от газеты: "Добрый день". ]];
 		elseif (s.state == 7) then
 			psub('warehouse_discovered3');
 			return [[Джек отвлекается от газеты: "Добрый день". ]];
 		end;
 	end;
 	phr = {
 		{tag='first_visit'};
 		{"Мое имя -- Дэвид Дрейк. Мне удалось найти кое-какие документы в одном из тайников отца. Этот адрес был среди них. Вы что-то знаете о судьбе моего отца? ", [[Джек вздыхает: "Это бесполезно. Я изучил практически все, до чего сумел дотянуться - газеты, судебные дела. И ничего - никаких зацепок. Компания обанкротилась, руководители пропали". ]], code [[wright_dlg.state = 2; psub('ask_documents'); ]]};
 		{tag='ask_documents'};
 		{always = true, "[Отдать документы]Посмотрите это. Не думаю, что вы это видели. ", [[Джек нехотя забирает бумаги из ваших рук и бегло их осматривает. Пожимая плечами, он комментирует: "Ничего интересного, просто планы старых зданий. Док 2? Отец там часто бывал, впрочем не думаю, что после 10 лет там что-то осталось. Если хотите - можете оставить документы, я попробую разузнать побольше". ]], code [[

0 comments (0 inline, 0 general)