Игра "Зона" на ДВК

[nzeemin]

Макросы-шмакросы - это всё конечно хорошо, если оставлять результат там же в MACRO-11 - например, для дальнейших улучшений.
Сначала конечно мне хотелось бы подробнее разобраться в устройстве игры - понятно что это куча if / case но всё же.
Затем надо думать про портирование, это уже обсуждалось тут на первых страницах темы.
И тут уже вопрос - куда, точнее, на каком языке.
Как вариант - вероятно, можно (хоть и довольно трудоёмко), восстановить исходник на том же самом Паскале ДВК.
Либо уже сразу переводить на благородный Си.

[Hunta]

Макросы-шмакросы - это всё конечно хорошо, если оставлять результат там же в MACRO-11 - например, для дальнейших улучшений.

Нет. Именно для понимания логики. И имеем вместо

	MOV	26(SP), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	CMPB	27(R1), #136

а дальше опять

	MOV	26(SP), R1

	SWAB	R1
	BIC	#377, R1

	ASL	R1
	ASL	R1
	ADD	R5, R1
	MOV	22(R5), R2

	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ADD	R1, R2
	MOV	24(R5), R1

- по одной строке.

Ну, это не я сталкера восстанавливаю, так что в принципе - не мои заботы.

[zebest]

Какое то время назад (до DisAsm-11) начал дизассемблировать Digger, который тоже на Паскале написан.

И как успехи?? Фарш получилось "прокрутить назад" ? Обратно собирается из асм-а? Можно добавить свои уровни к уже существующим или новую логику??

[Hunta]

И как успехи?? Фарш получилось "прокрутить назад" ? Обратно собирается из асм-а?

Собирался из восстанавливаемого исходника он с самого начала работы над ним.

Но до конца дизасм не доведён - основная цель была - не восстановление текста - это было ещё не осознанное обдумывание, как выяснилось, DisAsm-11

Может быть, со временем доведу до логического конца, но уже отрабатывая функционал DisAsm-11.

[nzeemin]

Вопрос к специалистам по Паскалю ДВК (он же OMSI Pascal):
Как сделать печать строки черз WRITE, но чтобы в строке были спецсимволы, например, табуляция, переносы строк, ESC-последовательности?
Я вижу по коду что это было сделано, то есть это можно сделать, но не понимаю как в синтаксисе Паскаля это записать.

WRITE('Строка',CHR(13))

- такой код даст не то что нужно, это будет два вызова - один WRITE для строки и один печать символа.

[hobot]

может поправить в быстро-помощи STALK: "Т - Взять предмет на кОтором стоишь"

т - BЗЯТЬ ПPEДMEТ, НA КOТOPOM CТOИШЬ

не совсем понял, что и где ты предлагаешь поправлять? эта строка из ХЭЛПА игры, если что, он в во всех версиях одинаков вроде бы???

DECOBJ

я вот только не уловил - где вы берёте эту программулину?


Ого, да неужто вы СТАЛКЕРА куда-то портировать собрались?
Если кто помнит, то версия для MS DOS есть и очень красивая ...

[Advertiser]

[Hunta]

не совсем понял, что и где ты предлагаешь поправлять? эта строка из ХЭЛПА игры, если что, он в во всех версиях одинаков вроде бы???

Вот это

	.ASCII	|T - Взять предмет, на клтором стоишь|<CR>

[hobot]

Я вижу по коду что это было сделано, то есть это можно сделать, но не понимаю как в синтаксисе Паскаля это записать.

а что тебя смущает - честно не понял?
у табуляции "номер символа" 9., соотв. WRITE(CHR(9)); ПРЕНОС СТРОКИ В КОНЦЕ СТРОКИ (АВТОМАТОМ) = WRITELN('///');

ESC - ПОСЛЕДОВАТЕЛЬНОСТИ
можно реализовать так как в процедуре позиционирования курсора, а можно сделать отдельную процедуру
для вывода каждого символа отдельно, ПАСКАЛЬ, наверное лучше в теме ПАСКАЛЯ обсуждать? Там же куча шпаргалок
уже и искать \ читать в одной теме удобнее, я продолжу ответ там...

[hobot]

Вот это

у меня что то не видать такой опечатки в готовых играх, вы специально такую версию взялись мучить?

- - - Добавлено - - -

это внутренний Н игры по онлайн ссылочке такое показывает:

почему у меня игры с нормальной строкой без опечаток? вы специально такой Сталк подыскали что ли ?
DESSом залезьте перед дезасмом и правьте что хотите там...

[Hunta]

DESSом залезьте перед дезасмом и правьте что хотите там...

Нахрена. Я и в исходнике могу теперь поправить.