From a7f1826f3f1e731bb4a4e4a8a13114afa4c09ef4 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Wed, 20 Mar 2024 01:45:37 -0400
Subject: [PATCH] keen: update rayguns

---
 games/keen/item_level1.s |  8 ++++++++
 games/keen/status_bar.s  | 31 ++++++++++++++++++++++++++++++-
 2 files changed, 38 insertions(+), 1 deletion(-)

diff --git a/games/keen/item_level1.s b/games/keen/item_level1.s
index 0428270b..c94e1c2f 100644
--- a/games/keen/item_level1.s
+++ b/games/keen/item_level1.s
@@ -31,6 +31,14 @@ check_item:
 	jmp	done_item_pickup
 
 get_laser_gun:
+	lda	RAYGUNS
+	clc
+	sed
+	adc	#$05
+	sta	RAYGUNS
+	cld
+
+	jmp	done_item_pickup
 
 	; keycards go here too...
 get_keycard:
diff --git a/games/keen/status_bar.s b/games/keen/status_bar.s
index 9dda2c6c..3ed41b38 100644
--- a/games/keen/status_bar.s
+++ b/games/keen/status_bar.s
@@ -26,6 +26,35 @@ inc_score:
 
 	rts
 
+
+	;===========================
+	; update rayguns
+	;===========================
+	; remove leading zeros
+	; leftmost is score_string+26
+update_rayguns:
+
+update_raygun_l:
+	lda	RAYGUNS
+	lsr
+	lsr
+	lsr
+	lsr
+
+	beq	update_raygun_r
+
+	ora	#$b0		; 0 -> $b0
+	sta	score_string+26
+
+update_raygun_r:
+	lda	RAYGUNS
+	and	#$f
+
+	ora	#$b0		; 0 -> $b0
+	sta	score_string+27
+
+	rts
+
 	;===========================
 	; update score
 	;===========================
@@ -181,7 +210,7 @@ done_blue_key:
 draw_status_bar:
 
 	jsr	update_score
-
+	jsr	update_rayguns
 
 	bit	TEXTGR			; split graphics/text