riven: hook up shortcuts in tunnel

This commit is contained in:
Vince Weaver 2024-08-19 00:06:18 -04:00
parent 39b537fc10
commit 47d54948c8
5 changed files with 53 additions and 5 deletions

View File

@ -99,10 +99,10 @@ T 0.5 = TITLE 1805 bytes 8S = 0T8S (2048) 400B free
T 1 = QLOAD 2314 bytes 16S= 1T0S (4096) 2k free
T 2 = BRIDGE1 9027 bytes = 5T0S (20480) 11k free
T 7 = BRIDGE2 8982 bytes = 5T0S (20480) 11k free
T 12 = TUNNEL1 12632 bytes = 5T0S (20480) 8k free
T 12 = TUNNEL1 12654 bytes = 5T0S (20480) 8k free
T 17 = TUNNEL3 17217 bytes = 5T0S (20480) 3k free
T 22 = TUNNEL4 22153 bytes = 6T0S (24576) 2k free
.T 28 = TUNNEL7 20847 bytes = 6T0S (24576) 4k free
T 22 = TUNNEL4 22176 bytes = 6T0S (24576) 2k free
T 28 = TUNNEL7 20847 bytes = 6T0S (24576) 4k free
Disk05 Map (disk has 35 tracks, each 4k in size)

View File

@ -102,6 +102,25 @@ really_exit:
rts
;==========================
; look at door
;==========================
look_at_door:
lda #LOAD_TUNNEL3
sta WHICH_LOAD
lda #RIVEN_TUNNEL3
sta LOCATION
lda #DIRECTION_N
sta DIRECTION
lda #1
sta LEVEL_OVER
rts
;==========================
; includes

View File

@ -102,6 +102,26 @@ really_exit:
rts
;==========================
; look at door
;==========================
look_at_door:
lda #LOAD_TUNNEL3
sta WHICH_LOAD
lda #RIVEN_TUNNEL3
sta LOCATION
lda #DIRECTION_N
sta DIRECTION
lda #1
sta LEVEL_OVER
rts
;==========================
; includes

View File

@ -37,5 +37,9 @@ location1:
.word tunnel2_e_zx02 ; east bg
.word tunnel2_w_zx02 ; west bg
.byte BG_EAST|BG_WEST
.byte $ff ; special exit
.byte DIRECTION_E|DIRECTION_ONLY_POINT ; special exit
.byte 7,14
.byte 0,180
.word look_at_door-1

View File

@ -20,7 +20,12 @@ location0:
.word tunnel4_e_zx02 ; east bg
.word tunnel4_w_zx02 ; west bg
.byte BG_EAST|BG_WEST
.byte $ff ; special exit
.byte DIRECTION_W|DIRECTION_ONLY_POINT ; special exit
.byte 25,33
.byte 0,180
.word look_at_door-1
; RIVEN_TUNNEL5 -- more tunnel
location1: