Changeset - ebd197bae45a
Parent rev.
Child rev.
[Not reviewed]
default
0 2 0
Silverwing - 3 years ago 2021-06-20 18:48:28

[upd] tonload of fixes
2 files changed with 112 insertions and 66 deletions:
README.TXT
3
caravan.qst
109
66
0 comments (0 inline, 0 general)
README.TXT
➞
Show inline comments
 
@@ -2,11 +2,14 @@
 
 
Для наилучшего игрового опыта рекомендуется использовать компьютер под управлением MS-DOS.
 
 
 
Для запуска игры используйте:
 
1) FOREST.BAT для компьютеров под управлением MS-DOS
 
2) FORESTW.BAT для компьютеров под управлением MS Windows
 
3) FOREST.SH для компьютеров под управлением GNU/Linux(вам потребуется установленный wine)
 
 
Мы рекомендуем использовать размер окна 80х25 символов, аналогичный текстовому экрану MS-DOS.
 
 
Известные проблемы:
 
В 64-разрядной версии dosbox есть проблема с округлением чисел. Выражается в неверном преобразовании некоторых значений в строки. Проблема может повлиять на работоспособность игры, поэтому пользователям linux рекомендуется использовать windows-версию интерпретатора через wine.
 
caravan.qst
➞
Show inline comments
 
