games/Dragon-and-the-Tower Changeset - 1e33eb09d772

Changeset - 1e33eb09d772

Parent rev.

Child rev.

[Not reviewed]

Merge default

20 32 261

silverwing - 11 months ago 2024-04-09 17:52:58

Merge with adaptivity

6 files changed:

color2rgb.lua

167

computer_parts.lua

130

decor.lua

1114

ending.lua

849

forest.lua

486

404

icon.ico

bin+new file

Changeset was too big and was cut off... Show full diff anyway

0 comments (0 inline, 0 general) First comment

color2rgb.lua

➞

Show inline comments

deleted file

computer_parts.lua

➞

Show inline comments

-function motherboard(cpu, ram, slots, status, dsc)
+function motherboard(cpu, ram, slots, status, src)
 	local name = cpu .. '-' .. ram .. '-I' .. tostring(slots) .. 'SB';
 	return obj {
@@ @@ -10,14 +10,16 @@ function motherboard(cpu, ram, slots, st @@
 		slots = slots;
 		ptype = 'motherboard';
 		part = true;
 		disp = 'Материнская плата ' .. name;
 		dsc = '{Материнская плата ' .. name .. '}^';
 		inv = 'Материнская плата с маркировкой ' .. name .. ', ' .. dsc;
 		tak = 'Я забираю материнскую плату '  .. name .. '. ';
 		disp = translate(parts_locale, 'motherboard_title', {model=name});
 		dsc = function(s)
       return '{' .. translate_now(parts_locale, 'motherboard_title', {model=name}) .. '}^'
     end;
 		inv = translate(parts_locale, 'motherboard_inv_from_' .. src, {model=name});
 		tak = translate(parts_locale, 'motherboard_tak', {model=name});
 	};
 end;
-function cpu(slot, speed, status, dsc, name_postfix)
+function cpu(slot, speed, status, src, name_postfix)
 	local name;
 	if slot == 'CAX' then
 		name = 'CPU' .. tostring(speed * 10) .. '-CAX-' .. tostring(speed) .. 'MHz';
@@ @@ -38,14 +40,16 @@ function cpu(slot, speed, status, dsc, n @@
 		status = status;
 		name = name;
 		slot = slot;
-		disp = 'Процессор ' .. name;
+		disp = translate(parts_locale, 'cpu_title', {model=name});
 		speed = speed;
 		status = status;
 		ptype = 'cpu';
 		part = true;
 		dsc = '{Процессор ' .. name .. '}^';
 		inv = 'Процессор с маркировкой ' .. name .. ', ' .. dsc;
 		tak = 'Я забираю процессор ' .. name .. '. ';
 		dsc = function(s)
       return '{' .. translate_now(parts_locale, 'cpu_title', {model=name}) .. '}^'
     end;
 		inv = translate(parts_locale, 'cpu_inv_from_' .. src, {model=name});
 		tak = translate(parts_locale, 'cpu_tak', {model=name});
 	};
 end;
@@ @@ -67,47 +71,49 @@ function ram(slot, size, status, dsc, na @@
 		name = name;
 		slot = slot;
 		ptype = 'ram';
-		disp = 'Память ' .. name;
+		disp = translate(parts_locale, 'ram_title', {model=name});
 		status = status;
 		size = size;
 		part = true;
 		dsc = '{Память ' .. name .. '}^';
 		inv = 'Память с маркировкой ' .. name .. ', ' .. dsc;
 		tak = 'Я забираю память ' .. name .. '. ';
 		dsc = function(s)
       return '{' .. translate_now(parts_locale, 'ram_title', {model=name}) .. '}^'
     end;
 		inv = translate(parts_locale, 'ram_inv_from_' .. dsc, {model=name});
 		tak = translate(parts_locale, 'ram_tak', {model=name});
 	};
 end;
-motherboard('CVX', 'RST', 3, true, 'извлеченная мной из компьютера. ');
+motherboard('CVX', 'RST', 3, true, 'computer');
 motherboard('CAX', 'RKT', 2, false, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CAX', 'RKT', 3, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CAX', 'RST', 2, false, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CAX', 'RST', 3, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CVX', 'RST', 2, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CVX', 'RST', 4, false, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CVX', 'RDT', 2, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CRX', 'RST', 3, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CRX', 'RDT', 2, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CRX', 'RDT', 3, true, 'извлеченная мной из коробки с запчастями. ');
 motherboard('CAX', 'RKT', 2, false, 'box');
 motherboard('CAX', 'RKT', 3, true, 'box');
 motherboard('CAX', 'RST', 2, false, 'box');
 motherboard('CAX', 'RST', 3, true, 'box');
 motherboard('CVX', 'RST', 2, true, 'box');
 motherboard('CVX', 'RST', 4, false, 'box');
 motherboard('CVX', 'RDT', 2, true, 'box');
 motherboard('CRX', 'RST', 3, true, 'box');
 motherboard('CRX', 'RDT', 2, true, 'box');
 motherboard('CRX', 'RDT', 3, true, 'box');
-cpu('CVX', 7, true, 'извлеченный мной из компьютера. ')
+cpu('CVX', 7, true, 'computer')
 cpu('CAX', 2, false, 'извлеченный мной из коробки с запчастями. ');
 cpu('CAX', 4, true, 'извлеченный мной из коробки с запчастями. ');
 cpu('CVX', 5, true, 'извлеченный мной из коробки с запчастями. ');
 cpu('CVX', 7, false, 'извлеченный мной из коробки с запчастями. ', '_2');
 cpu('CRX', 10, false, 'извлеченный мной из коробки с запчастями. ');
 cpu('CRX', 20, true, 'извлеченный мной из коробки с запчастями. ');
 cpu('CXX', 100, true, 'извлеченный мной из коробки с запчастями. ');
 cpu('CAX', 2, false, 'box');
 cpu('CAX', 4, true, 'box');
 cpu('CVX', 5, true, 'box');
 cpu('CVX', 7, false, 'box', '_2');
 cpu('CRX', 10, false, 'box');
 cpu('CRX', 20, true, 'box');
 cpu('CXX', 100, true, 'box');
-ram('RST', 16, true, 'извлеченная мной из компьютера. ')
+ram('RST', 16, true, 'computer')
 ram('RKT', 2, false, 'извлеченная мной из коробки с запчастями. ');
 ram('RKT', 4, true, 'извлеченная мной из коробки с запчастями. ');
 ram('RST', 8, false, 'извлеченная мной из коробки с запчастями. ');
 ram('RST', 16, false, 'извлеченная мной из коробки с запчастями. ', '_2');
 ram('RDT', 32, true, 'извлеченная мной из коробки с запчастями. ');
 ram('RDT', 64, false, 'извлеченная мной из коробки с запчастями. ');
 ram('RKT', 2, false, 'box'); -- type 1
 ram('RKT', 4, true, 'box'); -- type 2
 ram('RST', 8, false, 'box'); -- type 2
 ram('RST', 16, false, 'box', '_2'); -- type 3
 ram('RDT', 32, true, 'box'); -- type 3
 ram('RDT', 64, false, 'box'); -- type 4
 obj {
 	nam = 'tva-rx1';
@@ @@ -116,10 +122,13 @@ obj { @@
 	ptype = 'video';
 	slot = 'ISB';
 	part = true;
 	disp = 'Видеокарта TVA-RX1';
 	dsc = '{Видеокарта TVA-RX1}^';
 	inv = 'Видеокарта TVA-RX1, извлеченная мной из компьютера. ';
 	tak = 'Я забираю видеокарту TVA-RX1. ';
   visual = 1;
 	disp = translate(parts_locale, 'videocard_title', {model='TVA-RX1'});
   dsc = function(s)
     return '{' .. translate_now(parts_locale, 'videocard_title', {model='TVA-RX1'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'videocard_inv_from_computer', {model='TVA-RX1'});
   tak = translate(parts_locale, 'videocard_tak', {model='TVA-RX1'});
+}
 obj {
@@ @@ -129,10 +138,13 @@ obj { @@
 	name = 'TVA-RX2';
 	slot = 'ISB';
 	part = true;
 	disp = 'Видеокарта TVA-RX2';
 	dsc = '{Видеокарта TVA-RX2}^';
 	inv = 'Видеокарта TVA-RX2, извлеченная мной из коробки с запчастями ';
 	tak = 'Я забираю видеокарту TVA-RX2. ';
   visual = 1;
 	disp = translate(parts_locale, 'videocard_title', {model='TVA-RX2'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'videocard_title', {model='TVA-RX2'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'videocard_inv_from_box', {model='TVA-RX2'});
 	tak = translate(parts_locale, 'videocard_tak', {model='TVA-RX2'});
+}
 obj {
@@ @@ -142,10 +154,13 @@ obj { @@
 	name = 'GVA-RX2';
 	slot = 'ISB';
 	part = true;
 	disp = 'Видеокарта GVA-RX2';
 	dsc = '{Видеокарта GVA-RX2}^';
 	inv = 'Видеокарта GVA-RX2, извлеченная мной из коробки с запчастями ';
 	tak = 'Я забираю видеокарту GVA-RX2. ';
   visual = 2;
 	disp = translate(parts_locale, 'videocard_title', {model='GVA-RX2'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'videocard_title', {model='GVA-RX2'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'videocard_inv_from_box', {model='GVA-RX2'});
 	tak = translate(parts_locale, 'videocard_tak', {model='GVA-RX2'});
+}
 obj {
@@ @@ -155,10 +170,13 @@ obj { @@
 	ptype = 'video';
 	slot = 'ISB';
 	part = true;
 	disp = 'Видеокарта GVA-RX4';
 	dsc = '{Видеокарта GVA-RX4}^';
 	inv = 'Видеокарта GVA-RX4, извлеченная мной из коробки с запчастями. ';
 	tak = 'Я забираю видеокарту GVA-RX4. ';
   visual = 2;
 	disp = translate(parts_locale, 'videocard_title', {model='GVA-RX4'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'videocard_title', {model='GVA-RX4'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'videocard_inv_from_box', {model='GVA-RX4'});
 	tak = translate(parts_locale, 'videocard_tak', {model='GVA-RX4'});
+}
 obj {
@@ @@ -168,10 +186,13 @@ obj { @@
 	ptype = 'network';
 	slot = 'ISB';
 	part = true;
 	disp = 'Сетевая карта FNA-100-10Mb/s';
 	dsc = '{Сетевая карта FNA-100-10Mb/s}^';
 	inv = 'Сетевая карта FNA-100-10Mb/s, извлеченная мной из компьютера. ';
 	tak = 'Я забираю сетевую карту FNA-100-10Mb/s. ';
   visual = 3;
 	disp = translate(parts_locale, 'network_adapter_title', {model='FNA-100-10Mb/s'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'network_adapter_title', {model='FNA-100-10Mb/s'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'network_adapter_inv_from_computer', {model='FNA-100-10Mb/s'});
   tak = translate(parts_locale, 'network_adapter_tak', {model='FNA-100-10Mb/s'});
+}
 obj {
@@ @@ -181,10 +202,13 @@ obj { @@
 	ptype = 'network';
 	slot = 'ISB';
 	part = true;
 	disp = 'Сетевая карта FNA-200-20Mb/s';
 	dsc = '{Сетевая карта FNA-200-20Mb/s}^';
 	inv = 'Сетевая карта FNA-200-20Mb/s, извлеченная мной из коробки с запчастями. ';
 	tak = 'Я забираю сетевую карту FNA-200-20Mb/s. ';
   visual = 3;
 	disp = translate(parts_locale, 'network_adapter_title', {model='FNA-200-20Mb/s'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'network_adapter_title', {model='FNA-200-20Mb/s'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'network_adapter_inv_from_box', {model='FNA-200-20Mb/s'});
   tak = translate(parts_locale, 'network_adapter_tak', {model='FNA-200-20Mb/s'});
+}
 obj {
@@ @@ -194,10 +218,13 @@ obj { @@
 	ptype = 'network';
 	slot = 'ISB';
 	part = true;
 	disp = 'Сетевая карта FNA-100-10Mb/s';
 	dsc = '{Сетевая карта FNA-100-10Mb/s}^';
 	inv = 'Сетевая карта FNA-100-10Mb/s, извлеченная мной из коробки с запчастями. ';
 	tak = 'Я забираю сетевую карту FNA-100-10Mb/s. ';
   visual = 3;
 	disp = translate(parts_locale, 'network_adapter_title', {model='FNA-100-10Mb/s'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'network_adapter_title', {model='FNA-100-10Mb/s'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'network_adapter_inv_from_box', {model='FNA-100-10Mb/s'});
   tak = translate(parts_locale, 'network_adapter_tak', {model='FNA-100-10Mb/s'});
+}
 obj {
@@ @@ -207,10 +234,13 @@ obj { @@
 	ptype = 'network';
 	slot = 'ISB';
 	part = true;
 	disp = 'Сетевая карта FNA-50-5Mb/s';
 	dsc = '{Сетевая карта FNA-50-5Mb/s}^';
 	inv = 'Сетевая карта FNA-50-5Mb/s, извлеченная мной из коробки с запчастями. ';
 	tak = 'Я забираю сетевую карту FNA-50-5Mb/s. ';
   visual = 3;
 	disp = translate(parts_locale, 'network_adapter_title', {model='FNA-50-5Mb/s'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'network_adapter_title', {model='FNA-50-5Mb/s'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'network_adapter_inv_from_box', {model='FNA-50-5Mb/s'});
   tak = translate(parts_locale, 'network_adapter_tak', {model='FNA-50-5Mb/s'});
+}
 obj {
@@ @@ -220,10 +250,13 @@ obj { @@
 	ptype = 'keyboard';
 	slot = 'ISB';
 	part = true;
 	disp = 'Контроллер клавиатуры KBC-S';
 	dsc = '{Контроллер клавиатуры KBC-S}^';
 	inv = 'Контроллер клавиатуры KBC-S, извлеченный мной из компьютера. ';
 	tak = 'Я забираю контроллер KBC-S. ';
   visual = 4;
   disp = translate(parts_locale, 'keyboard_controller_title', {model='KBC-S'});
   dsc = function(s)
     return '{' .. translate_now(parts_locale, 'keyboard_controller_title', {model='KBC-S'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'keyboard_controller_inv_from_computer', {model='KBC-S'});
   tak = translate(parts_locale, 'keyboard_controller_tak', {model='KBC-S'});
+}
 obj {
@@ @@ -233,10 +266,13 @@ obj { @@
 	ptype = 'keyboard';
 	slot = 'ISB';
 	part = true;
 	disp = 'Контроллер клавиатуры KBC-S';
 	dsc = '{Контроллер клавиатуры KBC-S}^';
 	inv = 'Контроллер клавиатуры KBC-S, извлеченный мной из коробки с запчастями. ';
 	tak = 'Я забираю контроллер KBC-S. ';
   visual = 4;
   disp = translate(parts_locale, 'keyboard_controller_title', {model='KBC-S'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'keyboard_controller_title', {model='KBC-S'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'keyboard_controller_inv_from_box', {model='KBC-S'});
   tak = translate(parts_locale, 'keyboard_controller_tak', {model='KBC-S'});
+}
 obj {
@@ @@ -246,10 +282,13 @@ obj { @@
 	ptype = 'keyboard';
 	slot = 'ISB';
 	part = true;
 	disp = 'Контроллер клавиатуры KBC-R';
 	dsc = '{Контроллер клавиатуры KBC-R}^';
 	inv = 'Контроллер клавиатуры KBC-R, извлеченный мной из коробки с запчастями. ';
 	tak = 'Я забираю контроллер KBC-R. ';
   visual = 4;
   disp = translate(parts_locale, 'keyboard_controller_title', {model='KBC-R'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'keyboard_controller_title', {model='KBC-R'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'keyboard_controller_inv_from_box', {model='KBC-R'});
   tak = translate(parts_locale, 'keyboard_controller_tak', {model='KBC-R'});
+}
 obj {
@@ @@ -259,9 +298,11 @@ obj { @@
 	ptype = 'keyboard';
 	slot = 'ISB';
 	part = true;
 	disp = 'Контроллер клавиатуры KBC-P';
 	dsc = '{Контроллер клавиатуры KBC-P}^';
 	inv = 'Контроллер клавиатуры KBC-P, извлеченный мной из коробки с запчастями. ';
 	tak = 'Я забираю контроллер KBC-P. ';
   visual = 4;
   disp = translate(parts_locale, 'keyboard_controller_title', {model='KBC-P'});
 	dsc = function(s)
     return '{' .. translate_now(parts_locale, 'keyboard_controller_title', {model='KBC-P'}) .. '}^';
   end;
 	inv = translate(parts_locale, 'keyboard_controller_inv_from_box', {model='KBC-P'});
   tak = translate(parts_locale, 'keyboard_controller_tak', {model='KBC-P'});
+}

decor.lua

➞

Show inline comments

deleted file

ending.lua

➞

Show inline comments

@@ new file 100644 @@
 global {
 	solarscale_stays = false
+}
 function make_tbg_slice(scale, theme)
 	local src = pixels.new('images/' .. theme .. '_theme/text_bg.png'):scale(scale);
 	local tbg, tbg_slice
 	local frw, frh, fdx, fdy
 	if theme == 'main' or theme == 'bwm' then
 		tbg, tbg_slice = dire_slice_9(src, {
 			x = 9 * scale,
 			y = 6 * scale,
 			w = 96 * scale,
 			h = 96 * scale
 		});
 	else
 		tbg, tbg_slice = dire_slice_9(src, {
 			x = 6 * scale,
 			y = 6 * scale,
 			w = 128 * scale,
 			h = 128 * scale
 		});
 	end;
 	return tbg, tbg_slice;
 end;
 function make_ending_frame(scale, theme, tbg, tbg_slice)
 	local fdx, fdy, frw, frh;
 	if theme == 'main' or theme == 'bwm'  then
 		frw = 978 * scale;
 		frh = 612 * scale;
 		fdx = 9 * scale;
 		fdy = 6 * scale;
 	else
 		frw = 970 * scale;
 		frh = 610 * scale;
 		fdx = 5 * scale;
 		fdy = 5 * scale;
 	end;
 	local bgframe = pixels.new(frw, frh);
 	dire_draw_9(tbg, bgframe, {x = 0; y = 0; w = frw; h = frh}, {parts=tbg_slice});
 	return bgframe, fdx, fdy, frw, frh;
 end;
 function show_ending(theme, image, position, hide_textbg)
   --[[
     position: nil or 0 -- center, 1 -- bottom-left
   ]]
   --frames, process, delay, frame_nr
 	local scale = diretheme.get_scale();
   local sw, sh = diretheme.get_screen();
   local unscaled_sw = math.ceil(sw / scale);
   local unscaled_sh = math.ceil(sh / scale);
   local unscaled_w = 960;
   local unscaled_h = 600;
 	local ox = math.floor((unscaled_sw - unscaled_w) / 2);
   local oy = math.floor((unscaled_sh - unscaled_h) / 2);
   if position == 1 then
     if ox < 0 then
       ox = 0;
     end;
     if oy < 0 then
       oy = unscaled_sh - unscaled_h;
     end;
   end;
   local tbg, tbg_slice = make_tbg_slice(scale, theme);
   local tx = 24 * scale;
 	local tw = sw - tx - 24 * scale;
 	if tw > 600 * scale then
 		tw = 600 * scale;
 		tx = (sw - tw) / 2;
 	end;
   local th = 160 * scale;
 	local ty = sh - th - 24 * scale;
   if hide_textbg then
     D {'textbg'};
   else
     local textbg = pixels.new(tw, th);
     dire_draw_9(tbg, textbg, {x = 0; y = 0; w = tw; h = th}, {parts=tbg_slice});
     D {'textbg', 'img', textbg:sprite(), x=tx, y=ty, w=tw, h=th, z=0, background=true};
   end;
   local themebg = pixels.new(unscaled_sw, unscaled_sh);
   local bgtile = pixels.new('images/' .. theme .. '_theme/background.png');
   dire_draw_tile(bgtile, themebg, {x=0, y=0, w=unscaled_sw, h=unscaled_sh}, {xoffset=-1, yoffset=-1});
   if (ox > 0) or (oy > 0) then
     --Don't bother painting border if it's not visible (Effective screen < 960x600)
     local bgframe, fdx, fdy, frw, frh = make_ending_frame(1, theme, tbg, tbg_slice);
     dire_draw_center(bgframe, themebg, {x = ox - fdx, y = oy - fdy, w = frw, h = frh});
   end;
   dire_draw_center(pixels.new(image), themebg, {x = ox, y = oy, w = 960, h = 600});
   local bgcolor = '#89C6AE';
   if theme == 'bwm' then
     bgcolor = '#B2B2B2';
   elseif theme == 'bwt' then
     bgcolor = '#1F1F1F';
   elseif theme == 'tower' then
     bgcolor = '#181E37';
   end;
   diretheme.set_background(bgcolor, 255, themebg, {mode=1, scale = true});
 end;
 --[[
 . Leaving the tower
 ]]
 room {
 	state = 0;
 	nam = 'ending_left';
 	nofollow = true;
 	theme = 'ending_outside';
 	disp = translate(ending_locale, 'game_end');
 	noinv = true;
 	notitle = true;
   nosave = true;
   noautosave = true;
 	themeInit = function(s)
     local scale = diretheme.get_scale();
     local width, height = diretheme.get_screen();
     local dx = math.floor((width - 960 * scale) / 2);
     local dy = math.floor((height - 600 * scale) / 2);
 		show_ending('main', 'images/endings/tower_left_bg.png');
 		timer:set(25);
     animation_set({
       {type="delay", delay=2000};
+      {
         type="anim",
         image = "images/endings/tower_left.png",
         x = dx,
         y = dy,
         w = 960 * scale,
         h = 600 * scale,
         frames = 6,
         delay = 500
       };
     }, true);
 	end;
 	onenter = function(s)
 		s.state = s.state + 1;
 		if s.state == 1 then
 			p(translate_now(ending_locale, 'left_state_1'));
 			return false;
 		elseif s.state == 2 then
 			p(translate_now(ending_locale, 'left_state_2'));
 			return false;
 		elseif s.state == 3 then
 			p(translate_now(ending_locale, 'left_state_3'));
 			return false;
 		end;
     if irradiated then
       snd.music('sound/bgm_ending_forest_irradiated.ogg');
     else
       snd.music('sound/bgm_ending_forest.ogg');
     end;
     enableSmoke('images/endings/tower_left_bg.png');
 	end;
   onexit = function(s)
     fading.enabled = false;
   end;
 	dsc = function(s)
 		p(translate_now(ending_locale, 'left_part_1'));
 		if solarscale_with_me then
 			p(translate_now(ending_locale, 'left_part_1_solarscale'));
 		end;
 	end;
   way = {
 		path {translate(ending_locale, 'continue'), 'ending_left_2'};
 	};
+}
 room {
   nam = 'ending_left_2';
   nofollow = true;
   nosave = true;
   noautosave = true;
   theme = function(s)
     if irradiated then
       return 'ending_outside_bw';
     else
       return 'ending_outside';
     end;
   end;
 	disp = translate(ending_locale, 'game_end');
 	noinv = true;
 	notitle = true;
   themeInit = function(s)
     if irradiated then
       show_ending('bwm', 'images/endings/tower_left_closed_bw.png');
     else
       show_ending('main', 'images/endings/tower_left_closed.png');
     end;
     animation_set(false);
 	end;
 	dsc = function(s)
 		p(translate_now(ending_locale, 'left_part_2'));
 		if solarscale_with_me then
 			p(translate_now(ending_locale, 'solarscale_lost'));
 		end;
     if irradiated then
       p(translate_now(ending_locale, 'irradiated'));
     end;
 	end;
   way = {
     path {translate(ending_locale, 'continue'), function(s)
         if irradiated then
           _'ending_credits'.etype = 'leftbw';
         else
           _'ending_credits'.etype = 'left';
         end;
         return 'ending_credits';
     end};
   };
+}
 --[[
 . Destroying the tower
 ]]
 room {
 	nam = 'ending_formatted';
 	disp = translate(ending_locale, 'game_end');
 	theme = 'ending_outside';
 	nofollow = true;
 	noinv = true;
 	notitle = true;
 	theme = 'ending_outside';
   nosave = true;
   noautosave = true;
 	themeInit = function(s)
 		show_ending('main', 'images/endings/tower_ruin.png');
     timer:set(25);
 	end;
   onenter = function(s)
     if irradiated then
       snd.music('sound/bgm_ending_forest_irradiated.ogg');
     else
       snd.music('sound/bgm_ending_forest.ogg');
     end;
   end;
   onexit = function(s)
     fading.enabled = false;
   end;
 	dsc = function(s)
 		if solarscale_with_me then
 			p(translate_now(ending_locale, 'formatted_solarscale'));
 		else
 			p(translate_now(ending_locale, 'formatted_alone'));
 		end;
 	end;
   way = {
 		path {translate(ending_locale, 'continue'), 'ending_formatted_2'};
 	};
+}
 room {
   nam = 'ending_formatted_2';
   nofollow = true;
   theme = function(s)
     if irradiated then
       return 'ending_outside_bw';
     else
       return 'ending_outside';
     end;
   end;
   nosave = true;
   noautosave = true;
 	disp = translate(ending_locale, 'game_end');
 	noinv = true;
 	notitle = true;
   themeInit = function(s)
     if irradiated then
       return show_ending('bwm', 'images/endings/tower_ruin_bw.png');
     else
       return show_ending('main', 'images/endings/tower_ruin.png');
     end;
 	end;
 	dsc = function(s)
 		p(translate_now(ending_locale, 'formatted_2'));
 		if solarscale_with_me then
 			p(translate_now(ending_locale, 'solarscale_lost'));
 		end;
     if irradiated then
       p(translate_now(ending_locale, 'irradiated'));
     end;
 	end;
   way = {
     path {translate(ending_locale, 'continue'), function(s)
         if irradiated then
           _'ending_credits'.etype = 'formatbw';
         else
           _'ending_credits'.etype = 'format';
         end;
         return 'ending_credits';
     end};
   };
+}
 --[[
 . True ending stage 1
 ]]
 -- 3a. With solarscale
 room {
   nam = 'ending_pre';
   nofollow = true;
   theme = 'tower';
   disp = translate(tower_locale, 'tower_level_4_room_2_disp');
   noinv = true;
   nosave = true;
   noautosave = true;
   pic = 'images/tower_level_4_room_2_light.png';
   dsc = translate(ending_locale, 'true_pre');
   onenter = function(s)
     if irradiated then
       snd.music('sound/bgm_ending_space_irradiated.ogg');
     else
       snd.music('sound/bgm_ending_space.ogg');
     end;
   end;
   way = {
     path {
       translate(ending_locale, 'continue'), function(s)
         if solarscale_with_me then
           return 'ending_solarscale_dlg';
         else
           return 'ending_solarscale_outside_part_1';
         end;
       end;
     };
   };
+}
 room {
 	nam = 'ending_solarscale_pre';
 	nofollow = true;
 	theme = 'tower';
 	disp = translate(tower_locale, 'tower_level_4_room_2_disp');
 	noinv = true;
   nosave = true;
   noautosave = true;
   pic = 'images/tower_level_4_room_2_light.png';
   dsc = translate(ending_locale, 'true_pre_solarscale');
 	way = {
 		path {translate(ending_locale, 'continue'), 'ending_solarscale_dlg'};
 	};
+}
 dlg {
   weight = 0;
 	nam = 'ending_solarscale_dlg';
 	nofollow = true;
 	theme = 'tower';
 	noinv = true;
 	disp = translate(solarscale_locale, 'disp');
   nosave = true;
   noautosave = true;
   pic = 'images/tower_level_4_room_2_light.png;images/characters/solarscale_tower_dusk.png';
 	enter = translate(ending_locale, 'true_solarscale_dlg_enter');
 	phr = {
 		{translate(ending_locale, "true_solarscale_dlg_1"), function(s)
 			walk('ending_solarscale_leaving');
 			return translate_now(ending_locale, "true_solarscale_dlg_1_response");
 		end};
 		{translate(ending_locale, "true_solarscale_dlg_2"), translate(ending_locale, "true_solarscale_dlg_2_response"), next='#convince'};
 		{translate(ending_locale, "true_solarscale_dlg_end"), function(s)
 			walk('ending_solarscale_leaving')
 			return translate_now(ending_locale, "true_solarscale_dlg_end_response");
 		end};
     {false, '#convince',
       {translate(ending_locale, "true_solarscale_dlg_1"), function(s)
         walk('ending_solarscale_leaving');
         return translate_now(ending_locale, "true_solarscale_dlg_1_response");
       end};
       {cond=function(s) return _'ending_solarscale_dlg'.weight > 0 end; translate(ending_locale, "true_solarscale_dlg_end"), function(s)
         walk('ending_solarscale_leaving')
         return translate_now(ending_locale, "true_solarscale_dlg_end_response");
       end};
       {translate(ending_locale, "true_solarscale_dlg_3"), function(s)
           _'ending_solarscale_dlg'.weight = _'ending_solarscale_dlg'.weight + 1;
           if _'ending_solarscale_dlg'.weight >= 3 then
             walk('ending_solarcale_stays');
             return translate_now(ending_locale, "true_solarscale_convince_level_3");
           elseif _'ending_solarscale_dlg'.weight == 2 then
             return translate_now(ending_locale, "true_solarscale_convince_level_2");
           elseif _'ending_solarscale_dlg'.weight == 1 then
             return translate_now(ending_locale, "true_solarscale_convince_level_1");
           end;
       end},
       {cond=function(s) return _'solarscale_ally'.after_discussed end; translate(ending_locale, "true_solarscale_dlg_4"), function(s)
         _'ending_solarscale_dlg'.weight = _'ending_solarscale_dlg'.weight + 1;
         if _'ending_solarscale_dlg'.weight >= 3 then
           walk('ending_solarcale_stays');
           return translate_now(ending_locale, "true_solarscale_convince_level_3");
         elseif _'ending_solarscale_dlg'.weight == 2 then
           return translate_now(ending_locale, "true_solarscale_convince_level_2");
         elseif _'ending_solarscale_dlg'.weight == 1 then
           return translate_now(ending_locale, "true_solarscale_convince_level_1");
         end;
       end},
       {cond=function(s) return had_tea and tea_answer_1 == 1 and tea_answer_2 == 1 and tea_answer_3 == 1 end; translate(ending_locale, "true_solarscale_dlg_5"), function(s)
         _'ending_solarscale_dlg'.weight = _'ending_solarscale_dlg'.weight + 3;
         if _'ending_solarscale_dlg'.weight >= 3 then
           walk('ending_solarcale_stays');
           return translate_now(ending_locale, "true_solarscale_convince_level_3");
         elseif _'ending_solarscale_dlg'.weight == 2 then
           return translate_now(ending_locale, "true_solarscale_convince_level_2");
         elseif _'ending_solarscale_dlg'.weight == 1 then
           return translate_now(ending_locale, "true_solarscale_convince_level_1");
         end;
       end},
       {cond=function(s) return had_tea end; translate(ending_locale, "true_solarscale_dlg_6"), function(s)
         _'ending_solarscale_dlg'.weight = _'ending_solarscale_dlg'.weight + 1;
           if _'ending_solarscale_dlg'.weight >= 3 then
             walk('ending_solarcale_stays');
             return translate_now(ending_locale, "true_solarscale_convince_level_3");
           elseif _'ending_solarscale_dlg'.weight == 2 then
             return translate_now(ending_locale, "true_solarscale_convince_level_2");
           elseif _'ending_solarscale_dlg'.weight == 1 then
             return translate_now(ending_locale, "true_solarscale_convince_level_1");
           end;
       end};
     };
 	};
+}
 room {
 	nam = 'ending_solarcale_stays';
 	notitle = true;
 	nofollow = true;
 	theme = 'ending_outside';
 	noinv = true;
 	disp = translate(ending_locale, 'game_end');
   nosave = true;
   noautosave = true;
 	dsc = translate(ending_locale, 'true_solarscale_stays');
   onenter = function(s)
     enableSmoke('images/endings/crater_edge/crater_edge.png', 1);
   end;
   themeInit = function(s)
     local scale = diretheme.get_scale();
     local width, height = diretheme.get_screen();
     local dx = math.floor((width - 960 * scale) / 2);
     local dy = math.floor((height - 600 * scale) / 2);
     if dx < 0 then
       dx = 0;
     end;
     if dy < 0 then
       dy = height - 600 * scale;
     end;
 		show_ending('main', 'images/endings/crater_edge/crater_edge.png', 1);
     animation_set({
         {type="delay", delay=2000};
+        {
           type="anim",
           image='images/endings/crater_edge/tower_animation.png',
           x = dx + 445 * scale,
           y = dy + 311 * scale,
           w = 40 * scale,
           h = 94 * scale,
           frames = 14,
           delay = 75,
         };
     }, true);
     timer:set(25);
 	end;
   onexit = function(s)
     fading.enabled = false;
   end;
 	way = {
 		path {translate(ending_locale, 'continue'), 'true_ending_step_1'};
 	};
 };
 room {
 	nam = 'ending_solarscale_leaving';
 	notitle = true;
 	nofollow = true;
 	noinv = true;
 	disp = translate(ending_locale, 'game_end');
   theme = 'ending_outside';
   nosave = true;
   noautosave = true;
   onenter = function(s)
     enableSmoke('images/endings/tower_left_bg.png');
   end;
   themeInit = function(s)
     local scale = diretheme.get_scale();
     local width, height = diretheme.get_screen();
     local dx = math.floor((width - 960 * scale) / 2);
     local dy = math.floor((height - 600 * scale) / 2);
 		show_ending('main', 'images/endings/tower_left_bg.png');
     animation_set({
         {type="delay", delay=2000};
+        {
           type="anim",
           image='images/endings/solarscale_left.png',
           x = dx,
           y = dy,
           w = 960 * scale,
           h = 600 * scale,
           frames = 15,
           delay = 100,
         };
+        {
           type="anim",
           image='images/endings/tower_left.png',
           x = dx,
           y = dy,
           w = 960 * scale,
           h = 600 * scale,
           frames=6,
           delay = 500,
         };
     }, true);
     timer:set(25);
   end;
   onexit = function(s)
     fading.enabled = false;
   end;
   pic = 'images/tower_level_4_room_2_light.png';
   dsc = translate(ending_locale, 'true_solarscale_leaving');
 	way = {
 		path {translate(ending_locale, 'continue'), 'ending_solarscale_outside_part_1_alt'};
 	};
+}
 room {
   nam = 'ending_solarscale_outside_part_1';
   notitle = true;
 	nofollow = true;
 	theme = 'ending_outside';
   noinv = true;
   notitle = true;
   nosave = true;
   noautosave = true;
   disp = translate(ending_locale, 'game_end');
   onenter = function(s)
     enableSmoke('images/endings/crater_edge/tower_solarscale.png', 1);
   end;
   themeInit = function(s)
     local scale = diretheme.get_scale();
     local width, height = diretheme.get_screen();
     local dx = math.floor((width - 960 * scale) / 2);
     local dy = math.floor((height - 600 * scale) / 2);
     if dx < 0 then
       dx = 0;
     end;
     if dy < 0 then
       dy = height - 600 * scale;
     end;
 		show_ending('main', 'images/endings/crater_edge/tower_solarscale.png', 1);
     animation_set({
         {type="delay", delay=2000};
+        {
           type="anim",
           image='images/endings/crater_edge/tower_animation.png',
           x = dx + 445 * scale,
           y = dy + 311 * scale,
           w = 40 * scale,
           h = 94 * scale,
           frames = 14,
           delay = 75,
         };
     }, true);
     timer:set(25);
 	end;
   onexit = function(s)
     fading.enabled = false;
   end;
   dsc = translate(ending_locale, 'true_solarscale_outside_part_1');
   way = {
 		path {translate(ending_locale, 'continue'), 'ending_solarscale_outside_part_2'};
 	};
 };
 room {
   nam = 'ending_solarscale_outside_part_1_alt';
   notitle = true;
 	nofollow = true;
 	theme = 'ending_outside';
   noinv = true;
   notitle = true;
   nosave = true;
   noautosave = true;
   disp = translate(ending_locale, 'game_end');
   themeInit = function(s)
     local scale = diretheme.get_scale();
     local width, height = diretheme.get_screen();
     local dx = math.floor((width - 960 * scale) / 2);
     local dy = math.floor((height - 600 * scale) / 2);
     if dx < 0 then
       dx = 0;
     end;
     if dy < 0 then
       dy = height - 600 * scale;
     end;
 		show_ending('main', 'images/endings/crater_edge/tower_solarscale.png', 1);
     animation_set({
         {type="delay", delay=2000};
+        {
           type="anim",
           image='images/endings/crater_edge/tower_animation.png',
           x = dx + 445 * scale,
           y = dy + 311 * scale,
           w = 40 * scale,
           h = 94 * scale,
           frames = 14,
           delay = 75,
         };
     }, true);
     timer:set(25);
 	end;
   dsc = translate(ending_locale, 'true_solarscale_outside_part_1_alt');
   way = {
 		path {translate(ending_locale, 'continue'), 'ending_solarscale_outside_part_2'};
 	};
 };
 room {
   nam = 'ending_solarscale_outside_part_2';
   notitle = true;
 	nofollow = true;
 	theme = 'ending_outside';
   noinv = true;
   notitle = true;
   nosave = true;
   noautosave = true;
   disp = translate(ending_locale, 'game_end');
   themeInit = function(s)
     local scale = diretheme.get_scale();
     local width, height = diretheme.get_screen();
     local dx = math.floor((width - 960 * scale) / 2);
     local dy = math.floor((height - 600 * scale) / 2);
     if dx < 0 then
       dx = 0;
     end;
     if dy < 0 then
       dy = height - 600 * scale;
     end;
 		show_ending('main', 'images/endings/crater_edge/solarscale.png', 1);
     animation_set({
         {type="delay", delay=2000};
+        {
           type="anim",
           image='images/endings/crater_edge/solarscale_animated.png',
           x = dx,
           y = dy,
           w = 960 * scale,
           h = 600 * scale,
           frames = 28,
           delay = 125,
         };
     }, true);
 	end;
   dsc = translate(ending_locale, 'true_solarscale_outside_part_2');
   way = {
 		path {translate(ending_locale, 'continue'), 'true_ending_step_1'};
 	};
+}
 --[[
 . True ending stage 2
 a. With solarscale
 b. Without solarscale
 c. Irradiated
 ]]
 room {
 	nam = 'true_ending_step_1';
 	disp = translate(ending_locale, 'game_end');
 	noinv = true;
 	notitle = true;
 	nofollow = true;
   nosave = true;
   noautosave = true;
 	theme = 'ending_inside';
 	themeInit = function(s)
 		show_ending('tower', 'images/endings/space.png');
     animation_set(false);
 	end;
 	dsc = function(s)
 		if solarscale_stays then
 			pr(translate_now(ending_locale, 'true_step_1_solarscale'));
     else
       pr(translate_now(ending_locale, 'true_step_1_alone'));
 		end;
     pn();
     pr(translate_now(ending_locale, 'true_step_1'));
 	end;
 	way = {
 		path {translate(ending_locale, 'continue'), function(s)
       if irradiated then
         return 'true_ending_step_2_irradiated';
       else
         return 'true_ending_step_2';
       end;
     end};
 	};
+}
 room {
 	nam = 'true_ending_step_2';
 	disp = translate(ending_locale, 'game_end');
 	noinv = true;
 	notitle = true;
 	nofollow = true;
   nosave = true;
   noautosave = true;
 	theme = 'ending_inside';
   themeInit = function(s)
 		show_ending('tower', 'images/endings/space.png');
     timer:set(25);
 	end;
 	dsc = function(s)
     if solarscale_stays then
       return translate_now(ending_locale, 'true_step_2_solarscale');
     else
       return translate_now(ending_locale, 'true_step_2_alone');
     end;
   end;
   way = {
     path {translate(ending_locale, 'continue'), function(s)
         _'ending_credits'.etype = 'main';
         return 'ending_credits';
     end};
   };
+}
 room {
 	nam = 'true_ending_step_2_irradiated';
 	disp = translate(ending_locale, 'game_end');
 	noinv = true;
 	notitle = true;
 	nofollow = true;
   nosave = true;
   noautosave = true;
 	theme = 'ending_inside_bw';
   themeInit = function(s)
 		show_ending('bwt', 'images/endings/space_bw.png');
 	end;
 	dsc = translate(ending_locale, 'true_step_2_irradiated');
   way = {
     path {translate(ending_locale, 'continue'), function(s)
         _'ending_credits'.etype = 'bwm';
         return 'ending_credits';
     end};
   };
+}
 room {
 	nam = 'ending_credits';
 	disp = translate(ending_locale, 'thank_you_for_playing');
 	noinv = true;
 	nofollow = true;
   nosave = true;
   noautosave = true;
   etype = false; -- main, mbw, left, leftbw, format, formatbw
 	theme = function(s)
     if s.etype == 'main' then
       return 'credits_inside';
     elseif s.etype == 'bwm' then
       return 'credits_inside_bw';
     elseif s.etype == 'left' or s.etype == 'format' then
       return 'credits_outside';
     elseif s.etype == 'leftbw' or s.etype == 'formatbw' then
       return 'credits_outside_bw';
     else
       error('Unexpected ending');
     end;
   end;
   themeInit = function(s)
     if s.etype == 'main' then
       show_ending('tower', 'images/endings/space.png', 0, true);
     elseif s.etype == 'bwm' then
       show_ending('bwt', 'images/endings/space_bw.png', 0, true);
     elseif s.etype == 'left' then
       show_ending('main', 'images/endings/tower_left_credits.png', 0, true);
     elseif s.etype == 'format' then
       show_ending('main', 'images/endings/tower_ruin_credits.png', 0, true);
     elseif s.etype == 'leftbw' then
       show_ending('bwm', 'images/endings/tower_left_bw_credits.png', 0, true);
     elseif s.etype == 'formatbw' then
       show_ending('bwm', 'images/endings/tower_ruin_bw_credits.png', 0, true);
     else
       error('Unexpected ending');
     end;
 		timer:set(25);
     if s.etype == 'main' and not irradiated then
       snd.music('sound/bgm_credits.ogg');
     end;
 	end;
 	decor = function(s)
 		return translate_now(menu_locale, 'credits_author') .. ': Khaelenmore Thaal^' ..
 			translate_now(menu_locale, 'credits_art') .. ': Sabra Naikomy^' ..
 			translate_now(menu_locale, 'credits_music') .. ': Khaelenmore Thaal^' ..
 			translate_now(menu_locale, 'credits_engine') .. ': INSTEAD ' .. translate_now(menu_locale, 'credits_engine_author') .. ' {$link https://github.com/instead-hub/instead/}^' ..
 			translate_now(menu_locale, 'credits_sounds') .. ': {$link https://freesound.org/} CC-0^' ..
 			translate_now(menu_locale, 'credits_fonts') .. ': VileR {$link https://int10h.org/oldschool-pc-fonts/} CC-BY-SA 4.0^' ..
 			translate_now(menu_locale, 'credits_thanks') .. ':';
 	end;
   way = {
     path {translate(ending_locale, 'show_menu'), 'reset'};
   };
+}
 room {
   nam = 'reset';
   onenter = function(s)
     std.gamefile('main3.lua', true);
     return false;
   end;
 };
@@ \ No newline at end of file @@

forest.lua

➞

Show inline comments

@@ @@ -14,36 +14,49 @@ global { @@
 	pc_status = false;
 	village_visited = false;
 	candle_taken = false;
   tower_seen = false;
   tower_accept_level = 0; --0 -- no contanct, 1 -- level 3 reached, 2 -- level 4 completed, 3 -- complete acceptance
   tea_answer_1 = 0; --0 -- not spoken or not correct, 1 -- correct, 2 -- don't know
   tea_answer_2 = 0; --0 -- not spoken or not correct, 1 -- correct, 2 -- don't know
   tea_answer_3 = 0; --0 -- not spoken or not correct, 1 -- correct, 2 -- don't know
   had_tea = false;
   library_word = '';
   library_book_map = {};
   password1 = '';
   password2 = '';
+}
 obj {
 	nam = 'raspberry_pie';
 	disp = 'Малиновый пирог';
 	inv = 'Я вдыхаю восхитительный аромат свежего малинового пирога. К сожалению, я не могу его съесть, но я точно вернусь сюда когда-нибудь за кусочком для себя. ';
 	disp = translate(forest_locale, 'raspberry_pie');
 	inv = translate(forest_locale, 'raspberry_pie_inv');
+}
 obj {
 	nam = 'flower';
 	disp = 'Цветок';
 	inv = 'Небольшой, но очень красивый цветок с тонкими вытянутыми лепестками небесно-голубого цвета. ';
 	disp =translate(forest_locale, 'flower');
 	inv = translate(forest_locale, 'flower_inv');
+}
 obj {
 	nam = 'lock';
 	disp = 'Замок';
 	disp2 = 'замок';
 	disp3 = 'замок';
 	inv = 'Небольшой металлический замочек, очень старый и изрядно проржавевший. ';
 	disp = translate(forest_locale, 'lock');
 	disp2 = translate(forest_locale, 'lock_disp2');
 	disp3 = translate(forest_locale, 'lock_disp3');
 	inv = translate(forest_locale, 'lock_inv');
+}
 room {
 	nam = 'above_forest';
 	pic = 'images/above_forest.png';
 	disp = 'Над лесом';
 	disp = translate(forest_locale, 'above_forest');
 	theme = 'main';
 	decor = function(s)
-		pr [[Изредка взмахивая крыльями, я парю над раскинувшейся внизу {#thicket|чащей}. На западе я вижу {#mountains|горную цепь}, протянувшуюся с юга на север до самого горизонта. Тонкой струйкой внизу извивается старая асфальтированная {#road|дорога}. Вдоль нее тянутся линии {#powerlines|электропередач}. Чуть в стороне от дороги я могу разглядеть небольшую {#glade|полянку}. Прохладный {wind|ветерок} ласкает чешую, а яркое летнее {sun|солнце} пробивается сквозь тонкие перистые {clouds|облака}. ]];
+		pr(translate_now(forest_locale, 'above_forest_decor'));
 		if not village_visited then
-			pr [[Где-то здесь должна быть небольшая деревенька. ]];
+			pr(translate_now(forest_locale, 'above_forest_decor_village'));
 		end;
 	end;
 	enter = function(s)
@@ @@ -51,46 +64,44 @@ room { @@
 			stop_menu();
 		end;
 		if here()^'forest_glade' then
-			p [[Резко взмахнув крыльями, я отрываюсь от земли и устремляюсь ввысь. ]];
+			pr(translate_now(forest_locale, 'above_forest_enter'));
 		end;
 		snd.music('sound/bgm_forest.ogg');
 	end;
 	way = {
 		 path {"#down", 'Приземлиться', 'forest_glade'}:disable();
 		 path {"#north", 'На север, вдоль дороги', 'above_near_village'};
 		 path {"#down", translate(forest_locale, 'transition_land'), 'forest_glade'}:disable();
 		 path {"#north", translate(forest_locale, 'transition_north_along_road'), 'above_near_village'};
+	}
 }:with {
 	obj {
 		nam = '#thicket';
 		act = 'Древние леса зеленым ковром покрывают землю. Вершины деревьев едва покачиваются от легкого ветерка. Даже здесь, на высоте нескольких сотен метров, я ощущаю легкий запах хвои. ';
 	};
 	obj {
 		nam = '#mountains';
 		act = 'Горная цепь вспарывает лесной ковер к западу от меня. Редкие деревья отчаянно цепляются за каменистые склоны, словно стремясь заживить эту гигантскую рану. ';
 		act = translate(forest_locale, 'above_forest_thicket_act');
 	};
 	obj {
 		nam = '#road';
 		act = function(s)
-			pr 'Потрескавшийся асфальт напоминает русло засохшей реки. Дорога пустынна, словно это место давно покинуто людьми. ';
+			pr(translate_now(forest_locale, 'above_forest_road_act'));
 			if not village_visited then
-				pr 'Что если меня ждут лишь безжизненные окна пустых домов?';
+				pr(translate_now(forest_locale, 'above_forest_road_act_village'));
 			end;
 		end;
 	};
 	obj {
 		nam = '#powerlines';
-		act = 'Вышки установлены вдоль дороги на равных расстояниях друг от друга, Между ними натянуты толстые высоковольтные провода. ';
+		act = translate(forest_locale, 'above_forest_powerlines_act');
 	};
 	obj {
 		nam = '#glade';
 		act = function(s)
-			pr 'Небольшая полянка, усеянная пестрым ковром из цветов и трав. ';
+			pr(translate_now(forest_locale, 'above_forest_glade_act'));
 			if _'#down':disabled() then
 				_'#down':enable();
-				pr 'Отличное место чтобы передохнуть. ';
+				pr(translate_now(forest_locale, 'above_forest_glade_act_first'));
 			end;
 		end;
 	};
 	'mountains';
 	'wind';
 	'sun';
 	'clouds';
@@ @@ -98,33 +109,40 @@ room { @@
 room {
 	nam = 'forest_glade';
 	pic = 'images/forest_glade.png';
 	disp = 'Поляна';
 	pic = function(s)
 		if lookup('#flowers', 'forest_glade').state == 1 then
 			return 'images/forest_glade.png';
 		else
 			return 'images/forest_glade.png;images/forest_glade_flower.png@269,201';
 		end;
 	end;
 	disp = translate(forest_locale, 'forest_glade');
 	theme = 'main';
 	onenter = function(s)
-		p [[Я приземляюсь на небольшой полянке в лесу. Здесь нет нужды прятаться, поэтому я остаюсь в истинном обличии. ]];
+		pr(translate_now(forest_locale, 'forest_glade_enter'));
 		if solarscale_with_me and not solarscale_glade_visited then
 			solarscale_glade_visited = true;
-			p [[Соларскейл опускается на землю неподалеку от меня. С воодушевлением и трепетом она начинает разглядывать местные растения. "Какие красивые цветы!" -- восклицает она. ]];
+			pr(translate_now(forest_locale, 'forest_glade_solarscale'));
 		end;
 	end;
-	decor = [[Я стою посреди небольшой полянки, со всех сторон окруженной стеной {#thicket|леса}. Здесь тихо и спокойно. Я слышу только шелест листвы и пение {#birds|птиц}. Легкий ветерок еле заметно качает вершины {#thicket|деревьев}. Изумрудно-зеленая {#grass|трава} достигает моих пяток. ]];
+	decor = translate(forest_locale, 'forest_glade_decor');
 	way = {
-		path {'#up', 'Взлететь', 'above_forest'};
+		path {'#up', translate(forest_locale, 'transition_fly'), 'above_forest'};
+	}
 }: with {
 	obj {
 		nam = '#thicket';
-		act = [[Деревья окружают поляну сплошной стеной, словно бдительные стражи, охраняющие покой этого места. ]];
+		act = translate(forest_locale, 'forest_glade_thicket');
 	};
 	obj {
 		nam = '#birds';
-		act = [[Где-то в глубине леса я слышу щебетание множества птиц, однако я не вижу ни одной поблизости. ]];
+		act = translate(forest_locale, 'forest_glade_birds');
 	};
 	obj {
 		nam = '#grass';
 		act = function(s)
 			_'#flowers':enable();
-			return [[Высокая густая трава покрывает всю поляну. Человеку она была бы по пояс, но мне она едва достигает пяток. Тут и там я замечаю небольшие скопления {#flowers|цветов}, скрытые в ней. ]];
+			return translate_now(forest_locale, 'forest_glade_grass');
 		end;
 	};
 	obj {
@@ @@ -134,9 +152,9 @@ room { @@
 			if s.state == 0 then
 				take('flower');
 				s.state = 1;
-				p [[Мое внимание привлекают необычные цветы с вытянутыми лепестками небесно-голубого цвета, растущие на краю поляны. Я срываю один и забираю с собой. Немного магии, и он уже никогда не завянет. ]];
+				return translate_now(forest_locale, 'forest_glade_flowers_first');
 			else
-				p [[Здесь растет немало красивых цветов. ]];
+				return translate_now(forest_locale, 'forest_glade_flowers');
 			end;
 		end;
 	}:disable();
@@ @@ -144,42 +162,40 @@ room { @@
 room {
 	nam = 'above_near_village';
-	disp = 'К югу от деревни';
+	disp = translate(forest_locale, 'above_near_village');
 	pic = 'images/above_near_village.png';
 	theme = 'main';
 	onenter = function(s)
 		if here()^'near_village' then
-			p [[Мое тело окутывает туман и через мгновение на дороге уже стоит не безымянный странник, а могучий дракон. Взмахнув крыльями, я оставляю землю далеко внизу. ]];
+			return translate_now(forest_locale, 'above_near_village_enter');
 		end;
 	end;
-	decor = [[Мои крылья несут меня над лесной {#road|дорогой}. Я пролетел с десяток километров, но, кажется, не изменилось вообще ничего: внизу все так же расстилается бескрайняя {#thicket|чаща}, а {#mountains|горная цепь} на западе продолжает тянуться вдаль. На севере, у самого горизонта, я замечаю небольшую {#village|деревушку}. ]];
+	decor = translate(forest_locale, 'above_near_village_decor');
 	way = {
 		path {"#south", 'На юг, вдоль дороги', 'above_forest'};
 		path {"#down", 'Приземлиться', 'near_village'};
 		path {"#north", 'На север, к деревне', 'above_village'};
 		path {"#south", translate(forest_locale, 'transition_south_along_road'), 'above_forest'};
 		path {"#down", translate(forest_locale, 'transition_land'), 'near_village'};
 		path {"#north", translate(forest_locale, 'transition_north_to_the_village'), 'above_village'};
+	}
 }: with {
 	obj {
 		nam = '#road';
-		act = [[Дорога выглядит давно не используемой. Асфальт во многих местах потрескался, и сквозь него кое-где пробиваются зеленые стебельки. ]];
+		act = translate(forest_locale, 'above_near_village_road');
 	};
 	obj {
 		nam = '#thicket';
 		act = 'Кажется, лесу нет конца и края. Легкий ветерок колышет вершины деревьев, поднимая густой хвойный аромат, ощутимый даже здесь, на высоте нескольких сотен метров. ';
 	};
 	obj {
 		nam = '#mountains';
 		act = 'Горная цепь тянется до самого горизонта на юг и на север. Немногие деревья отчаянно цепляются за пологие каменистые склоны, словно стремясь заживить эту гигантскую рану. ';
 		act = translate(forest_locale, 'above_near_village_thicket');
 	};
 	obj {
 		nam = '#village';
 		act = function(s)
-			pr [[Отсюда я могу разглядеть ратушу и трактир в ее центре. Вокруг них разбросаны утопающие в зелени домики местных жителей. ]];
+			pr(translate_now(forest_locale, 'above_near_village_village'));
 			if not village_visited then
 				village_visited = true;
-				pr [[Поселение определенно не заброшено. ]];
+				pr(translate_now(forest_locale, 'village_unvisited'));
 			end;
 		end;
 	};
 	'mountains';
 	'wind';
 	'sun';
 	'clouds';
@@ @@ -188,92 +204,96 @@ room { @@
 room {
 	nam = 'above_village';
 	pic = 'images/above_village.png';
 	disp = 'Над деревней';
 	decor = [[Надо мной все так же проплывают тонкие перистые {clouds|облака}, едва прикрывая собой {sun|солнце}, а внизу простирается бескрайнее море {#thicket|леса}, взрезанное на западе невысокой, но очень протяженной {#mountains|горной грядой}. Старая асфальтированная {#road|дорога} ведет в {#village|деревню}, расположенную подо мной. ]];
 	disp = translate(forest_locale, 'above_village');
 	theme = 'main';
 	decor = translate(forest_locale, 'above_village_decor');
 	way = {
 		path {"#south", 'На юг, вдоль дороги', 'above_near_village'};
 		path {"#down", 'Приземлиться', 'village_no_way'};
 		path {"fly_west_from_village", 'На запад', 'above_west'}:disable();
 		path {"#south", translate(forest_locale, 'transition_south_along_road'), 'above_near_village'};
 		path {"#down", translate(forest_locale, 'transition_land'), 'village_no_way'};
 		path {"fly_west_from_village", translate(forest_locale, 'transition_west'), 'above_west'}:disable();
+	}
 }: with {
 	obj {
 		nam = '#thicket';
 		act = 'Густой хвойный лес плотным кольцом обступает небольшую деревеньку со всех сторон, безуспешно пытаясь поглотить ее. ';
 	};
 	obj {
 		nam = '#mountains';
 		act = 'К западу от меня горная гряда прорезает сплошной лесной ковер, раскинувшийся внизу. ';
 		act = translate(forest_locale, 'above_village_thicket');
 	};
 	obj {
 		nam = '#road';
-		act = 'Очевидно, местные жители нечасто пользуются этим путем. Дорога пустует, а асфальт не получает должного ремонта. ';
+		act = translate(forest_locale, 'above_village_road');
 	};
 	obj {
 		nam = '#village';
 		act = function(s)
-			pr [[Отсюда я могу хорошо разглядеть утопающую в зелени деревню. В центре ее расстилается площадь, рядом с которой находятся ратуша и трактир. На севере деревни располагается библиотека. ]];
+			pr(translate_now(forest_locale, 'above_village_village'));
 			if not village_visited then
 				village_visited = true;
-				pr [[Деревня определенно не заброшена. ]];
+				pr(translate_now(forest_locale, 'village_unvisited'));
 			end;
 		end;
 	};
 	'mountains';
 	'wind';
 	'sun';
 	'clouds';
+}
+};
 obj {
 	nam = 'sun';
-	act = 'Теплые лучи солнца приятно согревают мою чешую, пробиваясь сквозь тонкие перистые облака. ';
+	act = translate(forest_locale, 'sun');
 };
 obj {
 	nam = 'sun_transformed';
 	act = 'Теплые лучи солнца пробиваются сквозь тонкие перистые облака и заливают все вокруг золотистым светом.';
+}
 	act = translate(forest_locale, 'sun_transformed');
 };
 obj {
 	nam = 'clouds';
-	act = 'Пронзаемые лучами солнца словно копьями, тонкие перистые облака неспешно проплывают надо мной, повинуясь воздушным течениям. ';
+	act = translate(forest_locale, 'clouds');
 };
 obj {
 	nam = 'wind';
 	act = 'Легкий ветерок дует с востока, принося желанную прохладу. Его мягкое дыхание едва колышет вершины деревьев и заставляет тонкие облака медленно плыть на запад. ';
 	act = translate(forest_locale, 'wind');
 };
 obj {
 	nam = 'mountains';
 	act = translate(forest_locale, 'mountains');
 };
 room {
 	nam = 'above_west';
-	disp = 'К западу от деревни';
+	disp = translate(forest_locale, 'above_west');
 	pic = 'images/above_west.png';
 	decor = [[{#village|Деревня} осталась далеко на востоке. Мне пришлось подняться повыше, оставив внизу даже самые высокие {#mountains|пики}. Подо мной проносятся острые {#mountaintops|вершины} и каменистые {#mountainslopes|склоны}, усеянные валунами, а вдалеке на западе я вижу огромный {#crater|кратер}. Лучи яркого летнего {sun|солнца}, проникающие сквозь тонкие перистые {clouds|облака}, падают на мою чешую, согревая ее. ]];
 	theme = 'main';
 	decor = translate(forest_locale, 'above_west_decor');
 	way = {
 		path {"#east", 'На восток, к деревне', 'above_village'};
 		path {"#west", 'На запад, к кратеру', 'above_crater'}:disable();
 		path {"#east", translate(forest_locale, 'transition_east_to_the_village'), 'above_village'};
 		path {"#west", translate(forest_locale, 'transition_west_to_the_crater'), 'above_crater'}:disable();
+	}
 }: with {
 	obj {
 		nam = '#village';
-		act = 'Отсюда я все еще могу разглядеть важнейшие здания деревни: ратушу, трактир и библиотеку. Из трубы трактира поднимается едва заметный дымок, а на крыльце его сидит девушка. ';
+		act = translate(forest_locale, 'above_west_village');
 	};
 	obj {
 		nam = '#mountains';
-		act = 'Отсюда я могу рассмотреть горные пики внизу. Немногие из них достаточно высоки, чтобы коснуться облаков, лишь часть из них покрыта блестящим на солнце снегом. Большинство представляет собой не более чем голые камни, за которые тут и там отчаянно пытаются цепляться немногочисленные молодые ели. ';
+		act = translate(forest_locale, 'above_west_mountains');
 	};
 	obj {
 		nam = '#mountaintops';
-		act = 'Вершины гор нацелены вверх, словно наконечники копий. Большая часть их -- не более чем серые камни, лишенные растительность, но самые высокие покрыты ослепительно белым снагом, сверкающим в ярких лучах летнего солнца. ';
+		act = translate(forest_locale, 'above_west_mountaintops');
 	};
 	obj {
 		nam = '#mountainslopes';
-		act = 'Крутые склоны и отвесные скалы кажутся практически безжизненными. Лишь немногие деревья осмеливаются пустить свои корни на этих каменных громадах, устремившихся в небеса. ';
+		act = translate(forest_locale, 'above_west_mountainslopes');
 	};
 	obj {
 		nam = '#crater';
 		act = function(s)
 			_'#west':enable();
-			return 'Громадный кратер, наверное, километров десять в диаметре. Судя по тому, что он уже зарос редким леском, образовался он достаточно давно. Даже отсюда я вижу черную башню, расположенную в самом его центре. Надо подлететь поближе, чтобы рассмотреть ее получше. ';
+			return translate_now(forest_locale, 'above_west_crater');
 		end;
 	};
 	'clouds';
@@ @@ -283,35 +303,36 @@ room { @@
 room {
 	nam = 'above_crater';
 	pic = 'images/above_crater.png';
 	theme = 'main';
 	onenter = function(s)
 		if here()^'inside_crater_glade' then
-			p [[Я взмываю в небо, уже на лету заканчивая превращение. Мои могучие крылья поднимают меня над землей. ]];
+			p(translate_now(forest_locale, 'above_crater_enter'));
 		end;
 	end;
 	disp = 'Над кратером';
 	decor = [[Я пролетаю над огромным {#crater|кратером}, затерянным среди гор. В центре кратера возвышается {#tower|башня}, но я не смогу там приземлиться из-за {#trees|деревьев}. Я замечаю небольшую {#glade|полянку} всего в нескольких сотнях метров от башни. ]];
 	disp = translate(forest_locale, 'above_crater');
 	decor = translate(forest_locale, 'above_crater_decor');
 	way = {
 		path {"#east", 'На восток', 'above_west'};
 		path {"#down", 'Приземлиться', 'inside_crater_glade'}:disable();
 		path {"#east", translate(forest_locale, 'transition_east'), 'above_west'};
 		path {"#down", translate(forest_locale, 'transition_land'), 'inside_crater_glade'}:disable();
+	}
 }: with {
 	obj {
 		nam = '#crater';
-		act = 'Когда-то в незапамятные времена здесь упал довольно крупный метеорит. За прошедшее время кратер успел зарости лесом, но планета все еще не загладила этот ужасный шрам на своей поверхности. ';
+		act = translate(forest_locale, 'above_crater_crater');
 	};
 	obj {
 		nam = '#tower';
-		act = 'Башня из черного камня возвышается над лесом, располагаясь в самом центре исполинского кратера. Основание ее представляет собой правильный шестиугольник. Она стоит строго вертикально, окруженная со всех сторон лесом, словно не замечающим ее присутствия. ';
+		act = translate(forest_locale, 'above_crater_tower');
 	};
 	obj {
 		nam = '#trees';
-		act = 'Деревья растут достаточно редко, чтобы позволить солнечным лучам достигать земли, однако приземлиться среди них все еще проблематично. ';
+		act = translate(forest_locale, 'above_crater_trees');
 	};
 	obj {
 		nam = '#glade';
 		act = function(s)
 			_'#down':enable();
-			return 'Небольшая полянка совсем недалеко от башни. Eсли я приземлюсь здесь и превращусь, то без труда доберусь до башни. ';
+			return translate_now(forest_locale, 'above_crater_glade');
 		end;
 	};
 	'wind';
@@ @@ -323,9 +344,9 @@ room { @@
 	nam = 'village_no_way';
 	onenter = function(s)
 		if solarscale_with_me then
-			p [[Местным жителям не очень понравится, если посреди их деревни вдруг приземлятся два дракона. ]];
+			p(translate_now(forest_locale, 'village_no_way_solarscale'));
 		else
-			p [[Местным жителям не очень понравится, если посреди их деревни вдруг приземлится дракон. ]];
+			p(translate_now(forest_locale, 'village_no_way_alone'));
 		end;
 		return false;
 	end;
@@ @@ -333,34 +354,35 @@ room { @@
 room {
 	nam = 'near_village';
-	disp = 'К югу от деревни';
+	disp = translate(forest_locale, 'near_village');
 	pic = 'images/near_village.png';
 	theme = 'main';
 	onenter = function(s)
 		if here()^'above_near_village' then
-			p [[Я мягко опускаюсь на землю. Едва мои ноги касаются земли, я начинаю превращаться. Тело мое расплывается туманом, который вскоре собирается в облике обычного человека. Горящие ярким огнем глаза я предусмотрительно скрываю за темными очками. ]];
+			p(translate_now(forest_locale, 'near_village_enter'));
 		end;
 	end;
-	decor = [[Я стою на старой асфальтовой {#road|дороге} где-то посреди древнего {#forest|леса}. В нескольких километрах к северу от меня находится небольшая {#village|деревушка}. Яркое летнее {sun_transformed|солнце} пробивается сквозь проплывающие высоко в небе {clouds|облака}. ]];
+	decor = translate(forest_locale, 'near_village_decor');
 	way = {
 		path {"#up", 'Взлететь', 'above_near_village'};
 		path {"#north", 'На север, в деревню', 'village_south'};
 		path {"#up", translate(forest_locale, 'transition_fly'), 'above_near_village'};
 		path {"#north", translate(forest_locale, 'transition_north_to_the_village'), 'village_south'};
+	}
 }: with {
 	obj {
 		nam = '#road';
-		act = 'Серый неровный асфальт всеми забытой дороги иссечен многочисленными трещинами. ';
+		act = translate(forest_locale, 'near_village_road');
 	};
 	obj {
 		nam = '#forest';
-		act = 'Легкий ветерок качает вершины стоящих по сторонам дороги деревьев, разнося насыщенный аромат хвойного леса. ';
+		act = translate(forest_locale, 'near_village_forest');
 	};
 	obj {
 		nam = '#village';
 		act = function(s)
-			pr 'Ухоженные бревенчатые домики местных жителей утопают в зелени. Отсюда я вижу стоящие в центре деревни крупные здания ратуши и трактира. ';
+			p(translate_now(forest_locale, 'near_village_village'));
 			if not village_visited then
 				village_visited = true;
-				pr [[Деревня определенно не заброшена. ]];
+				p(translate_now(forest_locale, 'near_village_village_2'));
 			end;
 		end;
 	};
@@ @@ -370,43 +392,44 @@ room { @@
 room {
 	nam = 'village_south';
-	disp = 'Деревня, юг';
+	disp = translate(forest_locale, 'village_south');
 	pic='images/village_south.png';
 	theme = 'main';
 	enter = function(s)
 		if not village_visited then
 			village_visited = true;
-			pr [[Эта деревня определенно не заброшена. ]];
+			p(translate_now(forest_locale, 'village_south_enter'));
 		end;
 	end;
 	nofollow = function(s)
 		if here():from()^'near_village' then
-			return 'Соларскейл отказывается следовать за мной и со словами: "Я не могу изменять форму, и не думаю, что местные жители будут рады меня видеть. Я подожду вас здесь", -- усаживается на траву неподалеку. ';
+			return translate_now(forest_locale, 'village_south_follow');
 		else
 			return true;
 		end;
 	end;
-	decor = [[Я стою на {#road|дороге} в южной части {#village|деревни}. Чуть поодаль расположилась {#foresters_hut_out|избушка} лесника. У входа припаркован старый {#foresters_car|пикап}. Лучи {sun_transformed|солнца}, пробивающиеся сквозь тонкие {clouds|облака}, заливают все вокруг золотистым светом. ]];
+	decor = translate(forest_locale, 'village_south_decor');
 	way = {
 		path {'#south', 'На юг, в лес', 'near_village'};
 		path {'#in', 'В дом лесника', 'foresters_hut'};
 		path {'#north', 'На север, к ратуше', 'village_center'};
 		path {'#south', translate(forest_locale, 'transition_south_to_the_forest'), 'near_village'};
 		path {'#in', translate(forest_locale, 'transition_inside_hut'), 'foresters_hut'};
 		path {'#north', translate(forest_locale, 'transition_north_to_the_townhall'), 'village_center'};
 	};
 }:with {
 	obj {
 		nam = '#road';
-		act = 'Мне, привыкшему к ровному полу в моей пещере, очень непривычно идти по старому полуразрушенному асфальту. Тут и там сквозь трещины в нем пробиваются тонкие стебельки молодой травы. '
+		act = translate(forest_locale, 'village_south_road');
 	};
 	obj {
 		nam = '#village';
-		act = 'Аккуратные деревянные домики местных жителей утопают в зелени. Отсюда я вижу расположенные в центре деревни здания ратуши и трактира. Из трубы последнего поднимается тонкая струйка дыма. ';
+		act = translate(forest_locale, 'village_south_village');
 	};
 	obj {
 		nam = '#foresters_car';
-		act = 'Этому автомобилю, должно быть, не менее десяти лет -- модель очень старая, кузов местами подкрашен, кое-где видны небольшие вмятины. Однако, на машине нет и следа ржавчины, зеркала и фары в полном порядке, лобовое стекло сияет чистотой. ';
+		act = translate(forest_locale, 'village_south_car');
 	};
 	obj {
 		nam = '#foresters_hut_out';
-		act = 'Крепкая деревянная изба, почерневшая от старости и слегка покосившаяся, но все еще достаточно прочная. При должном уходе, она простоит еще не один десяток лет. ';
+		act = translate(forest_locale, 'village_south_hut');
 	};
 	'sun_transformed';
 	'clouds';
@@ @@ -415,91 +438,100 @@ room { @@
 room {
 	state = 0;
 	nam = 'foresters_hut';
 	pic = 'images/foresters_hut.png';
 	pic = function(s)
 		if _'rope':where() == here() then
 			return 'images/foresters_hut.png;images/foresters_hut_rope.png@8,160';
 		else
 			return 'images/foresters_hut.png';
 		end;
 	end;
 	theme = 'main';
 	nofollow = true;
-	disp = 'Дом лесника';
+	disp = translate(forest_locale, 'foresters_hut');
 	enter = function(s)
 		if s.state == 0 then
 			s.state = 1;
-			return 'Я с трудом сдерживаюсь, чтобы не снять очки и не выдать себя. Привыкнув к темноте, я осмотрелся. ';
+			return translate_now(forest_locale, 'foresters_hut_enter');
 		end;
 	end;
-	decor = [[Несмотря на яркий солнечный день, внутри избушки лесника царит полумрак. Напротив входа расположен большой мягкий {#sofa|диван}. В углу разместился большой крепкий {#cupboard|шкаф}, а у окна стоит {#table|стол}, застеленный клеенкой, с несколькими {#chairs|стульями} вокруг. На столе стоит {#radio|радиоприемник}.]];
+	decor = translate(forest_locale, 'foresters_hut_decor');
 	way = {
-		path {'#out', 'На улицу', 'village_south'};
+		path {'#out', translate(forest_locale, 'transition_out'), 'village_south'};
+	}
 }:with {
 	obj {
 		nam = '#sofa';
-		act = 'Старинный диван с выцветшей и потертой обивкой все еще манит домашним уютом. ';
+		act = translate(forest_locale, 'foresters_hut_sofa');
 	};
 	obj {
 		nam = '#cupboard';
-		act = 'Должно быть, этому шкафу не один десяток лет. Бронзовые ручки покрыты патиной, а на рассохшейся дверце я замечаю несколько глубоких трещин. ';
+		act = translate(forest_locale, 'foresters_hut_cupboard');
 	};
 	obj {
 		nam = '#table';
-		act = 'Массивный дубовый стол застелен старой выцветшей клеенкой с узором из цветочков и каких-то завитков. ';
+		act = translate(forest_locale, 'foresters_hut_table');
 	};
 	obj {
 		nam = '#chairs';
-		act = 'Старые деревянные стулья, очевидно, сделанные местным мастером. Простые, но устойчивые и прочные. Такие прослужат не одно десятилетие. ';
+		act = translate(forest_locale, 'foresters_hut_chairs');
 	};
 	obj {
 		nam = '#radio';
-		act = [[Старинный радиоприемник. Такие перестали выпускать лет двадцать назад. Судя по всему, он все еще прекрасно работает. Лампочка питания горит, однако громкость выкручена в минимум. ]];
+		act = translate(forest_locale, 'foresters_hut_radio');
 	};
 	obj {
 		bought = false;
 		nam = 'forester';
-		dsc = 'На диване сидит {лесник}, глядя на меня. ';
+		dsc = translate(forest_locale, 'foresters_hut_forester');
 		act = function(s)
 			walkin('forester_dlg');
 		end;
 		used = function(s, o)
 			if o^'raspberry_pie' then
-				return 'Я не могу просто всучить ему пирог. Надо подойти и поговорить. ';
+				return translate_now(forest_locale, 'foresters_hut_forester_pie');
 			else
-				return 'Не думаю, что ему это интересно. ';
+				return translate_now(forest_locale, 'foresters_hut_not_interested');
 			end;
 		end;
 	};
 	obj {
 		nam = 'rope';
 		disp = 'Веревка';
 		dsc = 'На шкафу лежит {моток веревки}. ';
 		disp = translate(forest_locale, 'foresters_hut_rope_disp');
 		dsc = translate(forest_locale, 'foresters_hut_rope');
 		act = function(s)
 			if _('forester').bought then
-				p 'Я забираю веревку. '
+				p(translate_now(forest_locale, 'foresters_hut_rope_taken'));
 				take('rope')
 			else
-				p 'Хозяин будет недоволен, если я возьму это без разрешения. ';
+				p(translate_now(forest_locale, 'foresters_hut_rope_not_taken'));
 			end;
 		end;
-		inv = [[Моток крепкой веревки. ]];
+		inv = translate(forest_locale, 'foresters_hut_rope_inv');
 	};
+}
 dlg {
 	nam = 'forester_dlg';
 	disp = 'Лесник';
 	enter = [[Бородатый, косматый мужчина неопределенного возраста сидит на диване, пронзительно глядя мне в глаза. Одет он в брезентовые куртку и штаны и, кажется, не испытывает никаких проблем по поводу жары. ]];
 	disp = translate(forest_locale, 'forester_dlg_disp');
 	theme = 'main';
 	pic = 'images/characters/forester.png';
 	enter = translate(forest_locale, 'forester_dlg_enter');
 	phr = {
 		{'Добрый день. Я впервые в вашей деревне. ', 'Лесник резко меняет выражение лица -- в глазах сверкает веселая искорка и кажется, что под бородой скрывается искренняя улыбка: "Добро пожаловать, мы всегда рады гостям!"',
 			{'Вы знаете какие-нибудь местные достопримечательности?', 'Лесник не задумываясь отвечает: "Говорят, такого собрания книг, как в нашей библиотеке, больше нигде нет". '};
 		{translate(forest_locale, 'common_dlg_greet'), translate(forest_locale, 'forester_dlg_greet_response'),
 			{translate(forest_locale, 'common_dlg_places'), translate(forest_locale, 'forester_dlg_places_response')};
 		},
 		{cond=function(s) return where('rope')^'foresters_hut' and not _('forester').bought end, 'Могу я взять у вас веревку?', function(s)
 			p 'Лесник задумчиво чешет бороду. Потом предлагает: "Мы с трактирщиком на днях поссорились, теперь он отказывается продавать мне что-либо кроме хлеба и воды. С удовольствием обменяю моток веревки на кусок малинового пирога". '
 		{cond=function(s) return where('rope')^'foresters_hut' and not _('forester').bought end, translate(forest_locale, 'forester_dlg_rope'), function(s)
 			p(translate_now(forest_locale, 'forester_dlg_rope_response'));
 			raspberry_pie_status = 1;
 		end},
-		{cond=function(s) return have 'raspberry_pie' end, '[Дать леснику малиновый пирог] Я принес пирог. Могу я взять веревку?', function(s)
+		{cond=function(s) return have 'raspberry_pie' end, translate(forest_locale, 'forester_dlg_pie'), function(s)
 			remove('raspberry_pie', pl);
-			p 'Лесник берет у вас пирог и, откусив от него немного, произносит: "Забирайте".'
+			p(translate_now(forest_locale, 'forester_dlg_pie_response'));
 			raspberry_pie_status = 2;
 			_('forester').bought = 1;
 		end},
 		{true, 'До свидания.', function(s)
 			p 'Лесник прощается со мной: "Увидимся". '
 		{true, translate(forest_locale, 'forester_dlg_farewell'), function(s)
 			p(translate_now(forest_locale, 'forester_dlg_farewell_response'));
 			walkout();
 		end}
+	}
@@ @@ -509,56 +541,59 @@ room { @@
 	nam = 'village_center';
 	nofollow = true;
 	pic = 'images/village_center.png';
 	disp = 'Деревня, центр';
 	decor = [[Я стою на небольшой площади перед деревенской {#townhall|ратушей}. В другом конце площади стоит {#tavern|трактир}. На севере я замечаю какое-то большое одноэтажное {#library|здание}. Сквозь тонкие перистые {clouds|облака} пробиваются яркие лучи летнего {sun_transformed|солнца}. ]];
 	theme = 'main';
 	disp = translate(forest_locale, 'village_center');
 	decor = function(s)
     p(translate_now(forest_locale, 'village_center_decor'));
     p(translate_now(forest_locale, 'village_all_decor'));
   end;
 	way = {
 		 path {'На юг, к дому лесника', 'village_south'};
 		 path {'#down', 'В колодец', 'inside_well'}:disable();
 		 path {'В ратушу', 'townhall'};
 		 path {'В трактир', 'tavern'};
 		 path {'На север, к библиотеке', 'village_north'};
 		 path {translate(forest_locale, 'transition_south_to_hut'), 'village_south'};
 		 path {'#down', translate(forest_locale, 'transition_inside_well'), 'inside_well'}:disable();
 		 path {translate(forest_locale, 'transition_inside_town_hall'), 'townhall'};
 		 path {translate(forest_locale, 'transition_inside_tavern'), 'tavern'};
 		 path {translate(forest_locale, 'transition_north_to_library'), 'village_north'};
 	};
 }: with {
 	obj {
 		nam = '#townhall';
-		act = 'Двухэтажное здание ратуши -- одно из самых крупных и старых зданий в деревне. Большую часть фасада занимают огромные, высотой в оба этажа, окна. Изнутри здания доносится {#music|музыка}. ';
+		act = translate(forest_locale, 'village_center_townhall');
 	};
 	obj {
 		nam = '#music';
-		act = 'Я останавливаюсь, чтобы прислушаться к доносящейся из ратуши музыке. Незнакомая мелодия звучит очень приятно. ';
+		act = translate(forest_locale, 'village_center_music');
 	};
 	obj {
 		nam = '#tavern';
-		act = 'Трактир не уступает ратуше ни возрастом, ни солидностью. Из трубы здания поднимается едва заметный дымок. ';
+		act = translate(forest_locale, 'village_center_tavern');
 	};
 	obj {
 		nam = '#library';
-		act = 'Отсюда я могу разглядеть вывеску библиотеки на здании. ';
+		act = translate(forest_locale, 'village_center_library');
 	};
 	obj {
 		known = false;
 		nam = 'village_well';
 		dsc = function(s)
       p(translate_now(forest_locale, 'village_well_dsc'));
 			if _('inside_well').state then
 				return 'В центре площади расположен {колодец}. Вокруг одного из выступающих камней закреплена веревка, уходящая в него. ';
 			else
 				return 'В центре площади расположен {колодец}. ';
 				p(translate_now(forest_locale, 'village_well_dsc_rope'));
 			end;
 		end;
 		act = function(s)
 			if s.known then
 				_'#down':enable();
-				p [[При виде колодца, мне в голову приходят слова "ключ там, где вода", выгравированные на кольце. Пусть воды здесь уже давно нет, это лишь облегчает задачу. ]];
+				p(translate_now(forest_locale, 'village_well_act_key'));
 			else
-				p [[Старый высохший колодец. ]];
+				p(translate_now(forest_locale, 'village_well_act'));
 			end;
 		end;
 		used = function(s, o)
 			if s.known and o^'rope' then
 				_('inside_well').state = true;
 				remove('rope', pl);
-				p 'Я привязываю веревку к выступающему камню. По ней я смогу выбраться из колодца. ';
+				p(translate_now(forest_locale, 'village_well_used'));
 			else
 				return false;
 			end;
@@ @@ -567,24 +602,23 @@ room { @@
 	obj {
 		nam = 'maid';
 		dsc = function(s)
       p(translate_now(forest_locale, 'village_maid_dsc'));
 			if _('maid_dlg').flower then
 				return 'На крыльце трактира сидит молодая {девушка}. В руке она держит красивый цветок с небесно-голубыми лепестками. ';
 			else
 				return 'На крыльце трактира сидит молодая {девушка}. ';
 				p(translate_now(forest_locale, 'village_maid_flower'));
 			end;
 		end;
 		act = function(s)
 			if _('maid_dlg').flower and (raspberry_pie_status == 0 or raspberry_pie_status == 2) then
-				return [[Длинные каштановые волосы ниспадают на плечи девушки, карие глаза смотрят куда-то вдаль. Уголки рта приподняты в легкой улыбке. Она одета в простое голубое платье. Мне больше ничего от нее не нужно. ]];
+				return translate_now(forest_locale, 'village_maid_act');
 			else
 				walkin('maid_dlg');
 			end;
 		end;
 		used = function(s, o)
 			if o^'flower' then
-				return 'Лучше сначала подойти и поговорить. ';
+				return translate_now(forest_locale, 'village_maid_used_flower');
 			else
-				return 'Вряд ли ей это будет интересно. ';
+				return translate_now(forest_locale, 'village_maid_used_other');
 			end;
 		end;
 	};
@@ @@ -594,92 +628,100 @@ room { @@
 dlg {
 	nam = 'maid_dlg';
 	disp = 'Девушка';
 	disp = translate(forest_locale, 'maid_dlg');
 	theme = 'main';
 	pic = function(s)
 		if s.flower then
 			return 'images/characters/maid_glad.png';
 		else
 			return 'images/characters/maid_sad.png';
 		end;
 	end;
 	flower = false;
 	pie = false;
 	work_asked = false;
 	pie_asked = false;
 	enter = function(s)
 		if _('maid_dlg').flower then
-			return [[Молодая девушка сидит на крыльце трактира. Ее длинные каштановые волосы ниспадают на плечи, карие глаза смотрят куда-то вдаль. Уголки рта приподняты в легкой улыбке. Она одета в простое голубое платье. Когда я подхожу, она поднимает свой взгляд и тепло улыбается мне. В руке она держит красивый цветок с небесно-голубыми лепестками. ]];
+			return translate_now(forest_locale, 'maid_dlg_enter_flower');
 		else
-			return [[Молодая девушка сидит на крыльце трактира. Ее длинные каштановые волосы ниспадают на плечи, карие глаза смотрят куда-то вдаль. Уголки рта приподняты в легкой улыбке. Она одета в простое голубое платье. Когда я подхожу, она поднимает свой взгляд и приветливо, но немного грустно, улыбается. Ее тонкие бледные руки лежат на подоле платья почти не двигаясь. ]];
+			return translate_now(forest_locale, 'maid_dlg_enter_no_flower');
 		end;
 	end;
 	phr = {
 		{cond=function(s) return not _('maid_dlg').flower end, "Добрый день. Я впервые в вашей деревне. ", 'Девушка поднимает глаза и смущенно отвечает: "Простите, я вас не заметила. Помогу, чем смогу". ',
 			{'Вы знаете какие-нибудь местные достопримечательности?', 'Вопрос ставит девушку в тупик. Она краснеет и молчит, не зная, что ответить. Через некоторое время она спрашивает: "Здесь хорошо, не правда ли?"',
 				{'Да, мне здесь нравится. ', 'Девушка продолжает: "В нашем лесу растут очень красивые цветы. Раньше мы ходили с лесником и я собирала букет для себя, но в этом году у меня почти нет времени -- надо помогать отцу в трактире". Она грустно вздыхает. ', only=true,
 		{cond=function(s) return not _('maid_dlg').flower end, translate(forest_locale, 'common_dlg_greet'), translate(forest_locale, 'maid_dlg_greet_response'),
 			{translate(forest_locale, 'common_dlg_places'), translate(forest_locale, 'maid_dlg_places_response'),
 				{translate(forest_locale, 'maid_dlg_places_like'), translate(forest_locale, 'maid_dlg_places_like_response'), only=true,
+					{
 						cond=function(s) return have 'flower' end,
-						'[Дать девушке цветок] Вот, возьмите. ',
+						translate(forest_locale, 'maid_dlg_flower'),
 						function(s)
 							_('maid_dlg').flower = 1;
 							remove('flower', pl);
-							p 'Девушка засияла. Тепло улыбнувшись вам, она произносит: "Спасибо!"'
+							p(translate_now(forest_locale, 'maid_dlg_flower_response'));
 						end
 					};
+					{
 						'[Промолчать]',
 						'Девушка спрашивает: "Так что вы хотели?"'
 						translate(forest_locale, 'maid_dlg_silent'),
 						translate(forest_locale, 'maid_dlg_silent_response')
+					}
 				};
 			};
 		};
-		{cond=function(s) return not _('maid_dlg').work_asked end, 'Вы работаете в трактире?', function(s)
+		{cond=function(s) return not _('maid_dlg').work_asked end, translate(forest_locale, 'maid_dlg_tavern'), function(s)
 			_('maid_dlg').work_asked = true;
-			return 'Девушка молча кивает. '
+			return translate_now(forest_locale, 'maid_dlg_tavern_response');
 		end};
+		{
 			cond=function(s) return _('maid_dlg').pie_asked and have 'flower' end,
-			'[Дать девушке цветок] Вот, возьмите. ',
+			translate(forest_locale, 'maid_dlg_flower'),
 			function(s)
 				_('maid_dlg').flower = 1;
 				remove('flower', pl);
 				raspberry_pie_status = 2;
 				take 'raspberry_pie'
-				p 'Девушка соскакивает с места и со словами "Сейчас вернусь!" убегает в трактир. Через несколько минут она возвращается с куском восхитительно пахнущего малинового пирога.'
+				p(translate_now(forest_locale, 'maid_dlg_pie_response'));
 			end
 		};
+		{
 			cond=function(s) return _('maid_dlg').work_asked and not _('maid_dlg').pie_asked and _('maid_dlg').flower and raspberry_pie_status == 1; end;
-			'Вы можете принести мне кусок малинового пирога?',
+			translate(forest_locale, 'maid_dlg_pie'),
 			function(s)
 				raspberry_pie_status = 2;
 				take 'raspberry_pie'
-				p 'Девушка соскакивает с места и со словами "Сейчас вернусь!" убегает в трактир. Через несколько минут она возвращается с куском восхитительно пахнущего малинового пирога.'
+				p(translate_now(forest_locale, 'maid_dlg_pie_response'));
 			end;
 		};
+		{
 			cond=function(s) return _('maid_dlg').work_asked and not _('maid_dlg').pie_asked and not _('maid_dlg').flower and raspberry_pie_status == 1; end;
 			'Вы можете принести мне кусок малинового пирога?',
 			'Девушка смеется: "Наш пирог стал настолько знаменит, что люди приходят издали, чтобы попробовать его! Почему бы вам не попросить у моего отца?"', only=true,
 			translate(forest_locale, 'maid_dlg_pie'),
 			translate(forest_locale, 'maid_dlg_pie_fail_response'), only=true,
+			{
-				'У меня нет с собой денег. ', function(s)
+				translate(forest_locale, 'maid_dlg_no_money'), function(s)
 					_('maid_dlg').pie_asked = 1;
-					p 'Девушка удивленно спрашивает: "Как же вы сюда добрались тогда?"^Немного подумав, она предлагает: "Знаете, я поделюсь с вами пирогом, если вы выполните мою небольшую прихоть. Многого не прошу, просто принесите мне цветок из нашего леса. Обычно мы ходим с лесником и я набираю их себе вдоволь, но в этот раз он слишком занят. Что скажете?"'
+					p(translate_now(forest_locale, 'maid_dlg_no_money_response'));
 				end, only=true,
+				{
 					cond=function(s) return have 'flower' end,
-					'[Дать девушке цветок] Вот, возьмите. ',
+					translate(forest_locale, 'maid_dlg_flower'),
 					function(s)
 						_('maid_dlg').flower = 1;
 						remove('flower', pl);
 						raspberry_pie_status = 2;
 						take 'raspberry_pie'
 						p 'Девушка соскакивает с места и со словами "Сейчас вернусь!" убегает в трактир. Через несколько минут она возвращается с куском восхитительно пахнущего малинового пирога.'
 						take('raspberry_pie');
 						p(translate_now(forest_locale, 'maid_dlg_pie_response'));
 					end
 				};
 				{"Согласен. ", 'Девушка улыбается: "Договорились". '};
 				{"Мне надо подумать. ", 'Девушка пожимает плечами: "Как хотите. Пирог и вправду очень вкусный". '};
         {translate(forest_locale, 'maid_dlg_flower_agree'), translate(forest_locale, 'maid_dlg_flower_agree_response')};
 				{translate(forest_locale, 'maid_dlg_flower_think'), translate(forest_locale, 'maid_dlg_flower_think_response')};
 			},
+			{
-				'Хорошо, я попрошу у него. ', 'Девушка молча смотрит на меня. '
+				translate(forest_locale, 'maid_dlg_pie_ask'), translate(forest_locale, 'maid_dlg_pie_ask_response')
+			}
 		};
+		{
 			'Я пойду. ', function(s)
 			p 'Девушка кивает, слегка улыбнувшись. '
 			translate(forest_locale, 'maid_dlg_bye'), function(s)
 			p(translate_now(forest_locale, 'maid_dlg_bye_response'));
 			walkout();
 		end
+		}
@@ @@ -688,41 +730,48 @@ dlg { @@
 room {
 	nam = 'tavern';
 	pic = 'images/tavern.png';
 	disp = 'Деревня, трактир';
 	pic = function(s)
 		if raspberry_pie_status == 2 then
 			return 'images/tavern.png';
 		else
 			return 'images/tavern.png;images/tavern_pie.png@181,124';
 		end;
 	end;
 	disp = translate(forest_locale, 'tavern');
 	theme = 'main';
 	nofollow = true;
-	decor = [[Просторный зал трактира встречает вас теплом и уютом. Помещение залито солнечным светом, проникающим через многочисленные {#windows|окна}. Повсюду расставлены крепкие деревянные {#tables|столы}, на удивление хорошо сделанные. На бревенчатых {#walls|стенах} закреплены электрические {#lights|светильники}. Над {#fireplace|очагом} в дальнем конце висит {#cauldron|котелок}, от которого поднимается ароматный пар. ]];
+	decor = translate(forest_locale, 'tavern_decor');
 	way = {
-		path {'#outside', 'На улицу', 'village_center'};
+		path {'#outside', translate(forest_locale, 'transition_out'), 'village_center'};
 	};
 }: with {
 	obj {
 		nam = '#windows';
-		act = 'Большие окна с чистыми прозрачными стеклами легко пропускают в помещение свет. Темно-коричневые занавески, висящие на всех окнах, раскрыты. ';
+		act = translate(forest_locale, 'tavern_windows');
 	};
 	obj {
 		nam = '#tables';
-		act = 'Устойчивые тяжелые столы, расчитанные на трех-четырех человек каждый, накрыты чистыми белыми скатертями. ';
+		act = translate(forest_locale, 'tavern_tables');
 	};
 	obj {
 		nam = '#walls';
-		act = 'Бревенчатые стены трактира создают теплую атмосферу старины и уюта. ';
+		act = translate(forest_locale, 'tavern_walls');
 	};
 	obj {
 		nam = '#lights';
-		act = 'Лампы под тонкими пластиковыми абажурами сейчас выключены. ';
+		act = translate(forest_locale, 'tavern_lights');
 	};
 	obj {
 		nam = '#fireplace';
-		act = 'Несмотря на жаркий летний день, в очаге пылает огонь. ';
+		act = translate(forest_locale, 'tavern_fireplace');
 	};
 	obj {
 		nam = '#cauldron';
-		act = 'Ароматное жаркое бурлит в котелке -- сюда еще не пришли современные газовые или электрические плиты, а может быть хозяин просто предпочитает готовить по-старинке. ';
+		act = translate(forest_locale, 'tavern_cauldron');
 	};
 	obj {
 		nam = 'tavernkeeper';
-		dsc = [[За начищенной до блеска барной стойкой скучает {трактирщик}. ]];
+		dsc = translate(forest_locale, 'tavern_keeper');
 		act = function(s)
 			walkin 'tavernkeeper_dlg'
 		end;
@@ @@ -732,18 +781,20 @@ room { @@
 dlg {
 	nam = 'tavernkeeper_dlg';
 	noinv = true;
 	title = 'Трактирщик';
 	enter = [[За барной стойкой я вижу тучного мужчину с густой черной бородой. Его темные глаза весело смотрят на меня. Он громогласно вопрошает: "Чего изволите, гость дорогой?"]];
 	title = translate(forest_locale, 'tavernkeeper_dlg');
 	pic = 'images/characters/tavernkeeper.png';
 	theme = 'main';
 	enter = translate(forest_locale, 'tavernkeeper_dlg_enter');
 	phr = {
 		{'Добрый день. Я впервые в вашей деревне. ', 'Трактирщик улыбается и предлагает свои услуги: "Добро пожаловать! В моем трактире вы всегда можете остановиться на ночь и не останетесь без сытного горячего ужина!"',
 			{'Благодарю, но у меня нет с собой денег.', 'Трактирщик пожимает плечами: "Бесплатно мы не обслуживаем". '};
 			{'Вы знаете какие-нибудь местные достопримечательности?', 'Трактирщик уверенно отвечает: "Обязательно попробуйте наш малиновый пирог! Уверяю, вы не пробовали ничего вкуснее!"'};
 		{translate(forest_locale, 'common_dlg_greet'), translate(forest_locale, 'tavernkeeper_dlg_greet_response'),
 			{translate(forest_locale, 'tavernkeeper_dlg_money'), translate(forest_locale, 'tavernkeeper_dlg_money_response')};
 			{translate(forest_locale, 'common_dlg_places'), translate(forest_locale, 'tavernkeeper_dlg_places_response')};
 		};
 		{cond=function(s) return raspberry_pie_status == 1; end, "Я могу приобрести у вас малиновый пирог?", 'Трактирщик достает из под стойки ароматный пирог и протягивает вам со словами: "Всего сто пятьдесят монет и он ваш!"',
 			{'К сожалению, у меня нет с собой денег. Мы можем договориться?', 'Трактирщик убирает пирог обратно и говорит: "Так не пойдет. Пирог продается только за деньги". '}
 		{cond=function(s) return raspberry_pie_status == 1; end, translate(forest_locale, 'tavernkeeper_dlg_pie'), translate(forest_locale, 'tavernkeeper_dlg_pie_response'),
 			{translate(forest_locale, 'tavernkeeper_dlg_pie_2'), translate(forest_locale, 'tavernkeeper_dlg_pie_response_2')}
 		};
 		{true, 'До свидания.', function(s)
 			p 'Трактирщик бодро отвечает: "Заходите еще!" '
 		{true, translate(forest_locale, 'tavernkeeper_dlg_bye'), function(s)
 			p(translate_now(forest_locale, 'tavernkeeper_dlg_bye_response'));
 			walkout();
 		end};
 	};
@@ @@ -752,52 +803,53 @@ dlg { @@
 room {
 	nam = 'townhall';
 	pic='images/townhall.png';
 	title = 'Ратуша';
 	theme = 'main';
 	title = translate(forest_locale, 'townhall');
 	nofollow = true;
-	decor = [[Я стою в просторном зале ратуши. С {#ceiling|потолка} свисает несколько больших хрустальных {#chandelier|люстр}. Сейчас в помещении царит полумрак – {#curtains|занавески} закрыты и сквозь них пробивается совсем немного света. В центре зала стоит огромный дубовый {#table|стол}, по периметру которого расставлены массивные {#chairs|стулья}. В кресле в дальнем конце стола дремлет, откинув голову пожилой {#head|мужчина}. ]];
+	decor = translate(forest_locale, 'townhall_decor');
 	onexit = function(s)
 		if have 'oil' then
-			p [[Вряд ли местным жителям понравится, если я буду красть их вещи. Масло надо вернуть. ]];
+			p(translate_now(forest_locale, 'townhall_onexit'));
 			return false;
 		end;
 	end;
 	way = {
-		path {'#out', 'На улицу', 'village_center'};
+		path {'#out', translate(forest_locale, 'transition_out'), 'village_center'};
 	};
 }: with {
 	obj {
 		nam = '#ceiling';
-		act = 'Высокий потолок скрывается во тьме, однако мне, с моим драконьим зрением, не составляет труда разглядеть его хорошо обработанные и ровные доски. ';
+		act = translate(forest_locale, 'townhall_ceiling');
 	};
 	obj {
 		nam = '#chandelier';
-		act = 'Позолоченные кронштейн и рожки удерживают лампы и множество подвесок, украшающих люстры. Сейчас они выключены, но стоит зажечь свет и искрящиеся отблески засверкают, отражаясь от хрусталя и преломляясь в нем. ';
+		act = translate(forest_locale, 'townhall_chandelier');
 	};
 	obj {
 		nam = '#curtains';
-		act = 'Выцветшие занавески закрыты, преграждая свету путь в помещение. Старая ткань все еще сохраняет свою плотность и прочность.';
+		act = translate(forest_locale, 'townhall_curtains');
 	};
 	obj {
 		nam = '#table';
-		act = 'На полированной поверхности стола видны многочисленные царапины, оставленные посетителями за долгие годы. Массивный и тяжелый, он стоит как влитой и прослужит еще немало лет. ';
+		act = translate(forest_locale, 'townhall_table');
 	};
 	obj {
 		nam = '#chairs';
-		act = 'Простые, но крепкие стулья столь же стары, как и остальная мебель здесь. Я не сомневаюсь, что они прослужат еще много лет. ';
+		act = translate(forest_locale, 'townhall_chairs');
 	};
 	obj {
 		nam = '#head';
-		act = [[Нет ни малейшего смысла его будить -- пусть себе спит. ]];
+		act = translate(forest_locale, 'townhall_head');
 	};
 	obj {
 		flask = true;
 		nam = 'cabinet';
-		dsc = [[Рядом со входом стоит небольшая крепкая {тумбочка}, на которой стоит {record_player|проигрыватель}, воспроизводящий неизвестную мне мелодию. ]];
+		dsc = translate(forest_locale, 'townhall_cabinet');
 		act = function(s)
 			if s.flask then
-				return [[Внутри тумбочки я обнаруживаю несколько {records|пластинок}, коробочку с {parts|запчастями} и {oil|флакончик с машинным маслом}. ]];
+				return translate_now(forest_locale, 'townhall_cabinet_act_oil');
 			else
-				return [[Внутри тумбочки я обнаруживаю несколько {records|пластинок} и коробочку с {parts|запчастями}]];
+				return translate_now(forest_locale, 'townhall_cabinet_act');
 			end;
 		end;
 		used = function(s, o)
@@ @@ -805,30 +857,30 @@ room { @@
 				s.flask = true;
 				remove(o, pl);
 				put(o, 'townhall');
-				return 'Я возвращаю флакончик на место. ';
+				return translate_now(forest_locale, 'townhall_cabinet_used_oil');
 			end;
 		end;
 	}:with {
 		obj {
 			nam = 'records';
-			act = [[Нескольпо грампластинок. Ни исполнители, ни альбомы мне совершенно не знакомы. ]];
+			act = translate(forest_locale, 'townhall_cabinet_records');
 		};
 		obj {
 			nam = 'parts';
-			act = [[Запасные детали для проигрывателя бережно расфасованные по небольшим коробочкам и пакетикам. ]];
+			act = translate(forest_locale, 'townhall_cabinet_parts');
 		};
 		obj {
 			nam = 'oil';
-			disp = 'Флакончик с маслом';
+			disp = translate(forest_locale, 'townhall_cabinet_oil');
 			tak = function(s)
 				_('cabinet').flask = false;
-				return 'Я беру флакончик с маслом. ';
+				return translate_now(forest_locale, 'townhall_cabinet_oil_tak');
 			end;
-			inv = 'Почти полный флакончик с машинным маслом. ';
+			inv = translate(forest_locale, 'townhall_cabinet_oil_inv');
 		};
 		obj {
 			nam = 'record_player';
-			act = [[Проигрыватель в идеальном состоянии, несмотря на почтенный возраст. Старая заезженная пластинка обильно потрескивает, однако музыка мне определенно нравится. К сожалению, она мне совершенно незнакома. ]];
+			act = translate(forest_locale, 'townhall_cabinet_record_player');
 		};
 	};
+}
@@ @@ -837,23 +889,25 @@ room { @@
 	state = false;
 	nofollow = true;
 	nam = 'inside_well';
 	disp = 'В колодце';
 	theme = 'tower';
 	pic = 'images/oldwell.png';
 	disp = translate(forest_locale, 'inside_well');
 	onenter = function(s)
 		if not s.state then
-			p [[Вряд ли я смогу выбраться, если просто спрыгну внутрь. ]];
+			p(translate_now(forest_locale, 'inside_well_enter'));
 			return false;
 		end;
 	end;
-	dsc = 'Я стою на дне колодца. Внутренняя его часть выложена камнем. Здесь царит полумрак и мне приходится снять очки, чтобы хорошо видеть. Несмотря на то, что колодец давно высох, здесь все еще очень влажно. ';
+	decor = translate(forest_locale, 'inside_well_decor');
 	way = {
-		path {'Наверх', 'village_center'};
+		path {translate(forest_locale, 'transition_up'), 'village_center'};
+	}
 }:with {
 	obj {
 		nam = 'loose_rock';
-		dsc = [[Мое внимание привлекает {один из камней}, заметно выступающий из кладки. ]];
+		dsc = translate(forest_locale, 'inside_well_loose_rock');
 		act = function(s)
-			p [[Я легко вынимаю камень. Под ним, в небольшом углублении, спрятан металлический ключик. Удивительно, но влажность почти не повредила ему. ]];
+			p(translate_now(forest_locale, 'inside_well_loose_rock_act'));
 			take('hidden_key');
 			s:disable();
 		end;
@@ @@ -862,42 +916,46 @@ room { @@
 obj {
 	nam = 'hidden_key';
 	disp = 'Ключик';
 	disp2 = 'ключик';
 	disp3 = 'ключик';
 	inv = [[Старый металлический ключик, найденный мной в колодце. ]];
 	disp = translate(forest_locale, 'hidden_key_disp');
 	disp2 = translate(forest_locale, 'hidden_key_disp2');
 	disp3 = translate(forest_locale, 'hidden_key_disp3');
 	inv = translate(forest_locale, 'hidden_key_inv');
+}
 room {
 	nam = 'village_north';
 	pic = 'images/village_north.png';
 	disp = 'Деревня, север';
 	disp = translate(forest_locale, 'village_north');
 	theme = 'main';
 	nofollow = true;
 	decor = [[Я стою на северном краю {#village|деревни}. Узенькая {#road|дорожка} ведет прямо к зданию {#library|библиотеки}, стоящему на самом краю деревни. За ним я вижу лишь бескрайний {#forest|лес} и тянующуюся дальше на север {#mountains|горную цепь}. Сквозь тонкие перистые {clouds|облака} пробиваются яркие лучи летнего {sun_transformed|солнца}.  ]];
 	decor = function(s)
       p(translate_now(forest_locale, 'village_north_decor'));
       p(translate_now(forest_locale, 'village_all_decor'));
   end;
 	way = {
 		path {'#south', 'На юг, к ратуше', 'village_center'};
 		path {'#in', 'В библиотеку', 'library'};
 		path {'#south', translate(forest_locale, 'transition_south_to_town_hall'), 'village_center'};
 		path {'#in', translate(forest_locale, 'transition_inside_library'), 'library'};
 	};
 }: with {
 	obj {
 		nam = '#village';
-		act = 'Деревня, раскинувшаяся к югу от меня, выглядит спящей -- ухоженные домики, укрытые в листве, пустые дорожки между ними. Лишь на крыльце трактира я вижу одинокую девушку в голубом платье. ';
+		act = translate(forest_locale, 'village_north_village');
 	};
 	obj {
 		nam = '#road';
-		act = 'Асфальт здесь еще более потрескавшийся чем в остальных местах. Кое-где свкозь трещины пробиваются тонкие стебельки травы. ';
+		act = translate(forest_locale, 'village_north_road');
 	};
 	obj {
 		nam = '#forest';
-		act = 'Лес начинается почти сразу за библиотекой. Здесь деревья еще не так часты, как чуть дальше к северу, где чаща становится совершенно непролазной. Воздух наполнен ароматом хвои, а со всех сторон доносится пение птиц. ';
+		act = translate(forest_locale, 'village_north_forest');
 	};
 	obj {
 		nam = '#library';
-		act = 'Высокое и просторное, здание вместило под своей крышей огромное количество книг. Несмотря на почтенный возраст, здание сохранилось практически идеально, благодаря прекрасному уходу. Широкие двустворчатые двери приоткрыты, приглашая гостей. ';
+		act = translate(forest_locale, 'village_north_library');
 	};
 	obj {
 		nam = '#mountains';
-		act = 'Большая часть горной цепи скрыта от моего взора деревьями. Отсюда я вижу лишь несколько высочайших пиков. ';
+		act = translate(forest_locale, 'village_north_mountains');
 	};
 	'sun_transformed';
 	'clouds';
@@ @@ -906,52 +964,53 @@ room { @@
 room {
 	nam = 'library';
 	pic = 'images/library.png';
 	disp = 'Библиотека';
 	disp = translate(forest_locale, 'library');
 	theme = 'main';
 	nofollow = true;
-	decor = [[Внутреннее пространство библиотеки представляет собой просторный зал, уставленный книжными {library_shelves|стеллажами}. Между ними то и дело встречаются уютные {#tables|столики} с расположенными вокруг {#chairs|креслами} и стоящими неподалеку {#lamps|торшерами}. {#windows|Окон} в здании немного и предпочтение отдается искусственному освещению. К стене у входа прибита небольшая {#library_notice|табличка}. ]];
+	decor = translate(forest_locale, 'library_decor');
 	way = {
 		path {'#out', 'На улицу', 'village_north'};
 		path {'library_hidden_path', 'В потайную комнату', 'library_hidden_room'}:disable();
 		path {'#out', translate(forest_locale, 'transition_out'), 'village_north'};
 		path {'library_hidden_path', translate(forest_locale, 'library_to_hidden_room'), 'library_hidden_room'}:disable();
 	};
 }:with {
 	obj {
 		nam = 'librarian';
-		dsc = [[По залу ходит пожилой {человек} с книгой в руках. ]];
+		dsc = translate(forest_locale, 'library_librarian');
 		act = function(s)
 			walkin 'librarian_dlg'
 		end;
 		used = function(s, o)
 			if o^'box' then
-				return 'Наверное, есть смысл спросить, прежде чем совать ему это в руки. ';
+				return translate_now(forest_locale, 'library_librarian_used_box');
 			else
-				return 'Вряд ли это сможет его заинтересовать. ';
+				return translate_now(forest_locale, 'library_librarian_used_other');
 			end;
 		end;
 	};
 	obj {
 		nam = '#tables';
-		act = 'Небольшие круглые столики на бронзовых ножках услужливо расставлены по залу. ';
+		act = translate(forest_locale, 'library_tables');
 	};
 	obj {
 		nam = '#chairs';
-		act = 'Удобные мягкие кресла, предназначенные для посетилей, расставлены по всему залу. ';
+		act = translate(forest_locale, 'library_chairs');
 	};
 	obj {
 		nam = '#lamps';
-		act = 'Около каждого кресла стоит торшер с голубым абажуром в форме усеченного конуса. Сейчас они все выключены -- днем света достаточно даже из немногочисленных окон, да и посетителей кроме меня нет.  ';
+		act = translate(forest_locale, 'library_lamps');
 	};
 	obj {
 		nam = '#windows';
-		act = 'Через большие окна с чистыми прозрачными стеклами открывается вид наружу. С северной и западной стороны я вижу лишь деревья, на востоке я вижу край дороги, заканчивающейся здесь. С юга открывается вид на деревню. Легкие бежевые занавески на окнах распахнуты. ';
+		act = translate(forest_locale, 'library_windows');
 	};
 	obj {
 		state = 0;
 		nam = 'library_shelves';
 		act = function(s)
 			if s.state == 0 then
-				p [[Я долго блуждаю в бесконечном лабиринте бумажных сокровищ. Интересно, откуда в этом захолустье такие ценности? У меня ушло бы больше года только на то, чтобы ознакомиться с названиями книг собранных здесь, многие из которых очень стары.  Наконец, я останавливаюсь у {library_the_shelf|одной из полок}. ]];
+				p(translate_now(forest_locale, 'library_shelves_act_first'));
 			else
-				p [[В этот раз, я без труда нахожу тот самый стеллаж и ту самую {library_the_shelf|полку}. ]];
+				p(translate_now(forest_locale, 'library_shelves_act'));
 			end;
 		end;
 	},
@@ @@ -959,7 +1018,7 @@ room { @@
 		nam = 'library_the_shelf';
 		act = function(s)
 			if	_'library_shelves'.state == 0 then
-				pr [[Ничем, на первый взгляд, не примечательная, она тем не менее привлекает меня. Осмотрев ее, я понимаю, что именно привлекло мое внимание: на одной из полок вырезано слово "biography". Сперва я подумал, что это дело рук какого-то вандала, однако, буквы нанесены аккуратно и ровно. Это определенно имеет какой-то смысл. ]];
+				p(translate_now(forest_locale, 'library_the_shelf_act', {word=library_word}));
 			end;
 			_'library_shelves'.state = 1;
 			walkin('library_shelf_puzzle');
@@ @@ -976,42 +1035,38 @@ room { @@
 room {
 	nam = 'library_notice_inside';
 	pic = 'images/library.png';
 	disp = 'Библиотека';
 	decor = [[
 		Старая металлическая табличка содержит список правил пользования библиотекой:^
 . Вы можете взять любые книги. Все взятые книги вы обязаны вернуть. Возвращать книги не обязательно лично. Это может сделать кто-то за вас. ^
 . Вы можете принести любую книгу и оставить ее здесь.^
 . Вы можете самостоятельно поставить книгу на место, используя таблицу размещения или передать ее библиотекарю.^
 . В пределах полки ставьте книги в алфавитном порядке.^^
 		Вокруг слова "алфавитном" в последнем правиле, я замечаю практически стершиеся следы старой краски, словно когда-то оно было выделено цветом.
 	]];
 	disp = translate(forest_locale, 'library');
 	theme = 'main';
 	decor = translate(forest_locale, 'library_notice_inside_decor');
 	way = {
-		path {"Назад", 'library'};
+		path {translate(forest_locale, 'transition_back'), 'library'};
 	};
+}
 dlg {
 	ring = 0;
 	nam = 'librarian_dlg';
 	pic = 'images/characters/librarian.png';
 	theme = 'main';
 	noinv = true;
-	title = 'Библиотекарь';
+	title = translate(forest_locale, 'librarian_dlg');
 	enter = function(s)
 		seen_ring_librarian = true;
-		return [[Передо мной стоит пожилой человек в старом темно-сером костюме. На шее он носит темно-синий галстук-бабочку. Из нагрудного кармана торчит уголок тщательно выглаженного носового платка. На указательном пальце правой руки старика я замечаю кольцо с драгоценным камнем. Интересно, как оно оказалось в такой глуши? В левой руке он держит толстенную книгу, названия которой я, к сожалению, не вижу. На носу библиотекаря сидят очки в роговой оправе. Подбородок его гладко выбрит, а короткие волосы совершенно седы. Серые глаза спокойно смотрят на меня, а рот слегка приоткрыт в дружелюбной улыбке. ]];
+		return translate_now(forest_locale, 'librarian_dlg_enter');
 	end;
 	phr = {
 		{'Добрый день. Я впервые в вашей деревне. ', 'Библиотекарь почтительно кивает и произносит: "Добро пожаловать! Чем скромный библиотекарь может помочь вам?"',
 			{'Вы знаете какие-нибудь местные достопримечательности?', 'Библиотекарь пожимает плечами: "Не думаю, что здесь есть на что смотреть". ',
 				{'Ваша библиотека даст фору любой другой, которую я видел. Как вам удалось собрать столько книг?', 'Библиотекарь с улыбкой отвечает: "Это дело рук многих поколений. Отсюда не так просто добраться до цивилизации. Многие из этих книг были привезены сюда странниками, другие собирали мои предшественники. В любом случае, не стесняйтесь брать любую из них. Главное -- не забудьте вернуть". '}
 		{translate(forest_locale, 'common_dlg_greet'), translate(forest_locale, 'librarian_dlg_greet_response'),
 			{translate(forest_locale, 'common_dlg_places'), translate(forest_locale, 'librarian_dlg_places_response'),
 				{translate(forest_locale, 'librarian_dlg_library'), translate(forest_locale, 'librarian_dlg_library_response')}
 			},
-			{'Откуда у вас это кольцо?', 'Старик демонстрирует мне свое кольцо -- я с интересам разглядываю произведение ювелирного искусства -- золотое колечко, украшенное причудливой резьбой, инкрустировано довольно крупным изумрудом -- камень составляет в диаметре около четырех миллиметров. Убрав руку, он поясняет: "Это кольцо хранится здесь с незапамятных времен. Мне передал его мой предшественник, а я передам его тому, кто будет хранить эту библиотеку после меня". '}
+			{translate(forest_locale, 'librarian_dlg_ring'), translate(forest_locale, 'librarian_dlg_ring_response')}
 		},
-		{cond=function(s) return seen_ring_box; end, 'Могу я взглянуть на ваше кольцо?', function(s)
+		{cond=function(s) return seen_ring_box; end, translate(forest_locale, 'librarian_dlg_ring_look'), function(s)
 			_('village_well').known = 1;
-			return 'Библиотекарь, не говоря ни слова, снимает кольцо с пальца и протягивает мне. Я внимательно осматриваю драгоценность. На внутренней стороне выгравирована надпись: "Ключ там, где вода". Я возвращаю кольцо владельцу и он надевает его обратно. '
+			return translate_now(forest_locale, 'librarian_dlg_ring_look_response');
 		end};
 		{true, 'До свидания.', function(s)
 			p 'Старик кивает: "Всего хорошего". '
 		{true, translate(forest_locale, 'librarian_dlg_bye'), function(s)
 			p(translate_now(forest_locale, 'librarian_dlg_bye_response'));
 			walkout();
 		end}
+	}
@@ @@ -1020,36 +1075,49 @@ dlg { @@
 room {
 	nam = 'library_shelf_puzzle';
 	nofollow = true;
 	disp = 'Библиотека';
 	disp = translate(forest_locale, 'library');
 	theme = 'main';
 	pic = function(s)
 		local pic = 'images/library/library_no_books_bg.png';
 		for index, book in ipairs(_'shelf'.obj) do
 			pic = pic .. ';images/library/library_book' .. tostring(book.book) .. '.png@' .. tostring(35 * index - 33) .. ',63';
 		end;
 		return pic;
 	end;
 	way = {
-		path {'#back', 'Отойти от стеллажа', 'library'};
+		path {'#back', translate(forest_locale, 'transition_away_from_bookstand'), 'library'};
 	};
 }:with {
 	obj {
 		nam = 'shelf';
 		dsc = function(s)
 			if #s.obj > 1 then
 				p [[На {shelf|полке} стоят несколько книг: ]];
 			elseif #s.obj == 1 then
 				p [[На {shelf|полке} стоит книга: ]];
 			local count = #s.obj;
 			if count > 1 then
 				p(translate_now(forest_locale, 'library_shelf_puzzle_shelf_multiple'));
 			elseif count == 1 then
 				p(translate_now(forest_locale, 'library_shelf_puzzle_shelf_single'));
 			else
-				p [[{shelf|Полка} пуста.]];
+				p(translate_now(forest_locale, 'library_shelf_puzzle_shelf_none'));
 			end;
 		end;
 		act = [[На гладком дереве полки вырезаны буквы "biography". ]];
 		act = function(s)
       return translate_now(forest_locale, 'library_shelf_puzzle_shelf_act', {word=library_word});
     end;
 		used = function(s, o)
 			pl:need_scene();
 			if o.book then
 				remove(o, pl);
 				put(o, s);
 				p [[Я ставлю книгу на полку. ]];
 				if #s.obj == 9 then
 					for i=1, 9 do
 						if s.obj[i].book ~= i then
 				p(translate_now(forest_locale, 'library_shelf_puzzle_used_book'));
 				if #s.obj== 9 then
 					for i = 1, 9 do
 						if library_book_map[s.obj[i].book] ~= i then
 							return;
 						end;
 					end;
-					p [[Стеллаж поворачивается, открывая мне доступ в ранее скрытое помещение. ]];
+					p(translate_now(forest_locale, 'library_shelf_puzzle_used_book_success'));
 					disable 'library_shelves'
 					enable 'library_hidden_path'
 					walkout()
@@ @@ -1060,76 +1128,76 @@ room { @@
 		end;
 	}:with {
 		obj {
-			book = 6;
+			book = 1;
 			nam = 'book_1';
 			disp = 'История мира, том 1';
 			dsc = '{"История мира, том 1"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=1});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=1});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
-			book = 1;
+			book = 2;
 			nam = 'book_2';
 			disp = 'История мира, том 2';
 			dsc = '{"История мира, том 2"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=2});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=2});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
 			book = 3;
 			nam = 'book_3';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=3});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=3});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
 			book = 4;
 			nam = 'book_3';
 			disp = 'История мира, том 3';
 			dsc = '{"История мира, том 3"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 		},
 		obj {
 			book = 8;
 			nam = 'book_4';
 			disp = 'История мира, том 4';
 			dsc = '{"История мира, том 4"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=4});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=4});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
-			book = 2;
+			book = 5;
 			nam = 'book_5';
 			disp = 'История мира, том 5';
 			dsc = '{"История мира, том 5"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=5});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=5});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
-			book = 3;
+			book = 6;
 			nam = 'book_6';
 			disp = 'История мира, том 6';
 			dsc = '{"История мира, том 6"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=6});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=6});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
 			book = 7;
 			nam = 'book_7';
 			disp = 'История мира, том 7';
 			dsc = '{"История мира, том 7"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=7});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=7});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
-			book = 5;
+			book = 8;
 			nam = 'book_8';
 			disp = 'История мира, том 8';
 			dsc = '{"История мира, том 8"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=8});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=8});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
 		},
 		obj {
 			book = 9;
 			nam = 'book_9';
 			disp = 'История мира, том 9';
 			dsc = '{"История мира, том 9"}';
 			tak = 'Я беру книгу с полки. ';
 			inv = 'Довольно старое издание одной из самых распространенных книг по общемировой истории. ';
 			disp = translate(forest_locale, 'library_shelf_book_disp', {number=9});
 			dsc = translate(forest_locale, 'library_shelf_book_dsc', {number=9});
 			tak = translate(forest_locale, 'library_shelf_book_tak');
 			inv = translate(forest_locale, 'library_shelf_book_inv');
+		}
+	}
+}
@@ @@ -1137,40 +1205,42 @@ room { @@
 room {
 	nam = 'library_hidden_room';
 	pic = 'images/library.png';
 	disp = 'Библиотека, потайная комната';
 	disp = translate(forest_locale, 'library_hidden_room');
 	theme = 'main';
 	nofollow = true;
-	decor = [[Эту библиотеку определенно проектировал кто-то невероятно талантливый. Я мог бы исходить здание вдоль и поперек, исследовать и измерить каждый уголок, но все равно не догадался бы, что здесь скрыта эта комнатушка. Здесь нет ничего, кроме маленького {#table|столика}. ]];
+	decor = translate(forest_locale, 'library_hidden_room_decor');
 	way = {
-		path {'В главный зал', 'library'};
+		path {translate(forest_locale, 'transition_to_main_hall'), 'library'};
 	};
 }:with {
 	obj {
 		nam = '#table';
-		act = 'Небольшой круглый столик на бронзовой ножке, такой же как и те, что расставлены по всей библиотеке. ';
+		act = translate(forest_locale, 'library_hidden_room_table');
 	};
 	obj {
 		oiled = false;
 		opened = false;
 		lock_taken = false;
 		nam = 'box';
 		disp = 'Шкатулка';
 		disp2 = 'шкатулка';
 		disp3 = 'шкатулку';
 		dsc = [[На столе стоит изящно украшенная {шкатулка}. ]];
 		tak = "Я забираю шкатулку. ";
 		disp = translate(forest_locale, 'box_disp');
 		disp2 = translate(forest_locale, 'box_disp2');
 		disp3 = translate(forest_locale, 'box_disp3');
 		dsc = translate(forest_locale, 'box_dsc');
 		tak = translate(forest_locale, 'box_tak');
 		inv = function(s)
 			seen_ring_box = true;
 			if s.lock_taken then
-				p [[Старинная шкатулка. На дне ее выгравировано кольцо с камнем. ]];
+				p(translate_now(forest_locale, 'box_inv_without_lock'));
 			elseif s.opened then
 				s.lock_taken = true;
-				p [[Я снимаю замок со шкатулки. ]];
+				p(translate_now(forest_locale, 'box_inv_take_lock'));
 				take('lock');
 				remove('box', pl);
 			elseif seen_ring_librarian then
 				p [[Очень старая шкатулка. Я могу только догадываться, что скрывается внутри. На дне шкатулки выгравировано кольцо с камнем. Кажется, я где-то уже видел его. ]];
 			else
 				p [[Очень старая шкатулка. Я могу только догадываться, что скрывается внутри. На дне шкатулки выгравировано кольцо с камнем. ]];
         p(translate_now(forest_locale, 'box_inv'));
         if seen_ring_librarian then
           p(translate_now(forest_locale, 'box_inv_known'));
         end;
 			end;
 		end;
 		used = function(s, o)
@@ @@ -1178,16 +1248,16 @@ room { @@
 				if s.oiled then
 					s.opened = true;
 					take('map');
-					p [[Ключ с трудом поворачивается и замок открывается. Внутри лежит небольшой свиток. Я забираю его. ]];
+					p(translate_now(forest_locale, 'box_used_key_success'));
 				else
-					p [[За долгое время неиспользования, замок успел заржаветь и сейчас ключ в нем не повернуть. ]];
+					p(translate_now(forest_locale, 'box_used_key_failed'));
 				end;
 			elseif o^'oil' then
 				if not s.oiled then
 					s.oiled = true;
-					p [[Я капаю немного масла в замок. Этого должно хватить, чтобы смазать механизм и заставить его работать. ]];
+					p(translate_now(forest_locale, 'box_used_key_oil'));
 				else
-					p [[Замок уже смазан. ]]
+					p(translate_now(forest_locale, 'box_used_key_oil2'));
 				end;
 			end;
 		end;
@@ @@ -1196,11 +1266,11 @@ room { @@
 obj {
 	nam = 'map';
 	disp = 'Карта';
 	disp2 = 'карта';
 	disp3 = 'карту';
 	disp = translate(forest_locale, 'map_disp');
 	disp2 = translate(forest_locale, 'map_disp2');
 	disp3 = translate(forest_locale, 'map_disp3');
 	inv = function(s)
-		p [[Очень старая карта, указывающая на место в горах, к западу от деревни. Это совсем недалеко -- минут двадцать полета. ]];
+		p(translate_now(forest_locale, 'map_inv'));
 		_('fly_west_from_village'):enable();
 	end;
+}
@@ @@ -1208,91 +1278,97 @@ obj { @@
 room {
 	nam = 'inside_crater_glade';
 	pic = 'images/inside_crater_glade.png';
 	disp = 'Кратер, полянка';
 	disp = translate(forest_locale, 'inside_crater_glade');
 	theme = 'main';
 	onenter = function(s)
 		if here()^'above_crater' then
-			p [[Еще не коснувшись земли, я начинаю превращение. Окутанное туманом, мое тело резко устремляется вниз. Через мгновение я оказываюсь на поляне в облике человека. Мои глаза излучают яркий свет, но мне не от кого прятаться -- очки остаются в нагрудном кармане. ]];
+			p(translate_now(forest_locale, 'inside_crater_glade_on_enter'));
 		end;
 	end;
-	decor = [[Небольшая круглая полянка посреди редкого лиственного {#forest|леса}. В центре ее стоит огромный старый {#oak|дуб} с раскидистой кроной. Изумрудно зеленая {#grass|трава} достигает мне до пояса. Невесть кем протоптанная {#path|тропинка}, ведет к {#tower|башне} в центре {#crater|кратера}. ]];
+	decor = translate(forest_locale, 'inside_crater_glade_decor');
 	way = {
 		path {"#up", "Взлететь", "above_crater"};
 		path {"По тропинке", "inside_crater_path"};
 		path {translate(forest_locale, 'transition_fly'), "above_crater"};
 		path {translate(forest_locale, 'transition_along_the_path'), "inside_crater_path"};
+	}
 }: with {
 	obj {
 		nam = '#forest';
-		act = 'В тени раскидистых вязов и стройных буков резвятся белки, зайцы и другие мелкие зверьки. Издалека доносятся стук дятла и пение птиц. ';
+		act = translate(forest_locale, 'inside_crater_glade_forest');
 	};
 	obj {
 		nam = '#oak';
-		act = 'Исполинское древо произрастает в самом центре поляны. Легкий ветерок шелестит в его ветвях, покрытых густой зеленой листвой. В огромном дупле спит филин. ';
+		act = translate(forest_locale, 'inside_crater_glade_oak');
 	};
 	obj {
 		nam = '#grass';
-		act = 'Дикая трава поднимается высоко, ничем и никем не сдерживаемая. ';
+		act = translate(forest_locale, 'inside_crater_glade_grass');
 	};
 	obj {
 		nam = '#path';
-		act = 'Кто-то аккуратно вытоптал в густой траве узенькую тропку, ведущую прямиком к башне. ';
+		act = translate(forest_locale, 'inside_crater_glade_path');
 	};
 	obj {
 		nam = '#tower';
-		act = 'Башня из черного камня возвышается над лесом, словно маяк, установленный для любого, оказавшегося здесь. Интересно, что ждет меня там?';
+		act = translate(forest_locale, 'inside_crater_glade_tower');
 	};
 	obj {
 		nam = '#crater';
-		act = 'Находясь здесь, практически в самом центре громадной воронки, я не вижу ничего необычного, что отличало бы этот лес и ландшафт от других, виденных мной. ';
+		act = translate(forest_locale, 'inside_crater_glade_crater');
 	};
+}
 room {
 	nam = 'inside_crater_path';
 	pic = 'images/inside_crater_path.png';
 	disp = 'Кратер, тропинка';
 	decor = [[Узкая тропинка, невесть кем протоптанная в густой {#grass|траве}, ведет к центру {#crater|кратера}. Солнечный свет пробивается сквозь листву, образуя причудливый узор из теней повсюду – на стволах {#trees|деревьев}, на траве и на самой тропинке. Далеко впереди виднеется {#tower|башня}. ]];
 	pic = function(s)
 		local p = 'images/inside_crater_path.png';
 		if here()^where('solarscale') then
 			p = p .. ';images/characters/solarscale_on_rock.png';
 		end;
 		return p;
 	end;
 	disp = translate(forest_locale, 'inside_crater_path');
 	theme = 'main';
 	decor = translate(forest_locale, 'inside_crater_path_decor');
 	exit = function(s, t)
 		if t^'crater_near_tower' and seen('solarscale', s) then
 			remove('solarscale', where('solarscale'));
-			pr [[Я продолжаю свой путь, так и не поговорив с драконессой. Она расправляет крылья и улетает.]];
+			p(translate_now(forest_locale, 'inside_crater_path_exit'));
 		end;
 	end;
 	way = {
 		path {"К поляне", "inside_crater_glade"};
 		path {"К башне", "crater_near_tower"};
 		path {translate(forest_locale, 'transition_to_glade'), "inside_crater_glade"};
 		path {translate(forest_locale, 'transition_to_tower'), "crater_near_tower"};
 	};
 }: with {
 	obj {
 		nam = '#grass';
-		act = 'Здесь, лишенная излишков солнечного света, трава гораздо ниже, чем на полянке. Тем не менее она все такого же насыщенного изумрудного цвета. ';
+		act = translate(forest_locale, 'inside_crater_path_grass');
 	};
 	obj {
 		nam = '#crater';
-		act = 'Даже находясь здесь, у самого центра громадной воронки, я не вижу никаких следов падения -- погода и лес делают свое дело и методично заживляют огромный шрам на теле Земли. ';
+		act = translate(forest_locale, 'inside_crater_path_crater')
 	};
 	obj {
 		nam = '#trees';
-		act = 'Высокие деревья с раскидистыми кронами едва качаются от легкого ветерка. В сплетениях корней устраивает свои жилища мелкая живность, а на ветвях сидят всевозможные птицы. ';
+		act = translate(forest_locale, 'inside_crater_path_trees')
 	};
 	obj {
 		nam = '#tower';
-		act = 'Отсюда я уже могу разглядеть черное высокое строение, возвышающееся над лесом. ';
+		act = translate(forest_locale, 'inside_crater_path_tower')
 	};
 	obj {
 		nam = '#stump';
 		dsc = function(s)
 			pr 'Неподалеку от меня лежит огромный {валун}';
 			if seen('solarscale', here()) then
-				pr(',');
+				p(translate_now(forest_locale, 'inside_crater_path_stump_solarscale'));
 			else
-				pr('.')
+				p(translate_now(forest_locale, 'inside_crater_path_stump'));
 			end;
 		end;
-		act = 'Валун наполовину врос в землю, судя по всему, он лежит здесь очень давно. Должно быть, это один из крупных обломков, оказавшихся здесь после образования кратера. ';
+		act = translate(forest_locale, 'inside_crater_path_stump_act');
 	};
 	obj {
 		nam = 'solarscale';
 		dsc = 'на котором примостилась небольшая золотая {драконесса}.';
 		act = function(s)
 			walkin('solarscale_dlg');
 		end;
@@ @@ -1301,30 +1377,32 @@ room { @@
 dlg {
 	nam = 'solarscale_dlg';
 	disp = 'Соларскейл';
 	enter = [[Драконесса с сияющими золотом чешуйками и излучающими яркий свет изумрудами глаз сидит на камне, слегка приоткрыв пасть с двумя рядами ровных сверкающих зубов. Крылья ее сложены за спиной, а руки -- скрещены на груди. Она приветливо смотрит на меня. Ее рост составляет всего около метра -- очевидно, она из расы драконов небольшого размера. Драконесса не спускает с меня взгляд, улыбаясь: "Добрый день, путник. Меня зовут Соларскейл. Что привело вас в эти края?"]];
 	disp = translate(solarscale_locale, 'disp');
 	theme = 'main';
 	pic = 'images/inside_crater_path.png;images/characters/solarscale.png';
 	enter = translate(solarscale_locale, 'first_dlg_enter');
 	phr = {
 		{'#q1', "Могу задать вам тот же вопрос.", 'Соларскейл отвечает: "Я возвращаюсь домой после долгого странствия. Просто остановилась здесь передохнуть". '};
 		{'#q2', "Вы не встречали поблизости ничего необычного?", 'Соларскейл приподнимает крылья и задумчиво касается подбородка рукой: "Не припомню ничего интересного... Кроме башни из странного камня. Я не смогла попасть внутрь, но, может быть, у вас получится. Просто следуйте по этой тропинке". '};
 		{cond=function(s) return closed('#q2') end, 'Расскажите больше о башне. ', 'Соларскейл продолжает: "Башня выглядит вырезанной из цельного куска камня, я не смогла найти ни единого отверстия, ни единого стыка в ней. Я даже не уверена, что внутри нее в принципе есть что-то кроме камня". '};
 		{cond=function(s) return closed('#q2'); end; "Я собираюсь отправиться к башне. Вы не составите мне компанию?", function(s)
 		{'#q1', translate(solarscale_locale, 'first_dlg_question_1'), translate(solarscale_locale, 'first_dlg_question_1_response')};
 		{'#q2', translate(solarscale_locale, 'first_dlg_question_2'), translate(solarscale_locale, 'first_dlg_question_2_response')};
 		{cond=function(s) return closed('#q2') end, translate(solarscale_locale, 'first_dlg_tower'), translate(solarscale_locale, 'first_dlg_tower_response')};
 		{cond=function(s) return closed('#q2'); end; translate(solarscale_locale, 'first_dlg_tower_join'), function(s)
 			walkout();
 			solarscale_with_me = true;
 			remove('solarscale', where('solarscale'));
 			put('solarscale_ally', here());
 			lifeon(_'solarscale_ally');
-			return 'Соларскейл поднимается в воздух и отвечает: "Почему нет? Я никуда не спешу". ';
+			return translate_now(solarscale_locale, 'first_dlg_tower_join_response');
 		end};
 		{function(s)
 			if not closed('#q2') then
-				return "Прошу прощения, но у меня нет времени разговаривать. "
+				return translate_now(solarscale_locale, 'first_dlg_tower_bye_no_time');
 			else
-				return 'Благодарю за помощь. Мне пора. ';
+				return translate_now(solarscale_locale, 'first_dlg_tower_bye_thanks');
 			end;
 		end, function(s)
 			walkout();
 			remove('solarscale', where('solarscale'));
-			return 'Соларскейл поднимается в воздух и прощается: "Что же, тогда я продолжу свой путь. Всего вам доброго".^ Драконесса улетает, оставляя меня одного. ';
+			return translate_now(solarscale_locale, 'first_dlg_tower_bye_response');
 		end};
 	};
+}
@@ @@ -1332,27 +1410,31 @@ dlg { @@
 room {
 	nam = 'crater_near_tower';
 	pic = 'images/crater_near_tower.png';
 	disp = 'Кратер, у входа в башню';
 	decor = [[Тропинка выводит меня к зияющему чернотой проему в одной из стен {#tower|башни}, сложенной из незнакомого мне черного материала. {#grass|Трава} подступает к самому подножию башни. Раскидистые кроны {#trees|деревьев} практически полностью закрывают собой небо. Лучи {#sun|солнца} пробиваются сквозь листву и падая на траву, тропинку и стены башни образуют причудливый узор. ]];
 	disp = translate(forest_locale, 'crater_near_tower');
 	theme = 'main';
 	decor = translate(forest_locale, 'crater_near_tower_decor');
   enter = function(s)
     tower_seen = true;
   end;
 	way = {
 		path {"По тропинке", "inside_crater_path"};
 		path {"В башню", "tower_level_1"};
 		path {translate(forest_locale, 'transition_along_the_path'), "inside_crater_path"};
 		path {translate(forest_locale, 'transition_inside_tower'), "tower_level_1"};
 	};
 }:with {
 	obj {
 		nam = '#tower';
-		act = 'Основание башни имеет форму шестиугольника. Непонятно, насколько глубоко оно уходит в землю, но стоит строение основательно. Гладкая матовая поверхность на ощупь оказывается холодной, гладкой как стело и совершенно лишенной стыков, словно вырезанной из единого куска этой неизвестной породы. Стены ее поднимаются намного выше деревьев и верхушка башни скрывается за их кронами. ';
+		act = translate(forest_locale, 'crater_near_tower_tower');
 	};
 	obj {
 		nam = '#grass';
-		act = 'Густая зеленая трава произрастает повсюду в этом лесу. ';
+		act = translate(forest_locale, 'crater_near_tower_grass');
 	};
 	obj {
 		nam = '#trees';
-		act = 'Деревья растут практически у самой башни. Они, должно быть, появились здесь уже после ее появления, но кто знает, каким образом эта башня оказалась здесь. ';
+		act = translate(forest_locale, 'crater_near_tower_trees');
 	};
 	obj {
 		nam = '#sun';
-		act = 'Яркое летнее солнце озаряет своими лучами лес. ';
+		act = translate(forest_locale, 'crater_near_tower_sun');
 	};
+}

icon.ico

➞

Show inline comments

		new file 100644
		binary diff not shown

Changeset was too big and was cut off... Show full diff anyway

0 comments (0 inline, 0 general) First comment