Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-22 14:29:35 +00:00
Code Issues Projects Releases Wiki Activity

mist_hgr: more of opening

Browse Source
This commit is contained in:
Vince Weaver 2021-07-14 17:00:31 -04:00
parent 4285ac2ce0
commit 1d2022e616
11 changed files with 285 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
games/mist_hgr/TODO
View File

@ -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

16
games/mist_hgr/graphics_title/Makefile
View File

@ -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
####

3
games/mist_hgr/graphics_title/erase_left_bottom.vgi Normal file
View File

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

3
games/mist_hgr/graphics_title/erase_right_bottom.vgi Normal file
View File

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

16
games/mist_hgr/graphics_title/falling_left_bottom.vgi Normal file
View File

@ -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

15
games/mist_hgr/graphics_title/falling_left_center.vgi Normal file
View File

@ -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

14
games/mist_hgr/graphics_title/falling_left_top.vgi Normal file
View File

@ -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

16
games/mist_hgr/graphics_title/falling_right_bottom.vgi Normal file
View File

@ -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

16
games/mist_hgr/graphics_title/falling_right_top.vgi Normal file
View File

@ -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

79
games/mist_hgr/graphics_title/starfield.vgi Normal file
View File

@ -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

143
games/mist_hgr/mist_title.s
View File

@ -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
ldy #>falling_left_lzsa
lda #50
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
;===================================
; 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
ldy #>falling_right_lzsa
lda #50
ldx #<falling_right_top_lzsa
ldy #>falling_right_top_lzsa
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