Кладоискатель-2

Игровая программа по поиску кладов в лабиринте, который формирует ПМК.

Задача

Собрать как можно больше кладов и успешно выйти из лабиринта.

Общее описание

В лабиринте 9 этажей по 7 ячеек на этаже. Вход на 9-м этаже (слева из стены) делается за игрока автоматически. Выход на 1-м – налево в стену, на остальных этажах прохода нет. На каждом этаже возможны обычные ячейки (пол), или пол с кладом (клад), или дыра в полу (для прыжков вниз) или лестницы для подъёма наверх. Кроме того, игрок может самостоятельно проделать дыру, там где её нет. Лестница при этом разрушается, и теряется возможность подняться выше. План этажа становится известным, только когда игрок на него попадает.

Число, обозначающее этаж и игрока на нём отображается в виде: цифра номера этажа (то же в регистре Y), . как обозначение левой стены, план текущего этажа и положение игрока символами слева направо:

Значение	Символ	С игроком
Пол	-	8
Лестница	E	C
Дыра		Г
Клад	L	9

Вначале лабиринт неизвестен и есть риск провалиться в биомассу (нулевой этаж или подвал), или пропустить единственную возможность взять труднодоступный клад. Собственно это и есть игровой момент.

Игровой процесс

Начало

После ввода программы можно ввести случайно число в регистр c или оставить там ноль и ввести -55555555. x→Пd В/О С/П. После этого отобразится положение игрока после входа в лабиринт. Возможно это будет и не 9-й этаж в случае дыры в начале и падении.

Движение

Движение влево/вверх/вправо определяется переключателем Р/ГРД/Г при ненулевом значении регистра Х, далее С/П. А если нужно пробить пол или лестницу, то тогда необходимо Cx или 0, С/П. Падение в дыру идёт автоматически.

Вверх получится сходить только на лестнице, в остальных случаях ход игнорируется. На 9-м этаже он игнорируется и для лестницы. Для быстроты (нет необходимости что-то делать) ход вверх в пустоте (на верхушке лестницы) воспринимается так же, как ход вниз, т. е. идёт спуск по лестнице.
Влево возле стены ход игнорируется, кроме первого этажа, где это воспринимается как выход.
Нулевой этаж – биомасса. Если упал – то пропал ЕГГ0Г . То же происходит при уходе вправо за лабиринт, т. к. там ничего нет и снова падение в биомассу.
В дыре игрок может остановиться, только поднявшись снизу по лестнице, в остальных случаях он проваливается в дыру (может на несколько этажей), пока не встретит что-то другое или не упадёт в биомассу.
Символ взятого клада 9 показывается только раз, при последующих ходах это уже пол.

Окончание

По окончании (выход на 1-м этаже влево) показывает количество кладов. Для указанного выше примера, если собрать все возможные (кроме одного на 9-ом), будет -12. Количество специально отражается отрицательным, чтобы не спутать с планом этажа. Например, 7. – полностью дырявый седьмой этаж (редкость, но возможно), а -7. – окончание игры, где удалось вынести семь кладов. Кому хочется положительным – поменяйте местами команды по адресам 13 и 14.

Затем С/П и будет сформирован новый лабиринт.

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

Дополнительное управление

Отрицательное число В/О С/П – генерация нового лабиринта. Например, если игра закончилась неудачно, то после С/П и просмотра количества кладов можно не сразу нажать С/П для повторного прохождения, а пропустить этот лабиринт и сформировать новый через В/О С/П, т. к. количество кладов отображается со знаком минус.
Не отрицательное число В/О С/П – отображение текущего положения. Например, проводили какие-то вычисления и забыли, где остановились.
В промежутке между лабиринтами (пока не начали новый) можно свободно использовать все регистры, кроме регистров c и d.

Далее только для тех, кто не только играет...

Почему версия 2

Оригинал взят с https://www.lordbss.pp.ru/pmk190. Текущая программа – это доработанный вариант. Отличия от оригинала:

Все лабиринты проходимые, т. е. на первом этаже в первой ячейке дыры гарантировано не будет.
Номер этажа, для удобства, сразу отображается вместе с планом лабиринта (целая часть числа в RX). Он же находится в регистре RY (как в оригинале).
Ограничивается выход на крышу.
Взятие клада показывается и при падении на него сверху.
Можно прорубить и пол с лестницей. Она, разумеется, тоже рушится.
После прорубания игрок сразу падает вниз, не требуя ходов туда-сюда, которые, к тому же, могут быть недоступны. С той же целью ход вверх в пустоте сразу ведёт к спуску по лестнице на этаж ниже (к падению).
Вместо встроенного датчик случайных чисел используется программный, потому что он более случайный и не циклит, а также потому, что позволяет сохранить план лабиринта до игры.
При неудаче всё равно показывает количество взятых кладов, а также автоматически формирует тот же лабиринт, предлагая переиграть.

Текст программы

