Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2024-06-26 15:29:31 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2018-04-11 19:02:44 -04:00
parent 385c2fa55f
commit accfbd3cc3
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ui.versions.a
View File

@ -25,7 +25,7 @@ ID_VERSIONS_CANCEL = 11
gVersionsViewInUse gVersionsViewInUse
!byte 1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0 !byte 1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0
; action keys for options screen ; action keys for versions screen
.keys .keys
!byte $CF,ID_VERSIONS_OK ; O !byte $CF,ID_VERSIONS_OK ; O
!byte $EF,ID_VERSIONS_OK ; o !byte $EF,ID_VERSIONS_OK ; o
@ -106,8 +106,8 @@ VersionsDialog
txa txa
asl asl
tax tax
lda kVersions,x lda kViewVersionsArray,x
ldy kVersions+1,x ldy kViewVersionsArray+1,x
+STAY + +STAY +
+STAY SRC +STAY SRC
txa txa
@ -124,7 +124,7 @@ VersionsDialog
cpx #$FD ; SMC cpx #$FD ; SMC
bne .createRadioLoop bne .createRadioLoop
jsr okvs_get ; get current version of current game and check appropriate radio button jsr okvs_get ; get current version and check appropriate radio button
!word gGlobalPrefsStore !word gGlobalPrefsStore
!word kLastPlayed !word kLastPlayed
+STAY + +STAY +
@ -157,11 +157,11 @@ VersionsDialog
lda #ID_VERSIONS_FRAME lda #ID_VERSIONS_FRAME
jsr WeeGUI jsr WeeGUI
lda #1 lda #1 ; WeeGUI radio button labels are limited to 15 characters, so we have
sta .vtab sta .vtab ; just the hotkeys (1-9) in the radio button label then print the
ldx #0 ldx #0 ; longer version string separately
.printLabelsLoop .printLabelsLoop
phx phx ; X = index of radio button (0-based)
stx + stx +
jsr okvs_nth jsr okvs_nth
!word gVersionsStore !word gVersionsStore
@ -173,7 +173,7 @@ VersionsDialog
ldx #50 ldx #50
jsr CreateNullTerminatedString jsr CreateNullTerminatedString
jsr PrintAt jsr PrintAt
!byte 7 !byte 7 ; htab (constant)
.vtab !byte $FD ; SMC .vtab !byte $FD ; SMC
!word kNullTerminatedBuffer !word kNullTerminatedBuffer
inc .vtab inc .vtab
@ -181,7 +181,7 @@ VersionsDialog
plx plx
inx inx
cpx .numVersions cpx .numVersions
bne .printLabelsLoop bcc .printLabelsLoop
bit $C010 ; clear keyboard strobe bit $C010 ; clear keyboard strobe
ldx #WGClearPendingClick ; clear WeeGUI mouse strobe ldx #WGClearPendingClick ; clear WeeGUI mouse strobe
@ -318,7 +318,7 @@ kViewVersionsCancel
!word callback_versions_cancel ; callback !word callback_versions_cancel ; callback
!word kStringCancel ; caption !word kStringCancel ; caption
kVersions kViewVersionsArray
!word kViewVersions1 !word kViewVersions1
!word kViewVersions2 !word kViewVersions2
!word kViewVersions3 !word kViewVersions3