lemm: automatically start after pause at title screen

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
+

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
 

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
+
+
+
+