# \|	00	01	02	03	04	05	06	07	08	09
00 \|	KБПd	Fx=0	82	П→xb	1	−	x→Пb	Kx=0d	П→xe	x→Пc
10 \|	П→xb	Flg	Kx=0d	П→xd	П→x0	−	С/П	П→xc	x→Пe	9
20 \|	x→Пb	x→П0	П→x0	x→Пa	П→xc	Fπ	+	Fe^x	K{x}	x→Пc
30 \|	FBx	П→xd	K∧	Kx→Пa	FL0	22	4	4	K∨	x→П1
40 \|	П→xd	x→П0	KЗН	F10^x	П→xa	×	K{x}	Fx=0	58	БП
50 \|	10	+	Kx→Пb	FL0	89	Fx≥0	17	П→xa	x→Пa	KП→xb
60 \|	П→xa	1	+	5	×	K∧	K{x}	П→xa	÷	В/О
70 \|	2	F10^x	Fcos	Fx=0	42	KППd	Kx≠0d	F1/x	П→xb	+
80 \|	x→Пb	KППd	4	−	Fx≠0	50	+	Kx≥0b	+	+
90 \|	KИНВ	<->	П→xb	FBx	<->	<->	ВП	С/П	Fx=0	70
A0 \|	KППd	П→xa	×	−	Kx→Пb

Распределение регистров

R0	Количество кладов в виде разницы с Rd
R1…R9	План 1…9 этажей
Ra	Положение на этаже. В начале у левой стенки 0.1, правее 0.01, 0.001 и т. д.
Rb	Номер текущего этажа
Rc	Последнее значение случайного числа
Rd	−55555555
Re	Начальное значение случайного числа

Каждый этаж представлен в виде числа 8.xxxxxxx, где x: 0 – пусто, 1 – лестница, 4 – клад, 5 – пол (используются биты 0 и 2). Результат отображается в инвертированном виде. Взято так, из-за того, что ноль при инвертировании превращается в пусто , 5 в пол -, а E (not 1) больше всего похоже на лестницу. Для отображения положения игрока перед инвертированием устанавливается бит 1 у цифры в нужной позиции (всё как в оригинале).

Регистр d выполняет сразу несколько функций. Как адрес перехода (последние две цифры) на подпрограмму получения цифры текущего положения игрока. Как битовая маска для исключения из случайного числа ненужных бит в каждом разряде. Как просто большое число, для сокращения процедуры подсчёта кладов. Как отрицательное для сокращения размера программы (бесшовный переход по адресу 42 на обычную проверку движения влево/вправо, с автоматической инициализацией начального положения в RA=0.1).

Некоторые особенности программы

Программа использует тот факт, что обычно стек возврата из процедур пустой, за счёт этого команда В/О возвращает на адрес 01. Если это не так, то необходимо выключить/включить ПМК. А если это неудобно, то прогнать 3Г0ГГа с нулевой мантиссой: Cx B↑ ÷ ВП Fx² Cx <-> Cx, который очистит стек.
Для подстановки номера этажа в шестнадцатеричное представление плана этажа используется недокументированные возможности команды ВП, проявляющиеся только при выполнении. При пошаговом исполнении результат будет как в оригинале: число всегда начинается с 8., а номер этажа в регистре Y. Можно вместо команд по адресам 94, 95, 96 вбить команду KНОП для достижения того же эффекта.
После последней команды по адресу A4 программа по умолчанию будет выполнять короткую побочную ветку (с адреса 00), поэтому стоит KБПd, а не KППd, иначе будет выполнена команда по адресу 06 (L1), а затем снова 00 (L2), без проверки по адресу 07.
В подпрограмме получения цифры текущего положения (с адреса 55) может показаться, что команды c по адресам 61–64 можно выполнить и в форме 5 × 1 +, или заменить на более короткое F1/x 5 +. Но в случае очень маленького числа (10⁻⁸ – шаг вправо от последней ячейки на этаже) произойдёт округление, а не отбрасывание последней цифры, что ведёт к неверному результату.
Одна команда Flg по адресу 11 проводит сразу тройную проверку. На нулевом этаже генерит ошибку, на 1-ом (=ноль) даёт выйти из лабиринта, на остальных (не ноль) – не пропускает в левую стену.
Подъём выше осуществляется без ветвления (адреса 77–80), т. к. для ячейки со значением 1 (лестница) это будет +1, а для пола (5) будет 0.2, т. е. +0 (дробная часть отбросится при последующем косвенном обращении). Нулевое значение проверяется перед этим (76).
Участок кода для учёта клада (50–54) не только использует адрес перехода как код команды (10 по адресу 50 это и команда +), но и делает приращение счётчика, и безусловный переход по одной команде (53–54), учитывая то, что в R0 находится большое отрицательное число.
Запрет выхода на крышу (10-й этаж) по лестнице с 9-го этажа осуществляется нетривиально. После кода подъёма по адресам 78–80 и получения цифры текущего положения игрока (81), которое будет всегда ноль, т. к. в 10 регистре (a) только одна цифра, последовательность 82–83 даст отрицательное число (−4). При сложении (86) с числом (планом) этажа это даст минус, т. к. сложилось с числом в Ra < 1 (для обычных этажей 8.xxxxxxx такое сложение всегда положительное). При проверке (87) переход идёт не сразу на основную ветвь (адрес 55, возврат на 01 и автоматический спуск на этаж ниже (03–06) по нулевому значению ячейки), а сначала на адрес 10 (номер этажа в b), где отрицательное значение в регистре X заменяется на положительное, чтобы проскочить проверку (55–56) генерации нового лабиринта.