From 53710ccf0bc78e239afab872c39d0dc3174079c1 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Tue, 15 Mar 2022 00:02:46 -0400
Subject: [PATCH] lemm: draw door opening to both pages

---
 games/lemm/TODO           |  7 +++----
 games/lemm/draw_door.s    | 17 ++++++++++++++++-
 games/lemm/hgr_sprite.s   |  6 +++++-
 games/lemm/move_lemming.s |  3 ++-
 4 files changed, 26 insertions(+), 7 deletions(-)

diff --git a/games/lemm/TODO b/games/lemm/TODO
index 908d9413..d57f5bec 100644
--- a/games/lemm/TODO
+++ b/games/lemm/TODO
@@ -1,16 +1,15 @@
-+ wait with timeout at loading screen
-+ copy last frame of door animation to background
 + only dig if digger selected
++ ability to walk up hills
 + ability to explode
 + particle effects
 + wait a second after last lemming gone to exit
 + update the "in" %
 + proper check for successful vs not end of level
-+ ability to walk up hills
++ dig off the map, end level
 + level 5
   -- door animation
   -- music
 + let's go sound
 + fill in some of the ground so we don't get stuck when digging
-+ dig off the map, end level
+
 
diff --git a/games/lemm/draw_door.s b/games/lemm/draw_door.s
index 7a296656..d1315cdc 100644
--- a/games/lemm/draw_door.s
+++ b/games/lemm/draw_door.s
@@ -1,4 +1,6 @@
-
+	;=================
+	; draw the door
+	;=================
 
 draw_door:
 
@@ -19,6 +21,19 @@ draw_door:
 
 	jsr	hgr_draw_sprite
 
+	jsr	hgr_sprite_page_toggle
+
+	ldx	#9		; 63
+        stx     XPOS
+	lda	#36
+	sta	YPOS
+
+	jsr	hgr_draw_sprite
+
+	jsr	hgr_sprite_page_toggle
+
+
+
 	lda	FRAMEL
 	cmp	#7
 	bne	not_door_done
diff --git a/games/lemm/hgr_sprite.s b/games/lemm/hgr_sprite.s
index 8e2d91c0..04f8b230 100644
--- a/games/lemm/hgr_sprite.s
+++ b/games/lemm/hgr_sprite.s
@@ -85,7 +85,11 @@ sprite_ysize_smc:
 	rts
 
 
-
+hgr_sprite_page_toggle:
+	lda	hgr_sprite_page_smc+1
+	eor	#$60
+	sta	hgr_sprite_page_smc+1
+	rts
 
 	;===========================================
 	; hgr draw sprite (only at 7-bit boundaries)
diff --git a/games/lemm/move_lemming.s b/games/lemm/move_lemming.s
index 2fd15733..1f765026 100644
--- a/games/lemm/move_lemming.s
+++ b/games/lemm/move_lemming.s
@@ -90,7 +90,6 @@ walking_yes_wall:
 	clc
 	adc	#1
 	sta	lemming_direction
-
 	lda	lemming_x
 
 walking_no_wall:
@@ -224,6 +223,8 @@ collision_check_ground:
 	and	#$7f
 	beq	ground_falling
 ground_walking:
+;	lda	#0
+;	sta	lemming_frame
 	lda	#LEMMING_WALKING
 	jmp	done_check_ground
 ground_falling: