mist_hgr: more of opening

games/mist_hgr/TODO

@@ -1,5 +1,7 @@
 HIRES TODO:
 
+lowercase test on intro (auto-uppercase if on a II+?) patch at startup
+
 turn arrows
 
 more graphics of course

games/mist_hgr/graphics_title/Makefile

@@ -14,7 +14,11 @@ title_graphics.inc:	\
 	m_title_m.lzsa m_title_y.lzsa m_title_s.lzsa m_title_t.lzsa \
 	fissure_stars.lzsa fissure_crescent.lzsa fissure.lzsa fissure2.lzsa \
 	fissure_book_small.lzsa fissure_book_big.lzsa \
-	m_link_book.lzsa book_closed_n.lzsa book_ground_n.lzsa
+	m_link_book.lzsa book_closed_n.lzsa book_ground_n.lzsa \
+	starfield.lzsa \
+	falling_left_top.lzsa falling_left_center.lzsa falling_left_bottom.lzsa \
+	falling_right_top.lzsa falling_right_bottom.lzsa \
+	erase_left_bottom.lzsa erase_right_bottom.lzsa
 	echo "cyan1_lzsa: .incbin \"cyan1.lzsa\"" > title_graphics.inc
 	echo "cyan2_lzsa: .incbin \"cyan2.lzsa\"" >> title_graphics.inc
 	echo "m_link_book_lzsa: .incbin \"m_link_book.lzsa\"" >> title_graphics.inc
@@ -28,14 +32,20 @@ title_graphics.inc:	\
 	echo "fissure2_lzsa: .incbin \"fissure2.lzsa\"" >> title_graphics.inc
 	echo "fissure_book_small_lzsa: .incbin \"fissure_book_small.lzsa\"" >> title_graphics.inc
 	echo "fissure_book_big_lzsa: .incbin \"fissure_book_big.lzsa\"" >> title_graphics.inc
-	echo "falling_right_lzsa: .incbin \"fissure_stars.lzsa\"" >> title_graphics.inc
-	echo "falling_left_lzsa: .incbin \"fissure_stars.lzsa\"" >> title_graphics.inc
 	echo "book_air_lzsa: .incbin \"fissure_stars.lzsa\"" >> title_graphics.inc
 	echo "book_sparks_lzsa: .incbin \"fissure_stars.lzsa\"" >> title_graphics.inc
 	echo "book_glow_lzsa: .incbin \"fissure_stars.lzsa\"" >> title_graphics.inc
 	echo "book_ground_lzsa: .incbin \"fissure_stars.lzsa\"" >> title_graphics.inc
 	echo "book_ground_n_lzsa: .incbin \"book_ground_n.lzsa\"" >> title_graphics.inc
 	echo "book_closed_n_lzsa: .incbin \"book_closed_n.lzsa\"" >> title_graphics.inc
+	echo "starfield_lzsa: .incbin \"starfield.lzsa\"" >> title_graphics.inc
+	echo "falling_left_top_lzsa: .incbin \"falling_left_top.lzsa\"" >> title_graphics.inc
+	echo "falling_left_center_lzsa: .incbin \"falling_left_center.lzsa\"" >> title_graphics.inc
+	echo "falling_left_bottom_lzsa: .incbin \"falling_left_bottom.lzsa\"" >> title_graphics.inc
+	echo "erase_left_bottom_lzsa: .incbin \"erase_left_bottom.lzsa\"" >> title_graphics.inc
+	echo "falling_right_top_lzsa: .incbin \"falling_right_top.lzsa\"" >> title_graphics.inc
+	echo "falling_right_bottom_lzsa: .incbin \"falling_right_bottom.lzsa\"" >> title_graphics.inc
+	echo "erase_right_bottom_lzsa: .incbin \"erase_right_bottom.lzsa\"" >> title_graphics.inc
 
 ####
 

games/mist_hgr/graphics_title/erase_left_bottom.vgi

@@ -0,0 +1,3 @@
+; ERASE left, bottom
+RECT	4	4	71	122	109	169	; erase old
+END

games/mist_hgr/graphics_title/erase_right_bottom.vgi

@@ -0,0 +1,3 @@
+; ERASE left, bottom
+RECT	4	4	71	122	109	169	; erase old
+END

games/mist_hgr/graphics_title/falling_left_bottom.vgi

@@ -0,0 +1,16 @@
+; Falling left, bottom
+RECT	4	4	74	63	107	102	; erase old
+DRECT   0xa3    0xae	72	124	107	168	; cover
+VTRI	4	72	137	72	84	124	; upper left
+VTRI	4	72	132	72	95	168	; bottom left	
+VTRI	7	108	158	84	108	124	; pages
+VTRI	4	108	153	89	108	168	; bottom right
+VTRI	4	108	152	91	108	124	; upper right
+LINE	7	73	138	84	125		; outline
+LINETO	104	154
+LINETO	91	167
+LINETO	73	138
+LINE	7	106	154	108	150		; pages
+LINETO	90	124
+LINETO	85	126
+END

games/mist_hgr/graphics_title/falling_left_center.vgi

@@ -0,0 +1,15 @@
+; Falling left, center
+RECT	4	4	76	11	103	55	; erase old
+DRECT   0xa3    0xae	84	66	105	92	; cover
+VTRI	4	105	92	96	105	65	; isometric
+VTRI	4	83	67	80	87	93	; spine
+HTRI	4	100	91	87	92	105	; bottom left tri
+HTRI	4	96	66	65	69	101	; upper right tri	
+LINE	7	105	99	81	99		; edge
+LINETO	78	68
+LINETO	81	65
+LINETO	101	65
+LINETO	105	92
+LINETO	103	93
+LINETO	105	99
+END

games/mist_hgr/graphics_title/falling_left_top.vgi

@@ -0,0 +1,14 @@
+; Falling left, top
+RECT	7	7	81	31	91	52	; pages
+LINE	5	81	53	82	30
+LINETO	91	29
+LINETO	92	51
+LINE	5	92	51	99	40		; cover
+LINETO	99	39
+LINETO	96	21
+LINE	5	80	31	88	18		; spine
+LINETO	97	19
+LINETO	90	32
+LINE	5	84	31	84	52		; pages
+LINE	5	88	31	88	52		; pages
+END

games/mist_hgr/graphics_title/falling_right_bottom.vgi

@@ -0,0 +1,16 @@
+; Falling left, bottom
+RECT	4	4	74	63	107	102	; erase old
+DRECT   0xa3    0xae	72	124	107	168	; cover
+VTRI	4	72	137	72	84	124	; upper left
+VTRI	4	72	132	72	95	168	; bottom left	
+VTRI	7	108	158	84	108	124	; pages
+VTRI	4	108	153	89	108	168	; bottom right
+VTRI	4	108	152	91	108	124	; upper right
+LINE	7	73	138	84	125		; outline
+LINETO	104	154
+LINETO	91	167
+LINETO	73	138
+LINE	7	106	154	108	150		; pages
+LINETO	90	124
+LINETO	85	126
+END

games/mist_hgr/graphics_title/falling_right_top.vgi

@@ -0,0 +1,16 @@
+; Falling right, top
+RECT	4	4	191	52	217	71	; clear stars
+LINE	5	185	64	188	65		; book
+LINETO	213	49
+LINETO	208	48
+LINETO	185	64
+LINE	5	188	64	192	74		; cover
+LINETO	217	57
+LINETO	214	48
+LINE	5	187	65	211	48		; spine
+LINE	7	183	63	209	47		; white outline
+LINETO	218	57
+LINETO	193	74
+LINETO	187	73
+LINETO	183	63
+END

games/mist_hgr/graphics_title/starfield.vgi

@@ -0,0 +1,79 @@
+; Starfield for falling book
+CLS	0x80
+POINT	7	4	88
+POINT	7	6	130
+POINT	7	15	160
+POINT	7	16	182
+POINT	7	19	34
+POINT	7	19	61
+POINT	7	23	27
+POINT	7	24	171
+POINT	7	25	121
+POINT	7	33	29
+POINT	7	38	63
+POINT	7	44	161
+POINT	7	48	86
+POINT	7	51	41
+POINT	7	57	63
+POINT	7	60	64
+POINT	7	61	129
+POINT	7	62	102
+POINT	7	64	173
+POINT	7	69	56
+POINT	7	76	161
+POINT	7	83	101
+POINT	7	92	96
+POINT	7	104	51
+POINT	7	120	73
+POINT	7	124	102
+POINT	7	124	102
+POINT	7	130	44
+POINT	7	133	11
+POINT	7	138	116
+POINT	7	138	86
+POINT	7	154	29
+POINT	7	161	173
+POINT	7	162	121
+POINT	7	163	155
+POINT	7	164	170
+POINT	7	165	28
+POINT	7	165	156
+POINT	7	167	88
+POINT	7	168	35
+POINT	7	170	60
+POINT	7	171	143
+POINT	7	172	159
+POINT	7	172	180
+POINT	7	181	2
+POINT	7	184	88
+POINT	7	184	130
+POINT	7	186	9
+POINT	7	187	52
+POINT	7	202	63
+POINT	7	203	107
+POINT	7	205	122
+POINT	7	206	109
+POINT	7	210	106
+POINT	7	210	179
+POINT	7	211	73
+POINT	7	213	57
+POINT	7	220	133
+POINT	7	229	44
+POINT	7	231	110
+POINT	7	233	5
+POINT	7	234	61
+POINT	7	240	160
+POINT	7	241	123
+POINT	7	255	143
+POINT	7	257	134
+POINT	7	260	72
+POINT	7	260	148
+POINT	7	261	9
+POINT	7	265	130
+POINT	7	266	14
+POINT	7	266	55
+POINT	7	270	63
+POINT	7	270	91
+POINT	7	273	4
+POINT	7	273	132
+END

