1 files changed, 17 insertions(+), 1 deletions(-)

M src/main.tal

@@ 380,7 380,7 @@ RTN
 		POP2 RTN
 		&changed
 	&state
-	( erase old selection ) #00 ;draw-selection JSR2
+	;clear-selection JSR2
 
 	OVR #00 = ,&no-use JCN
 		DUP .table + LDZ ;pick-card JSR2


@@ 464,6 464,7 @@ RTN
 @redraw ( -- )
 
 	;draw-status JSR2
+	;clear-selection JSR2
 	#01 ;draw-selection JSR2
 	;draw-table JSR2
 


@@ 533,6 534,21 @@ RTN
 
 RTN
 
+@clear-selection ( -- )
+
+	.frame/x LDZ2 .Screen/x DEO2
+	.frame/y LDZ2 #0020 ++ .Screen/y DEO2
+	;blank-icn .Screen/addr DEO2
+	( auto x ) #01 .Screen/auto DEO
+	#1b00
+	&loop
+		#01 .Screen/sprite DEO
+		INC GTHk ,&loop JCN
+	POP2
+	( auto none ) #00 .Screen/auto DEO
+
+RTN
+
 @draw-selection ( color -- )
 
 	STH