games/Awakening Changeset - 6942b6162aff

Changeset - 6942b6162aff

Parent rev.

Child rev.

[Not reviewed]

default

1 3 3

Silverwing - 7 years ago 2017-01-13 08:17:07

Partial update for final battle

7 files changed with 403 insertions and 268 deletions:

battlefield.lua

lse_final_battle.lua

lse_final_scene.lua

lse_powerplant.lua

180

lseryanotrr_locations.lua

main.lua

powerplant.lua

180

0 comments (0 inline, 0 general)

battlefield.lua

➞

Show inline comments

@@ @@ -304,8 +304,11 @@ battlefield = function(tab) @@
         tab.pic = function(s)
             local v = "images/battle_bcg.png;images/player.png@" .. tostring(s.plX * 32 - 32) .. "," .. tostring(s.plY * 32 - 32);
             for i = 1, #s.obj do
                 if ((s.obj[i].hp) and (s.obj[i].hp > 0) and not(s.obj[i]:disabled()) and s.obj[i].pic and s.obj[i].x and s.obj[i].y) then
                     v = v .. ";" .. s.obj[i].pic .. "@" .. tostring(s.obj[i].x * 32 - 32) .. "," .. tostring(s.obj[i].y * 32 - 32);
                 if ((s.obj[i].hp) and (s.obj[i].hp > 0) and not(s.obj[i]:disabled()) and s.obj[i].x and s.obj[i].y) then
                     if s.obj[i].pic then
                         local pic = EngineUtils.getValue(s.obj[i].pic, s.obj[i]);
                         v = v .. ";" .. pic .. "@" .. tostring(s.obj[i].x * 32 - 32) .. "," .. tostring(s.obj[i].y * 32 - 32);
                     end;
                 end;
             end;
@@ @@ -429,68 +432,81 @@ bf_wait = obj { @@
 };
 combatant = function(tab)
     tab.canshoot = function(s)
         local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));
         return dist < 6 and not tab.ally;
     if (tab.canshoot == nil) then
         tab.canshoot = function(s)
             local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));
             return dist < 6 and not tab.ally;
         end;
     end;
     tab.onthrust = function(s)
         local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));
         if (rnd(4) > dist - 2) then
             tab.hp = tab.hp - 2;
             if (tab.hp > 0) then
                 p(tab.thrustHit);
             else
                 p(tab.thrustKill);
             end;
         else
             p(tab.thrustMiss);
         end;
         here():make_turn();
     end;
     tab.onshoot = function(s)
         local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));
         if (rnd(4) > dist - 2) then
             if (dist == 0) then
     if (tab.onthrust == nil) then
         tab.onthrust = function(s)
             local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));
             if (rnd(4) > dist - 2) then
                 tab.hp = tab.hp - 2;
             end;
             tab.hp = tab.hp - 1;
             if (tab.hp > 0) then
                 p(tab.shootHit);
                 if (tab.hp > 0) then
                     p(tab.thrustHit);
                 else
                     p(tab.thrustKill);
                 end;
             else
                 p(tab.shootKill);
             end;
         else
             p(tab.shootMiss);
         end;
         here():make_turn();
     end;
     tab.canthrust = function(s)
         return math.abs(s.x - here().plX) + math.abs(s.y - here().plY) <= 2 and not s.ally;
     end;
     tab.canhit = function(s)
         return (math.abs(s.x - here().plX) == 1 and s.y == here().plY or
                 s.x == here().plX and math.abs(s.y - here().plY) == 1) and not tab.ally;
     end;
     tab.onhit = function(s)
         if (math.abs(s.x - here().plX) == 1 and s.y == here().plY or
                 s.x == here().plX and math.abs(s.y - here().plY) == 1) then
             tab.hp = tab.hp - 2;
             if (tab.hp > 0) then
                 p(tab.wpnHit);
             else
                 p(tab.wpnKill);
                 p(tab.thrustMiss);
             end;
             here():make_turn();
         else
             p(tab.wpnFar);
         end;
     end;
     if (tab.onshoot == nil) then
         tab.onshoot = function(s)
             local dist = math.sqrt((s.x - here().plX) * (s.x - here().plX) + (s.y - here().plY) * (s.y - here().plY));
             if (rnd(4) > dist - 2) then
                 if (dist == 0) then
                     tab.hp = tab.hp - 2;
                 end;
                 tab.hp = tab.hp - 1;
                 if (tab.hp > 0) then
                     p(tab.shootHit);
                 else
                     p(tab.shootKill);
                 end;
             else
                 p(tab.shootMiss);
             end;
             here():make_turn();
         end;
     end;
     if (tab.canthrust == nil) then
         tab.canthrust = function(s)
             return math.abs(s.x - here().plX) + math.abs(s.y - here().plY) <= 2 and not s.ally;
         end;
     end;
     if (tab.canhit == nil) then
         tab.canhit = function(s)
             return (math.abs(s.x - here().plX) == 1 and s.y == here().plY or
                     s.x == here().plX and math.abs(s.y - here().plY) == 1) and not tab.ally;
         end;
     end;
     if (tab.onhit == nil) then
         tab.onhit = function(s)
             if (math.abs(s.x - here().plX) == 1 and s.y == here().plY or
                     s.x == here().plX and math.abs(s.y - here().plY) == 1) then
                 tab.hp = tab.hp - 2;
                 if (tab.hp > 0) then
                     p(tab.wpnHit);
                 else
                     p(tab.wpnKill);
                 end;
                 here():make_turn();
             else
                 p(tab.wpnFar);
             end;
         end;
     end;

lse_final_battle.lua

➞

Show inline comments

@@ new file 100644 @@
 lse_final_battle = battlefield {
     nam = "lse_final_battle";
     disp = "Лсэрианотр, центральный зал";
     map = {
         {0,0,0,0,0,0,0},
         {0,0,0,0,0,0,0},
         {0,0,0,0,0,0,0},
         {0,0,0,0,0,0,0},
         {0,0,0,0,0,0,0},
         {0,0,0,0,0,0,0},
         {0,0,0,0,0,0,0},
     };
     dsc = [[Стены и пол древнего зала излучают яркий свет. Сверху над залом нависает прозрачный купол, сквозь который вы можете видеть океанскую толщу над вами. ]];
     plX = 4;
     plY = 7;
     entered = function(s)
     end;
     obj = {
         "lse_gen_01",
         "lse_gen_02",
         "lse_gen_03",
         "lse_gen_04",
         "lse_gen_05",
         "lse_gen_06",
         "lse_gen_07",
         "lse_gen_08",
         "lse_gen_09",
         "lse_gen_10"
     };
 };
 lse_generator = function(nam, x, y, index)
     return combatant {
         nam = nam;
         x = x;
         y = y;
         hp = 2;
         broken = false;
         pic = function(s)
             if (s.broken) then
                 return "images/fb_inactive.png";
             else
                 return "images/fb_awake.png";
             end;
         end;
         enemy = true;
         disp2 = "генератор " .. tostring(index);
         disp3 = "генератор " .. tostring(index);
         dsc = function(s)
             if (not s.broken) then
                 return [[{Генератор ]] .. tostring(index) .. [[} издает равномерный гул. ]];
             else
                 return [[{Генератор ]] .. tostring(index) .. [[} сломан. ]];
             end;
         end;
         canshoot = false;
         noshootmsg = "Ваш выстрел не повредит ему. ";
         canthrust = function(s)
             return math.abs(s.x - here().plX) + math.abs(s.y - here().plY) <= 2 and not s.ally and not s.broken;
         end;
         onthrust = function(s)
             s.broken = true;
             p [[После нескольких сильных ударов, генератор затихает. ]];
             here():make_turn();
         end;
         onhit = function(s)
             s.broken = true;
             p [[После нескольких сильных ударов, генератор затихает. ]];
             here():make_turn();
         end;
         act = function(s)
             return [[Так я не нанесу ему никакого вреда. ]];
         end;
     };
 end;
 lse_gen_01 = lse_generator("lse_gen_01", 1, 7, 1);
 lse_gen_02 = lse_generator("lse_gen_02", 1, 5, 2);
 lse_gen_03 = lse_generator("lse_gen_03", 1, 3, 3);
 lse_gen_04 = lse_generator("lse_gen_04", 1, 1, 4);
 lse_gen_05 = lse_generator("lse_gen_05", 3, 1, 5);
 lse_gen_06 = lse_generator("lse_gen_06", 5, 1, 6);
 lse_gen_07 = lse_generator("lse_gen_07", 7, 1, 7);
 lse_gen_08 = lse_generator("lse_gen_08", 7, 3, 8);
 lse_gen_09 = lse_generator("lse_gen_09", 7, 5, 9);
 lse_gen_10 = lse_generator("lse_gen_10", 7, 7, 10);