games/mist_hgr/mist_title.s

@@ -207,7 +207,7 @@ done_setup_sound:
 	; setup HGR
 	;===================
 
-	; we could just call HGR2 here instead?
+	; we could just call HGR here instead?
 
 	bit	SET_GR
 	bit	PAGE0
@@ -242,8 +242,8 @@ reload_everything:
 	;===================================
 
 	; SKIP: broderbund logo (w music)
-	; SKIP: cyan logo (with cyan theme)
 
+	; instead do a MYST screen (not in original)
 
 	; wait a bit at MYST screen
 
@@ -256,15 +256,6 @@ reload_everything:
 	; init screen
 	;===================
 
-;	jsr	TEXT
-;	jsr	HOME
-;	bit	KEYRESET
-
-;	bit	SET_GR
-;	bit	PAGE0
-;	bit	LORES
-;	bit	FULLGR
-
 	lda	#0
 	sta	DRAW_PAGE
 
@@ -272,17 +263,18 @@ reload_everything:
 	; Cyan Logo
 	;===================================
 	; missing most of the animation
+	; also missing music
 
 	; First
 	ldx	#<cyan1_lzsa
 	ldy	#>cyan1_lzsa
-	lda	#25
+	lda	#20
 	jsr	draw_and_wait
 
 	; Second
 	ldx	#<cyan2_lzsa
 	ldy	#>cyan2_lzsa
-	lda	#50
+	lda	#40
 	jsr	draw_and_wait
 
 	;===================================
@@ -318,7 +310,11 @@ reload_everything:
 	;===================================
 	; FISSURE: I realized the moment...
 	;===================================
-	; touch linking book as fissure pulses
+	; "I REALIZED, THE MOMENT I FELL INTO THE"
+	; "FISSURE, THAT THE BOOK WOULD NOT BE"
+	; "DESTROYED AS I HAD PLANNED."
+
+	; touch linking book as fissure pulses (says "Fissure")
 
 	ldx	#<fissure_stars_lzsa
 	ldy	#>fissure_stars_lzsa
@@ -355,6 +351,12 @@ reload_everything:
 	;===================================
 	; FISSURE_BOOK_SMALL: starry expanse...
 	;===================================
+	; "Expanse" -> tiny book
+	; "Glimpse" -> big book
+	;
+	; "IT CONTINUED FALLING INTO THAT STARRY",0
+	; "EXPANSE OF WHICH I HAD ONLY A",0
+	; "FLEETING GLIMPSE.",0
 
 	jsr	clear_bottom
 	jsr	move_and_print
@@ -363,49 +365,118 @@ reload_everything:
 
 	ldx	#<fissure_book_small_lzsa
 	ldy	#>fissure_book_small_lzsa
-	lda	#50
+	lda	#25
 	jsr	draw_and_wait
 
-	;===================================
-	; FISSURE_BOOK_BIG: I have tried to speculate...
-	;===================================
-
-	jsr	clear_bottom
-	jsr	move_and_print
-	jsr	move_and_print
-	jsr	move_and_print
-
 	ldx	#<fissure_book_big_lzsa
 	ldy	#>fissure_book_big_lzsa
 	lda	#50
 	jsr	draw_and_wait
 
 	;===================================
-	; FALLING_LEFT: Still, the question...
+	; FALLING_LEFT: I have tried to speculate...
 	;===================================
+	; screen goes black at "I"
+	; falling book on left through landed
+	; then fade out at "futile"
+	;
+	; "I HAVE TRIED TO SPECULATE WHERE IT MIGHT"
+	; "HAVE LANDED, BUT I MUST ADMIT,"
+	; "HOWEVER-- SUCH CONJECTURE IS FUTILE."
+
+	ldx	#<starfield_lzsa
+	ldy	#>starfield_lzsa
+	lda	#1
+	jsr	draw_and_wait
 
 	jsr	clear_bottom
 	jsr	move_and_print
 	jsr	move_and_print
 	jsr	move_and_print
 
