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

[Alex_K]

Вот только у меня программа вылетела, когда зверь был достаточно близко к границе - на строке 15. VAR16 после встречи со зверем стал 4 и дальше (во внутреннем цикле) - вылет при попытке обработать строку с номером 19

Эта переменная портится также при вызове процедуры ZVERX. А тот код выше обрабатывает встречу со зверем на своей клетке, когды вы убиваете его, просто на него встав. Соответственно символ зверя стирается из массива разбуженных зверей.

[svofski]

Хотелось бы поюзать результат p2c конвертации (исходник на Си), можно как есть сырой - мне бы пригодилось тут в одном месте.

Вот, какой есть https://pastebin.com/LuDivLth

[Radon17]

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

А нажатие кнопки будет показываться? Инверсией например.

[Hunta]

		'@':	begin {L17200}
				WRITE('Призрак.');
				VAR22:=RUKSEEK('.','.');
				if VAR22 < 7 then
					VAR30:=VAR30+1;
				RUKSAK[VAR22]:='@';
			end;

Предположим, рюкзак полон и тут мы встречаем призрака... Пипец рюкзаку...

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

А тот код выше обрабатывает встречу со зверем на своей клетке, когды вы убиваете его, просто на него встав. Соответственно символ зверя стирается из массива разбуженных зверей.

И? Внешний цикл будет рад смерти звери и запорченной переменной.

[nzeemin]

А нажатие кнопки будет показываться? Инверсией например.

Не знаю пока что будет. Сначала надо чтобы заработало, потом уже свистелки и перделки.

[svofski]

А как в Паскале оригинала работает процедура EXIT? Потому что во всех, что мне до сих пор попадались, EXIT выходит из процедуры, или завершает программу, если это main(). Смущает наличие EXIT, выполняющей по смыслу BREAK в районе поиска лестницы

[Advertiser]

[Hunta]

Выход из объемлющего цикла.

[nzeemin]

А как в Паскале оригинала работает процедура EXIT? Потому что во всех, что мне до сих пор попадались, EXIT выходит из процедуры, или завершает программу, если это main(). Смущает наличие EXIT, выполняющей по смыслу BREAK в районе поиска лестницы

Ну да, Exit в этом Паскале работает как Break для циклов. Break() же здесь это процедура, которая по смыслу работает как Flush, скидывает несохранённый буфер в файл.
Есть ли нормальный Exit/Return - не знаю, я не нашёл, поэтому сделал ассемблерной вставкой.
Не исключаю что Return всё-таки есть и просто мы не знаем его синтаксис.

https://ia800500.us.archive.org/4/it..._1.2_RT-11.pdf - я тут смотрю описание на этот Паскаль.
Есть ещё книга от ДВК, но это просто перевод.
В документации не описаны labels и Goto, но на них удалось подобрать работающий синтаксис.

[svofski]

Еще у меня сложилось впечатление, что во всем огромном массиве флагов, который так щедро зарезервирован 16-битными целыми, используются только биты 0,1,2,6,10 (три младших бита для особенностей предметов, 0100 флаг увиденного и 02000 для заклятья). Есть какие-то догадки о том, чем объясняется такая расточительность?

[nzeemin]

Еще у меня сложилось впечатление, что во всем огромном массиве флагов, который так щедро зарезервирован 16-битными целыми, используются только биты 0,1,2,6,10 (три младших бита для особенностей предметов, 0100 флаг увиденного и 02000 для заклятья). Есть какие-то догадки о том, чем объясняется такая расточительность?

Думаю что ничем особенным, может быть запас на будущее.
Автор явно был отличный сценарист, но в то какой получается на выходе код он не заглядывал - иначе бы оптимизировал многие вещи, там есть моменты когда много раз одни и те же вычисления буквально в нескольких строчках. Утилиту "улучшения кода" IMP от этого Паскаля он тоже не применял. При компиляции Паскаль пишет количество свободных слов - там остаётся ещё значительный запас, т.е. автор не был ограничен по объёму, смог выразить всё что захотел.

А, ещё такой момент мог повлиять, что этот Паскаль не имеет втроенного типа под байт.