mist: nibel: can get to half-page

This commit is contained in:
Vince Weaver 2020-07-02 00:27:59 -04:00
parent cadf5fc8a8
commit ecaf3db6e7
9 changed files with 81 additions and 4 deletions

View File

@ -410,5 +410,6 @@ NIBEL_RED_TABLE = 13
NIBEL_RED_TABLE_OPEN = 14
NIBEL_RED_BED = 15
NIBEL_RED_BED_OPEN = 16
NIBEL_HALF_LETTER = 17

View File

@ -19,7 +19,9 @@ nibel_graphics.inc: \
red_path1_e.lzsa red_path1_w.lzsa \
red_room_n.lzsa red_room_s.lzsa red_room_e.lzsa red_room_w.lzsa \
red_door_e.lzsa red_door_closed_w.lzsa red_door_open_w.lzsa \
red_room_table_s.lzsa red_room_table_open_s.lzsa
red_room_table_s.lzsa red_room_table_open_s.lzsa \
red_room_bed_w.lzsa red_room_bed_open_w.lzsa \
right_letter.lzsa
echo "elevator2_open_top_lzsa: .incbin \"elevator2_open_top.lzsa\"" > nibel_graphics.inc
echo "elevator2_closed_top_lzsa: .incbin \"elevator2_closed_top.lzsa\"" >> nibel_graphics.inc
echo "outside_elevator2_e_lzsa: .incbin \"outside_elevator2_e.lzsa\"" >> nibel_graphics.inc
@ -47,6 +49,10 @@ nibel_graphics.inc: \
echo "red_door_closed_w_lzsa: .incbin \"red_door_closed_w.lzsa\"" >> nibel_graphics.inc
echo "red_room_table_s_lzsa: .incbin \"red_room_table_s.lzsa\"" >> nibel_graphics.inc
echo "red_room_table_open_s_lzsa: .incbin \"red_room_table_open_s.lzsa\"" >> nibel_graphics.inc
echo "red_room_bed_w_lzsa: .incbin \"red_room_bed_w.lzsa\"" >> nibel_graphics.inc
echo "red_room_bed_open_w_lzsa: .incbin \"red_room_bed_open_w.lzsa\"" >> nibel_graphics.inc
echo "right_letter_lzsa: .incbin \"right_letter.lzsa\"" >> nibel_graphics.inc
%.gr: %.png

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 184 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.2 KiB

After

Width:  |  Height:  |  Size: 1.2 KiB

View File

@ -6,7 +6,8 @@ locations:
.word location0, location1, location2, location3
.word location4, location5, location6, location7
.word location8, location9, location10,location11
.word location12,location13,location14
.word location12,location13,location14,location15
.word location16,location17
; NIBEL_IN_ELEV2_TOP_CLOSED -- inside elevator2 at top, door closed
location0:
@ -236,11 +237,11 @@ location12:
.byte $ff ; north exit
.byte NIBEL_RED_TABLE ; south exit
.byte NIBEL_RED_DOOR_CLOSED ; east exit
.byte $ff ; west exit
.byte NIBEL_RED_BED ; west exit
.byte $ff ; north exit_dir
.byte DIRECTION_S ; south exit_dir
.byte DIRECTION_E ; east exit_dir
.byte $ff ; west exit_dir
.byte DIRECTION_W ; west exit_dir
.word red_room_n_lzsa ; north bg
.word red_room_s_lzsa ; south bg
.word red_room_e_lzsa ; east bg
@ -288,3 +289,61 @@ location14:
.byte 12,20 ; special x
.byte 36,46 ; special y
.word nibel_take_red_page-1 ; special function
; NIBEL_RED_BED -- close up of bed
location15:
.byte $ff ; north exit
.byte $ff ; south exit
.byte $ff ; east exit
.byte NIBEL_RED_BED_OPEN ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte $ff ; east exit_dir
.byte DIRECTION_W ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word $0000 ; east bg
.word red_room_bed_w_lzsa ; west bg
.byte BG_WEST
.byte $ff ; special exit
; NIBEL_RED_BED_OPEN -- bed drawer open
location16:
.byte $ff ; north exit
.byte $ff ; south exit
.byte $ff ; east exit
.byte NIBEL_RED_ROOM ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte $ff ; east exit_dir
.byte DIRECTION_W ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word $0000 ; east bg
.word red_room_bed_open_w_lzsa ; west bg
.byte BG_WEST
.byte DIRECTION_W ; special exit
.byte 17,24 ; special x
.byte 24,40 ; special y
.word nibel_view_torn_page-1 ; special function
; NIBEL_HALF_LETTER -- right half of letter
location17:
.byte $ff ; north exit
.byte $ff ; south exit
.byte $ff ; east exit
.byte NIBEL_RED_ROOM ; west exit
.byte $ff ; north exit_dir
.byte $ff ; south exit_dir
.byte $ff ; east exit_dir
.byte DIRECTION_W ; west exit_dir
.word $0000 ; north bg
.word $0000 ; south bg
.word $0000 ; east bg
.word right_letter_lzsa ; west bg
.byte BG_WEST
.byte $ff ; special exit

View File

@ -202,6 +202,17 @@ done_buttons:
rts
nibel_view_torn_page:
lda #NIBEL_HALF_LETTER
sta LOCATION
jsr change_location
bit SET_TEXT ; set text mode
rts
;=============================
; open the elevator door
;=============================