-	ldx	#<falling_left_lzsa
+	ldx	#<falling_left_top_lzsa
-	ldy	#>falling_left_lzsa
+	ldy	#>falling_left_top_lzsa
-	lda	#50
+	lda	#15
+	jsr	draw_and_wait
+
+	ldx	#<falling_left_center_lzsa
+	ldy	#>falling_left_center_lzsa
+	lda	#15
+	jsr	draw_and_wait
+
+	ldx	#<falling_left_bottom_lzsa
+	ldy	#>falling_left_bottom_lzsa
+	lda	#15
+	jsr	draw_and_wait
+
+	ldx	#<erase_left_bottom_lzsa
+	ldy	#>erase_left_bottom_lzsa
+	lda	#20
 	jsr	draw_and_wait
 
 	;===================================
-	; FALLING_RIGHT: I know my aprehensions...
+	; FALLING_RIGHT: Still, the question...
 	;===================================
+	; "STILL, THE QUESTION ABOUT WHOSE HANDS"
+	; "MIGHT SOMEDAY HOLD MY MYST BOOK ARE"
+	; "UNSETTLING TO ME."
+
+	ldx	#<starfield_lzsa
+	ldy	#>starfield_lzsa
+	lda	#1
+	jsr	draw_and_wait
 
 	jsr	clear_bottom
 	jsr	move_and_print
 	jsr	move_and_print
 	jsr	move_and_print
 
-	ldx	#<falling_right_lzsa
+	ldx	#<falling_right_top_lzsa
-	ldy	#>falling_right_lzsa
+	ldy	#>falling_right_top_lzsa
-	lda	#50
+	lda	#20
+	jsr	draw_and_wait
+
+	ldx	#<falling_right_bottom_lzsa
+	ldy	#>falling_right_bottom_lzsa
+	lda	#20
+	jsr	draw_and_wait
+
+	ldx	#<erase_right_bottom_lzsa
+	ldy	#>erase_right_bottom_lzsa
+	lda	#20
+	jsr	draw_and_wait
+
+	;===================================
+	; FALLING_LEFT_AGAIN: I know my aprehensions...
+	;===================================
+	; "I KNOW THAT MY APPREHENSIONS MIGHT"
+	; "NEVER BE ALLAYED, AND SO I CLOSE,"
+	; "REALIZING THAT PERHAPS,"
+
+	jsr	clear_bottom
+	jsr	move_and_print
+	jsr	move_and_print
+	jsr	move_and_print
+
+
+	ldx	#<falling_left_top_lzsa
+	ldy	#>falling_left_top_lzsa
+	lda	#15
+	jsr	draw_and_wait
+
+	ldx	#<falling_left_center_lzsa
+	ldy	#>falling_left_center_lzsa
+	lda	#15
+	jsr	draw_and_wait
+
+	ldx	#<falling_left_bottom_lzsa
+	ldy	#>falling_left_bottom_lzsa
+	lda	#15
+	jsr	draw_and_wait
+
+	ldx	#<erase_left_bottom_lzsa
+	ldy	#>erase_left_bottom_lzsa
+	lda	#20
 	jsr	draw_and_wait
 
 	;===================================
@@ -718,6 +789,9 @@ narration1:
 .byte 1,20,"I REALIZED, THE MOMENT I FELL INTO THE",0
 .byte 2,21,"FISSURE, THAT THE BOOK WOULD NOT BE",0
 .byte 7,22,"DESTROYED AS I HAD PLANNED.",0
+;.byte 1,20,"I realized, the moment I fell into the",0
+;.byte 2,21,"fissure, that the book would not be",0
+;.byte 7,22,"destroyed as I had planned.",0
 
 ; FISSURE_BOOK: _starry expanse (book tiny)
 
@@ -728,7 +802,6 @@ narration2:
 .byte 12,22,"FLEETING GLIMPSE.",0
 
 ; FALLING_BOOK: (book big) falling by starscape (I have tried to speculate)
-
 narration3:
 ;      0123456789012345678901234567890123456789
 .byte 0,20,"I HAVE TRIED TO SPECULATE WHERE IT MIGHT",0
@@ -736,14 +809,14 @@ narration3:
 .byte 2,22,"HOWEVER-- SUCH CONJECTURE IS FUTILE.",0
 
 narration4:
-; FALLING_LEFT (still, the question) /(left)
+; FALLING_RIGHT (still, the question) /(left)
 ;      0123456789012345678901234567890123456789
 .byte 1,20,"STILL, THE QUESTION ABOUT WHOSE HANDS",0
 .byte 2,21,"MIGHT SOMEDAY HOLD MY MYST BOOK ARE",0
 .byte 12,22,"UNSETTLING TO ME.",0
 
 narration5:
-; FALLING_RIGHT I know my aprehensions (right)
+; FALLING_LEFT_AGAIN I know my aprehensions (right)
 ;      0123456789012345678901234567890123456789
 .byte 3,20,"I KNOW THAT MY APPREHENSIONS MIGHT",0
 .byte 4,21,"NEVER BE ALLAYED, AND SO I CLOSE,",0