From c0ec2dfe0582d424896f9fa00397f9741d089747 Mon Sep 17 00:00:00 2001
From: alpine9000 <alex.g.brown@gmail.com>
Date: Sun, 24 Apr 2016 12:36:10 +1000
Subject: [PATCH] cycle player sprites

---
 028.bs/game1.s  |  1 +
 028.bs/player.s | 22 +++++++++++++++++-----
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/028.bs/game1.s b/028.bs/game1.s
index 792e4f3..6a78608 100644
--- a/028.bs/game1.s
+++ b/028.bs/game1.s
@@ -340,6 +340,7 @@ RenderForegroundTile:
 	
 
 PostMissedTile:
+	jsr 	SelectNextPlayerSprite
 	bra	Reset
 
 
diff --git a/028.bs/player.s b/028.bs/player.s
index 27a6bbf..97a5c0a 100644
--- a/028.bs/player.s
+++ b/028.bs/player.s
@@ -12,7 +12,8 @@
 	xdef spriteY
 	xdef UpdatePlayerFallingAnimation
 	xdef InstallPlayerColorPalette
-
+	xdef SelectNextPlayerSprite
+	
 PLAYER_INSTALL_COLOR_PALETTE	equ 0
 PLAYER_SPRITE_DATA		equ 4
 
@@ -196,7 +197,7 @@ InstallPlayerColorPalette:
 	jsr	(a1)
 	rts
 	
-InstallPlayerColorPalette:	
+InstallPigColorPalette:	
 	include "out/sprite_pig-0-palette.s"
 	rts
 
@@ -204,8 +205,19 @@ InstallRobotColorPalette:
 	include "out/sprite_robot-0-palette.s"
 	rts		
 
+SelectNextPlayerSprite:
+	cmp.l	#pigPlayerSpriteConfig,playerSpriteConfig
+	bne	.s1
+	move.l	#robotPlayerSpriteConfig,playerSpriteConfig
+	bra	.done
+.s1:
+	move.l	#pigPlayerSpriteConfig,playerSpriteConfig
+.done:
+	bsr	InstallPlayerColorPalette	
+	rts
+	
 pigPlayerSpriteConfig:
-	dc.l	InstallPlayerColorPalette
+	dc.l	InstallPigColorPalette
 	dc.l	spritePig
 
 robotPlayerSpriteConfig:
@@ -213,8 +225,8 @@ robotPlayerSpriteConfig:
 	dc.l	spriteRobot	
 
 playerSpriteConfig:
-	dc.l	robotPlayerSpriteConfig
-
+	dc.l	pigPlayerSpriteConfig
+	
 	include "sprite_data.i"
 
 spritePlayerFallingAnimation: