From 4e64d7e9b901d36791715a1894fc8279fae58c6a Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 6 Apr 2024 00:10:26 -0400
Subject: [PATCH] keen: animate end of level

---
 games/keen/level1.s         | 56 +++++++++++++++++++++++++++++++++++--
 games/keen/sprites/Makefile |  2 +-
 games/keen/zp.inc           |  2 +-
 3 files changed, 55 insertions(+), 5 deletions(-)

diff --git a/games/keen/level1.s b/games/keen/level1.s
index cf6de56e..4e1aae76 100644
--- a/games/keen/level1.s
+++ b/games/keen/level1.s
@@ -184,12 +184,62 @@ done_with_keen:
 
 	; got here, touched enemy
 
+
+	;============================
+	; end animation
+	;============================
+
+	lda	#1
+	sta	PLAY_END_SOUND
+
+	inc	KEEN_TILEY		; move down
+
+	sec
+        lda     KEEN_TILEX
+        sbc     TILEMAP_X
+        asl
+        clc
+        adc     KEEN_X
+        sta     XPOS
+
+        sec
+        lda     KEEN_TILEY
+        sbc     TILEMAP_Y
+        asl
+        asl
+        clc
+        adc     KEEN_Y
+        sta     YPOS
+
+level_end_animation:
+	jsr	draw_tilemap
+
+	ldx	#<keen_sprite_squish
+	lda	#>keen_sprite_squish
+	stx	INL
+	sta	INH
+	jsr	put_sprite_crop
+
+	jsr	page_flip
+
+	lda	PLAY_END_SOUND
+	beq	skip_end_sound
+
 	ldy	#SFX_KEENDIESND
 	jsr	play_sfx
 
-	; TODO: ANIMATION
-	; keen turns to head, flies up screen
-	; play game over music if out of keens
+	dec	PLAY_END_SOUND
+skip_end_sound:
+
+
+	lda	#100
+	jsr	WAIT
+
+	dec	YPOS
+	dec	YPOS
+
+	bpl	level_end_animation
+
 
 	dec	KEENS
 	bpl	level1_levelover
diff --git a/games/keen/sprites/Makefile b/games/keen/sprites/Makefile
index 7ed16505..c0050982 100644
--- a/games/keen/sprites/Makefile
+++ b/games/keen/sprites/Makefile
@@ -28,7 +28,7 @@ keen_sprites.inc:	keen_sprites.png
 	$(PNG2SPRITES) keen_sprites.png yorp_sprite_walking_left  16 22 4 8 >>  keen_sprites.inc
 	$(PNG2SPRITES) keen_sprites.png yorp_sprite_walking_right 11 22 4 8 >>  keen_sprites.inc
 	$(PNG2SPRITES) keen_sprites.png yorp_sprite_standing      11 32 4 8 >>  keen_sprites.inc
-	$(PNG2SPRITES) keen_sprites.png keep_sprite_squish        16 32 4 8 >>  keen_sprites.inc
+	$(PNG2SPRITES) keen_sprites.png keen_sprite_squish        16 32 4 8 >>  keen_sprites.inc
 
 
 ####
diff --git a/games/keen/zp.inc b/games/keen/zp.inc
index eb916222..2fe2057c 100644
--- a/games/keen/zp.inc
+++ b/games/keen/zp.inc
@@ -139,7 +139,7 @@ TILEMAP_OFFSET		= $9F
 MARS_X			= $A0
 MARS_Y			= $A1
 INITIAL_SOUND		= $A2
-
+PLAY_END_SOUND		= $A3
 
 
 WHICH_SLOT	=	$DA