From 5fe700cbf1bb8f52be199bc065a29ca7e38056b5 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 14 Mar 2022 23:45:15 -0400
Subject: [PATCH] lemm: automatically start after pause at title screen

---
 games/lemm/TODO         |  9 +++++----
 games/lemm/lemm.s       |  6 +++++-
 games/lemm/wait_a_bit.s | 37 +++++++++++++++++++++++++++++++++++++
 3 files changed, 47 insertions(+), 5 deletions(-)
 create mode 100644 games/lemm/wait_a_bit.s

diff --git a/games/lemm/TODO b/games/lemm/TODO
index f360bffd..908d9413 100644
--- a/games/lemm/TODO
+++ b/games/lemm/TODO
@@ -1,9 +1,10 @@
-
-+ proper animations
++ wait with timeout at loading screen
++ copy last frame of door animation to background
++ only dig if digger selected
 + ability to explode
 + particle effects
-+ click on menu
 + 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
 + level 5
@@ -12,4 +13,4 @@
 + let's go sound
 + fill in some of the ground so we don't get stuck when digging
 + dig off the map, end level
-+ copy last frame of door animation to background
+
diff --git a/games/lemm/lemm.s b/games/lemm/lemm.s
index 90ecae47..d3f7669e 100644
--- a/games/lemm/lemm.s
+++ b/games/lemm/lemm.s
@@ -189,7 +189,10 @@ zurg:
         ; wait for keypress
         ;=======================
 
-	jsr	wait_until_keypress
+;	jsr	wait_until_keypress
+
+	lda	#25
+	jsr	wait_a_bit
 
 
 	;=======================
@@ -275,6 +278,7 @@ load_song_chunk_good:
 	.include	"hgr_hlin.s"
 	.include	"hgr_vlin.s"
 	.include	"update_menu.s"
+	.include	"wait_a_bit.s"
 
 	; pt3 player
 
diff --git a/games/lemm/wait_a_bit.s b/games/lemm/wait_a_bit.s
new file mode 100644
index 00000000..b953ba4a
--- /dev/null
+++ b/games/lemm/wait_a_bit.s
@@ -0,0 +1,37 @@
+	;====================================
+	; wait for keypress or a few seconds
+	;====================================
+	; A is length to wait
+
+wait_a_bit:
+
+	bit	KEYRESET
+	tax
+
+keyloop:
+	lda	#200			; delay a bit
+	jsr	wait
+
+	lda	KEYPRESS
+	bmi	done_keyloop
+
+	dex
+	bne	keyloop
+;	beq	no_escape
+
+done_keyloop:
+
+;	and	#$7f
+;	cmp	#27
+;	bne	no_escape
+
+;	inc	ESC_PRESSED
+;no_escape:
+
+	bit	KEYRESET
+
+	rts
+
+
+
+