@@ \ No newline at end of file @@

lse_final_scene.lua

➞

Show inline comments

@@ new file 100644 @@
 lse_final_scene = room {
     nam = "lse_final_scene";
     disp = "Лсэрианотр, центр";
     dsc = [[Снабженный независимым источником энергии, центральный зал ярко освещен исходящим из стен светом. По периметру зала установлены массивные металлические шкафы, издающие ровный низкий гул. По полу протянуты толстые провода, соединяющие их со статуей в центре зала. Металлическая статуя изображает навьяра, сидящего на троне. Рядом с троном стоят два пилона, высотой около метра. ]];
     obj {
         'lse_final_black',
         'lse_final_aedhyarr'
     };
 };
 lse_final_black = obj {
     nam = "lse_final_black";
     dsc = [[В дальнем конце комнаты, перед небольшим экраном стоит {Адриан Блэк}. Он не обращает на вас внимания. ]];
 };
 lse_final_aedhyarr = obj {
     nam = "lse_final_aedhyarr";
     dsc = [[Рядом с ним стоит {Аэдхиарр}, внимателньо наблюдающий за действиями своего руководителя. ]];
 };
@@ \ No newline at end of file @@

lse_powerplant.lua

➞

Show inline comments

@@ new file 100644 @@
 lse_powerplant_door = obj {
 	nam = "lse_powerplant_door";
 	disp = "Двери энергостанции";
 	dsc = function(s)
 		if (s.open) then
 			return [[
 				Двери энергостанции открыты
 			]];
 		else
 			return [[
 				Двери здания заперты
 			]];
 		end;
 	end;
 	act = function(s)
 		if (s.open) then
 			return [[Вы можете войти]];
 		else
 			return [[Судя по всему, вход заблокирован изнутри. Вы не сможете открыть его отсюда. ]];
 		end;
 	end;
 };
 lse_powerplant_door_inside = obj {
 	nam = "lse_powerplant_door";
 	dsc = function(s)
 		if(lse_powerplant_door.open) then
 			return "{Входные двери} открыты. ";
 		else
 			return "{Входные двери} закрыты. ";
 		end;
 	end;
 	act = function(s)
 		if(lse_powerplant_door.open) then
 			return "Двери уже открыты";
 		else
 			return "У вас не получается открыть двери. Возможно, это делается в другом месте";
 		end;
 	end;
 };
 lse_powerplant = room {
 	nam = "lse_powerplant";
 	disp = "Лсэрианотр, энергостанция";
 	dsc = [[
 		Вы находитесь в комнате управления энергоснабжением Лсэрианотра. Сквозь скафандр вы ощущаете слабую вибрацию, исходяющую от работающих неподалеку генераторов.
 	]];
 	entered = function(s)
 	end;
 	obj = {
 		"powerplant_control",
 		"lse_powerplant_door_inside"
 	};
 	way = {
 		kh_vroom("Выйти из здания", "lse_middle_east", "powerplant_out"):disable();
 		kh_vroom("В сервиcный тоннель", "service_tunnels_2");
 	};
 };
 powerplant_control = obj {
 	nam = "powerplant_control";
 	disp = "Терминал управления энергоснабжением";
 	dsc = "У одной из стен расположен {огромный экран}, на котором, судя по всему, отмечены линии энергоснабжения и ключевые источники потребления энергии. ^";
 	act = function(s)
 		walkin(powerplant_control_dlg);
 	end;
 };
 powerplant_control_dlg = dlg {
 	nam = "powerplant_control_dlg";
 	disp = "Терминал управления энергоснабжением";
 	dsc = "На экране вы видите подробную схему энергосетей города. Несколько иконок внизу экрана показывают вам, что нужно нажимать, чтобы перейти в различные режимы управления. ";
 	entered = function()
 		if (lse_powerplant_door.open) then
 			poff(3);
 			pon(4);
 		else
 			poff(4);
 			pon(3);
 		end;
 	end;
 	phr = {
 		{1, always = true, "Перейти в режим управления питанием", function(s)
 			walkin(powerplant_defence_control_dlg);
 			return false;
 		end; };
 		{3, "Разблокировать вход в здание", function(s)
 			pon(4);
 			lse_powerplant_door.open = true;
 			path("powerplant_out", "lse_powerplant"):enable();
 			return "Входные двери открываются";
 		end; };
 		{4, "Заблокировать вход в здание", function(s)
 			pon(3);
 			lse_powerplant_door.open = false;
 			path("powerplant_out", "lse_powerplant"):disable();
 			return "Входные двери закрываются";
 		end; };
 		{5, always = true, "Внимательно осмотреть схему города", "На схеме изображены все три кольца города, эта энергостанция и еще две других, расположенные во внешнем и внутреннем кольце. Ворота, соединяющие внешнее и среднее кольцо отмечены открытыми, ворота, соединяющие среднее и внутреннее кольцо закрыты. "};
 		{255, always = true, "Отойти от терминала",function(s)
 			back();
 		end; };
 	};
 };
 powerplant_defence_control_dlg = dlg {
 	nam = "powerplant_defence_control_dlg";
 	disp = "Терминал управления энергоснабжением";
 	states = {0, 1, 0, 1};
 	locked = 1;
 	pic = function(s)
 		local image = 'images/power_bcg.png';
 		if (s.locked == 1) then
 			image = image .. ";images/power_lock.png@62,31";
 		elseif (s.locked == 2) then
 			image = image .. ";images/power_lock.png@62,93";
 		elseif (s.locked == 3) then
 			image = image .. ";images/power_lock.png@31,62";
 		elseif (s.locked == 4) then
 			image = image .. ";images/power_lock.png@93,62";
 		end;
 		image = image .. ";images/power_" .. tostring(s.states[1]) .. ".png@62,31";
 		image = image .. ";images/power_" .. tostring(s.states[2]) .. ".png@62,93";
 		image = image .. ";images/power_" .. tostring(s.states[3]) .. ".png@31,62";
 		image = image .. ";images/power_" .. tostring(s.states[4]) .. ".png@93,62";
 		return image;
 	end;
 	detect = function(s)
 		return (s.states[1] == 1 and s.states[2] == 3
 			and s.states[3] == 0 and s.states[4] == 2) or
 			(s.states[1] == 3 and s.states[2] == 1
 			and s.states[3] == 2 and s.states[4] == 0)
 	end;
 	dsc = "На экране видна схема питания систем защиты. Иконки внизу экрана подсказывают, что нажимать при отключении";
 	phr = {
 		{1, always = true, "блокировать верхний переключатель", "Изображение на экране изменилось.", function(s)
 			powerplant_defence_control_dlg.locked = 1;
 		end;},
 		{2, always = true, "блокировать нижний переключатель", "Изображение на экране изменилось.", function(s)
 			powerplant_defence_control_dlg.locked = 2;
 		end;},
 		{3, always = true, "блокировать левый переключатель", "Изображение на экране изменилось.", function(s)
 			powerplant_defence_control_dlg.locked = 3;
 		end;},
 		{4, always = true, "блокировать правый переключатель", "Изображение на экране изменилось.", function(s)
 			powerplant_defence_control_dlg.locked = 4;
 		end;},
 		{5, always = true, "поворот по часовой", "Изображение на экране изменилось.", function(s)
 			for i = 1, 4 do
 				if (i ~= powerplant_defence_control_dlg.locked) then
 					powerplant_defence_control_dlg.states[i] = powerplant_defence_control_dlg.states[i] + 1;
 					if (powerplant_defence_control_dlg.states[i] > 3) then
 						powerplant_defence_control_dlg.states[i] = 0;
 					end;
 				end;
 			end;
 			if (powerplant_defence_control_dlg.detect(powerplant_defence_control_dlg)) then
 				p("Защитные системы отключены"); --TODO сделать нормальный фидбэк
 			end;
 		end;},
 		{6, always = true, "поворот против часовой", "Изображение на экране изменилось.", function(s)
 			for i = 1, 4 do
 				if (i ~= powerplant_defence_control_dlg.locked) then
 					powerplant_defence_control_dlg.states[i] = powerplant_defence_control_dlg.states[i] - 1;
 					if (powerplant_defence_control_dlg.states[i] < 0) then
 						powerplant_defence_control_dlg.states[i] = 3;
 					end;
 				end;
 			end;
 			if (powerplant_defence_control_dlg.detect(powerplant_defence_control_dlg)) then
 				p("Защитные системы отключены"); --TODO сделать нормальный фидбэк
 			end;
 		end;},
 		{255, always = true, "выход", function(s)
 			back();
 		end},
 	};
 };
