2010 lines
33 KiB
ArmAsm
2010 lines
33 KiB
ArmAsm
; The Stone Ship Puzzles
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
; at start, no electricity
|
|
; all lights on umbrella off
|
|
; tunnels dark and flooded
|
|
; steps to cabin are flooded, lights off past airlock, can't
|
|
; touch book
|
|
; lighthouse is flooded
|
|
|
|
; lights are always on in red/blue rooms
|
|
|
|
; umbrella pump -- only one can be on, touching twice toggles
|
|
; #1 drains main cabin
|
|
; #2 drains tunnels
|
|
; #3 drain the elevator room
|
|
|
|
; treasure chest
|
|
; 1st drain tower room
|
|
; 2nd go down, open tap, let water drain
|
|
; 3rd close tap
|
|
; 4th raise water again
|
|
; 5th click on chained key which will unlock chest
|
|
; 6th click on key in chest which will get picked up
|
|
; 7th open trapdoor. animation. lock and key fall to
|
|
; floor down below
|
|
; you can still pick up the key down there
|
|
; in game if you leave the lighthouse
|
|
; while you have the key, the key ends up on the floor
|
|
; down below
|
|
|
|
; charged battery turns on lights in cabin/tunnels
|
|
; charge runs down over time
|
|
|
|
; compass rose puzzle
|
|
; press wrong one and lights go out (all energy to zero)
|
|
; also siren plays
|
|
; blue light at end of corridor
|
|
; press right one, lights in the cabin go on
|
|
; also light outside the compass window
|
|
|
|
|
|
|
|
; lighthouse backgrounds
|
|
; water, no trunk, hatch closed
|
|
; water, no trunk, hatch open
|
|
; water, trunk, hatch closed
|
|
; water, trunk, hatch open
|
|
; prev two, trunk open/closed
|
|
; nowater, hatch closed
|
|
; nowater, hatch open
|
|
|
|
; idea: baseline with water trunk, water no trunk, nowater
|
|
; draw hatch as sprite
|
|
|
|
|
|
;==================================
|
|
; update tunnel lights
|
|
;==================================
|
|
; only on when BATTERY_CHARGE is non-zero
|
|
;
|
|
; darkening the rooms happens elsewhere
|
|
; here is where we change up backgrounds
|
|
; and turn the lighthouse on and off
|
|
;
|
|
; FIXME:
|
|
; + make the top stairwells dark
|
|
; + make inside top stairwells display outside still
|
|
; + do something about looking backwards from airlocks
|
|
|
|
update_tunnel_lights:
|
|
|
|
lda BATTERY_CHARGE
|
|
beq tunnel_lights_off
|
|
|
|
tunnel_lights_on:
|
|
|
|
|
|
jmp done_update_tunnel_lights
|
|
|
|
tunnel_lights_off:
|
|
jsr lighthouse_beacon_off
|
|
|
|
|
|
done_update_tunnel_lights:
|
|
rts
|
|
|
|
|
|
;==================================
|
|
; compass puzzle
|
|
;==================================
|
|
; want to click on 135 degrees
|
|
; turns on lights (sets COMPASS_STATE to 1), runs update_compas_state
|
|
; click on other pins
|
|
; turns off lights, shorts out power
|
|
; COMPASS_STATE to 0
|
|
; BATTERY_CHARGE to 0
|
|
; also puzzle only works if battery charge is > 0
|
|
; to keep you from pressing all in dark
|
|
|
|
compass_puzzle:
|
|
lda BATTERY_CHARGE
|
|
beq compass_oob
|
|
|
|
lda CURSOR_Y
|
|
cmp #7
|
|
bcc check_top ; blt
|
|
cmp #38
|
|
bcs check_bottom ; bge
|
|
|
|
check_middle:
|
|
lda CURSOR_X
|
|
cmp #6
|
|
bcc compass_oob
|
|
cmp #12
|
|
bcc wrong_knob
|
|
cmp #28
|
|
bcc compass_oob
|
|
cmp #35
|
|
bcs compass_oob
|
|
|
|
lda CURSOR_Y
|
|
cmp #32
|
|
bcs right_knob
|
|
bcc wrong_knob
|
|
|
|
check_top:
|
|
lda CURSOR_X
|
|
cmp #10
|
|
bcc compass_oob
|
|
cmp #30
|
|
bcs compass_oob
|
|
bcc wrong_knob
|
|
|
|
check_bottom:
|
|
lda CURSOR_X
|
|
cmp #13
|
|
bcc compass_oob
|
|
cmp #28
|
|
bcs compass_oob
|
|
bcc wrong_knob
|
|
|
|
right_knob:
|
|
jsr click_speaker
|
|
|
|
lda #1
|
|
sta COMPASS_STATE
|
|
jsr update_compass_state
|
|
|
|
jmp change_direction
|
|
|
|
wrong_knob:
|
|
lda #0
|
|
sta COMPASS_STATE
|
|
sta BATTERY_CHARGE
|
|
|
|
jsr long_beep
|
|
|
|
jsr update_tunnel_lights
|
|
|
|
jmp update_compass_state
|
|
|
|
compass_oob:
|
|
rts
|
|
|
|
|
|
;==================================
|
|
; draw compass light
|
|
;==================================
|
|
; underwater light comes on if compass successful
|
|
|
|
; if in room STONEY_COMPASS_ROOM_RIGHT (facing N) or
|
|
; STONEY_COMPASS_ROOM_LEFT (facing W)
|
|
; and COMPASS_STATE is not 0 then draw the sprite
|
|
|
|
compass_draw_light:
|
|
lda COMPASS_STATE
|
|
beq done_compass_draw_light
|
|
|
|
lda LOCATION
|
|
cmp #STONEY_COMPASS_ROOM_RIGHT
|
|
beq light_room_right
|
|
cmp #STONEY_COMPASS_ROOM_LEFT
|
|
beq light_room_left
|
|
|
|
rts
|
|
|
|
light_room_right:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_N
|
|
beq actually_draw_light
|
|
rts
|
|
|
|
light_room_left:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_W
|
|
bne done_compass_draw_light
|
|
|
|
actually_draw_light:
|
|
lda #17
|
|
sta XPOS
|
|
lda #14
|
|
sta YPOS
|
|
lda #<compass_light_sprite
|
|
sta INL
|
|
lda #>compass_light_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
done_compass_draw_light:
|
|
rts
|
|
|
|
compass_light_sprite:
|
|
.byte 6,4
|
|
.byte $44,$94,$94,$94,$94,$44
|
|
.byte $44,$99,$ff,$ff,$99,$44
|
|
.byte $44,$99,$9f,$9f,$99,$44
|
|
.byte $24,$24,$24,$24,$24,$24
|
|
|
|
;==================================
|
|
; update compass state
|
|
;==================================
|
|
; if COMPASS_STATE is 0:
|
|
; disable access to linking book
|
|
; if COMPASS_STATE is 1:
|
|
; enable access to linking book
|
|
update_compass_state:
|
|
lda COMPASS_STATE
|
|
bne enable_book_access
|
|
disable_book_access:
|
|
; regular compass rose
|
|
ldy #LOCATION_WEST_BG
|
|
lda #<compass_rose_w_lzsa
|
|
sta location35,Y ; STONEY_COMPASS_ROSE_LEFT
|
|
sta location46,Y ; STONEY_COMPASS_ROSE_RIGHT
|
|
lda #>compass_rose_w_lzsa
|
|
sta location35+1,Y ; STONEY_COMPASS_ROSE_LEFT
|
|
sta location46+1,Y ; STONEY_COMPASS_ROSE_RIGHT
|
|
|
|
ldy #LOCATION_NORTH_EXIT
|
|
lda #$ff
|
|
sta location16,Y ; STONEY_BOOK_ROOM
|
|
|
|
rts
|
|
|
|
enable_book_access:
|
|
; lit compass rose
|
|
ldy #LOCATION_WEST_BG
|
|
lda #<compass_rose_lit_w_lzsa
|
|
sta location35,Y ; STONEY_COMPASS_ROSE_LEFT
|
|
sta location46,Y ; STONEY_COMPASS_ROSE_RIGHT
|
|
lda #>compass_rose_lit_w_lzsa
|
|
sta location35+1,Y ; STONEY_COMPASS_ROSE_LEFT
|
|
sta location46+1,Y ; STONEY_COMPASS_ROSE_RIGHT
|
|
|
|
ldy #LOCATION_NORTH_EXIT
|
|
lda #STONEY_BOOK_TABLE
|
|
sta location16,Y ; STONEY_BOOK_ROOM
|
|
|
|
rts
|
|
|
|
;===================================
|
|
; crawlways
|
|
;===================================
|
|
enter_crawlway_left:
|
|
lda #STONEY_CRAWLWAY_ENTRANCE_LEFT
|
|
sta LOCATION
|
|
|
|
lda #DIRECTION_W
|
|
sta DIRECTION
|
|
|
|
jmp change_location
|
|
|
|
enter_crawlway_right:
|
|
lda #STONEY_CRAWLWAY_ENTRANCE_RIGHT
|
|
sta LOCATION
|
|
|
|
lda #DIRECTION_E
|
|
sta DIRECTION
|
|
|
|
jmp change_location
|
|
|
|
|
|
;==========================
|
|
; handle compass room right
|
|
|
|
view_compass_right:
|
|
lda CURSOR_X
|
|
cmp #12
|
|
bcs goto_compass_right ; blt
|
|
|
|
goto_left_tunnel:
|
|
|
|
lda #DIRECTION_E
|
|
sta DIRECTION
|
|
|
|
lda #STONEY_COMPASS_ROOM_LEFT
|
|
sta LOCATION
|
|
jmp change_location
|
|
|
|
goto_compass_right:
|
|
|
|
lda #DIRECTION_W|DIRECTION_ONLY_POINT
|
|
sta DIRECTION
|
|
|
|
lda #STONEY_COMPASS_ROSE_RIGHT
|
|
sta LOCATION
|
|
|
|
jmp change_location
|
|
|
|
|
|
|
|
;==========================
|
|
; handle compass room left
|
|
|
|
view_compass_left:
|
|
lda CURSOR_X
|
|
cmp #28
|
|
bcc goto_compass_left ; blt
|
|
|
|
goto_right_tunnel:
|
|
|
|
lda #DIRECTION_S
|
|
sta DIRECTION
|
|
|
|
lda #STONEY_COMPASS_ROOM_RIGHT
|
|
sta LOCATION
|
|
jmp change_location
|
|
|
|
goto_compass_left:
|
|
|
|
lda #DIRECTION_W|DIRECTION_ONLY_POINT
|
|
sta DIRECTION
|
|
|
|
lda #STONEY_COMPASS_ROSE_LEFT
|
|
sta LOCATION
|
|
|
|
jmp change_location
|
|
|
|
|
|
;==============================
|
|
; handle umbrella pump buttons
|
|
;==============================
|
|
; if on and pressed, goes all off
|
|
; if off and pressed, clear all others and set
|
|
|
|
umbrella_buttons:
|
|
|
|
; first time you click on it switch to text and print pump message
|
|
lda #DIRECTION_W|DIRECTION_SPLIT
|
|
sta DIRECTION
|
|
jsr change_direction
|
|
|
|
lda #1
|
|
sta ANIMATE_FRAME
|
|
|
|
lda DRAW_PAGE
|
|
pha
|
|
|
|
lda #8
|
|
sta DRAW_PAGE
|
|
|
|
jsr clear_bottom
|
|
|
|
pla
|
|
sta DRAW_PAGE
|
|
|
|
lda CURSOR_X
|
|
cmp #15
|
|
bcc left_button_pressed
|
|
cmp #19
|
|
bcc center_button_pressed
|
|
|
|
right_button_pressed:
|
|
|
|
; drain lighthouse
|
|
lda PUMP_STATE
|
|
and #DRAINED_LIGHTHOUSE
|
|
bne clear_umbrella
|
|
|
|
lda #DRAINED_LIGHTHOUSE
|
|
bne done_umbrella ; bra
|
|
|
|
left_button_pressed:
|
|
; drain mist tunnel
|
|
lda PUMP_STATE
|
|
and #DRAINED_EXIT
|
|
bne clear_umbrella
|
|
|
|
lda #DRAINED_EXIT
|
|
bne done_umbrella ; bra
|
|
|
|
center_button_pressed:
|
|
; drain room tunnels
|
|
lda PUMP_STATE
|
|
and #DRAINED_TUNNELS
|
|
bne clear_umbrella
|
|
|
|
lda #DRAINED_TUNNELS
|
|
bne done_umbrella ; bra
|
|
|
|
done_umbrella:
|
|
sta PUMP_STATE
|
|
jmp update_pump_state
|
|
|
|
clear_umbrella:
|
|
lda #0
|
|
sta PUMP_STATE
|
|
jmp update_pump_state
|
|
|
|
|
|
pump_message:
|
|
.byte 13,21,"[PUMP NOISES]",0
|
|
|
|
|
|
;============================
|
|
; update pump state
|
|
;============================
|
|
update_pump_state:
|
|
; default is everything is flooded
|
|
|
|
; flood exit
|
|
; disable entering exit tunnel
|
|
ldy #LOCATION_SOUTH_EXIT
|
|
lda #$ff
|
|
sta location0,Y ; STONEY_ARRIVAL
|
|
|
|
; flood tunnel
|
|
ldy #LOCATION_NORTH_EXIT
|
|
lda #$ff
|
|
sta location9,Y ; STONEY_DOORWAY1
|
|
sta location20,Y ; STONEY_DOORWAY2
|
|
|
|
; flood lighthouse
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
ldy #LOCATION_NORTH_BG
|
|
|
|
; if TRUNK_WATER_DRAINED=1 and TRUNK_VALVE_OPEN=0 then show trunk
|
|
|
|
lda TRUNK_STATE
|
|
and #(TRUNK_WATER_DRAINED|TRUNK_VALVE_OPEN)
|
|
cmp #(TRUNK_WATER_DRAINED)
|
|
beq draw_trunk
|
|
|
|
draw_notrunk:
|
|
lda #<lighthouse_inside_notrunk_n_lzsa
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
lda #>lighthouse_inside_notrunk_n_lzsa
|
|
sta location5+1,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
bne done_draw_trunk ; bra
|
|
|
|
draw_trunk:
|
|
; see if lid is up
|
|
lda TRUNK_STATE
|
|
and #TRUNK_LID_OPEN
|
|
bne draw_trunk_open
|
|
|
|
draw_trunk_closed:
|
|
lda #<lighthouse_inside_n_lzsa
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
lda #>lighthouse_inside_n_lzsa
|
|
sta location5+1,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
jmp done_draw_trunk
|
|
|
|
draw_trunk_open:
|
|
lda #<lighthouse_inside_lidup_n_lzsa
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
lda #>lighthouse_inside_lidup_n_lzsa
|
|
sta location5+1,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
done_draw_trunk:
|
|
|
|
lda PUMP_STATE
|
|
beq done_update_pump_state
|
|
cmp #DRAINED_EXIT
|
|
beq drain_exit
|
|
cmp #DRAINED_TUNNELS
|
|
beq drain_tunnels
|
|
cmp #DRAINED_LIGHTHOUSE
|
|
beq drain_lighthouse
|
|
|
|
drain_exit:
|
|
ldy #LOCATION_SOUTH_EXIT
|
|
lda #STONEY_EXIT
|
|
sta location0,Y ; STONEY_ARRIVAL
|
|
jmp done_update_pump_state
|
|
|
|
drain_tunnels:
|
|
ldy #LOCATION_NORTH_EXIT
|
|
lda #STONEY_LEFT_TUNNEL1
|
|
sta location9,Y ; STONEY_DOORWAY1
|
|
lda #STONEY_RIGHT_TUNNEL1
|
|
sta location20,Y ; STONEY_DOORWAY2
|
|
jmp done_update_pump_state
|
|
|
|
drain_lighthouse:
|
|
|
|
ldy #LOCATION_NORTH_BG
|
|
lda #<lighthouse_inside_nowater_n_lzsa
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
lda #>lighthouse_inside_nowater_n_lzsa
|
|
sta location5+1,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
ldy #LOCATION_NORTH_EXIT
|
|
lda #STONEY_LIGHTHOUSE_SPIRAL
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
jmp done_update_pump_state
|
|
|
|
|
|
done_update_pump_state:
|
|
rts
|
|
|
|
|
|
|
|
;========================
|
|
; handle generator crank
|
|
handle_crank:
|
|
|
|
inc CRANK_ANGLE
|
|
lda CRANK_ANGLE
|
|
and #$3
|
|
sta CRANK_ANGLE
|
|
|
|
lda BATTERY_CHARGE
|
|
cmp #7
|
|
beq skip_charge
|
|
|
|
inc BATTERY_CHARGE
|
|
|
|
jsr update_tunnel_lights
|
|
|
|
skip_charge:
|
|
|
|
rts
|
|
|
|
;=========================================
|
|
; draw umbrella lights
|
|
;=========================================
|
|
|
|
do_draw_umbrella_light:
|
|
|
|
lda DIRECTION
|
|
and #$f
|
|
cmp #DIRECTION_W
|
|
bne done_draw_umbrella_notwest
|
|
|
|
lda ANIMATE_FRAME
|
|
beq skip_pump_text
|
|
|
|
lda #<pump_message
|
|
sta OUTL
|
|
lda #>pump_message
|
|
sta OUTH
|
|
jsr move_and_print
|
|
|
|
skip_pump_text:
|
|
|
|
lda PUMP_STATE
|
|
beq done_draw_umbrella
|
|
|
|
lda #5
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta umbrella_smc+2
|
|
|
|
lda PUMP_STATE
|
|
lsr ; convert from 1,2,4 to 0,1,2
|
|
asl
|
|
asl ; *4
|
|
tay
|
|
|
|
lda #$d9 ; orange
|
|
; 15,20
|
|
; 19,20
|
|
; 23,20
|
|
|
|
umbrella_smc:
|
|
sta $528+15,Y
|
|
|
|
done_draw_umbrella:
|
|
rts
|
|
|
|
; clear printing pump noise if we rotate
|
|
done_draw_umbrella_notwest:
|
|
lda #0
|
|
sta ANIMATE_FRAME
|
|
rts
|
|
|
|
|
|
do_draw_crank_handle:
|
|
|
|
lda DIRECTION
|
|
cmp #DIRECTION_W
|
|
bne done_draw_it
|
|
|
|
lda CRANK_ANGLE
|
|
asl
|
|
tay
|
|
lda crank_sprites,Y
|
|
sta INL
|
|
lda crank_sprites+1,Y
|
|
sta INH
|
|
|
|
lda #17
|
|
sta XPOS
|
|
lda #32
|
|
bne draw_it
|
|
|
|
do_draw_battery_level:
|
|
|
|
lda BATTERY_CHARGE
|
|
and #7
|
|
asl
|
|
tay
|
|
lda battery_sprites,Y
|
|
sta INL
|
|
lda battery_sprites+1,Y
|
|
sta INH
|
|
|
|
lda #16
|
|
sta XPOS
|
|
lda #20
|
|
; bne draw_it
|
|
|
|
draw_it:
|
|
sta YPOS
|
|
jsr put_sprite_crop
|
|
done_draw_it:
|
|
rts
|
|
|
|
do_animate_magic_table:
|
|
|
|
; handle book rising from table
|
|
|
|
lda ANIMATE_FRAME
|
|
asl
|
|
tay
|
|
lda table_movie,Y
|
|
sta INL
|
|
lda table_movie+1,Y
|
|
sta INH
|
|
|
|
lda #18
|
|
sta XPOS
|
|
lda #14
|
|
sta YPOS
|
|
|
|
jsr put_sprite_crop
|
|
|
|
lda FRAMEL
|
|
and #$1f
|
|
bne done_animate_table
|
|
|
|
lda ANIMATE_FRAME
|
|
cmp #4
|
|
beq done_animate_table
|
|
|
|
inc ANIMATE_FRAME
|
|
done_animate_table:
|
|
rts
|
|
|
|
|
|
|
|
|
|
crank_sprites:
|
|
.word crank_sprite0,crank_sprite1,crank_sprite2,crank_sprite3
|
|
|
|
battery_sprites:
|
|
.word battery_sprite0,battery_sprite1,battery_sprite2,battery_sprite3
|
|
.word battery_sprite4,battery_sprite5,battery_sprite6,battery_sprite7
|
|
|
|
table_movie:
|
|
.word table_frame0,table_frame1,table_frame2,table_frame3
|
|
.word table_frame4
|
|
|
|
table_frame0:
|
|
.byte 5,5
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$dA,$dA,$dA,$dA
|
|
|
|
table_frame1:
|
|
.byte 5,5
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $dA,$Ad,$dA,$dA,$dA
|
|
.byte $dd,$Ad,$Ad,$Ad,$Ad
|
|
|
|
table_frame2:
|
|
.byte 5,5
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $Ad,$dd,$dd,$dd,$dd
|
|
.byte $da,$dd,$77,$7d,$da
|
|
.byte $dd,$dd,$77,$dd,$Ad
|
|
|
|
table_frame3:
|
|
.byte 5,5
|
|
.byte $AA,$dA,$dA,$da,$da
|
|
.byte $AA,$dd,$dd,$dd,$dd
|
|
.byte $AA,$dd,$dd,$dd,$dd
|
|
.byte $AA,$dd,$dd,$dd,$dd
|
|
.byte $AA,$dd,$dd,$dd,$dd
|
|
|
|
table_frame4:
|
|
.byte 5,5
|
|
.byte $AA,$07,$d7,$d7,$07
|
|
.byte $AA,$00,$dd,$dd,$dd
|
|
.byte $AA,$00,$d5,$d5,$dd
|
|
.byte $AA,$00,$dd,$dd,$dd
|
|
.byte $AA,$00,$dd,$dd,$0d
|
|
|
|
|
|
|
|
crank_sprite0:
|
|
.byte 5,5
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$dd,$AA,$AA
|
|
.byte $AA,$AA,$dd,$AA,$AA
|
|
.byte $AA,$11,$AA,$AA,$AA
|
|
|
|
crank_sprite1:
|
|
.byte 5,5
|
|
.byte $1A,$AA,$AA,$AA,$AA
|
|
.byte $A1,$dA,$dA,$AA,$AA
|
|
.byte $AA,$AA,$ad,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
|
|
crank_sprite2:
|
|
.byte 5,5
|
|
.byte $AA,$AA,$AA,$dA,$11
|
|
.byte $AA,$AA,$dA,$AA,$AA
|
|
.byte $AA,$AA,$Ad,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
|
|
crank_sprite3:
|
|
.byte 5,5
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$Ad,$AA,$AA
|
|
.byte $AA,$AA,$AA,$dA,$1d
|
|
.byte $AA,$AA,$AA,$A1,$AA
|
|
|
|
battery_sprite0:
|
|
.byte 1,7
|
|
.byte $51,$AA,$AA,$AA,$AA,$AA,$AA
|
|
|
|
battery_sprite1:
|
|
.byte 1,7
|
|
.byte $51,$AA,$AA,$AA,$AA,$AA,$FF
|
|
|
|
battery_sprite2:
|
|
.byte 1,7
|
|
.byte $51,$AA,$AA,$AA,$AA,$FF,$FF
|
|
|
|
battery_sprite3:
|
|
.byte 1,7
|
|
.byte $51,$AA,$AA,$AA,$FF,$FF,$FF
|
|
|
|
battery_sprite4:
|
|
.byte 1,7
|
|
.byte $51,$AA,$AA,$FF,$FF,$FF,$FF
|
|
|
|
battery_sprite5:
|
|
.byte 1,7
|
|
.byte $51,$AA,$FF,$FF,$FF,$FF,$FF
|
|
|
|
battery_sprite6:
|
|
.byte 1,7
|
|
.byte $51,$FF,$FF,$FF,$FF,$FF,$FF
|
|
|
|
battery_sprite7:
|
|
.byte 1,7
|
|
.byte $5c,$FF,$FF,$FF,$FF,$FF,$FF
|
|
|
|
|
|
|
|
|
|
;======================================
|
|
; telescope
|
|
;======================================
|
|
|
|
goto_telescope:
|
|
|
|
; reset to 0 each time
|
|
lda #71
|
|
sta telescope_angle
|
|
|
|
lda #STONEY_TELESCOPE_VIEW
|
|
sta LOCATION
|
|
|
|
lda #DIRECTION_E|DIRECTION_SPLIT
|
|
sta DIRECTION
|
|
|
|
jmp change_location
|
|
|
|
|
|
;===================================
|
|
; display telescope
|
|
;===================================
|
|
|
|
display_telescope:
|
|
|
|
; blink beacon (where applicable)
|
|
lda BATTERY_CHARGE
|
|
beq done_blink_beacon
|
|
|
|
lda FRAMEL
|
|
and #$40
|
|
beq beacon_off
|
|
|
|
jsr lighthouse_beacon_on
|
|
jmp done_blink_beacon
|
|
|
|
beacon_off:
|
|
jsr lighthouse_beacon_off
|
|
|
|
done_blink_beacon:
|
|
|
|
|
|
lda #16
|
|
sta XPOS
|
|
lda #18
|
|
sta YPOS
|
|
|
|
; left tile
|
|
|
|
lda telescope_angle
|
|
tay
|
|
lda telescope_tile_lookup,Y
|
|
asl
|
|
tay
|
|
lda telescope_sprites,Y
|
|
sta INL
|
|
lda telescope_sprites+1,Y
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
; right tile
|
|
lda #20
|
|
sta XPOS
|
|
lda #18
|
|
sta YPOS
|
|
|
|
lda telescope_angle
|
|
tay
|
|
iny
|
|
lda telescope_tile_lookup,Y
|
|
asl
|
|
tay
|
|
lda telescope_sprites,Y
|
|
sta INL
|
|
lda telescope_sprites+1,Y
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
; update angle text
|
|
|
|
; want normal text
|
|
lda #$09 ; ora
|
|
sta ps_smc1
|
|
lda #$80
|
|
sta ps_smc1+1
|
|
|
|
; smc the addresses
|
|
lda DRAW_PAGE
|
|
clc
|
|
adc #$7
|
|
sta dt_smc1+2
|
|
sta dt_smc2+2
|
|
sta dt_smc3+2
|
|
sta dt_smc4+2
|
|
sta dt_smc5+2
|
|
sta dt_smc6+2
|
|
sta dt_smc7+2
|
|
sta dt_smc8+2
|
|
sta dt_smc9+2
|
|
|
|
lda telescope_angle
|
|
ror
|
|
bcc even_angle
|
|
|
|
odd_angle:
|
|
lda #<telescope_string_odd
|
|
sta OUTL
|
|
lda #>telescope_string_odd
|
|
sta OUTH
|
|
jsr move_and_print
|
|
jsr move_and_print
|
|
|
|
; 0 should print 0 10
|
|
; 1 should print 10
|
|
; 2 should prrint 10 20
|
|
|
|
lda telescope_angle
|
|
tax
|
|
|
|
cpx #71
|
|
bne odd_not_zero
|
|
|
|
lda #' '|$80
|
|
dt_smc7:
|
|
sta $750+21
|
|
|
|
odd_not_zero:
|
|
|
|
inx
|
|
lda telescope_angle_strings,X
|
|
ora #$80
|
|
dt_smc1:
|
|
sta $750+19
|
|
lda telescope_angle_strings+1,X
|
|
ora #$80
|
|
dt_smc2:
|
|
sta $750+20
|
|
|
|
|
|
jmp done_display_telescope
|
|
|
|
even_angle:
|
|
lda #<telescope_string_even
|
|
sta OUTL
|
|
lda #>telescope_string_even
|
|
sta OUTH
|
|
jsr move_and_print
|
|
jsr move_and_print
|
|
|
|
; 0 should print 0 10
|
|
; 1 should print 10
|
|
; 2 should prrint 10 20
|
|
|
|
lda telescope_angle
|
|
and #$fe
|
|
tax
|
|
|
|
bne not_left_zero
|
|
|
|
lda #' '|$80
|
|
dt_smc8:
|
|
sta $750+17
|
|
|
|
not_left_zero:
|
|
cpx #70
|
|
bne not_right_zero
|
|
|
|
lda #' '|$80
|
|
dt_smc9:
|
|
sta $750+25
|
|
|
|
not_right_zero:
|
|
|
|
|
|
lda telescope_angle_strings,X
|
|
ora #$80
|
|
dt_smc3:
|
|
sta $750+15
|
|
lda telescope_angle_strings+1,X
|
|
ora #$80
|
|
dt_smc4:
|
|
sta $750+16
|
|
|
|
inx
|
|
inx
|
|
lda telescope_angle_strings,X
|
|
ora #$80
|
|
dt_smc5:
|
|
sta $750+23
|
|
lda telescope_angle_strings+1,X
|
|
ora #$80
|
|
dt_smc6:
|
|
sta $750+24
|
|
|
|
|
|
done_display_telescope:
|
|
; restore inverse text
|
|
lda #$29
|
|
sta ps_smc1
|
|
lda #$3f
|
|
sta ps_smc1+1
|
|
|
|
rts
|
|
|
|
|
|
; rotate the telescop
|
|
telescope_pan:
|
|
lda CURSOR_X
|
|
cmp #20
|
|
bcs telescope_right
|
|
|
|
|
|
telescope_left:
|
|
dec telescope_angle
|
|
bpl done_telescope
|
|
lda #71
|
|
bne store_telescope ; bra
|
|
|
|
telescope_right:
|
|
inc telescope_angle
|
|
lda telescope_angle
|
|
cmp #72
|
|
bne done_telescope
|
|
|
|
lda #0
|
|
store_telescope:
|
|
sta telescope_angle
|
|
|
|
done_telescope:
|
|
rts
|
|
|
|
telescope_string_odd:
|
|
.byte 16,21," : ",0
|
|
.byte 16,22," 0 ",0
|
|
|
|
telescope_string_even:
|
|
.byte 16,21,": :",0
|
|
.byte 16,22," 0 0",0
|
|
|
|
telescope_angle_strings:
|
|
.byte " 0"
|
|
.byte " 1"
|
|
.byte " 2"
|
|
.byte " 3"
|
|
.byte " 4"
|
|
.byte " 5"
|
|
.byte " 6"
|
|
.byte " 7"
|
|
.byte " 8"
|
|
.byte " 9"
|
|
.byte "10"
|
|
.byte "11"
|
|
.byte "12"
|
|
.byte "13"
|
|
.byte "14"
|
|
.byte "15"
|
|
.byte "16"
|
|
.byte "17"
|
|
.byte "18"
|
|
.byte "19"
|
|
.byte "20"
|
|
.byte "21"
|
|
.byte "22"
|
|
.byte "23"
|
|
.byte "24"
|
|
.byte "25"
|
|
.byte "26"
|
|
.byte "27"
|
|
.byte "28"
|
|
.byte "29"
|
|
.byte "30"
|
|
.byte "31"
|
|
.byte "32"
|
|
.byte "33"
|
|
.byte "34"
|
|
.byte "35"
|
|
.byte " 0"
|
|
.byte " 1"
|
|
|
|
telescope_angle:
|
|
.byte $00
|
|
|
|
|
|
telescope_tile_lookup:
|
|
.byte 2, 3, 4, 3, 0, 0 ; 0
|
|
.byte 0, 1, 0, 0, 5, 0 ; 30
|
|
.byte 6, 7, 0, 8, 9, 0 ; 60
|
|
.byte 3,10, 0, 0,11, 0 ; 90
|
|
.byte 0, 0,12,13, 0, 3 ; 120
|
|
.byte 10, 0, 0, 5, 1, 2 ; 150
|
|
.byte 11, 0,14, 0, 2,15 ; 180
|
|
.byte 9, 5, 0, 3,16, 0 ; 210
|
|
.byte 16, 1, 0, 2,16, 0 ; 240
|
|
.byte 4, 0, 0, 0, 0, 0 ; 270
|
|
.byte 3, 7, 0, 0, 0, 0 ; 300
|
|
.byte 0, 0, 2, 2, 0, 1 ; 330
|
|
.byte 2 ; 360
|
|
|
|
|
|
telescope_sprites:
|
|
.word telescope_bg0_sprite
|
|
.word telescope_bg1_sprite
|
|
.word telescope_bg2_sprite
|
|
.word telescope_bg3_sprite
|
|
.word telescope_bg4_sprite
|
|
.word telescope_bg5_sprite
|
|
.word telescope_bg6_sprite
|
|
.word telescope_bg7_sprite
|
|
.word telescope_bg8_sprite
|
|
.word telescope_bg9_sprite
|
|
.word telescope_bg10_sprite
|
|
.word telescope_bg11_sprite
|
|
.word telescope_bg12_sprite
|
|
.word telescope_bg13_sprite
|
|
.word telescope_bg14_sprite
|
|
.word telescope_bg15_sprite
|
|
.word telescope_bg16_sprite
|
|
|
|
telescope_bg0_sprite:
|
|
.byte 1,1
|
|
.byte $aa
|
|
|
|
telescope_bg1_sprite:
|
|
.byte 3,6
|
|
.byte $ff,$ff,$ff
|
|
.byte $ff,$55,$55
|
|
.byte $ff,$55,$55
|
|
.byte $57,$55,$55
|
|
.byte $55,$55,$55
|
|
.byte $55,$55,$55
|
|
|
|
telescope_bg2_sprite:
|
|
.byte 3,6
|
|
.byte $ff,$ff,$ff
|
|
.byte $ff,$ff,$ff
|
|
.byte $ff,$ff,$ff
|
|
.byte $67,$67,$67
|
|
.byte $66,$66,$55
|
|
.byte $66,$55,$55
|
|
|
|
telescope_bg3_sprite:
|
|
.byte 4,6
|
|
.byte $ff,$ff,$5f,$ff
|
|
.byte $ff,$ff,$55,$55
|
|
.byte $ff,$ff,$55,$55
|
|
.byte $67,$67,$55,$55
|
|
.byte $66,$66,$55,$55
|
|
.byte $66,$55,$55,$55
|
|
|
|
telescope_bg4_sprite:
|
|
.byte 3,6
|
|
.byte $ff,$5f,$ff
|
|
.byte $55,$55,$ff
|
|
.byte $55,$55,$ff
|
|
.byte $55,$55,$67
|
|
.byte $55,$55,$66
|
|
.byte $55,$55,$55
|
|
|
|
telescope_bg5_sprite:
|
|
.byte 3,7
|
|
.byte $ff,$55,$55
|
|
.byte $ff,$55,$55
|
|
.byte $ff,$55,$55
|
|
.byte $67,$55,$55
|
|
.byte $66,$55,$55
|
|
.byte $66,$55,$55
|
|
.byte $66,$55,$55
|
|
|
|
telescope_bg6_sprite:
|
|
.byte 4,7
|
|
.byte $ff,$ff,$ff,$55
|
|
.byte $ff,$ff,$ff,$55
|
|
.byte $ff,$ff,$55,$55
|
|
.byte $67,$67,$55,$55
|
|
.byte $66,$55,$55,$55
|
|
.byte $66,$55,$55,$55
|
|
.byte $56,$55,$55,$55
|
|
|
|
telescope_bg7_sprite:
|
|
.byte 1,7
|
|
.byte $55
|
|
.byte $55
|
|
.byte $55
|
|
.byte $55
|
|
.byte $55
|
|
.byte $55
|
|
.byte $55
|
|
|
|
telescope_bg8_sprite:
|
|
.byte 4,7
|
|
.byte $77,$77,$ff,$ff
|
|
.byte $77,$77,$ff,$ff
|
|
.byte $77,$77,$ff,$ff
|
|
.byte $77,$77,$67,$55
|
|
.byte $77,$77,$56,$55
|
|
.byte $77,$57,$55,$55
|
|
.byte $57,$55,$55,$55
|
|
|
|
telescope_bg9_sprite:
|
|
.byte 2,7
|
|
.byte $ff,$ff
|
|
.byte $ff,$ff
|
|
.byte $ff,$ff
|
|
.byte $55,$67
|
|
.byte $55,$66
|
|
.byte $55,$66
|
|
.byte $55,$55
|
|
|
|
telescope_bg10_sprite:
|
|
.byte 4,6
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $5f,$ff,$ff,$ff
|
|
.byte $55,$ff,$7f,$ff
|
|
.byte $55,$67,$77,$67
|
|
.byte $55,$55,$77,$77
|
|
.byte $55,$55,$57,$77
|
|
|
|
|
|
telescope_bg11_sprite:
|
|
.byte 4,7
|
|
.byte $ff,$55,$ff,$5f
|
|
.byte $ff,$55,$00,$55
|
|
.byte $ff,$55,$00,$55
|
|
.byte $67,$55,$00,$55
|
|
.byte $66,$55,$00,$55
|
|
.byte $66,$55,$00,$55
|
|
.byte $66,$55,$00,$55
|
|
|
|
telescope_bg12_sprite:
|
|
.byte 4,7
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $ff,$ff,$ff,$dd
|
|
.byte $67,$67,$ee,$ee
|
|
.byte $66,$ee,$ee,$ee
|
|
.byte $66,$ee,$ee,$ee
|
|
.byte $e6,$ee,$ee,$ee
|
|
|
|
telescope_bg13_sprite:
|
|
.byte 4,7
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $dd,$ff,$ff,$ff
|
|
.byte $ee,$ee,$67,$67
|
|
.byte $ee,$ee,$ee,$66
|
|
.byte $ee,$ee,$ee,$66
|
|
.byte $ee,$ee,$ee,$e6
|
|
|
|
telescope_bg14_sprite:
|
|
.byte 4,7
|
|
.byte $ff,$77,$7f,$77
|
|
.byte $ff,$77,$77,$77
|
|
.byte $ff,$77,$77,$77
|
|
.byte $55,$57,$55,$77
|
|
.byte $55,$55,$55,$77
|
|
.byte $55,$55,$55,$77
|
|
.byte $55,$55,$55,$77
|
|
|
|
telescope_bg15_sprite:
|
|
.byte 4,7
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $77,$ff,$ff,$55
|
|
.byte $77,$77,$67,$55
|
|
.byte $77,$77,$55,$55
|
|
.byte $77,$77,$55,$55
|
|
.byte $66,$66,$55,$55
|
|
|
|
telescope_bg16_sprite:
|
|
.byte 4,6
|
|
.byte $ff,$ff,$ff,$ff
|
|
.byte $55,$ff,$ff,$ff
|
|
.byte $55,$55,$55,$ff
|
|
.byte $55,$55,$55,$67
|
|
.byte $55,$55,$55,$55
|
|
.byte $55,$55,$55,$55
|
|
|
|
|
|
lighthouse_beacon_off:
|
|
lda #$dd
|
|
sta telescope_bg12_sprite+13
|
|
sta telescope_bg13_sprite+10
|
|
rts
|
|
|
|
lighthouse_beacon_on:
|
|
lda #$d1
|
|
sta telescope_bg12_sprite+13
|
|
sta telescope_bg13_sprite+10
|
|
rts
|
|
|
|
draw_exit_tunnel:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_S
|
|
bne done_doorway
|
|
|
|
lda PUMP_STATE
|
|
cmp #DRAINED_EXIT
|
|
beq done_doorway
|
|
|
|
ldx #32
|
|
lda #<exit_water_list
|
|
sta INL
|
|
lda #>exit_water_list
|
|
sta INH
|
|
jmp hlin_list
|
|
|
|
draw_doorway1:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_N
|
|
bne done_doorway
|
|
|
|
lda BATTERY_CHARGE
|
|
bne doorway1_draw_water
|
|
|
|
doorway1_draw_dark:
|
|
ldx #0
|
|
lda #<doorway1_dark_list
|
|
sta INL
|
|
lda #>doorway1_dark_list
|
|
sta INH
|
|
jsr hlin_list
|
|
|
|
doorway1_draw_water:
|
|
lda PUMP_STATE
|
|
cmp #DRAINED_TUNNELS
|
|
beq done_doorway
|
|
|
|
ldx #24
|
|
lda #<doorway1_water_list
|
|
sta INL
|
|
lda #>doorway1_water_list
|
|
sta INH
|
|
jmp hlin_list
|
|
|
|
draw_doorway2:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_N
|
|
bne done_doorway
|
|
|
|
lda BATTERY_CHARGE
|
|
bne doorway2_draw_water
|
|
doorway2_draw_dark:
|
|
ldx #8
|
|
lda #<doorway2_dark_list
|
|
sta INL
|
|
lda #>doorway2_dark_list
|
|
sta INH
|
|
jsr hlin_list
|
|
|
|
doorway2_draw_water:
|
|
lda PUMP_STATE
|
|
cmp #DRAINED_TUNNELS
|
|
beq done_doorway
|
|
|
|
ldx #28
|
|
lda #<doorway2_water_list
|
|
sta INL
|
|
lda #>doorway2_water_list
|
|
sta INH
|
|
jmp hlin_list
|
|
|
|
|
|
done_doorway:
|
|
rts
|
|
|
|
draw_airlock_doorknob:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_N
|
|
bne done_doorway
|
|
|
|
ldx #16
|
|
lda #<airlock_doorknob_list
|
|
sta INL
|
|
lda #>airlock_doorknob_list
|
|
sta INH
|
|
jmp hlin_list
|
|
|
|
|
|
draw_light_doorway:
|
|
lda DIRECTION
|
|
cmp #DIRECTION_S
|
|
bne done_doorway
|
|
|
|
lda BATTERY_CHARGE
|
|
bne done_doorway
|
|
|
|
ldx #12
|
|
lda #<doorway_light_list
|
|
sta INL
|
|
lda #>doorway_light_list
|
|
sta INH
|
|
jmp hlin_list
|
|
|
|
; at 0
|
|
doorway1_dark_list:
|
|
.byte $00,15,12
|
|
.byte $00,15,12
|
|
.byte $00,15,12
|
|
.byte $00,16,11
|
|
.byte $00,16,11
|
|
.byte $00,16,11
|
|
.byte $00,16,11
|
|
.byte $00,16,11
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,10
|
|
.byte $00,17,9
|
|
.byte $00,24,2
|
|
.byte $00,24,2
|
|
.byte $00,24,2
|
|
.byte $00,24,2
|
|
.byte $00,24,2
|
|
.byte $00,24,2
|
|
.byte $00,25,1
|
|
.byte $ff,$ff,$ff
|
|
|
|
; at 8
|
|
doorway2_dark_list:
|
|
.byte $00,16,10
|
|
.byte $00,17,9
|
|
.byte $00,17,9
|
|
.byte $00,18,8
|
|
.byte $00,19,7
|
|
.byte $00,20,5
|
|
.byte $00,21,4
|
|
.byte $00,22,3
|
|
.byte $00,23,2
|
|
.byte $00,23,2
|
|
.byte $55,21,2
|
|
.byte $55,20,3
|
|
.byte $55,16,7
|
|
.byte $55,16,7
|
|
.byte $55,16,8
|
|
.byte $55,16,8
|
|
.byte $ff,$ff,$ff
|
|
|
|
; at 12
|
|
doorway_light_list:
|
|
.byte $ff,19,2
|
|
.byte $ff,19,2
|
|
.byte $ff,19,2
|
|
.byte $ff,19,2
|
|
.byte $ff,19,2
|
|
.byte $ff,19,2
|
|
.byte $ff,$ff,$ff
|
|
|
|
|
|
; at 16
|
|
airlock_doorknob_list:
|
|
.byte $d0,19,2
|
|
.byte $ff,$ff,$ff
|
|
|
|
; at 32
|
|
exit_water_list:
|
|
.byte $26,19,2
|
|
.byte $26,18,4
|
|
.byte $26,18,4
|
|
.byte $26,17,6
|
|
.byte $ff,$ff,$ff
|
|
|
|
; at 24
|
|
doorway1_water_list:
|
|
.byte $62,17,1
|
|
.byte $62,17,2
|
|
.byte $62,17,3
|
|
.byte $62,17,4
|
|
.byte $62,17,5
|
|
.byte $ff,$ff,$ff
|
|
|
|
; at 28
|
|
doorway2_water_list:
|
|
.byte $62,21,2
|
|
.byte $62,18,5
|
|
.byte $62,17,6
|
|
.byte $ff,$ff,$ff
|
|
|
|
|
|
|
|
;======================================
|
|
; trunk
|
|
;======================================
|
|
|
|
; States: originally FULL OF WATER, PLUG CLOSED
|
|
; open plug: EMPTY OF WATER, PLUG OPEN
|
|
; water raises: FULL OF WATER, PLUG OPEN
|
|
; close plug: EMPTY OF WATER, PLUG CLOSED
|
|
|
|
|
|
;====================================
|
|
; goto the trunk close
|
|
; OR pickup floor key if applicable
|
|
;====================================
|
|
goto_trunk:
|
|
lda CURSOR_X
|
|
cmp #22
|
|
bcc goto_the_trunk ; blt
|
|
|
|
; pickup floor key?
|
|
lda TRUNK_STATE
|
|
and #TRUNK_KEY_ON_FLOOR
|
|
beq no_floor_key
|
|
|
|
pickup_floor_key:
|
|
lda TRUNK_STATE
|
|
and #<(~TRUNK_KEY_ON_FLOOR)
|
|
sta TRUNK_STATE
|
|
|
|
lda #HOLDING_KEY
|
|
sta HOLDING_ITEM
|
|
|
|
jsr update_inside_lighthouse_action
|
|
|
|
no_floor_key:
|
|
rts
|
|
|
|
goto_the_trunk:
|
|
|
|
lda #STONEY_TRUNK_CLOSE
|
|
sta LOCATION
|
|
|
|
jmp change_location
|
|
|
|
|
|
trunk_open_plug:
|
|
; TOGGLE TRUNK_VALVE_OPEN
|
|
; CLEAR FULL_OF_WATER
|
|
|
|
; if full of water, start animation
|
|
lda TRUNK_STATE
|
|
and #TRUNK_WATER_DRAINED
|
|
bne water_already_gone
|
|
|
|
lda #12
|
|
bne water_water_water ; bra
|
|
|
|
water_already_gone:
|
|
lda #0
|
|
water_water_water:
|
|
sta ANIMATE_FRAME
|
|
lda TRUNK_STATE
|
|
eor #TRUNK_VALVE_OPEN
|
|
ora #TRUNK_WATER_DRAINED
|
|
sta TRUNK_STATE
|
|
rts
|
|
|
|
|
|
;===============================
|
|
; draw the close-in-trunk puzzle
|
|
;===============================
|
|
draw_trunk_close:
|
|
|
|
lda TRUNK_STATE
|
|
and #TRUNK_VALVE_OPEN
|
|
bne draw_trunk_plug_open
|
|
|
|
draw_trunk_plug_closed:
|
|
lda #7
|
|
sta XPOS
|
|
lda #40
|
|
sta YPOS
|
|
lda #<trunk_plug_closed_sprite
|
|
sta INL
|
|
lda #>trunk_plug_closed_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
jmp done_draw_trunk_plug
|
|
|
|
draw_trunk_plug_open:
|
|
|
|
lda #10
|
|
sta XPOS
|
|
lda #44
|
|
sta YPOS
|
|
lda #<trunk_plug_open_sprite
|
|
sta INL
|
|
lda #>trunk_plug_open_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
done_draw_trunk_plug:
|
|
lda ANIMATE_FRAME
|
|
beq totally_done_draw_trunk_plug
|
|
|
|
; animate water coming out
|
|
|
|
ror ; get low bit into carry
|
|
bcc trunk_water_even
|
|
|
|
trunk_water_odd:
|
|
lda #<trunk_plug_water1_sprite
|
|
sta INL
|
|
lda #>trunk_plug_water1_sprite
|
|
sta INH
|
|
bne trunk_water_draw ; bra
|
|
|
|
trunk_water_even:
|
|
lda #<trunk_plug_water0_sprite
|
|
sta INL
|
|
lda #>trunk_plug_water0_sprite
|
|
sta INH
|
|
trunk_water_draw:
|
|
lda #7
|
|
sta XPOS
|
|
lda #44
|
|
sta YPOS
|
|
jsr put_sprite_crop
|
|
|
|
lda FRAMEL
|
|
and #$1f
|
|
bne totally_done_draw_trunk_plug
|
|
|
|
dec ANIMATE_FRAME
|
|
|
|
totally_done_draw_trunk_plug:
|
|
rts
|
|
|
|
|
|
; at 7,40
|
|
trunk_plug_closed_sprite:
|
|
.byte 2,2
|
|
.byte $79,$97
|
|
.byte $77,$79
|
|
|
|
; at 10,44
|
|
trunk_plug_open_sprite:
|
|
.byte 2,2
|
|
.byte $9d,$88
|
|
.byte $79,$98
|
|
|
|
; at 7,44
|
|
trunk_plug_water0_sprite:
|
|
.byte 2,2
|
|
.byte $67,$72
|
|
.byte $62,$77
|
|
|
|
trunk_plug_water1_sprite:
|
|
.byte 2,2
|
|
.byte $27,$76
|
|
.byte $26,$77
|
|
|
|
|
|
|
|
;=================================
|
|
; handle inside lighthouse
|
|
;=================================
|
|
; if to right, rotate to ladder
|
|
; if attached key, animate it
|
|
; if trunk up and open, pick up key
|
|
; if trunk up and closed, ignore
|
|
; if trunk down, go down
|
|
handle_inside_lighthouse:
|
|
|
|
lda CURSOR_X
|
|
cmp #27
|
|
bcs rotate_to_ladder ; bge
|
|
|
|
lda CURSOR_Y
|
|
cmp #37
|
|
bcc inside_other ; blt
|
|
lda CURSOR_X
|
|
cmp #19
|
|
bcc inside_other ; blt
|
|
|
|
start_key_animation:
|
|
|
|
lda #0
|
|
sta FRAMEL
|
|
|
|
lda #1
|
|
sta ANIMATE_FRAME
|
|
|
|
rts
|
|
|
|
inside_other:
|
|
|
|
; if water-up-not-open do nothing
|
|
; if water-down, go down steps
|
|
; if water-up-open - grab key
|
|
|
|
lda PUMP_STATE
|
|
cmp #DRAINED_LIGHTHOUSE
|
|
bne inside_water_up
|
|
inside_and_drained:
|
|
lda #STONEY_LIGHTHOUSE_SPIRAL
|
|
sta LOCATION
|
|
jmp change_location
|
|
|
|
inside_water_up:
|
|
|
|
lda TRUNK_STATE
|
|
and #TRUNK_LID_OPEN
|
|
beq inside_water_do_nothing
|
|
|
|
; take key
|
|
lda TRUNK_STATE
|
|
ora #TRUNK_KEY_TAKEN
|
|
sta TRUNK_STATE
|
|
|
|
; switch cursor to have key
|
|
lda #HOLDING_KEY
|
|
sta HOLDING_ITEM
|
|
|
|
; HACK
|
|
; swap out so we can open lock now
|
|
|
|
jsr update_inside_lighthouse_action
|
|
|
|
inside_water_do_nothing:
|
|
rts
|
|
|
|
rotate_to_ladder:
|
|
lda #DIRECTION_E
|
|
sta DIRECTION
|
|
jmp change_direction
|
|
|
|
|
|
;=============================
|
|
; draw inside of lighthouse
|
|
;=============================
|
|
|
|
draw_inside_lighthouse:
|
|
|
|
lda DIRECTION
|
|
and #$f
|
|
cmp #DIRECTION_N
|
|
bne done_draw_inside_lighthouse
|
|
|
|
looking_toward_trunk:
|
|
|
|
; if trunk is open and key not taken, draw it
|
|
lda TRUNK_STATE
|
|
and #(TRUNK_KEY_TAKEN|TRUNK_LID_OPEN)
|
|
cmp #TRUNK_LID_OPEN
|
|
bne dont_draw_key
|
|
|
|
lda #16
|
|
sta XPOS
|
|
lda #30
|
|
sta YPOS
|
|
|
|
lda #<trunk_key_sprite
|
|
sta INL
|
|
lda #>trunk_key_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
|
|
dont_draw_key:
|
|
|
|
lda ANIMATE_FRAME
|
|
|
|
; since 0 is the static image, we can just treat
|
|
; as always being animated
|
|
|
|
asl
|
|
tay
|
|
lda animate_key_frames,Y
|
|
sta INL
|
|
lda animate_key_frames+1,Y
|
|
sta INH
|
|
|
|
lda #18
|
|
sta XPOS
|
|
lda #36
|
|
sta YPOS
|
|
|
|
jsr put_sprite_crop
|
|
|
|
; increment animation
|
|
lda ANIMATE_FRAME
|
|
beq done_draw_inside_lighthouse
|
|
|
|
lda FRAMEL
|
|
and #$1f
|
|
bne done_draw_inside_lighthouse
|
|
|
|
inc ANIMATE_FRAME
|
|
lda ANIMATE_FRAME
|
|
cmp #8
|
|
bne done_draw_inside_lighthouse
|
|
|
|
; done animating
|
|
lda #0
|
|
sta ANIMATE_FRAME
|
|
|
|
; open trunk but only if trunk is up
|
|
; so if TRUNK_STATE & TRUNK_WATER_DRAINED = 1
|
|
; and PUMP_STATE & DRAINED_LIGHTHOUSE = 0
|
|
lda PUMP_STATE
|
|
and #DRAINED_LIGHTHOUSE
|
|
bne dont_open_trunk
|
|
|
|
lda TRUNK_STATE
|
|
and #TRUNK_WATER_DRAINED
|
|
beq dont_open_trunk
|
|
|
|
lda TRUNK_STATE
|
|
ora #TRUNK_LID_OPEN
|
|
sta TRUNK_STATE
|
|
|
|
; actually change background
|
|
jsr update_pump_state
|
|
jsr change_direction
|
|
dont_open_trunk:
|
|
|
|
done_draw_inside_lighthouse:
|
|
rts
|
|
|
|
animate_key_frames:
|
|
.word key_frame0_sprite ; 0
|
|
.word key_frame0_sprite ; 1
|
|
.word key_frame1_sprite ; 2
|
|
.word key_frame2_sprite ; 3
|
|
.word key_frame3_sprite ; 4
|
|
.word key_frame4_sprite ; 5
|
|
.word key_frame5_sprite ; 6
|
|
.word key_frame4_sprite ; 7
|
|
.word key_frame5_sprite ; 8
|
|
|
|
; at 18, 36
|
|
key_frame0_sprite:
|
|
.byte 10,5
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$0A,$0A,$0A,$00,$0A,$AA
|
|
.byte $AA,$AA,$0A,$AA,$A0,$AA,$AA,$00,$A0,$0A
|
|
.byte $AA,$AA,$A0,$00,$0A,$0A,$0A,$0A,$0A,$A0
|
|
|
|
key_frame1_sprite:
|
|
.byte 9,5
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$0A,$AA,$AA
|
|
.byte $AA,$AA,$AA,$00,$A0,$A0,$00,$00,$AA
|
|
.byte $AA,$AA,$0A,$AA,$AA,$AA,$A0,$AA,$00
|
|
.byte $AA,$AA,$A0,$00,$0A,$0A,$0A,$0A,$A0
|
|
|
|
key_frame2_sprite:
|
|
.byte 8,5
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
|
|
.byte $AA,$AA,$0A,$0A,$0A,$00,$0A,$AA
|
|
.byte $AA,$AA,$A0,$AA,$AA,$00,$A0,$0A
|
|
.byte $AA,$AA,$0A,$AA,$AA,$AA,$AA,$00
|
|
.byte $AA,$AA,$A0,$00,$0A,$0A,$0A,$A0
|
|
|
|
key_frame3_sprite:
|
|
.byte 8,5
|
|
.byte $AA,$AA,$AA,$AA,$0A,$AA,$AA,$AA
|
|
.byte $AA,$00,$A0,$A0,$00,$00,$AA,$AA
|
|
.byte $AA,$AA,$AA,$AA,$A0,$AA,$A0,$0A
|
|
.byte $AA,$AA,$0A,$AA,$AA,$AA,$0A,$A0
|
|
.byte $AA,$AA,$A0,$00,$0A,$0A,$A0,$AA
|
|
|
|
key_frame4_sprite:
|
|
.byte 7,5
|
|
.byte $0A,$0A,$0A,$00,$0A,$AA,$AA
|
|
.byte $A0,$AA,$AA,$00,$A0,$0A,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$00
|
|
.byte $AA,$AA,$0A,$AA,$AA,$AA,$00
|
|
.byte $AA,$AA,$A0,$00,$0A,$0A,$A0
|
|
|
|
key_frame5_sprite:
|
|
.byte 7,5
|
|
.byte $0A,$0A,$0A,$00,$0A,$AA,$AA
|
|
.byte $AA,$AA,$AA,$A0,$AA,$00,$AA
|
|
.byte $AA,$AA,$AA,$AA,$AA,$AA,$00
|
|
.byte $AA,$AA,$0A,$AA,$AA,$AA,$00
|
|
.byte $AA,$AA,$A0,$00,$0A,$0A,$A0
|
|
|
|
|
|
; at 16,30
|
|
trunk_key_sprite:
|
|
.byte 5,2
|
|
.byte $AA,$AA,$AA,$0A,$0A
|
|
.byte $00,$A0,$A0,$00,$A0
|
|
|
|
|
|
|
|
;============================
|
|
; update hatch state
|
|
;============================
|
|
update_hatch_state:
|
|
; default is locked and can't go to top
|
|
|
|
lda TRUNK_STATE
|
|
and #TRUNK_HATCH_OPEN
|
|
beq close_hatch
|
|
|
|
open_hatch:
|
|
ldy #LOCATION_EAST_EXIT
|
|
lda #STONEY_LIGHTHOUSE_UPSTAIRS
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
ldy #LOCATION_EAST_BG
|
|
lda #<lighthouse_inside_e_lzsa
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
lda #>lighthouse_inside_e_lzsa
|
|
sta location5+1,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
rts
|
|
|
|
close_hatch:
|
|
ldy #LOCATION_EAST_EXIT
|
|
lda #$ff
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
ldy #LOCATION_EAST_BG
|
|
lda #<lighthouse_inside_locked_e_lzsa
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
lda #>lighthouse_inside_locked_e_lzsa
|
|
sta location5+1,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
|
|
rts
|
|
|
|
|
|
;========================
|
|
; update inside lighthouse action
|
|
;========================
|
|
; change action behavior if holding key
|
|
update_inside_lighthouse_action:
|
|
|
|
lda HOLDING_ITEM
|
|
cmp #HOLDING_KEY
|
|
bne normal_action
|
|
|
|
holding_action:
|
|
ldy #LOCATION_SPECIAL_EXIT
|
|
lda #DIRECTION_E
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
ldy #LOCATION_SPECIAL_X1
|
|
lda #12
|
|
sta location5,Y
|
|
lda #19
|
|
sta location5+1,Y
|
|
lda #8
|
|
sta location5+2,Y
|
|
lda #20
|
|
sta location5+3,Y
|
|
|
|
ldy #LOCATION_SPECIAL_FUNC
|
|
lda #<(unlock_hatch-1)
|
|
sta location5,Y
|
|
lda #>(unlock_hatch-1)
|
|
sta location5+1,Y
|
|
|
|
rts
|
|
|
|
normal_action:
|
|
ldy #LOCATION_SPECIAL_EXIT
|
|
lda #DIRECTION_N
|
|
sta location5,Y ; STONEY_LIGHTHOUSE_INSIDE
|
|
ldy #LOCATION_SPECIAL_X1
|
|
lda #10
|
|
sta location5,Y
|
|
lda #35
|
|
sta location5+1,Y
|
|
lda #20
|
|
sta location5+2,Y
|
|
lda #44
|
|
sta location5+3,Y
|
|
|
|
ldy #LOCATION_SPECIAL_FUNC
|
|
lda #<(handle_inside_lighthouse-1)
|
|
sta location5,Y
|
|
lda #>(handle_inside_lighthouse-1)
|
|
sta location5+1,Y
|
|
|
|
rts
|
|
|
|
|
|
|
|
;========================
|
|
; unlock the hatch
|
|
;========================
|
|
; FIXME: show animation?
|
|
; drop key?
|
|
; in actual game you still have to manually open hatch
|
|
; after the lock falls off
|
|
unlock_hatch:
|
|
|
|
; drop key
|
|
lda #0
|
|
sta HOLDING_ITEM
|
|
|
|
jsr update_inside_lighthouse_action
|
|
|
|
; unlock the hatch
|
|
lda TRUNK_STATE
|
|
ora #TRUNK_HATCH_OPEN
|
|
ora #TRUNK_KEY_ON_FLOOR ; drop key on floor
|
|
sta TRUNK_STATE
|
|
|
|
jsr update_hatch_state
|
|
jmp change_direction
|
|
|
|
|
|
|
|
|
|
;========================
|
|
; draw floor key
|
|
;========================
|
|
draw_floor_key:
|
|
lda TRUNK_STATE
|
|
and #TRUNK_KEY_ON_FLOOR
|
|
beq done_draw_floor_key
|
|
|
|
lda #23
|
|
sta XPOS
|
|
lda #34
|
|
sta YPOS
|
|
|
|
lda #<trunk_key_sprite
|
|
sta INL
|
|
lda #>trunk_key_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
done_draw_floor_key:
|
|
rts
|