keen: animate end of level

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

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
 
 
 ####

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