lemm: smooth out walking animation

games/lemm/draw_lemming.s

@@ -1,4 +1,8 @@
-
+	;==================
+	;==================
+	; erase lemming
+	;==================
+	;==================
 erase_lemming:
 	ldy	#0
 
@@ -10,7 +14,7 @@ erase_lemming:
 	sbc	#3
 	sta	SAVED_Y1
 	clc
-	adc	#11
+	adc	#12
 	sta	SAVED_Y2
 
 	lda	lemming_x,Y
@@ -21,7 +25,11 @@ erase_lemming:
 done_erase_lemming:
 	rts
 
-
+	;=========================
+	;=========================
+	; draw lemming
+	;=========================
+	;=========================
 draw_lemming:
 	ldy	#0
 
@@ -124,7 +132,7 @@ draw_digging_sprite:
 draw_common:
 	sta	YPOS
 
-	jsr	hgr_draw_sprite
+	jsr	hgr_draw_sprite_autoshift
 
 done_draw_lemming:
 	rts

games/lemm/move_lemming.s

@@ -25,13 +25,23 @@ really_move_lemming:
 	beq	do_lemming_digging
 	jmp	done_move_lemming
 
+
+	;=========================
+	; falling
+	;=========================
+
 do_lemming_falling:
+	inc	lemming_y		; fall speed
 	inc	lemming_y
 
 	jsr	collision_check_ground
 
 	jmp	done_move_lemming
 
+	;=========================
+	; walking
+	;=========================
+
 do_lemming_walking:
 
 
@@ -49,6 +59,20 @@ do_lemming_walking:
         lda     hposn_low,Y
         sta     GBASL
 
+	; increment
+	; only do this every 4th frame?
+
+	lda	lemming_frame
+	and	#$3
+	beq	walking_increment
+
+	lda	lemming_x
+	jmp	walking_done
+
+
+walking_increment:
+	; actually incrememt
+
 	clc
 	lda	lemming_x
 	adc	lemming_direction
@@ -60,6 +84,7 @@ do_lemming_walking:
 
 walking_yes_wall:
 
+	; reverse direction
 	lda	lemming_direction
 	eor	#$ff
 	clc