Descent - демо игры с 8-цветными спрайтами для УКНЦ

**S_V_B** · 30.11.2021, 10:23

Сообщение от BlaireCas

(про Last Mission - куда-то запропал наш S_V_B который ее делал на УКНЦ, кажется приобрел Союз-Неон и что-то может под него программит?)

Сейчас мне немного не до того.. сам переболел ковидом, Тесть умер... похороны и.т.д. (вот вам факт.. антипрививочники Тесть не хотел делать прививку.. остальные сделали)

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

По поводу быстрого вывода спрайтов - развернул циклы..и быстрый переход на нужную высоту. работает быстрее.

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

Код:

;R3 ширина
	ASL	R3        
	ASL	R3        
	ADD	R3,PC
	JMP	JH0  ; нулевой ширины не бывает
	JMP	JH1
	JMP	JH2
	JMP	JH3
	JMP	JH4
	JMP	JH5
	JMP	JH6
	JMP	JH7
	JMP	JH8
	JMP	JH9  ;ЛОГО

; R4 высота

JH0:
	JMP	NXSP	
JH1:
	CMP	#3, R4
	BNE	1$	
	JMP	H13
1$:	CMP	#14., R4
	BNE	2$	
	JMP	H114
2$:	CMP	#16., R4
	BNE	3$	
	JMP	H116
3$:	JMP	NXSP

Как-то так..

Код:

H116:
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

H114:		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

H13:		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#79.,@#176640

		JMP	NXSP	

H216:
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

H26:		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#78.,@#176640


	JMP	NXSP	

H412:
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#76.,@#176640

	JMP	NXSP	
H516:
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640
 
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		INC	@#176640
		BIS	(R5)+,@#176642			;рисуем спрайт
		ADD	#75.,@#176640

		BIS	(R5)+,@#176642			;рисуем спрайт

Давно писал.. но работает быстрее

ZXPRESS •	ZXART •
ZXTUNES •	ZX Spectrum Old Demos •
Virtual TR-DOS •	World of Spectrum •

User Tag List

Тема: Descent - демо игры с 8-цветными спрайтами для УКНЦ

Опции темы

Отображение

Древовидный режим

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Как делали игры\демо тогда и сейчас?

Демо-версия новой игры SaNchez-а ;)

Помогите найти Демо из игры Dizzy

ОБРАЗ ИГРЫ, ДЕМО, МУЗЫКА для ФЛЕШЬ КАРТЫ ДЛЯ Penteva

Ваши права