@@ \ No newline at end of file @@

lseryanotrr_locations.lua

➞

Show inline comments

@@ @@ -1325,27 +1325,29 @@ lse_timer = function(s) @@
         if (loc == "lse_inner_1" or here().out == "lse_inner_1") then
             pn("Стражник уходит. ");
         elseif (loc == "lse_inner_3" or here().out == "lse_inner_3") then
             pn("Стражник приближается");
         elseif (loc == "lse_inner_3" or here().out == "lse_inner_3" or loc == "lse_inner_4" or here().out == "lse_inner_4") then
             pn("Стражник приближается. ");
         elseif (here().out == "lse_inner_2") then
             pn("Снаружи маячит стражник");
+            pn("Снаружи маячит стражник. ");
         end;
     elseif (lse_guard1.loc == "lse_inner_2") then
         if (lse_guard1.dir == 2) then
             lse_guard1.loc = "lse_inner_3";
             if (loc == "lse_inner_1") then
                 pn("Стражник уходит");
             end;
             if (here().out == "lse_inner_3") then
                 pn("Снаружи маячит стражник");
                 pn("Стражник уходит. ");
             elseif (loc == "lse_inner_4") then
                 pn("Стражник приближается. ");
             elseif (here().out == "lse_inner_3") then
                 pn("Снаружи маячит стражник. ");
             end;
         else
             lse_guard1.loc = "lse_inner_1";
             if (loc == "lse_inner_3") then
                 pn("Стражник уходит");
             end;
             if (here().out == "lse_inner_1") then
                 pn("Снаружи маячит стражник");
                 pn("Стражник уходит. ");
             elseif (loc == "lse_inner_4") then
                 pn("Стражник уходит. ");
             elseif (here().out == "lse_inner_1") then
                 pn("Снаружи маячит стражник. ");
             end;
         end;
         if (here().out == "lse_inner_2") then
