Apple-2-SW/million-perfect-letters
1
0
Fork 0
mirror of https://github.com/a2-4am/million-perfect-letters.git synced 2024-06-02 22:41:33 +00:00
Code Issues Projects Releases Wiki Activity

play sounds after completing words via arrows

Browse Source
This commit is contained in:
4am 2020-05-16 10:07:57 -04:00
parent e5e146e682
commit ac367a7479
2 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/glue.sound.a
View File

@ -93,6 +93,8 @@ InitPuzzleSound
rts
PlayNextChord
; out: preserves A
pha
lda gWorldID
asl
tax
@ -117,7 +119,9 @@ PlayNextChord
lda ($FE), y
tay
pla
jmp PlaySound
jsr PlaySound
pla
rts
PlayFinalChord
; out: preserves A

32
src/ui.play.a
View File

@ -129,28 +129,28 @@ PlayEventReturn
PlayEventUpArrow
ldy gSelectedLogicalColumn
jsr ScrollPuzzleUp
bcs @fail
bcs CantMove
jsr ScrollUp
jsr CheckForTargetWord
bcs @done
jsr MarkTargetWord
jmp CheckForPuzzleComplete
@fail jsr SoftBell
@done lda #kKeepPlaying
rts
jmp CheckAfterArrow
PlayEventDownArrow
ldy gSelectedLogicalColumn
jsr ScrollPuzzleDown
bcs @fail
jsr ScrollDown
jsr CheckForTargetWord
bcs @done
jsr MarkTargetWord
jmp CheckForPuzzleComplete
@fail jsr SoftBell
@done lda #kKeepPlaying
bcc +
CantMove
jsr SoftBell
KeepPlaying
lda #kKeepPlaying
rts
+ jsr ScrollDown
CheckAfterArrow
jsr CheckForTargetWord
bcs KeepPlaying
jsr MarkTargetWord
jsr CheckForPuzzleComplete
bne +
jmp PlayNextChord
+ jmp PlayFinalChord
PlayEventLeftArrow
ldy gSelectedLogicalColumn