From 7ae0b31cbdcf3d22d3359721b12e2b5bfbd936a4 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 12 Aug 2021 21:01:05 -0400
Subject: [PATCH] peasant: clean up music

---
 games/peasant/knight.s  |  5 ++++-
 games/peasant/peasant.s | 20 ++++++++++++++++++++
 games/peasant/title.s   |  3 +++
 3 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/games/peasant/knight.s b/games/peasant/knight.s
index e700a739..f915bf93 100644
--- a/games/peasant/knight.s
+++ b/games/peasant/knight.s
@@ -113,7 +113,10 @@ done_knight_action:
 
 done_knight:
 
-	; OK stuff goes on here
+	; after OK stuff goes on here
+
+	sei	; turn off music
+	jsr	pt3_clear_ay_both
 
 	jsr	draw_peasant
 
diff --git a/games/peasant/peasant.s b/games/peasant/peasant.s
index fe8e8dfc..f77e12be 100644
--- a/games/peasant/peasant.s
+++ b/games/peasant/peasant.s
@@ -18,6 +18,26 @@ peasant_quest:
 				; Y=0, A=0 after this called
 
 
+	;*******************************
+	; restart music, only drum loop
+	;******************************
+
+	; hack! modify the PT3 file to ignore the latter half
+
+	PT3_LOC=$E00+$E00
+	pt3_init_song=$e00+$A56
+	pt3_clear_ay_both=$e00+$CDF
+
+	lda	#$ff			; end after 4 patterns
+	sta	PT3_LOC+$C9+$4
+
+	lda	#$0			; set LOOP to 0
+	sta	PT3_LOC+$66
+
+	jsr	pt3_init_song
+
+	cli
+
 	;************************
 	; Cottage
 	;************************
diff --git a/games/peasant/title.s b/games/peasant/title.s
index 357f4eeb..f66d438d 100644
--- a/games/peasant/title.s
+++ b/games/peasant/title.s
@@ -107,8 +107,11 @@ do_title:
 
 	jsr	wait_until_keypress
 
+
 	sei	; disable music
 
+	jsr	clear_ay_both
+
 	;************************
 	; Tips
 	;************************