From 8824603ec26afe3f3013fd4afda8b6c3cda67f68 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 20 Mar 2022 22:43:15 -0400
Subject: [PATCH] lemm: work on lemming explosion taking out part of background

---
 games/lemm/TODO           |  4 +---
 games/lemm/draw_lemming.s | 24 +++++++++++++++++-------
 2 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/games/lemm/TODO b/games/lemm/TODO
index bc1e3f18..cff591c2 100644
--- a/games/lemm/TODO
+++ b/games/lemm/TODO
@@ -1,7 +1,5 @@
 + more than 1 lemming
-+ click sound effect?  select job, click on lemming,
-	lemming explode, lemming exit
-
++ draw roughly circular bg destruction when lemming explodes
 + wait a second after last lemming gone to exit
 + update the "in" %
 + dig off the map, end level
diff --git a/games/lemm/draw_lemming.s b/games/lemm/draw_lemming.s
index 0ce77ee6..b134c512 100644
--- a/games/lemm/draw_lemming.s
+++ b/games/lemm/draw_lemming.s
@@ -343,21 +343,31 @@ draw_explosion:
 
 	jsr	hgr_hlin_page_toggle		; toggle to page2
 
+	ldx	#0
+	sta	HGR_COLOR
+
 	; line from (x,a) to (x+y,a)
-	ldx	lemming_x
-	dex
-	ldy	#3
+	lda	lemming_x
+	asl
+	adc	lemming_x
+	asl
+	adc	lemming_x		; multiply by 7
+	tax
+	pha
+	ldy	#7
+
 	lda	lemming_y
 	clc
-	adc	#11
+	adc	#9
 	jsr	hgr_hlin
 
 	; line from (x,a) to (x+y,a)
-	ldx	lemming_x
-	ldy	#1
+	pla
+	tax
+	ldy	#7
 	lda	lemming_y
 	clc
-	adc	#12
+	adc	#10
 	jsr	hgr_hlin