@@ @@ -1357,39 +1359,47 @@ lse_timer = function(s) @@
         if (loc == "lse_inner_3" or here().out == "lse_inner_3") then
             pn("Стражник уходит. ");
         elseif (loc == "lse_inner_1" or here().out == "lse_inner_1") then
             pn("Стражник приближается");
             pn("Стражник приближается. ");
         elseif (loc == "lse_inner_4" or here().out == "lse_inner_4") then
             pn("Стражник уходит. ");
         elseif (here().out == "lse_inner_2") then
             pn("Снаружи маячит стражник");
+            pn("Снаружи маячит стражник. ");
         end;
     end;
     print("lse_guard1", lse_guard1.loc);
     if (lse_guard2.loc == "lse_inner_5") then
         lse_guard2.dir = 2;
         lse_guard2.loc = "lse_inner_6";
         if (loc == "lse_inner_5" or here().out == "lse_inner_5") then
             pn("Стражник уходит. ");
         elseif (loc == "lse_inner_5") then
             pn("Стражник уходит. ");
         elseif (loc == "lse_inner_7" or here().out == "lse_inner_7") then
             pn("Стражник приближается");
+            pn("Стражник приближается. ");
         elseif (here().out == "lse_inner_6") then
             pn("Снаружи маячит стражник");
