mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 17:29:28 +00:00
ending: add sound effect
not very good
This commit is contained in:
parent
efa1b996af
commit
a99db03185
|
@ -34,6 +34,15 @@ ending:
|
||||||
|
|
||||||
; FIXME: only if mockingboard enabled
|
; FIXME: only if mockingboard enabled
|
||||||
|
|
||||||
|
lda #$09 ; don't end after 4
|
||||||
|
sta PT3_LOC+$C9+$4
|
||||||
|
|
||||||
|
; 2??
|
||||||
|
lda #$3 ; set LOOP to 2
|
||||||
|
sta PT3_LOC+$66
|
||||||
|
|
||||||
|
jsr pt3_init_song
|
||||||
|
|
||||||
cli
|
cli
|
||||||
|
|
||||||
|
|
||||||
|
@ -101,6 +110,62 @@ boat:
|
||||||
lda #0
|
lda #0
|
||||||
sta BABY_COUNT
|
sta BABY_COUNT
|
||||||
boat_loop:
|
boat_loop:
|
||||||
|
|
||||||
|
; play sound effect
|
||||||
|
lda BABY_COUNT
|
||||||
|
cmp #7
|
||||||
|
bcc no_sound
|
||||||
|
cmp #11
|
||||||
|
bcs no_sound
|
||||||
|
|
||||||
|
cmp #10
|
||||||
|
beq bloop
|
||||||
|
|
||||||
|
click:
|
||||||
|
lda #NOTE_C3
|
||||||
|
sta speaker_frequency
|
||||||
|
lda #6
|
||||||
|
sta speaker_duration
|
||||||
|
jsr speaker_beep
|
||||||
|
jmp no_sound
|
||||||
|
|
||||||
|
bloop:
|
||||||
|
lda #10
|
||||||
|
sta speaker_duration
|
||||||
|
lda #NOTE_C4
|
||||||
|
sta speaker_frequency
|
||||||
|
jsr speaker_beep
|
||||||
|
|
||||||
|
lda #10
|
||||||
|
sta speaker_duration
|
||||||
|
lda #NOTE_D4
|
||||||
|
sta speaker_frequency
|
||||||
|
jsr speaker_beep
|
||||||
|
|
||||||
|
lda #10
|
||||||
|
sta speaker_duration
|
||||||
|
lda #NOTE_E4
|
||||||
|
sta speaker_frequency
|
||||||
|
jsr speaker_beep
|
||||||
|
|
||||||
|
lda #10
|
||||||
|
sta speaker_duration
|
||||||
|
lda #NOTE_D4
|
||||||
|
sta speaker_frequency
|
||||||
|
jsr speaker_beep
|
||||||
|
|
||||||
|
lda #10
|
||||||
|
sta speaker_duration
|
||||||
|
lda #NOTE_C4
|
||||||
|
sta speaker_frequency
|
||||||
|
jsr speaker_beep
|
||||||
|
jmp no_sound
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
no_sound:
|
||||||
|
|
||||||
|
|
||||||
ldy BABY_COUNT
|
ldy BABY_COUNT
|
||||||
lda boat_progress_l,Y
|
lda boat_progress_l,Y
|
||||||
sta INL
|
sta INL
|
||||||
|
@ -495,6 +560,8 @@ peasant_text:
|
||||||
|
|
||||||
.include "wait_a_bit.s"
|
.include "wait_a_bit.s"
|
||||||
|
|
||||||
|
.include "speaker_beeps.s"
|
||||||
|
|
||||||
.include "graphics_end/ending_graphics.inc"
|
.include "graphics_end/ending_graphics.inc"
|
||||||
|
|
||||||
.include "sprites/ending_sprites.inc"
|
.include "sprites/ending_sprites.inc"
|
||||||
|
|
68
games/peasant/speaker_beeps.s
Normal file
68
games/peasant/speaker_beeps.s
Normal file
|
@ -0,0 +1,68 @@
|
||||||
|
; based on code from here
|
||||||
|
; http://eightbitsoundandfury.ld8.org/programming.html
|
||||||
|
|
||||||
|
; A,X,Y trashed
|
||||||
|
; duration also trashed
|
||||||
|
|
||||||
|
NOTE_C3 = 255
|
||||||
|
NOTE_CSHARP3 = 241
|
||||||
|
NOTE_D3 = 227
|
||||||
|
NOTE_DSHARP3 = 214
|
||||||
|
NOTE_E3 = 202
|
||||||
|
NOTE_F3 = 191
|
||||||
|
NOTE_FSHARP3 = 180
|
||||||
|
NOTE_G3 = 170
|
||||||
|
NOTE_GSHARP3 = 161
|
||||||
|
NOTE_A3 = 152
|
||||||
|
NOTE_ASHARP3 = 143
|
||||||
|
NOTE_B3 = 135
|
||||||
|
|
||||||
|
NOTE_C4 = 128
|
||||||
|
NOTE_CSHARP4 = 121
|
||||||
|
NOTE_D4 = 114
|
||||||
|
NOTE_DSHARP4 = 108
|
||||||
|
NOTE_E4 = 102
|
||||||
|
NOTE_F4 = 96
|
||||||
|
NOTE_FSHARP4 = 91
|
||||||
|
NOTE_G4 = 85
|
||||||
|
NOTE_GSHARP4 = 81
|
||||||
|
NOTE_A4 = 76
|
||||||
|
NOTE_ASHARP4 = 72
|
||||||
|
NOTE_B4 = 68
|
||||||
|
|
||||||
|
NOTE_C5 = 64
|
||||||
|
NOTE_CSHARP5 = 60
|
||||||
|
NOTE_D5 = 57
|
||||||
|
NOTE_DSHARP5 = 54
|
||||||
|
NOTE_E5 = 51
|
||||||
|
NOTE_F5 = 48
|
||||||
|
NOTE_FSHARP5 = 45
|
||||||
|
NOTE_G5 = 43
|
||||||
|
NOTE_GSHARP5 = 40
|
||||||
|
NOTE_A5 = 38
|
||||||
|
NOTE_ASHARP5 = 36
|
||||||
|
NOTE_B5 = 34
|
||||||
|
|
||||||
|
|
||||||
|
speaker_beep:
|
||||||
|
ldy #20
|
||||||
|
speaker_tone:
|
||||||
|
lda $C030 ; click speaker
|
||||||
|
speaker_loop:
|
||||||
|
dey ; y never set?
|
||||||
|
bne slabel1 ; duration roughly 256*?
|
||||||
|
dec speaker_duration ; (Duration)
|
||||||
|
beq done_tone
|
||||||
|
slabel1:
|
||||||
|
dex
|
||||||
|
bne speaker_loop
|
||||||
|
ldx speaker_frequency ; (Frequency)
|
||||||
|
jmp speaker_tone
|
||||||
|
done_tone:
|
||||||
|
rts
|
||||||
|
|
||||||
|
speaker_duration:
|
||||||
|
.byte $00
|
||||||
|
speaker_frequency:
|
||||||
|
.byte $00
|
||||||
|
|
Loading…
Reference in New Issue
Block a user