Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-15 17:29:58 +00:00
Code Issues Projects Releases Wiki Activity

mist: arbor: can drop back down into channelwood

Browse Source
This commit is contained in:
Vince Weaver 2020-06-17 13:53:01 -04:00
parent 50b1a82e65
commit 5b1ac61764
4 changed files with 49 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mist/Makefile
View File

@ -248,7 +248,7 @@ arbor.o: arbor.s zp.inc hardware.inc common_defines.inc \
common_routines.inc \
graphics_arbor/arbor_graphics.inc \
leveldata_arbor.inc \
channel_switches.s
arbor_switches.s
ca65 -o arbor.o arbor.s -l arbor.lst
####

2
mist/arbor.s
View File

@ -128,8 +128,8 @@ really_exit:
; level graphics
.include "graphics_arbor/arbor_graphics.inc"
; puzzles
.include "arbor_switches.s"
; level data
.include "leveldata_arbor.inc"

38
mist/arbor_switches.s Normal file
View File

@ -0,0 +1,38 @@
;=============================
; elevator1 handle pulled
; FIXME: check for water power
; FIXME: animate
elev1_handle:
; click speaker
bit SPEAKER
; check for water power
; go to bottom floor, which involves moving to CHANNEL level
lda #CHANNEL_IN_ELEV1_CLOSED
sta LOCATION
lda #DIRECTION_E
sta DIRECTION
lda #LOAD_CHANNEL
sta WHICH_LOAD
lda #$ff
sta LEVEL_OVER
rts
;=========================
; close elevator1 door
elev1_close_door:
lda #ARBOR_INSIDE_ELEV1
sta LOCATION
jmp change_location

12
mist/leveldata_arbor.inc
View File

@ -3,7 +3,7 @@
;===============================================
locations:
.word location0, location1
.word location0, location1, location2, location3
; ARBOR_INSIDE_ELEV1 -- arrival in elevator1
location0:
@ -20,7 +20,10 @@ location0:
.word $0000 ; east bg
.word inside_elevator1_closed_w_lzsa ; west bg
.byte BG_WEST
.byte $ff
.byte DIRECTION_W ; special exit
.byte 26,34 ; special x
.byte 28,36 ; special y
.word elev1_handle-1 ; special function
; ARBOR_INSIDE_ELEV1_OPEN -- arrival in elevator1, door open
location1:
@ -37,7 +40,10 @@ location1:
.word $0000 ; east bg
.word inside_elevator1_open_w_lzsa ; west bg
.byte BG_WEST
.byte $ff
.byte DIRECTION_W ; special exit
.byte 10,17 ; special x
.byte 6,46 ; special y
.word elev1_close_door-1 ; special function
; ARBOR_ARRIVAL_CLOSED -- just outside elevator, closed
location2: