mirror of
https://github.com/a2-4am/pitch-dark.git
synced 2024-06-13 02:29:42 +00:00
minor catalog UI tweaks
This commit is contained in:
parent
16d41a6803
commit
cabaf81ebb
|
@ -144,13 +144,13 @@ catLineNum
|
||||||
!byte 4
|
!byte 4
|
||||||
@ln2 !byte $FD ; SMC
|
@ln2 !byte $FD ; SMC
|
||||||
!word kCatLetter
|
!word kCatLetter
|
||||||
|
|
||||||
inc catLineNum
|
inc catLineNum
|
||||||
inc kCatLetter + 1
|
inc kCatLetter + 1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
kCatLetter
|
kCatLetter
|
||||||
!text "[A]",0
|
!text "(A)",0
|
||||||
|
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
; User clicked on the screen, X, Y contain absolute mouse position
|
; User clicked on the screen, X, Y contain absolute mouse position
|
||||||
|
@ -216,14 +216,14 @@ catalog_next
|
||||||
cmp gameCount
|
cmp gameCount
|
||||||
beq @good
|
beq @good
|
||||||
bcc @good
|
bcc @good
|
||||||
jmp SoftBell ; at end of list
|
jmp catalog_previous
|
||||||
@good sta startIndex
|
@good sta startIndex
|
||||||
jmp RefreshCatalog
|
jmp RefreshCatalog
|
||||||
|
|
||||||
catalog_previous
|
catalog_previous
|
||||||
lda startIndex
|
lda startIndex
|
||||||
bne @1
|
bne @1
|
||||||
jmp SoftBell ; at beginning of list
|
jmp catalog_next
|
||||||
@1
|
@1
|
||||||
sec
|
sec
|
||||||
sbc #MAXGAMES ; page back and refresh
|
sbc #MAXGAMES ; page back and refresh
|
||||||
|
@ -274,10 +274,13 @@ kStringCatalogFrame
|
||||||
!text "Catalog",0
|
!text "Catalog",0
|
||||||
|
|
||||||
kStringCatPrevious
|
kStringCatPrevious
|
||||||
!text "<--",0
|
!text "< "
|
||||||
|
!byte 144
|
||||||
|
!text "revious",0
|
||||||
|
|
||||||
kStringCatNext
|
kStringCatNext
|
||||||
!text "-->",0
|
!byte 142
|
||||||
|
!text "ext page >",0
|
||||||
|
|
||||||
kStringCatMain
|
kStringCatMain
|
||||||
!text "<ESC> Main",0
|
!text "Cancel",0
|
||||||
|
|
|
@ -408,8 +408,8 @@ kStringNext
|
||||||
!byte $0E ; 'N' inverse
|
!byte $0E ; 'N' inverse
|
||||||
!text "ext game >",0
|
!text "ext game >",0
|
||||||
kStringCatalog
|
kStringCatalog
|
||||||
!byte $03 ; 'C' inverse
|
!byte $0A ; 'J' inverse
|
||||||
!text "atalog",0
|
!text "ump to",0
|
||||||
kStringOptions
|
kStringOptions
|
||||||
!byte $13 ; 'S' inverse
|
!byte $13 ; 'S' inverse
|
||||||
!text "ettings",0
|
!text "ettings",0
|
||||||
|
|
|
@ -28,8 +28,8 @@ kMainKeys
|
||||||
!byte $E1,ID_BOXART ; a
|
!byte $E1,ID_BOXART ; a
|
||||||
!byte $D6,ID_VERSIONS ; V
|
!byte $D6,ID_VERSIONS ; V
|
||||||
!byte $F6,ID_VERSIONS ; v
|
!byte $F6,ID_VERSIONS ; v
|
||||||
!byte $C3,ID_CATALOG ; C
|
!byte $CA,ID_CATALOG ; J
|
||||||
!byte $E3,ID_CATALOG ; c
|
!byte $EA,ID_CATALOG ; j
|
||||||
!byte $D3,ID_OPTIONS ; S
|
!byte $D3,ID_OPTIONS ; S
|
||||||
!byte $F3,ID_OPTIONS ; s
|
!byte $F3,ID_OPTIONS ; s
|
||||||
!byte $D0,ID_PREVIOUS ; P
|
!byte $D0,ID_PREVIOUS ; P
|
||||||
|
|
Loading…
Reference in New Issue
Block a user