mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-27 11:55:20 +00:00
keen: work on story
This commit is contained in:
parent
1ea4b0c506
commit
28f144664e
@ -2,7 +2,7 @@ LOAD_TITLE = 0
|
|||||||
LOAD_MARS = 1
|
LOAD_MARS = 1
|
||||||
LOAD_KEEN1 = 2
|
LOAD_KEEN1 = 2
|
||||||
LOAD_KEEN2 = 3
|
LOAD_KEEN2 = 3
|
||||||
|
LOAD_STORY = 18
|
||||||
|
|
||||||
tiles = $9000
|
tiles = $9000
|
||||||
big_tilemap = $9400
|
big_tilemap = $9400
|
||||||
|
@ -216,6 +216,7 @@ filenames:
|
|||||||
.word keen14_filename
|
.word keen14_filename
|
||||||
.word keen15_filename
|
.word keen15_filename
|
||||||
.word keen16_filename
|
.word keen16_filename
|
||||||
|
.word story_filename
|
||||||
|
|
||||||
engine_filename:
|
engine_filename:
|
||||||
.byte "ENGINE",0
|
.byte "ENGINE",0
|
||||||
@ -255,7 +256,8 @@ keen15_filename:
|
|||||||
.byte "LEVEL15",0
|
.byte "LEVEL15",0
|
||||||
keen16_filename:
|
keen16_filename:
|
||||||
.byte "LEVEL16",0
|
.byte "LEVEL16",0
|
||||||
|
story_filename:
|
||||||
|
.byte "STORY",0
|
||||||
|
|
||||||
|
|
||||||
;===================================================
|
;===================================================
|
||||||
|
@ -51,11 +51,32 @@ load_background:
|
|||||||
jsr full_decomp
|
jsr full_decomp
|
||||||
|
|
||||||
|
|
||||||
wait_until_keypress:
|
jsr wait_until_keypress
|
||||||
lda KEYPRESS
|
|
||||||
bpl wait_until_keypress
|
|
||||||
|
|
||||||
bit KEYRESET
|
|
||||||
|
bit SET_TEXT
|
||||||
|
bit PAGE1
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
lda gr_offsets,Y
|
||||||
|
sta INL
|
||||||
|
iny
|
||||||
|
lda gr_offsets,Y
|
||||||
|
sta INH
|
||||||
|
|
||||||
|
lda #<story_data
|
||||||
|
sta OUTL
|
||||||
|
lda #>story_data
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
ldy #39
|
||||||
|
inner_text_loop:
|
||||||
|
lda (OUTL),Y
|
||||||
|
sta (INL),Y
|
||||||
|
dey
|
||||||
|
bpl inner_text_loop
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
|
||||||
lda #LOAD_TITLE
|
lda #LOAD_TITLE
|
||||||
@ -129,4 +150,10 @@ really_done_keyloop:
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
wait_until_keypress:
|
||||||
|
lda KEYPRESS
|
||||||
|
bpl wait_until_keypress
|
||||||
|
bit KEYRESET
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
@ -212,7 +212,9 @@ init_vars:
|
|||||||
sta MARS_X
|
sta MARS_X
|
||||||
sta MARS_Y
|
sta MARS_Y
|
||||||
|
|
||||||
lda #LOAD_MARS
|
lda #LOAD_STORY
|
||||||
|
|
||||||
|
; lda #LOAD_MARS
|
||||||
sta WHICH_LOAD ; assume new game (mars map)
|
sta WHICH_LOAD ; assume new game (mars map)
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
Loading…
Reference in New Issue
Block a user