lemm: one-way digging on Level9

games/lemm/TODO

@@ -1,7 +1,6 @@
-Bubbles on L4
-Hook up exit L5
-Flame on L?
-Spinning thigns on L?
+Spinning things on L7
+one-way wall L9
+Improve explosions
 
 Change wait delay on levels with bg animations?
 Have 20 lemmings on some levels?
@@ -22,5 +21,3 @@ Only scan for Maximum Lemming number rather than maximum possible number?
 + offset the frames when nuking so not simultaneous
 + on explosion, start with invisible 6 so we always get a full 5s
 
-+ green flame for ice level?
-

games/lemm/keyboard.s

@@ -451,6 +451,9 @@ done_make_builder:
 	;========================
 	; make basher
 	;========================
+	; note on Level 9 we have one-way blocks
+	; cheat and just only allow digging when facing left on L9
+
 make_basher:
 	lda	BASHER_COUNT		; only if we have some left
 	beq	done_make_basher
@@ -460,9 +463,19 @@ make_basher:
 	cmp	#LEMMING_WALKING
 	bne	done_make_basher
 
+	; see if level #9
+	lda	WHICH_LEVEL
+	cmp	#9
+	bne	not_oneway
+
+	lda	lemming_direction,Y
+	bpl	couldnt_bash		; on l9 only if facing left
+
+not_oneway:
 	lda	#LEMMING_BASHING
 	sta	lemming_status,Y
 
+couldnt_bash:
 	dec	BASHER_COUNT
 	ldx	#5
 	jsr	update_remaining