~rabbits/donsol

cff086b13679b7f0e4599c7ce34c455203b0ca39 — Devine Lu Linvega 9 months ago 22b6b9c
Minor optimizations
1 files changed, 8 insertions(+), 8 deletions(-)

M src/donsol.tal
M src/donsol.tal => src/donsol.tal +8 -8
@@ 38,11 38,11 @@

	( place )
	.Screen/width DEI2 #01 SFT2
	DUP2 #00e0 #01 SFT2 SUB2 .frame/x STZ2
		#00e0 #01 SFT2 ADD2 .frame/x2 STZ2
	DUP2 #0070 SUB2 .frame/x STZ2
		#0070 ADD2 .frame/x2 STZ2
	.Screen/height DEI2 #01 SFT2
	DUP2 #0090 #01 SFT2 SUB2 .frame/y STZ2
		#0090 #01 SFT2 ADD2 .frame/y2 STZ2
	DUP2 #0048 SUB2 .frame/y STZ2
		#0048 ADD2 .frame/y2 STZ2

	( random )
	;prng-init JSR2


@@ 145,21 145,21 @@ BRK
	
	.frame/x LDZ2 .frame/y LDZ2
		( easy )
		OVR2 #00e0 #01 SFT2 #0048 SUB2 ADD2
		OVR2 #0028 ADD2
		OVR2 #0078 ADD2
			#0010 ADD2 ;easy-txt #02 [ .mode LDZ #00 EQU ADD ] ;draw-label JSR2
		.Screen/x DEI2 #002c SUB2 .Screen/x DEO2
		;cursor-hor-icn .Screen/addr DEO2
		#01 [ .mode LDZ #00 EQU MUL ] .Screen/sprite DEO
		( normal )
		OVR2 #00e0 #01 SFT2 #0018 SUB2 ADD2
		OVR2 #0058 ADD2
		OVR2 #0078 ADD2
			#0010 ADD2 ;normal-txt #02 [ .mode LDZ #01 EQU ADD ] ;draw-label JSR2
		.Screen/x DEI2 #003c SUB2 .Screen/x DEO2
		;cursor-hor-icn .Screen/addr DEO2
		#01 [ .mode LDZ #01 EQU MUL ] .Screen/sprite DEO
		( hard )
		OVR2 #00e0 #01 SFT2 #0028 ADD2 ADD2
		OVR2 #0098 ADD2
		OVR2 #0078 ADD2
			#0010 ADD2 ;hard-txt #02 [ .mode LDZ #02 EQU ADD ] ;draw-label JSR2
		.Screen/x DEI2 #002c SUB2 .Screen/x DEO2


@@ 419,7 419,7 @@ JMP2r
		POP JMP2r
		&no-waste
	( get ) #00 SWP ;card-values ADD2 LDA .player/hp LDZ ADD
	( set ) #15 LTHk #01 JCN SWP POP .player/hp STZ
	( set ) #15 [ LTHk #01 JCN SWP POP ] .player/hp STZ
	( set sick ) #01 .player/sick STZ
	;dialogs/potion ;draw-dialog JSR2