Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-19 00:30:01 +00:00
Code Issues Projects Releases Wiki Activity

mist: stoneship: can now get blue page

Browse Source
This commit is contained in:
Vince Weaver 2020-04-28 11:30:19 -04:00
parent 42d33bc703
commit fd762353aa
10 changed files with 197 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mist/common_defines.inc
View File

@ -257,10 +257,12 @@ STONEY_COMPASS_ROSE = 42
STONEY_RIGHT_TUNNEL1 = 43
STONEY_RIGHT_TUNNEL2 = 44
STONEY_RIGHT_AIRLOCK = 45
STONEY_RIGH_AIRLOCK_OPEN= 46
STONEY_RIGHT_AIRLOCK_OPEN= 46
STONEY_BLUE_ROOM = 47
STONEY_BLUE_ROOM_BED = 48
STONEY_CRAWLWAY_RIGHT = 49
STONEY_BLUE_MAPCASE = 48
STONEY_BLUE_MAPCASE_OPEN= 49
STONEY_BLUE_HALFMESSAGE = 50
STONEY_CRAWLWAY_RIGHT = 51
; Channely Wood
CHANNEL_OUTSIDE_CABIN = 0

11
mist/graphics_stoney/Makefile
View File

@ -46,7 +46,9 @@ stoney_graphics.inc: \
dresser_e.lzsa dresser_open_e.lzsa \
compass_room_w.lzsa compass_room_e.lzsa \
compass_rose_w.lzsa \
crawlway_e.lzsa crawlway_w.lzsa
crawlway_e.lzsa crawlway_w.lzsa \
blue_room_n.lzsa blue_room_s.lzsa blue_room_e.lzsa blue_room_w.lzsa \
map_case_open_e.lzsa map_case_closed_e.lzsa
echo "ship_entry_n_lzsa: .incbin \"ship_entry_n.lzsa\"" > stoney_graphics.inc
echo "ship_entry_s_lzsa: .incbin \"ship_entry_s.lzsa\"" >> stoney_graphics.inc
echo "ship_bow_s_lzsa: .incbin \"ship_bow_s.lzsa\"" >> stoney_graphics.inc
@ -128,6 +130,13 @@ stoney_graphics.inc: \
echo "compass_rose_w_lzsa: .incbin \"compass_rose_w.lzsa\"" >> stoney_graphics.inc
echo "crawlway_e_lzsa: .incbin \"crawlway_e.lzsa\"" >> stoney_graphics.inc
echo "crawlway_w_lzsa: .incbin \"crawlway_w.lzsa\"" >> stoney_graphics.inc
echo "blue_room_n_lzsa: .incbin \"blue_room_n.lzsa\"" >> stoney_graphics.inc
echo "blue_room_s_lzsa: .incbin \"blue_room_s.lzsa\"" >> stoney_graphics.inc
echo "blue_room_e_lzsa: .incbin \"blue_room_e.lzsa\"" >> stoney_graphics.inc
echo "blue_room_w_lzsa: .incbin \"blue_room_w.lzsa\"" >> stoney_graphics.inc
echo "map_case_open_e_lzsa: .incbin \"map_case_open_e.lzsa\"" >> stoney_graphics.inc
echo "map_case_closed_e_lzsa: .incbin \"map_case_closed_e.lzsa\"" >> stoney_graphics.inc
%.gr: %.png

BIN
mist/graphics_stoney/blue_room_e.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
mist/graphics_stoney/blue_room_n.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
mist/graphics_stoney/blue_room_s.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.0 KiB

BIN
mist/graphics_stoney/blue_room_w.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1019 B

BIN
mist/graphics_stoney/map_case_closed_e.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
mist/graphics_stoney/map_case_open_e.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

169
mist/leveldata_stoney.inc
View File

