ending: add sound effect

not very good

games/peasant/ending.s

@@ -34,6 +34,15 @@ ending:
 
 	; 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
 
 
@@ -101,6 +110,62 @@ boat:
 	lda	#0
 	sta	BABY_COUNT
 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
 	lda	boat_progress_l,Y
 	sta	INL
@@ -495,6 +560,8 @@ peasant_text:
 
 .include "wait_a_bit.s"
 
+.include "speaker_beeps.s"
+
 .include "graphics_end/ending_graphics.inc"
 
 .include "sprites/ending_sprites.inc"

games/peasant/speaker_beeps.s

@@ -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
+