mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-16 22:29:29 +00:00
keen: can get oracle message
This commit is contained in:
parent
1eed019e50
commit
05a7ad5c1e
|
@ -1,5 +1,5 @@
|
||||||
5 HOME
|
5 HOME
|
||||||
10 PRINT "LOADING KEEN V0.04"
|
10 PRINT "LOADING KEEN V0.06"
|
||||||
20 PRINT " KEEN1 PROOF-OF-CONCEPT DEMAKE"
|
20 PRINT " KEEN1 PROOF-OF-CONCEPT DEMAKE"
|
||||||
30 PRINT:PRINT
|
30 PRINT:PRINT
|
||||||
70 PRINT "BASED ON KEEN1 BY ID"
|
70 PRINT "BASED ON KEEN1 BY ID"
|
||||||
|
|
|
@ -277,3 +277,4 @@ level1_levelover:
|
||||||
level1_data_zx02:
|
level1_data_zx02:
|
||||||
.incbin "maps/level1_map.zx02"
|
.incbin "maps/level1_map.zx02"
|
||||||
|
|
||||||
|
oracle_message:
|
||||||
|
|
|
@ -123,6 +123,9 @@ check_item:
|
||||||
lda (INL),Y
|
lda (INL),Y
|
||||||
|
|
||||||
do_check_item:
|
do_check_item:
|
||||||
|
cmp #26
|
||||||
|
beq was_oracle
|
||||||
|
|
||||||
cmp #27
|
cmp #27
|
||||||
bcc done_check_item ; not an item
|
bcc done_check_item ; not an item
|
||||||
cmp #32
|
cmp #32
|
||||||
|
@ -197,6 +200,37 @@ at_door:
|
||||||
done_check_door:
|
done_check_door:
|
||||||
rts
|
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
|
||||||
|
|
||||||
|
|
||||||
;=============================
|
;=============================
|
||||||
|
|
|
@ -39,6 +39,7 @@ level2_start:
|
||||||
sta KEEN_FALLING
|
sta KEEN_FALLING
|
||||||
sta KEEN_SHOOTING
|
sta KEEN_SHOOTING
|
||||||
sta KEYCARDS
|
sta KEYCARDS
|
||||||
|
sta ORACLE_SPOKEN
|
||||||
|
|
||||||
; debug
|
; debug
|
||||||
|
|
||||||
|
@ -278,3 +279,9 @@ level1_levelover:
|
||||||
level1_data_zx02:
|
level1_data_zx02:
|
||||||
.incbin "maps/level2_map.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
|
||||||
|
|
Binary file not shown.
Before Width: | Height: | Size: 6.6 KiB After Width: | Height: | Size: 6.6 KiB |
BIN
games/keen/release/keen1_lores.dsk
Normal file
BIN
games/keen/release/keen1_lores.dsk
Normal file
Binary file not shown.
|
@ -144,6 +144,7 @@ INITIAL_SOUND = $A4
|
||||||
PLAY_END_SOUND = $A5
|
PLAY_END_SOUND = $A5
|
||||||
APPLEII_MODEL = $A6
|
APPLEII_MODEL = $A6
|
||||||
CURRENT_LEVEL = $A7
|
CURRENT_LEVEL = $A7
|
||||||
|
ORACLE_SPOKEN = $A8
|
||||||
|
|
||||||
WHICH_SLOT = $DA
|
WHICH_SLOT = $DA
|
||||||
JS_BUTTON_STATE = $DB
|
JS_BUTTON_STATE = $DB
|
||||||
|
|
Loading…
Reference in New Issue
Block a user