@ -14,7 +14,10 @@ locations:
.word location28,location29,location30,location31
.word location32,location33,location34,location35
.word location36,location37,location38,location39
.word location40,location41,location42
.word location40,location41,location42,location43
.word location44,location45,location46,location47
.word location48,location49,location50,location51
; STONEY_SHIP_STERN -- back of the ship
@ -500,11 +503,11 @@ location26:
; STONEY_DOORWAY2 -- doorway on other half of ship
location27:
.byte $ff ; north exit
.byte STONEY_RIGHT_TUNNEL1 ; north exit
.byte $ff ; south exit
.byte STONEY_TELESCOPE_PATH1 ; east exit
.byte STONEY_BRIDGE ; west exit
.byte $ff ; north exit_dir
.byte DIRECTION_N ; north exit_dir
.byte $ff ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte DIRECTION_W ; west exit_dir
@ -772,3 +775,163 @@ location42:
.word compass_rose_w_lzsa ; west bg
.byte BG_WEST
.byte $ff
; STONEY_RIGHT_TUNNEL1 -- right tunnel to blue room
location43:
.byte STONEY_RIGHT_TUNNEL2 ; north exit
.byte STONEY_DOORWAY2 ; south exit
.byte $ff ; east exit
.byte $ff ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word left_tunnel1_n_lzsa ; north bg
.word left_tunnel1_s_lzsa ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff
; STONEY_RIGHT_TUNNEL2 -- right tunnel to blue room, with side
location44:
.byte STONEY_RIGHT_AIRLOCK ; north exit
.byte STONEY_RIGHT_TUNNEL1 ; south exit
.byte STONEY_CRAWLWAY_RIGHT ; east exit
.byte $ff ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte DIRECTION_W ; west exit_dir
.word left_tunnel2_n_lzsa ; north bg
.word left_tunnel2_s_lzsa ; south bg
.word left_tunnel2_w_lzsa ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH|BG_EAST
.byte $ff
; STONEY_RIGHT_AIRLOCK -- airlock to blue room
location45:
.byte STONEY_RIGHT_AIRLOCK_OPEN ; north exit
.byte STONEY_RIGHT_TUNNEL2 ; south exit
.byte $ff ; east exit
.byte $ff ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word left_airlock_n_lzsa ; north bg
.word left_airlock_s_lzsa ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff
; STONEY_RIGHT_AIRLOCK_OPEN -- airlock to blue room, open
location46:
.byte STONEY_BLUE_ROOM ; north exit
.byte STONEY_RIGHT_TUNNEL2 ; south exit
.byte $ff ; east exit
.byte $ff ; west exit
.byte DIRECTION_N ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte $ff ; east exit_dir
.byte $ff ; west exit_dir
.word left_airlock_open_n_lzsa ; north bg
.word left_airlock_s_lzsa ; south bg
.word $0000 ; east bg
.word $0000 ; west bg
.byte BG_NORTH|BG_SOUTH
.byte $ff
; STONEY_BLUE_ROOM -- blue room
location47:
.byte $ff ; north exit
.byte STONEY_RIGHT_AIRLOCK ; south exit
.byte STONEY_BLUE_MAPCASE ; east exit
.byte $ff ; west exit
.byte $ff ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte $ff ; west exit_dir
.word blue_room_n_lzsa ; north bg
.word blue_room_s_lzsa ; south bg
.word blue_room_e_lzsa ; east bg
.word blue_room_w_lzsa ; west bg
.byte BG_NORTH|BG_SOUTH|BG_EAST|BG_WEST
.byte DIRECTION_W
.byte 17,24 ; special x
.byte 32,42 ; special y
.word stoney_take_blue_page-1 ; special function
; STONEY_BLUE_MAPCASE -- blue room mapcase
location48:
.byte $ff ; north exit
.byte $ff ; south exit
.byte STONEY_BLUE_MAPCASE_OPEN ; east exit
.byte $ff ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte $ff ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word map_case_closed_e_lzsa ; east bg
.word $0000 ; west bg
.byte BG_EAST
.byte $ff
; STONEY_BLUE_MAPCASE_OPEN -- blue room mapcase open
location49:
.byte $ff ; north exit
.byte $ff ; south exit
.byte STONEY_BLUE_ROOM ; east exit
.byte $ff ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte $ff ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word map_case_open_e_lzsa ; east bg
.word $0000 ; west bg
.byte BG_EAST
.byte DIRECTION_E
.byte 14,21 ; special x
.byte 36,46 ; special y
.word stoney_half_message-1 ; special function
; STONEY_BLUE_HALFMESSAGE -- blue room halfmessag
location50:
.byte $ff ; north exit
.byte $ff ; south exit
.byte STONEY_BLUE_MAPCASE_OPEN ; east exit
.byte $ff ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte $ff ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word map_case_open_e_lzsa ; east bg
.word $0000 ; west bg
.byte BG_EAST
.byte $ff
; STONEY_CRAWLWAY_RIGHT -- right crawlway
location51:
.byte $ff ; north exit
.byte $ff ; south exit
.byte STONEY_COMPASS_ROOM ; east exit
.byte STONEY_RIGHT_TUNNEL2 ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte DIRECTION_N ; east exit_dir
.byte DIRECTION_W ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word crawlway_e_lzsa ; east bg
.word crawlway_w_lzsa ; west bg
.byte BG_EAST|BG_WEST
.byte $ff

19
mist/stoney.s
View File

@ -72,7 +72,7 @@ game_loop:
beq animate_mist_book
cmp #STONEY_RED_DRESSER_OPEN
beq fg_draw_red_page
cmp #STONEY_BLUE_ROOM_BED
cmp #STONEY_BLUE_ROOM
beq fg_draw_blue_page
cmp #STONEY_UMBRELLA
beq draw_umbrella_light
@ -238,13 +238,17 @@ draw_red_page:
draw_blue_page:
lda DIRECTION
cmp #DIRECTION_W
bne no_draw_page
lda BLUE_PAGES_TAKEN
and #STONEY_PAGE
bne no_draw_page
lda #15
lda #18
sta XPOS
lda #34
lda #30
sta YPOS
lda #<blue_page_sprite
@ -257,6 +261,15 @@ draw_blue_page:
no_draw_page:
rts
;======================
; handle half message
stoney_half_message:
lda #STONEY_BLUE_HALFMESSAGE
sta LOCATION
jmp change_location
;======================
; handle umbrella pump buttons