Генератор лабиринтов

[Andrew771]

Представляю свою программу - "Генератор лабиринтов для ZX Spectrum". Прога для PC, см. файл.
Написал на основе наших бдений: http://zx.pk.ru/showthread.php?t=1394&page=9

Возможности программы:

- генерация лабиринта размером от 3х3 до 128х128 клеток, количество клеток по горизонтали и вертикали может отличаться друг от друга;
- из любой точки лабиринта в другую любую точку можно пройти только одним путем;
- сгенерированный лабиринт показывается на экране;
- готовый лабиринт выводится в файл labirint.txt в виде блоков defb для вставки в любые ассемблерные программы на ZX Spectrum;
- лабиринт может состоять из различных элементов: коридоров, стен двух типов, залов, колонн в залах, врагов, аптечек. Названия элементов условные, в выходном файле не учитываются. Записываются только их шестнадцатеричные коды;
- границы лабиринта всегда состоят из сплошных стен;
- можно регулировать различные параметры генерации: правила построения коридоров, вероятности появления каждого элемента;
- можно переопределять шестнадцатеричные коды для каждого элемента;
- можно кодировать лабиринт по 1 клетке на байт или по 2 клетки на байт.

[Advertiser]

[Andrew771]

Если лабиринт закодирован по 2 клетки на байт, то вот процедурки для чтения и записи по нужному адресу и полубайту. В них длина лабиринта по горизонтали 128 клеток, ширина по вертикали произвольная. Длину легко можно поменять.

BEGLAB          EQU     ...                     ; адрес начала лабиринта


; получение значения клетки по логическим координатам
; входные параметры: B = вертикальная координата в лабиринте, C = горизонтальная координата в лабиринте
; выходной параметр: A = элемент лабиринта (биты 0-3)

GETKL		LD	H,B			; расчет логического адреса клетки
		LD	L,0
		SRL	H
		RR	L
		LD	B,0
		ADD	HL,BC

		SRL	H			; расчет физического адреса клетки в памяти
		RR	L
		LD	BC,BEGLAB
		JP	C,GETKL1		; если нечетный логический байт, то вторая половина физического байта

		ADD	HL,BC			; достаем клетку лабиринта
		LD	A,(HL)
		RRCA
		RRCA
		RRCA
		RRCA
		AND	#0F
		RET

GETKL1		ADD	HL,BC
		LD	A,(HL)
		AND	#0F
		RET



; занесение в клетку заданного значения по логическим координатам
; входные параметры: B = вертикальная координата в лабиринте, C = горизонтальная координата в лабиринте, A = элемент лабиринта (биты 0-3)
; выходных параметров нет

PUTKL		LD	H,B			; расчет логического адреса клетки
		LD	L,0
		SRL	H
		RR	L
		LD	B,0
		ADD	HL,BC

      		SRL	H			; расчет физического адреса клетки в памяти
		RR	L
		LD	BC,BEGLAB
		JP	C,PUTKL1		; если нечетный логический байт, то вторая половина физического байта

		ADD	HL,BC			; достаем клетку лабиринта
		RLCA
		RLCA
		RLCA
		RLCA
		LD	C,A
		LD	A,(HL)
		AND	#0F
		OR	C
		LD	(HL),A
		RET

PUTKL1		ADD	HL,BC
		LD	C,A
		LD	A,(HL)
		AND	#F0
		OR	C
		LD	(HL),A
		RET

[Andrew771]

Maze generation for ZX Spectrum
English version

[jerri]

Andrew771, под какое разрешение написана твоя программа?
у меня окно в экран не лезет

[Andrew771]

Andrew771, под какое разрешение написана твоя программа?
у меня окно в экран не лезет

1280х1024. С трудом влезает в 1024х768.

[jerri]

Andrew771, ну да у меня 1024х768

[Andrew771]

Я вообще-то эти программы (3D-View и Генератор лабиринтов) писал для разработки ZXOOM, как инструменты. Так что про внешний вид не заморачивался сначала. А потом дошло, что их можно использовать и для других будущих игр.

[goblinish]

Запустил программу, и оно повисло. надо старое написанное интро переписать.

[Andrew771]

Запустил программу, и оно повисло. надо старое написанное интро переписать.

Что повисло? Лабиринт вывелся? Ассемблерный код выводится сразу в текстовый файл.

[goblinish]

Что повисло? Лабиринт вывелся? Ассемблерный код выводится сразу в текстовый файл.

сразу при запуске повисло всё.