keen: can get oracle message

games/keen/hello.bas

@@ -1,5 +1,5 @@
 5 HOME
-10 PRINT "LOADING KEEN V0.04"
+10 PRINT "LOADING KEEN V0.06"
 20 PRINT "  KEEN1 PROOF-OF-CONCEPT DEMAKE"
 30 PRINT:PRINT
 70 PRINT "BASED ON KEEN1 BY ID"

games/keen/level1.s

@@ -277,3 +277,4 @@ level1_levelover:
 level1_data_zx02:
 	.incbin		"maps/level1_map.zx02"
 
+oracle_message:

games/keen/level1_items.s

@@ -123,6 +123,9 @@ check_item:
 	lda	(INL),Y
 
 do_check_item:
+	cmp	#26
+	beq	was_oracle
+
 	cmp	#27
 	bcc	done_check_item		; not an item
 	cmp	#32
@@ -197,6 +200,37 @@ at_door:
 done_check_door:
 	rts
 
+was_oracle:
+	lda	ORACLE_SPOKEN
+	bne	done_oracle
+
+	inc	ORACLE_SPOKEN
+
+	bit	TEXTGR
+
+	jsr	clear_bottom
+
+	lda	#<oracle_message
+	sta	OUTL
+	lda	#>oracle_message
+	sta	OUTH
+
+	jsr	move_and_print
+	jsr	move_and_print
+	jsr	move_and_print
+
+	jsr	page_flip
+
+wait_oracle:
+	lda     KEYPRESS
+	bpl     wait_oracle
+	bit     KEYRESET
+
+	bit	FULLGR
+
+done_oracle:
+
+	rts
 
 
 	;=============================

games/keen/level2.s

@@ -39,6 +39,7 @@ level2_start:
 	sta	KEEN_FALLING
 	sta	KEEN_SHOOTING
 	sta	KEYCARDS
+	sta	ORACLE_SPOKEN
 
 	; debug
 
@@ -278,3 +279,9 @@ level1_levelover:
 level1_data_zx02:
 	.incbin		"maps/level2_map.zx02"
 
+
+oracle_message:
+	;      012345678901234567890123456789012345678
+	.byte 2,21,"YOU HEAR IN YOUR MIND:",0
+	.byte 2,22,"IT IS TOO BAD THAT YOU CANNOT READ",0
+	.byte 2,23,"THE STANDARD GALACTIC ALPHABET, HUMAN",0

games/keen/zp.inc

@@ -144,6 +144,7 @@ INITIAL_SOUND		= $A4
 PLAY_END_SOUND		= $A5
 APPLEII_MODEL		= $A6
 CURRENT_LEVEL		= $A7
+ORACLE_SPOKEN		= $A8
 
 WHICH_SLOT	=	$DA
 JS_BUTTON_STATE	=	$DB