Change colors during the game with the G key (a800 only)

2026-05-20 22:33:43 +02:00 · 2023-01-05 09:58:36 +01:00
parent d66e588203
commit c151940735
4 changed files with 15 additions and 4 deletions
@@ -114,7 +114,11 @@ OptionsNoRight
 OptionsNoReturn
 	cmp #@kbcode._tab	; Tab key
 	bne OptionsNoTab
-NextGradientNr
+	jsr SelectNextGradient
+OptionsNoTab
+    jmp OptionsMainLoop
+.endp
+.proc SelectNextGradient
 	ldy GradientNr
 	iny
 	cpy #$03
@@ -126,8 +130,7 @@ NoGradientLoop
 	sta GradientColors
 	lda GradientAddrH,y
 	sta GradientColors+1	
-OptionsNoTab
-    jmp OptionsMainLoop
+	rts
 .endp
 ;--------
 ; inversing selected option (cursor)