@@ -3,17 +3,17 @@
 
	fp_prec = 0
 
	cls
 
	Style_DOS_TextColor=11
 
	PLn
 
	PLn                                                                      Версия 0.1
 
	PLn                   Истории Тайрандела 2: Проклятый старый лес
 
	Pln
 
	Style_DOS_TextColor=7
 
 
	PLn В зале таверны "Черный замок" сегодня неожиданно многолюдно. Караван торговца Вивара пришел в Онгерим и остановился именно здесь. Завтра Вивар должен продолжить свой путь в Нолтран. Чтобы сэкономить время, Вивар решил пойти старой дорогой, ведущей через Темный лес -- место, по праву пользующееся дурной славой. Неудивительно, что он до сих пор не наше никого, кто согласился бы охранять его караван на этом пути.
 
	PLn В зале таверны "Черный замок" сегодня неожиданно многолюдно. Караван торговца Вивара пришел в Онгерим и остановился именно здесь. Завтра Вивар должен продолжить свой путь в Нолтран. Чтобы сэкономить время, купец решил пойти старой дорогой, ведущей через Темный лес -- место, по праву пользующееся дурной славой. Неудивительно, что он до сих пор не нашел никого, кто согласился бы охранять его караван на этом пути.
 
 
	PLn
 
	PLn Идея и реализация:
 
	Style_DOS_TextColor=15
 
	PLn Khaelenmore Thaal (http://silverwing.one/)
 
	PLn Khaelenmore Thaal (http://www.silverwing.one/)
 
	PLn
 
	Style_DOS_TextColor=7
 
	PLn Движок:
 
@@ -111,7 +111,7 @@ end
 
 
	if wounded > 0 then P  Раненые: #wounded$
 
 
	if mana > 0 then P  Мана:#mana$
 
	if class = 3 then P  Мана:#mana$
 
	P  Повозки:#carriages$ Товары:#goods$
 
 
	if show_money > 0 then P  Δενόγθ:#money$
 
@@ -169,7 +169,7 @@ end
 
	if d_healed = 10 then PLn Десять человек возвращаются в строй!
 
	Style_DOS_TextColor=7
 
 
	if not (d_carriages = 0 and d_goods = 0 and d_people = 0 and d_people = 0 and d_healed = 0) then PLn
 
	if not (d_carriages = 0 and d_goods = 0 and d_wounded = 0 and d_people = 0 and d_people = 0 and d_healed = 0) then PLn
 
 
	d_carriages = 0
 
	d_goods = 0
 
@@ -189,6 +189,7 @@ end
 
end
 
 
:death_after
 
	pln
 
	btn restart_stage,Попробовать снова
 
	btn game_over,Сесть и заплакать
 
end
 
@@ -246,7 +247,7 @@ goto #%here$_fire
 
	PLn                   Истории Тайрандела 2: Проклятый старый лес
 
	Pln
 
	Style_DOS_TextColor=7
 
	PLn В зале таверны "Черный замок" сегодня неожиданно многолюдно. Караван торговца Вивара пришел в Онгерим и остановился именно здесь. Завтра Вивар должен продолжить свой путь в Нолтран. Чтобы сэкономить время, Вивар решил пойти старой дорогой, ведущей через Темный лес -- место, по праву пользующееся дурной славой. Неудивительно, что он до сих пор не наше никого, кто согласился бы охранять его караван на этом пути.
 
	PLn В зале таверны "Черный замок" сегодня неожиданно многолюдно. Караван торговца Вивара пришел в Онгерим и остановился именно здесь. Завтра Вивар должен продолжить свой путь в Нолтран. Чтобы сэкономить время, купец решил пойти старой дорогой, ведущей через Темный лес -- место, по праву пользующееся дурной славой. Неудивительно, что он до сих пор не наше никого, кто согласился бы охранять его караван на этом пути.
 
	PLn И тут в зал входите вы...
 
	PLn
 
 
@@ -265,6 +266,10 @@ end
 
	PLn И тут в зал входите вы -- отставной капитан имперского легиона. Военная выучка и опыт позволяют вам эффективнее командовать людьми в бою. Уйдя из легиона, вы решили сколотить небольшой отряд наемников для защиты мирных граждан Тайрандела от всяческих напастей.
 
	PLn ѕредложение ¬ивара кажетс€ вам весьма выгодным -- переход всего в два дн€, а плата как за несколько недель. ”веренный в силе своего отр€да, вы соглашаетесь на это задание.
 
	PLn
 
	PLn Особенности:
 
	PLn - Может нанять до 20 охранников в отряд
 
	PLn - Опытом позволяет ему принимать лучшие решения в бою
 
	PLn
 
	class = 1
 
	Proc reset_game
 
 
@@ -279,9 +284,12 @@ end
 
	PLn                   Истории Тайрандела 2: Проклятый старый лес
 
	Pln
 
	Style_DOS_TextColor=7
 
	PLn И тут в зал входите вы -- опытный следопыт и разведчик. Вы много времени проводите за городскими стенами и знаете окрестности Онгерима как свои пять пальцев. Вместе со своим отрядом вы не раз сопровождали караваны по этим местам.
 
	PLn Вот и в этот раз вы решаете не упускать возможности и готовитесь отправиться в путь вместе с Виваром.
 
		PLn
 
	PLn И тут в зал входите вы -- опытный следопыт и разведчик. Вы много времени проводите за городскими стенами и знаете окрестности Онгерима как свои пять пальцев.
 
	PLn Вместе со своим отрядом вы не раз сопровождали караваны по этим местам. Вот и в этот раз вы решаете не упускать возможности и готовитесь отправиться в путь вместе с Виваром.
 
	PLn
 
	PLn Особенности:
 
	PLn - Прекрасно ориентируется в лесу, что порой позволяет избежать опасности
 
	PLn
 
	class = 2
 
	Proc reset_game
 
 
@@ -296,9 +304,12 @@ end
 
	PLn                   Истории Тайрандела 2: Проклятый старый лес
 
	Pln
 
	Style_DOS_TextColor=7
 
	PLn » тут в зал входите вы -- —тарый боевой маг,  огда вас отправили на пенсию, вы решили, что еще слишком молоды, чтобы чахнуть над книжками. —колотив небольшой отр€д, вы путешествуете и беретесь за самую разную работу от сопровождени€ караванов и истреблени€ диких зверей, до сн€ти€ прокл€тий и исследовани€ гробниц.
 
	PLn » тут в зал входите вы -- —тарый боевой маг.  огда вас отправили на пенсию, вы решили, что еще слишком молоды, чтобы чахнуть над книжками. —колотив небольшой отр€д, вы путешествуете и беретесь за самую разную работу от сопровождени€ караванов и истреблени€ диких зверей, до сн€ти€ прокл€тий и исследовани€ гробниц.
 
	PLn Темный лес давно привлекает вас своей неизведанностью, а деньги, обещанные Виваром, позволят оплатить более обширную экспедицию в дальнейшем.
 
	PLn
 
	PLn Особенности:
 
	PLn - Может применять заклинания без использования свитков
 
	PLn
 
	class = 3
 
	Proc reset_game
 
 
@@ -309,8 +320,8 @@ end
 
:vivar_intro
 
	Proc before_dsc
 
 
	PLn ¬ивар показывает вам карту и сообщает подробности задани€. ¬начале караван пройдет по старой дороге, до эльфийского форта. “ам торговец планирует устроить привал и продолжить путь на следующий день. ¬тора€ часть пути проходит через обширные болота, обойти которые не представл€етс€ возможным.
 
	PLn Торговец дает вам 200 монет, чтобы вы могли получше подготовиться к пути.
 
	PLn ¬ивар показывает вам карту и сообщает подробности задани€. ¬начале караван пройдет по старой дороге до эльфийского форта. “ам торговец планирует устроить привал и продолжить путь на следующий день. ƒальше, ¬ивар планирует сойти с дороги и сократить путь через обширные болота. Ёто позволит не ночевать второй раз в лесу, чего ¬ивар очень хочет избежать.
 
	PLn Торговец выплачивает вам 200 монет на подготовку к переходу.
 
 
	Proc after_dsc
 
	:vivar_intro_buttons
 
@@ -321,7 +332,15 @@ end
 
:shoppe
 
	show_money = 1
 
	proc before_dsc
 
 
	pln У вас есть возможность закупить все необходимое перед походом.
 
	pln
 
	pln «аклинание "Ўестое чувство" позволит вам в нужный момент предвидеть опасность.
 
	pln Заклинание "Ветер" полезно для защиты от вражеских стрел.
 
	pln «аклинение "Ўар огн€" создает пылающий шар, взрывающийс€ при столкновении и нанос€щий огромный урон.
 
	pln
 
	pln Взрывные стрелы эффективны против любых врагов.
 
	pln Улучшенная броня позволит вам снизить потери в бою.
 
	pln —еребр€ное оружие действенно против нечисти.
 
	proc after_dsc
 
	:shoppe_buttons
 
	if people < people_limit and money >= 20 then btn hire_soldier, Нанять охранника - 20 монет
 
@@ -375,7 +394,8 @@ end
 
:betrayers
 
	show_money = 0
 
	proc before_dsc
 
	PLn ” выхода из города к вам подходит группа вооруженных людей. ќни предлагают вам свои услуги в сопровождении каравана и согласны на оплату по прибытии в пункт назначени€. ¬ивар не против их вз€ть, но оставл€ет окончательное решение за вами.
 
	PLn ” выхода из города к вам подходит группа вооруженных людей. ќни предлагают свои услуги в сопровождении каравана и согласны на оплату по прибытии в пункт назначени€. ¬ивар не против их вз€ть, но оставл€ет окончательное решение вам.
 
	if people >= people_limit then PLn   сожалению, ваш отр€д полностью укомплектован и вы не можете прин€ть людей.
 
	proc after_dsc
 
	:betrayers_buttons
 
	if people < people_limit then btn betrayers_take,Принять их в отряд
 
@@ -400,15 +420,14 @@ end
 
	ambush1_enemy_group_behind = 1
 
	ambush1_enemy_group_left = 1
 
	ambush1_enemy_group_right = 1
 
	ambush1_enemy_leader = 0
 
	ambush1_leader = 0
 
	ambush1_wind = 0
 
	ambush1_groups = 3
 
	ambush1_damage = 3
 
	ambush1_damage = 4
 
	ambush1_start_looked = 0
 
	ambush1_start_danger = 0
 
 
	PLn Яркое солнце освещает тропу, а звонкое пение птиц доносится со всех сторон. Лес кажется совершенно обычным и вы спокойно идете по нему. Караван весело катится по ухабистой дороге, а вы стараетесь не вспоминать о том, что именно за лес окружает вас.
 
	PLn Вскоре, вы замечаете впереди преграду -- прямо поперек дороги упало здоровенное дерево.
 
	PLn Яркое солнце освещает тропу, а звонкое пение птиц доносится со всех сторон. Лес кажется совершенно обычным. Повозки весело катятся по ухабистой дороге, а вы стараетесь не вспоминать о том, что идете по Темному лесу. Примерно через час пути, вы замечаете впереди преграду -- поперек дороги упало здоровенное дерево.
 
	proc after_dsc
 
 
:ambush1_start_buttons
 
@@ -429,6 +448,7 @@ end
 
	goto ambush1_start_buttons
 
 
	:ambush1_look
 
		ambush1_start_looked = 1
 
		proc before_dsc
 
 
		P ¬ы внимательно осматриваете дорогу.
 
@@ -447,7 +467,7 @@ end
 
	end
 
 
:ambush1_approach
 
	tokill = 2
 
	tokill = 3
 
	instr death_killed = death_plunder
 
	proc before_dsc
 
	PLn  араван подходит вплотную к преп€тствию и встает. ¬ы не успеваете ничего пон€ть, как в вас начинают лететь стрелы из кустов, а дорогу назад отрезает группа вооруженных бандитов. —лева и справа от вас на дорогу так же выход€т вооруженные отр€ды.
 
@@ -462,14 +482,14 @@ end
 
	proc magic_fire
 
	if ambush1_wind = 0 then proc magic_wind
 
	btn ambush1_approach_attack,Атаковать группу врагов...
 
	if ambush1_enemy_leader = 0 then btn ambush1_approach_find_leader,Попытаться определить лидера
 
	if ambush1_leader = 0 then btn ambush1_approach_find_leader,Попытаться определить лидера
 
	btn ambush1_approach_diplomacy,Попробовать договориться
 
end
 
 
	:ambush1_approach_what_to_do
 
		if ambush1_enemy_group_left then P Слева
 
		if ambush1_enemy_group_left and ambush1_enemy_group_behind and ambush1_enemy_group_right then P ,
 
		if ambush1_enemy_group_left and not ambush1_enemy_group_behind and ambush1_enemy_group_right then P è
 
		if ambush1_enemy_group_left and not ambush1_enemy_group_behind and ambush1_enemy_group_right then P  è
 
		if ambush1_enemy_group_right and ambush1_enemy_group_left then P  справа
 
		if ambush1_enemy_group_right and not ambush1_enemy_group_left then P Справа
 
		if (ambush1_enemy_group_left or ambush1_enemy_group_right) and ambush1_enemy_group_behind then P  ט סחאהט
 
@@ -523,7 +543,7 @@ end
 
			ambush1_groups = ambush1_groups - 1
 
			ambush1_damage = ambush1_damage - 1
 
			pln Огненный шар попадает в центр группы врагов, раскидывая разбойников во все стороны. Если кто-то и выжил, они не способны продолжать бой.
 
			if ambush1_leader = ambush1_direction then ambush1_groups = ambush1_groups - 1 & ambush1_damage = ambush1_damage - 1 & pln Вы убиваете атамана и видите, что пыл противников заметно поугас.
 
			if ambush1_leader = ambush1_direction then ambush1_leader = 4 & ambush1_groups = ambush1_groups - 1 & ambush1_damage = ambush1_damage - 1 & pln Вы убиваете атамана и видите, что пыл противников заметно поугас.
 
 
			if ambush1_damage < 0 then ambush1_damage = 0
 
 
@@ -581,7 +601,7 @@ end
 
			if ambush1_direction = 2 then ambush1_enemy_group_right = 0 & pln Ваши люди бросаются в бой. Атака оказывается успешной и вы полностью уничтожаете группу справа.
 
			if ambush1_direction = 3 then ambush1_enemy_group_behind = 0 & pln Ваши люди бросаются в бой. Атака оказывается успешной и вы полностью уничтожаете группу сзади.
 
 
			if ambush1_leader = ambush1_direction then ambush1_groups = ambush1_groups - 1 & ambush1_damage = ambush1_damage - 1 & pln Вы убиваете атамана и видите, что пыл противников заметно поугас.
 
			if ambush1_leader = ambush1_direction then ambush1_leader = 4 & ambush1_groups = ambush1_groups - 1 & ambush1_damage = ambush1_damage - 1 & pln Вы убиваете атамана и видите, что пыл противников заметно поугас.
 
 
			if ambush1_damage < 0 then ambush1_damage = 0
 
 
@@ -699,8 +719,8 @@ end
 
		if tworoads_horses_found = 0 and people > 2 then btn tworoads_first_follow_road_send_soldiers, Отправить отряд ловить лошадей
 
		if tworoads_horses_found = 0 then btn tworoads_first_follow_road_look_for_horses, Отправиться искать лошадей самостоятельно
 
		if tworoads_carriage_looked = 0 and tworoads_carriage_set = 0 then btn tworoads_first_follow_road_look_at_carriage, Осмотреть повозку
 
		if tworoads_carriage_set = 0 and people > 4 then btn tworoads_first_set_carriage, Поставить повозку на колеса
 
		if tworoads_carriage_set = 0 and people > 1 then btn tworoads_first_unload_set_carriage, –азгрузить повозку и поставить на колеса
 
		if tworoads_carriage_set = 0 then btn tworoads_first_set_carriage_try, Поставить повозку на колеса
 
		if tworoads_carriage_set = 0 then btn tworoads_first_unload_set_carriage_try, –азгрузить повозку и поставить на колеса
 
		if tworoads_carriage_set = 0 or tworoads_horses_found = 0 then btn tworoads_first_abandon_carriage, Бросить повозку
 
		if tworoads_carriage_set = 1 and tworoads_horses_found > 0 then btn camp_start, Продолжить путь
 
	end
 
@@ -712,7 +732,7 @@ end
 
			proc before_dsc
 
			if better_armor = 1 then pln Вскоре отряд возвращается с лошадьми, но один из людей ранен -- провалился в яму и сломал ногу. К счастью, товарищи помогли его вытащить.
 
			if better_armor = 0 then pln Вскоре отряд возвращается с лошадьми, но один из людей провалился в яму и разбился насмерть.
 
			if tworoads_carriage_set = 1 then PLn Теперь вы можете продолжить путь. else PLn Осталось поставить повозку на колеса.
 
			if tworoads_carriage_set = 1 then PLn  Теперь вы можете продолжить путь. else PLn  Осталось поставить повозку на колеса.
 
			proc after_dsc
 
		goto tworoads_first_follow_road_buttons
 
 
@@ -724,7 +744,7 @@ end
 
			PLn ”же подход€ к ней, вы слышите €ростное ржание и волчий лай. ¬ам придетс€ отбивать ваших лошадей у стаи голодных волков.
 
			proc after_dsc
 
			instr here = tworoads_first_follow_road_look_for_horses
 
			instr fire_act = Спугнуть волков
 
			instr fire_action = Спугнуть волков
 
			proc magic_fire
 
			btn tworoads_first_follow_road_look_for_horses_shoot,Стрелять в волков из укрытия
 
			btn tworoads_first_follow_road_look_for_horses_charge,Ворваться на поляну
 
@@ -743,7 +763,7 @@ end
 
				proc before_dsc
 
				PLn Какими бы хорошими ни были ваши стрелки, они далеки от лучших лучников Тайрандела. Хотя вам удается прогнать волков, вы умудряетесь так же ранить одну из лошадей.
 
К сожалению, она не сможет дальше идти в упряжке. Повозку придется частично разгрузить, чтобы идти дальше.
 
				if tworoads_carriage_set = 1 then PLn Теперь вы можете продолжить путь. else PLn Осталось поставить повозку на колеса.
 
				if tworoads_carriage_set = 1 then PLn  Теперь вы можете продолжить путь. else PLn  Осталось поставить повозку на колеса.
 
				proc after_dsc
 
			goto tworoads_first_follow_road_buttons
 
 
@@ -754,7 +774,7 @@ end
 
				proc before_dsc
 
				P Вы врываетесь на поляну и волки, поджав хвосты убегают.
 
				if better_armor = 1 then PLn Однако, один из ваших воинов получает ранение несовместимое с жизнью. else PLn Однако, один из ваших воинов получает ранение и не может сражаться.
 
				if tworoads_carriage_set = 1 then PLn Теперь вы можете продолжить путь. else PLn Осталось поставить повозку на колеса.
 
				if tworoads_carriage_set = 1 then PLn  Теперь вы можете продолжить путь. else PLn  Осталось поставить повозку на колеса.
 
				proc after_dsc
 
			goto tworoads_first_follow_road_buttons
 
 
@@ -764,17 +784,32 @@ end
 
			proc after_dsc
 
		goto tworoads_first_follow_road_buttons
 
 
		:tworoads_first_set_carriage_try
 
			if people > 4 then goto tworoads_first_set_carriage
 
			proc before_dsc
 
			Pln К сожалению, у вас не хватает людей, чтобы поставить повозку на колеса.
 
			proc after_dsc
 
		goto tworoads_first_follow_road_buttons
 
 
		:tworoads_first_set_carriage
 
			tworoads_carriage_set = 1
 
			if tworoads_horses_found = 1 and goods = carriages * 2 then d_goods = -1
 
			proc before_dsc
 
			P С огромным трудом пять человек смогли-таки поставить повозку на колеса.
 
			if tworoads_horses_found = 2 then PLn Теперь вы можете продолжить путь.
 
			if tworoads_horses_found = 1 then PLn К сожалению, вам придется выбросить часть груза, чтобы продолжить путь.
 
			if tworoads_horses_found = 0 then PLn Теперь осталось найти лошадей.
 
			P С огромным трудом ваши люди смогли-таки поставить повозку на колеса.
 
			if tworoads_horses_found = 2 then PLn  Теперь вы можете продолжить путь.
 
			if tworoads_horses_found = 1 then PLn  К сожалению, вам придется выбросить часть груза, чтобы продолжить путь.
 
			if tworoads_horses_found = 0 then PLn  Теперь осталось найти лошадей.
 
			proc after_dsc
 
		goto tworoads_first_follow_road_buttons
 
 
		:tworoads_first_unload_set_carriage_try
 
			if people > 1 then goto tworoads_first_unload_set_carriage
 
			PLn Вы тратите немного времени, чтобы разгрузить повозку, но это не помогает -- у вас все равно не хватает сил, чтобы поставить повозку на колеса. Однако, когда вы возвращаетесь к выгруженным товарам, вы видите, что в них роется кабан.
 
			proc after_dsc
 
			btn tworoads_first_drive_boar_away, Прогнать кабана
 
			btn tworoads_first_wait,Подождать, пока кабан уйдет
 
		end
 
 
		:tworoads_first_unload_set_carriage
 
			tworoads_carriage_set = 1
 
			proc before_dsc
 
@@ -800,9 +835,9 @@ end
 
			:tworoads_first_wait
 
				d_goods = -1
 
				proc before_dsc
 
				PLn Кабан некоторое время раскидывает своими клыками обрывки тканей, после чего, не найдя ничего интересного, убегает в лес.
 
				P Кабан некоторое время раскидывает своими клыками обрывки тканей, после чего, не найдя ничего интересного, убегает в лес.
 
Вы выбрасываете испорченный товар.
 
				if tworoads_horses_found > 0 then PLn Теперь вы можете продолжить путь. else PLn Теперь осталось найти лошадей.
 
				if tworoads_horses_found > 0 then PLn  Теперь вы можете продолжить путь. else PLn  Теперь осталось найти лошадей.
 
				proc after_dsc
 
			goto tworoads_first_follow_road_buttons
 
 
@@ -819,7 +854,7 @@ end
 
		PLn Ни люди, ни лошади не были довольны вашим решением, но нехотя повиновались. Ваш караван медленно ползет под ярким солнцем по сухой земле древнего погоста. Вскоре погода портится – тучи затягивают небо и начинается гроза. Полностью сосредоточившись на пути, вы не замечаете, как оказываетесь со всех сторон окружены поднимающимися из могил мертвецами. Вы судорожно вспоминаете сказания, в которых мертвые хранят свои земли, но не вольны покидать их. В этом ваша надежда -- пройти через кладбище, прежде чем вы окажетесь растерзаны хозяевами этого места.
 
		proc after_dsc
 
		instr here = tworoads_first_enter_cemetery
 
		instr fire_act = Расчистить дорогу каравану
 
		instr fire_action = Расчистить дорогу каравану
 
		proc magic_fire
 
		btn tworoads_first_enter_cemetery_run, «абратьс€ в повозки и подстегнуть лошадей
 
		if fire_arrows > 0 then btn tworoads_first_enter_cemetery_shoot, Использовать разрывные стрелы
 
@@ -864,7 +899,7 @@ end
 
		pln ¬скоре вы понимаете, что дальше двигатьс€ невозможно. ќкруженные зомби и скелетами, вы понимаете, что не можете больше сдвинуть караван.
 
		proc after_dsc
 
		instr here = tworoads_first_cemetery_second
 
		instr fire_act = Расчистить дорогу каравану
 
		instr fire_action = Расчистить дорогу каравану
 
		proc magic_fire
 
		btn tworoads_first_cemetery_second_run,«абратьс€ в повозки и подстегнуть лошадей
 
		btn tworoads_first_cemetery_second_fight,Пробиваться с боем
 
@@ -900,7 +935,7 @@ end
 
¬ы успешно отбиваете атаки особо ретивых мертвецов, но их оказываетс€ слишком много. ¬ы видите, как одна из лошадей, т€нущих последнюю повозку спотыкаетс€ и повозка замедл€етс€, а затем и останавливаетс€, погребенна€ под грудой наседающих зомби.
 
			proc after_dsc
 
			instr here = tworoads_first_cemetery_second_run
 
			instr fire_act = Помочь отставшим огненным шаром
 
			instr fire_action = Помочь отставшим огненным шаром
 
			btn tworoads_first_cemetery_second_run_do_not_stop,Не останавливаться
 
			btn tworoads_first_cemetery_second_run_rescue,Броситься на выручку отставшим
 
			if fire_arrows > 0 then btn tworoads_first_cemetery_second_run_shoot,ѕомочь отставшим разрывными стрелами
 
@@ -962,10 +997,10 @@ end
 
		pln ¬ы всего в нескольких сотн€х метров от кра€ кладбища. —тоит вам выбратьс€, как мертвецы остав€т вас в покое, но сейчас они идут на вас шатающейс€ волной и злобно щелкают зубами и скрежещут зубами.
 
		proc after_dsc
 
		instr here = tworoads_first_cemetery_last
 
		instr fire_act = Расчистить дорогу каравану
 
		instr fire_action = Расчистить дорогу каравану
 
		btn tworoads_first_cemetery_last_run,Подстегнуть лошадей
 
		btn tworoads_first_cemetery_last_fight,Пробиваться с боем
 
		btn tworoads_first_cemetery_last_shoot,Использовать разрывные стрелы
 
		if fire_arrows > 0 then btn tworoads_first_cemetery_last_shoot,Использовать разрывные стрелы
 
		proc magic_fire
 
	end
 
 
@@ -974,7 +1009,7 @@ end
 
			d_wounded = -3
 
			instr death_killed = death_undead
 
			proc before_dsc
 
			pln Последняя повозка подпрыгивает на ухабе и переворачивается. Лошади разбегаются в разные стороны, а вы, уже c безопасного расстояния, смотрите, как неупокоенные глодают ваших товарищей, раздавленных искореженной повозкой.
 
			pln Последняя повозка подпрыгивает на ухабе и переворачивается. Лошади разбегаются в разные стороны, а вы, уже c безопасного расстояния, смотрите, как неупокоенные забираются внутрь искореженной повозки.
 
			proc after_dsc
 
			btn camp_start,Продолжить
 
		end
 
@@ -1015,6 +1050,7 @@ end
 
		end
 
 
:ambush2_start
 
	ambush2_start_vivar = 0
 
	ambush2_start_argued = 0
 
	ambush2_start_proofs = 0
 
	ambush2_start_examined = 0
 
@@ -1023,13 +1059,14 @@ end
 
	proc after_dsc
 
:ambush2_start_buttons
 
	if ambush2_start_argued = 1 then btn betrayers_act_decline,Вернуться на дорогу
 
	btn ambush2_start_vivar,Посоветоваться с Виваром
 
	if class = 2 and ambush2_start_examined = 0 then btn ambush2_start_examine,Изучить окружение
 
	btn ambush2_start_argue,Спорить с проводниками
 
	if ambush2_start_vivar = 0 then btn ambush2_start_vivar,Посоветоваться с Виваром
 
	if class = 2 and ambush2_start_proofs = 0 then btn ambush2_start_examine,Изучить окружение
 
	if ambush2_start_argued = 0 then btn ambush2_start_argue,Спорить с проводниками
 
	btn ambush2_continue,Продолжить путь
 
end
 
 
	:ambush2_start_vivar
 
		ambush2_start_vivar = 1
 
		proc before_dsc
 
		pln Вивар лишь пожимает плечами. Он склонен доверять проводникам – согласно карте дорога действительно срезает значительную часть пути.
 
		proc after_dsc
 
@@ -1038,18 +1075,19 @@ end
 
	:ambush2_start_examine
 
		ambush2_start_proofs = 1
 
		proc before_dsc
 
		pln Вы внимательно осматриваетесь и сверяетесь с картой Вивара. Очевидно, что ваши проводники ошиблись и ведут вас в самую чащу. Оттуда пешком то выбраться будет не просто, не то что с повозками.
 
		pln Вы внимательно осматриваетесь и сверяетесь с картой Вивара. Очевидно, что ваши проводники ошиблись и ведут вас в самую чащу. Оттуда пешком-то выбраться будет не просто, не то что с повозками.
 
		proc after_dsc
 
	goto ambush2_start_buttons
 
 
	:ambush2_start_argue
 
		ambush2_start_argued = 1
 
		proc before_dsc
 
		if ambush2_start_proofs = 1 then pln ѕроводники объ€сн€ют вам про малоизвестную тропу, которую они сами расчищали некоторое врем€ назад дл€ другого каравана.  роме того, идти вперед по их словам и так меньше, чем назад. else pln ѕроводники выгл€д€т обиженными: УЌе нравитс€ Ц мы можем вернутьс€!Ф, говор€т они и вы задумываетесь над перспективой потратить несколько часов чтобы вернутьс€ на дорогу. ѕо их словам, вперед идти и впр€мь почти вдвое меньше.
 
		if ambush2_start_proofs = 1 then pln ѕроводники объ€сн€ют вам про малоизвестную тропу, которую они сами расчищали некоторое врем€ назад дл€ другого каравана.  роме того, идти вперед, по их словам,осталось меньше, чем назад. else pln ѕроводники выгл€д€т обиженными: УЌе нравитс€ Ц мы можем вернутьс€!Ф, говор€т они и вы задумываетесь над перспективой потратить несколько часов чтобы вернутьс€ на дорогу. ѕо их словам, вперед идти осталось почти вдвое меньше.
 
		proc after_dsc
 
	goto ambush2_start_buttons
 
 
	:ambush2_continue
 
		ambush2_leader_known = 0
 
		ambush2_enemies = 10
 
		ambush2_wind = 0
 
		ambush2_hidden = 0
 
@@ -1062,9 +1100,9 @@ end
 
		btn ambush2_continue_hide,Спрятаться в повозках
 
	:ambush2_continue_buttons
 
		instr here = ambush2_continue
 
		instr wind_act = Поднять ветер
 
		instr fire_act = ”ничтожить разбойников
 
		if ambush2_hidden then btn ambush2_continue_leader,Попытаться определить предводителя
 
		instr wind_action = Поднять ветер
 
		instr fire_action = ”ничтожить разбойников
 
		if ambush2_hidden and ambush2_leader_known = 0 then btn ambush2_continue_leader,Попытаться определить предводителя
 
		proc magic_wind
 
		proc magic_fire
 
		btn ambush2_continue_counter_full,Контратаковать в полную силу
 
@@ -1080,6 +1118,7 @@ end
 
		goto ambush2_continue_buttons
 
 
		:ambush2_continue_leader
 
			ambush2_leader_known = 1
 
			proc before_dsc
 
			pln ¬ы не замечаете среди противников того, кто хоть чем-то бы выдел€лс€. Ћибо лидер не принимает участи€ в атаке, либо маскируетс€.
 
			proc after_dsc
 
@@ -1138,9 +1177,9 @@ end
 
 
:camp_start
 
	proc save_stage
 
	camp_health = 0
 
	camp_potions = 0
 
	proc before_dsc
 
	pln Вы подходите к старому эльфийскому аванпосту, где и намереваетесь сделать привал.
 
	pln Вы подходите к старому эльфийскому аванпосту, где намереваетесь сделать привал. Заброшенная крепость хранит много секретов, возможно стоит попытаться поискать в ней что-нибудь интересное.
 
	proc after_dsc
 
	btn camp_before_end, Отдыхать
 
	btn camp_search_fortress, Обыскать крепость
 
@@ -1174,36 +1213,36 @@ end
 
		camp_temp = camp_barracks
 
		camp_barracks = camp_#camp_temp$
 
		:camp_loop1
 
		if camp_temp < 6 then camp_#camp_temp$ = camp_#camp_temp + 1$ & goto camp_loop1
 
		if camp_temp < 6 then camp_#camp_temp$ = camp_#camp_temp + 1$ & camp_temp = camp_temp + 1 & goto camp_loop1
 
 
		camp_lab = rnd5
 
		camp_temp = camp_lab
 
		camp_lab = camp_#camp_temp$
 
		:camp_loop2
 
		if camp_temp < 5 then camp_#camp_temp$ = camp_#camp_temp + 1$ & goto camp_loop2
 
		if camp_temp < 5 then camp_#camp_temp$ = camp_#camp_temp + 1$ & camp_temp = camp_temp + 1 & goto camp_loop2
 
 
		camp_smith = rnd4
 
		camp_temp = camp_smith
 
		camp_smith = camp_#camp_temp$
 
		:camp_loop3
 
		if camp_temp < 4 then camp_#camp_temp$ = camp_#camp_temp + 1$ & goto camp_loop3
 
		if camp_temp < 4 then camp_#camp_temp$ = camp_#camp_temp + 1$ & camp_temp = camp_temp + 1 & goto camp_loop3
 
 
		camp_towers = rnd3
 
		camp_temp = camp_towers
 
		camp_towers = camp_#camp_temp$
 
		:camp_loop4
 
		if camp_temp < 3 then camp_#camp_temp$ = camp_#camp_temp + 1$ & goto camp_loop4
 
		if camp_temp < 3 then camp_#camp_temp$ = camp_#camp_temp + 1$ & camp_temp = camp_temp + 1 & goto camp_loop4
 
 
		camp_observ = rnd2
 
		camp_temp = camp_observ
 
		camp_observ = camp_#camp_temp$
 
		:camp_loop5
 
		if camp_temp < 2 then camp_#camp_temp$ = camp_#camp_temp + 1$ & goto camp_loop5
 
		if camp_temp < 2 then camp_#camp_temp$ = camp_#camp_temp + 1$ & camp_temp = camp_temp + 1 & goto camp_loop5
 
 
		camp_cellar = camp_1
 
 
		proc before_dsc
 
		pln »з€щные кованые ворота старой крепости до сих пор не тронула ржавчина, словно последний эльф покинул это место не сотни лет назад, а вчера. ѕостройки внутри так же сохранились нетронутыми. ¬ы не можете сказать, что именно -- могучее заклинание или дурна€ слава -- надежно отвадило мародеров от этого места, но форт предстал перед вами практически нетронутым. Ћишь густа€ высока€ трава в небольшом дворике напоминает о том, что здесь уже давно никто не живет.
 
		pln »з€щные кованые ворота старой крепости до сих пор не тронула ржавчина, словно последний эльф покинул это место не сотни лет назад, а вчера. ѕостройки внутри также сохранились нетронутыми. ¬ы не можете сказать, что именно -- могучее заклинание или дурна€ слава -- надежно отвадило мародеров от этого места, но форт предстал перед вами практически нетронутым. Ћишь густа€ высока€ трава в небольшом дворике напоминает о том, что здесь уже давно никто не живет.
 
		proc after_dsc
 
	:camp_search_fortress_buttons
 
		btn camp_leave_fortress,Покинуть крепость
 
@@ -1240,11 +1279,12 @@ end
 
			if camp_potions = 9 then pln Девять человек излечены!
 
			Style_DOS_TextColor = 7
 
			proc after_dsc
 
			btn camp_before_end,Продолжить
 
		end
 
 
		:camp_fortress_barracks
 
			camp_found = camp_barracks
 
			camp_barracts = 0
 
			camp_barracks = 0
 
			proc before_dsc
 
			pln Старые бараки выглядят так, словно солдаты только что покинули их. Застеленные белыми простынями двухъярусные кровати, резные сундуки, старинные столы и стулья эльфийской работы, зеленые как трава ковровые дорожки -- все это словно спит в ожидании, когда хозяева вернутся. Ваши люди с заметным трепетом осматривают помещение в поисках ценностей.
 
		goto camp_fortress_stealing
 
@@ -1301,6 +1341,7 @@ end
 
 
		:camp_death
 
			proc death_before
 
			pln ¬ы не успеваете ничего пон€ть, как призрачные мечи пронзают вас и начинают выт€гивать жизнь из вас и ваших людей. ћогильных холод обволакивает вас и вы тер€ете сознание, чтобы уже никогда не проснутьс€.
 
			proc death_after
 
		end
 
 
@@ -1309,6 +1350,7 @@ end
 
		d_people = -people_b
 
		people_b = 0
 
		instr death_killed = death_people
 
		if class = 3 then mana = 7
 
		proc before_dsc
 
		pln Ночь проходит спокойно, если не считать таинственных бирюзовых всполохов из крепости. Животные обходят эти места за версту, да и люди предпочитают не соваться сюда без особой на то необходимости.
 
		if camp_people_b > 0 then pln Наутро вы обнаруживаете пропажу части ваших людей. Бригада, присоединившаяся к вам у выхода из города, куда-то испарилась.
 
@@ -1338,7 +1380,7 @@ end
 
	:swamp_go_buttons
 
		soldiers_required = 5 - (carriages * 2 - goods) - swamp_wind
 
		instr here = swamp_go
 
		instr wind_act = Создать попутный ветер
 
		instr wind_action = Создать попутный ветер
 
		proc magic_wind
 
		btn swamp_leave_carriage,Бросить повозку
 
		btn swamp_push_carriage,Толкать повозку
 
@@ -1391,7 +1433,7 @@ end
 
		proc after_dsc
 
	:swamp_go_2_buttons
 
		instr here = swamp_go_2
 
		instr sense_act = Искать пропавшего
 
		instr sense_action = Искать пропавшего
 
		proc magic_sense
 
		if class = 2 then btn swamp_look_for_success,Искать пропавшего else btn swamp_look_for_fail,Искать пропавшего
 
		btn swamp_light_fire,Разжечь огонь
 
@@ -1467,10 +1509,10 @@ end
 
		pln Из темноты доносятся жуткие звуки, а со стороны болота к вам приближаются сотни человеческих фигур, шатающихся и тянущих к вам руки.
 
		proc after_dsc
 
		instr here = swamp_dead
 
		instr fire_act = Поджечь ближайших мертвецов
 
		instr fire_action = Поджечь ближайших мертвецов
 
		proc magic_fire
 
		if class < 3 then btn swamp_dead_diversion,Провести отвлекающий маневр else btn swamp_dead_heroes,Оставить несколько человек прикрывать отход
 
		if fire_arrows then btn swamp_dead_arrows,Использовать разрывные стрелы
 
		if fire_arrows > 0 then btn swamp_dead_arrows,Использовать разрывные стрелы
 
	end
 
 
		:swamp_dead_diversion
 
@@ -1504,13 +1546,13 @@ end
 
		end
 
 
:swamp_end
 
	proc before_end
 
	proc before_dsc
 
	pln ѕокинув болота, вы продолжаете путь в Ќолтран. остаток дороги проходит спокойно и вскоре вы проходите в городские ворота.
 
	if goods = 8 then pln ¬ивар крайне доволен тем, что караван не пострадал в процессе пути и щедро оплачивает вашу работу.
 
	if goods < 8 and goods > 5 then pln Вивар благодарит вас и отдает обещанную плату, после чего отправляется по делам.
 
	if goods < 6 and goods > 2 then pln ¬ивар крайне расстроен тем, что не удалось сохранить весь товар, однако он благодарит вас и отдает обещанную плату, после чего отправл€етс€ по делам.
 
	if goods < 3 then pln Вивар дрожащими руками отдает вам обещанную плату. Осмотрев оставшийся товар он грустно качает головой и задумчиво чешет голову. "Я разорен", -- только и произносит он.
 
	proc after_end
 
	proc after_dsc
 
	btn final_scene,Продолжить
 
end
 
 
@@ -1521,7 +1563,7 @@ end
 
	PLn                   Истории Тайрандела 2: Проклятый старый лес
 
	Pln
 
	Style_DOS_TextColor=7
 
	pln —пасибо за игру! ∆дем ваших отзывов на inbox@silverwing.one. ∆дем вас на нашем сайте www.silverwing.one
 
	pln —пасибо за игру! ∆дем ваших отзывов на электронную почту inbox@silverwing.one. ∆дем вас на нашем сайте www.silverwing.one.
 
end
 
 
:death_plunder
 
@@ -1548,4 +1590,5 @@ end
 
	proc death_after
 
end
 
 
:gameover
 
:game_over
 
0 comments (0 inline, 0 general)
Server instance: silverwing-343557 This site is powered by Kallithea, which is © 2010–2023 by various authors & licensed under GPLv3. – Support