+            pn("Снаружи маячит стражник. ");
         end;
     elseif (lse_guard2.loc == "lse_inner_6") then
         if (lse_guard2.dir == 2) then
             lse_guard2.loc = "lse_inner_7";
             if (loc == "lse_inner_5") then
                 pn("Стражник уходит");
             end;
             if (here().out == "lse_inner_7") then
                 pn("Снаружи маячит стражник");
                 pn("Стражник уходит. ");
             elseif (loc == "lse_inner_4") then
                 pn("Стражник уходит. ");
             elseif (here().out == "lse_inner_7") then
                 pn("Снаружи маячит стражник. ");
             end;
         else
             lse_guard2.loc = "lse_inner_5";
             if (loc == "lse_inner_7") then
                 pn("Стражник уходит");
             end;
             if (here().out == "lse_inner_5") then
                 pn("Снаружи маячит стражник");
                 pn("Стражник уходит. ");
             elseif (loc == "lse_inner_4") then
                 pn("Стражник приближается. ");
             elseif (here().out == "lse_inner_5") then
                 pn("Снаружи маячит стражник. ");
             end;
         end;
@@ @@ -1399,8 +1409,9 @@ lse_timer = function(s) @@
     else
         lse_guard2.dir = 1;
         lse_guard2.loc = "lse_inner_6";
         if (loc == "lse_inner_7" or here().out == "lse_inner_7") then
         if (loc == "lse_inner_4") then
             pn("Стражник приближается. ");
         elseif (loc == "lse_inner_7" or here().out == "lse_inner_7") then
             pn("Стражник уходит. ");
         elseif (loc == "lse_inner_5" or here().out == "lse_inner_5") then
             pn("Стражник приближается. ");
@@ @@ -1409,6 +1420,8 @@ lse_timer = function(s) @@
         end;
     end;
     print("lse_guard2", lse_guard2.loc);
     if (loc == lse_guard1.loc or loc == lse_guard2.loc) then
         timer:stop();
         game.timer = nil;
@@ @@ -1595,15 +1608,15 @@ lse_inner_4 = room { @@
     dsc = function(s)
         local f = [[Внутреннее кольцо Лсэрианотра разительно контрастирует с другими. Хотя изначально оно не проектировалось как жилое, сейчас большинство навьяров живет здесь. ]];
-        if (lse_guard1.loc == "lse_inner2") then
+        if (lse_guard1.loc == "lse_inner_2") then
             f = f .. [[^^Вдалеке в направлении по часовой стрелке вы видите стражника. ]];
-        elseif (lse_guard1.loc == "lse_inner3") then
+        elseif (lse_guard1.loc == "lse_inner_3") then
             f = f .. [[^^В направлении по часовой стрелке вы видите стражника. ]];
         end;
-        if (lse_guard2.loc == "lse_inner6") then
+        if (lse_guard2.loc == "lse_inner_6") then
             f = f .. [[^^Вдалеке в направлении против часовой стрелки вы видите стражника. ]];
-        elseif (lse_guard2.loc == "lse_inner5") then
+        elseif (lse_guard2.loc == "lse_inner_5") then
             f = f .. [[^^В направлении против часовой стрелки вы видите стражника. ]];
         end;

main.lua

➞

Show inline comments

@@ @@ -44,7 +44,8 @@ dofile "journey_temple.lua" @@
 dofile "lseryanotrr_intro.lua"
 dofile "lseryanotrr_locations.lua"
 dofile "lse_service_tunnels.lua"
 dofile "powerplant.lua";
 dofile "lse_powerplant.lua";
 dofile "lse_final_battle.lua";
 --dofile "final_scene.lua";
 --dofile "final_battle.lua";
 --dofile "first_city_inner_rim.lua"
@@ @@ -245,7 +246,7 @@ function init() @@
     put(item_colt, pl);
     --ven_shark.position = "55";
 	--pl.where = "za_plaetlarr_fight";
-    pl.where = "lse_inner_1";
+    pl.where = "lse_final_battle";
     move(submarine_leviathan, "za_temple_back_entrance_foot");
     char_anna.follow = true;
     --pl.where = "ven_chest_look";

powerplant.lua

➞

Show inline comments

deleted file

0 comments (0 inline, 0 general)