~rabbits/nasu

d9d04176a2db47d9742e324a063363663a81d6eb — neauoire 11 months ago 90057a9
Fixed mouse picking issue with blending mode
1 files changed, 7 insertions(+), 4 deletions(-)

M src/nasu.tal
M src/nasu.tal => src/nasu.tal +7 -4
@@ 389,9 389,12 @@ BRK

	.Mouse/x DEI2 .blendview/x1 LDZ2 SUB2 #03 SFT2 NIP
	.Mouse/y DEI2 .blendview/y1 LDZ2 SUB2 #03 SFT2 NIP #20 SFT ADD
	[ #0f GTHk NIP ] ,&no-set JCN DUP .settings/blend STHk LDZ #b0 AND ADD STHr STZ &no-set
	[ #12 NEQk NIP ] ,&no-ver JCN .settings/blend STHk LDZ #20 EOR STHr STZ &no-ver
	[ #13 NEQk NIP ] ,&no-hor JCN .settings/blend STHk LDZ #10 EOR STHr STZ &no-hor
	[ #0f GTHk NIP ] ,&no-set JCN DUP .settings/blend STHk LDZ #b0 AND ADD STHr STZ ,&end JMP &no-set
	( buttons )
	#03 AND
	[ #02 NEQk NIP ] ,&no-ver JCN .settings/blend STHk LDZ #20 EOR STHr STZ &no-ver
	[ #03 NEQk NIP ] ,&no-hor JCN .settings/blend STHk LDZ #10 EOR STHr STZ &no-hor
	&end
	POP
	;draw-blendview JSR2
	;draw-preview JSR2


@@ 665,7 668,7 @@ JMP2r
		INC GTHk ,&loop JCN
	POP2
	( draw selection )
	.Screen/auto DEI #0f AND .selection/x2 LDZ .selection/x1 LDZ SUB #40 SFT ADD .Screen/auto DEO
	#06 .selection/x2 LDZ .selection/x1 LDZ SUB #40 SFT ADD .Screen/auto DEO
	.tileview/x1 LDZ2 #00 .selection/x1 LDZ #30 SFT2 ADD2 .Screen/x DEO2
	.tileview/y1 LDZ2 #00 .selection/y1 LDZ #30 SFT2 ADD2 .Screen/y DEO2
	.selection LDZ2 ;get-tile-addr JSR2 ,&sprite STR2