mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-06 07:28:58 +00:00
197 lines
4.3 KiB
ArmAsm
197 lines
4.3 KiB
ArmAsm
|
|
; button closes/opens fireplace
|
|
; code is erased if wrong
|
|
|
|
; press it when right code, rotates to books
|
|
|
|
; atrus writing, looks up says something, back down to writing
|
|
|
|
open_fireplace:
|
|
|
|
lda #OCTAGON_IN_FIREPLACE
|
|
sta LOCATION
|
|
|
|
jmp change_location
|
|
|
|
close_fireplace:
|
|
|
|
lda #OCTAGON_IN_FIREPLACE_CLOSED
|
|
sta LOCATION
|
|
|
|
jmp change_location
|
|
|
|
|
|
fireplace_shelf_action:
|
|
|
|
; see if button
|
|
fireplace_check_button:
|
|
lda CURSOR_X
|
|
cmp #9
|
|
bcs fireplace_check_book
|
|
|
|
lda CURSOR_Y
|
|
cmp #32
|
|
bcs fireplace_nil
|
|
cmp #20
|
|
bcc fireplace_nil
|
|
bcs return_fireplace
|
|
|
|
; see if green book
|
|
fireplace_check_book:
|
|
lda CURSOR_Y
|
|
cmp #26
|
|
bcs fireplace_check_blue_page
|
|
lda CURSOR_X
|
|
cmp #17
|
|
bcc fireplace_nil
|
|
bcs open_green_book
|
|
|
|
; see if blue page
|
|
fireplace_check_blue_page:
|
|
lda CURSOR_X
|
|
cmp #14
|
|
bcc fireplace_nil
|
|
cmp #20
|
|
bcs fireplace_check_red_page
|
|
bcc fireplace_grab_blue_page
|
|
|
|
; see if red page
|
|
fireplace_check_red_page:
|
|
jmp fireplace_grab_red_page
|
|
|
|
; otherwise, do nothing
|
|
fireplace_nil:
|
|
rts
|
|
|
|
return_fireplace:
|
|
lda #OCTAGON_IN_FIREPLACE
|
|
sta LOCATION
|
|
|
|
lda #DIRECTION_W
|
|
sta DIRECTION
|
|
|
|
jmp change_location
|
|
|
|
open_green_book:
|
|
lda #OCTAGON_GREEN_BOOK
|
|
sta LOCATION
|
|
jmp change_location
|
|
|
|
fireplace_grab_red_page:
|
|
lda RED_PAGES_TAKEN
|
|
and #FINAL_PAGE
|
|
bne missing_page
|
|
|
|
lda #FINAL_PAGE
|
|
jmp take_red_page
|
|
|
|
missing_page:
|
|
rts
|
|
|
|
fireplace_grab_blue_page:
|
|
lda BLUE_PAGES_TAKEN
|
|
and #FINAL_PAGE
|
|
bne missing_page
|
|
|
|
lda #FINAL_PAGE
|
|
jmp take_blue_page
|
|
|
|
|
|
goto_dni:
|
|
lda #OCTAGON_DNI
|
|
sta LOCATION
|
|
|
|
lda #DIRECTION_E
|
|
sta DIRECTION
|
|
|
|
jmp change_location
|
|
|
|
|
|
; talking to atrus
|
|
|
|
; book, 1st time
|
|
; 1 2 3
|
|
; 0123456789012345678901234567890123456789
|
|
.byte 21,0,"WHO THE DEVIL ARE YOU?",0
|
|
.byte 22,0,"D--DON'T COME HERE TO D'NI, NOT YET.",0
|
|
.byte 23,0,"I HAVE MANY QUESTIONS FOR YOU, MY FRIEND",0
|
|
.byte 23,0,"AS YOU, NO DOUBT, HAVE FOR ME.",0
|
|
|
|
.byte 21,0,"PERHAPS MY STORY IS IN ORDER. I AM ATRUS",0
|
|
.byte 22,0,"I FEAR YOU HAVE MET MY SONS,",0
|
|
.byte 23,0,"SIRRUS & ACHENAR, TRAPPED IN MY LIBRARY",0
|
|
.byte 24,0,"ON MYST ISLAND",0
|
|
|
|
.byte 21,0,"IT CONTAINS MY WRITINGS, MY BOOKS",0
|
|
.byte 22,0,"THAT LINK TO FANTASTIC PLACES, AN ART",0
|
|
.byte 23,0,"I LEARNED FROM MY FATHER YEARS AGO.",0
|
|
|
|
.byte 21,0,"THE RED & BLUE BOOKS ARE DIFFERENT",0
|
|
.byte 22,0,"I WROTE THOSE TO ENTRAP OVER-GREEDY",0
|
|
.byte 23,0,"EXPLORERS THAT MIGHT STUMBLE UPON MYST",0
|
|
.byte 24,0,"I HAD NO IDEA I'D ENTRAP MY OWN SONS",0
|
|
|
|
.byte 21,0,"I HAD NO IDEA THE EXTENT OF THEIR GREED",0
|
|
.byte 22,0,"THEY USED THEIR OWN MOTHER, MY CATHERINE",0
|
|
.byte 23,0,"TO LURE ME HERE TO D'NI. THEY REMOVED A",0
|
|
.byte 24,0,"PAGE FROM MY MYST BOOK SO I CAN'T RETURN",0
|
|
|
|
.byte 21,0,"YOU, MY FRIEND, CAN BRING THE PAGE TO ME",0
|
|
.byte 22,0,"I PRAY YOU BELIEVE MY STORY AND NOT THE",0
|
|
.byte 23,0,"LIES MY SONS HAVE TOLD. BRING THE PAGE",0
|
|
.byte 24,0,"AND BRING JUSTICE TO MY SONS. HURRY.",0
|
|
|
|
; book, 2nd time
|
|
|
|
.byte 21,0,"HAVE YOU FOUND THE MISSING PAGE?",0
|
|
.byte 22,0,"OH, COME, COME. COME ON THEN.",0
|
|
|
|
; ending, both
|
|
;
|
|
|
|
.byte 21,0,"AH, MY FRIEND. YOU'VE RETURNED.",0
|
|
.byte 22,0,"WE MEET FACE-TO-FACE.",0
|
|
.byte 23,0,"AND THE PAGE, DID YOU BRING THE PAGE?",0
|
|
|
|
; ending, no white page
|
|
;
|
|
|
|
.byte 21,0,"YOU DIDN'T BRING THE PAGE.",0
|
|
.byte 22,0,"YOU DIDN'T BRING THE PAGE!",0
|
|
.byte 23,0,"WHAT KIND OF FOOL ARE YOU?!",0
|
|
.byte 24,0,"DID YOU NOT TAKE MY WARNING SERIOUSLY?",0
|
|
|
|
.byte 21,0,"*SIGH*",0
|
|
.byte 22,0,"WELCOME TO D'NI",0
|
|
.byte 23,0,"YOU AND I WILL LIVE HERE... FOREVER.",0
|
|
|
|
; ending, with white page
|
|
|
|
.byte 21,0,"GIVE IT TO ME... GIVE ME THE PAGE",0
|
|
.byte 22,0,"PLEASE GIVE THE PAGE...",0
|
|
|
|
.byte 21,0,"YOU'VE DONE THE RIGHT THING.",0
|
|
.byte 22,0,"I HAVE A DIFFICULT CHOIC TO MAKE",0
|
|
.byte 23,0,"MY SONS BETRAYED ME, I KNOW",0
|
|
.byte 24,0,"WHAT I MUST DO. I SHALL RETURN SHORTLY",0
|
|
|
|
; [links away]
|
|
|
|
; [links in]
|
|
|
|
.byte 21,0,"IT IS DONE. I HAVE MANY QUESTIONS,",0
|
|
.byte 23,0,"BUT MY WRITING CANNOT WAIT. MY DELAY",0
|
|
.byte 24,0,"MAY HAVE HAD A CATASTROPHIC IMPACT ON",0
|
|
.byte 24,0,"THE WORLD WHERE MY WIFE IS HELD HOSTAGE",0
|
|
|
|
.byte 21,0,"A REWARD? I'M SORRY BUT ALL I HAVE TO",0
|
|
.byte 22,0,"OFFER IS THE LIBRARY ON MYST AND THE",0
|
|
.byte 23,0,"BOOKS CONTAINED THERE. FEEL FREE TO",0
|
|
.byte 24,0,"EXPLORE AT YOUR LEISURE.",0
|
|
|
|
.byte 21,0,"ALSO, I AM FIGHTING A FOE MUCH",0
|
|
.byte 22,0,"GREATER THAN MY SONS CAN IMAGINE.",0
|
|
.byte 23,0,"I MIGHT REQUEST YOUR ASSISTANCE.",0
|
|
.byte 24,0,"UNTIL THEN, HAVE FUN ON MYST",0
|
|
|