From 16176848fcb95b5fef44730d892046780703454b Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 12 Mar 2022 22:13:05 -0500
Subject: [PATCH] lemm: walking sprites

---
 games/lemm/draw_lemming.s    | 66 ++++++++++++++++++++++++++++++++++--
 games/lemm/graphics/Makefile | 17 ++++++++++
 2 files changed, 81 insertions(+), 2 deletions(-)

diff --git a/games/lemm/draw_lemming.s b/games/lemm/draw_lemming.s
index 169985ae..ce30e7bc 100644
--- a/games/lemm/draw_lemming.s
+++ b/games/lemm/draw_lemming.s
@@ -6,9 +6,11 @@ erase_lemming:
 	beq	done_erase_lemming
 
 	lda	lemming_y,Y
+	sec
+	sbc	#3
 	sta	SAVED_Y1
 	clc
-	adc	#8
+	adc	#11
 	sta	SAVED_Y2
 
 	lda	lemming_x,Y
@@ -24,12 +26,48 @@ draw_lemming:
 	ldy	#0
 
 	lda	lemming_out,Y
-	beq	done_draw_lemming
+	bne	do_draw_lemming
 
+	jmp	done_draw_lemming
+
+do_draw_lemming:
 	lda	lemming_status,Y
 	cmp	#LEMMING_DIGGING
 	beq	draw_digging_sprite
+	cmp	#LEMMING_FALLING
+	beq	draw_falling_sprite
 
+draw_walking_sprite:
+
+	lda	lemming_frame,Y
+	and	#$7
+	tax
+
+	lda	lemming_direction,Y
+	bpl	draw_walking_right
+
+draw_walking_left:
+	lda	lwalk_sprite_l,X
+	sta	INL
+	lda	lwalk_sprite_h,X
+	jmp	draw_walking_common
+
+draw_walking_right:
+	lda	rwalk_sprite_l,X
+	sta	INL
+	lda	rwalk_sprite_h,X
+
+draw_walking_common:
+	sta	INH
+
+	ldx	lemming_x,Y
+        stx     XPOS
+	lda	lemming_y,Y
+	jmp	draw_common
+
+	;====================
+	; draw falling
+	;====================
 
 draw_falling_sprite:
 
@@ -118,3 +156,27 @@ dig_sprite_h:
 	.byte >lemming_dig5_sprite,>lemming_dig6_sprite
 	.byte >lemming_dig7_sprite,>lemming_dig8_sprite
 
+rwalk_sprite_l:
+	.byte <lemming_rwalk1_sprite,<lemming_rwalk2_sprite
+	.byte <lemming_rwalk3_sprite,<lemming_rwalk4_sprite
+	.byte <lemming_rwalk5_sprite,<lemming_rwalk6_sprite
+	.byte <lemming_rwalk7_sprite,<lemming_rwalk8_sprite
+rwalk_sprite_h:
+	.byte >lemming_rwalk1_sprite,>lemming_rwalk2_sprite
+	.byte >lemming_rwalk3_sprite,>lemming_rwalk4_sprite
+	.byte >lemming_rwalk5_sprite,>lemming_rwalk6_sprite
+	.byte >lemming_rwalk7_sprite,>lemming_rwalk8_sprite
+
+lwalk_sprite_l:
+	.byte <lemming_lwalk1_sprite,<lemming_lwalk2_sprite
+	.byte <lemming_lwalk3_sprite,<lemming_lwalk4_sprite
+	.byte <lemming_lwalk5_sprite,<lemming_lwalk6_sprite
+	.byte <lemming_lwalk7_sprite,<lemming_lwalk8_sprite
+lwalk_sprite_h:
+	.byte >lemming_lwalk1_sprite,>lemming_lwalk2_sprite
+	.byte >lemming_lwalk3_sprite,>lemming_lwalk4_sprite
+	.byte >lemming_lwalk5_sprite,>lemming_lwalk6_sprite
+	.byte >lemming_lwalk7_sprite,>lemming_lwalk8_sprite
+
+
+
diff --git a/games/lemm/graphics/Makefile b/games/lemm/graphics/Makefile
index 3fb7e3d6..291b95e4 100644
--- a/games/lemm/graphics/Makefile
+++ b/games/lemm/graphics/Makefile
@@ -65,6 +65,23 @@ sprites.inc:	sprites.png
 	$(HGR_SPRITE) -s -l lemming_dig6_sprite sprites.png  84 142  90 153 >> sprites.inc
 	$(HGR_SPRITE) -s -l lemming_dig7_sprite sprites.png  98 142 104 153 >> sprites.inc
 	$(HGR_SPRITE) -s -l lemming_dig8_sprite sprites.png 112 142 118 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk1_sprite sprites.png 140 159 146 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk2_sprite sprites.png 154 159 160 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk3_sprite sprites.png 168 159 174 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk4_sprite sprites.png 182 159 188 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk5_sprite sprites.png 196 159 202 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk6_sprite sprites.png 210 159 216 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk7_sprite sprites.png 224 159 230 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_lwalk8_sprite sprites.png 238 159 244 169 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk1_sprite sprites.png 140 143 146 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk2_sprite sprites.png 154 143 160 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk3_sprite sprites.png 168 143 174 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk4_sprite sprites.png 182 143 188 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk5_sprite sprites.png 196 143 202 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk6_sprite sprites.png 210 143 216 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk7_sprite sprites.png 224 143 230 153 >> sprites.inc
+	$(HGR_SPRITE) -s -l lemming_rwalk8_sprite sprites.png 238 143 244 153 >> sprites.inc
+
 
 
 ###