dos33fsprogs/mist/brother_books.s

650 lines
12 KiB
ArmAsm

;===========================
; Touch the red book
;===========================
touch_red_book:
; first see if picking up the page
lda CURSOR_X
cmp #24
bcc yes_touching_red_book ; blt
lda RED_PAGES_TAKEN
and #OCTAGON_PAGE
bne no_touch_red_page
lda #OCTAGON_PAGE
jsr take_red_page
no_touch_red_page:
rts
yes_touching_red_book:
; if have a red page, take it and increment count
lda HOLDING_PAGE
and #$c0
cmp #HOLDING_RED_PAGE
bne not_red_page
lda #0 ; put down page
sta HOLDING_PAGE
inc RED_PAGE_COUNT ; increment page count
; in actual game plays sound effect here
rts
not_red_page:
lda #OCTAGON_RED_BOOK_CLOSED
sta LOCATION
jsr change_location
rts
open_red_book:
; DEBUG
;inc RED_PAGE_COUNT
lda RED_PAGE_COUNT
cmp #6
beq red_ending
lda #OCTAGON_RED_BOOK_OPEN
sta LOCATION
lda #DIRECTION_W|DIRECTION_SPLIT
open_book:
sta DIRECTION
jsr change_location
lda #1
sta ANIMATE_FRAME
rts
red_ending:
lda #0
sta RED_PAGE_COUNT
lda #OCTAGON_RED_END
sta LOCATION
lda #DIRECTION_W|DIRECTION_SPLIT
jmp open_book
;===========================
; Touch the blue book
;===========================
touch_blue_book:
; first see if picking up the page
lda CURSOR_X
cmp #24
bcc yes_touching_blue_book ; blt
lda BLUE_PAGES_TAKEN
and #OCTAGON_PAGE
bne no_touch_blue_page
lda #OCTAGON_PAGE
jsr take_blue_page
no_touch_blue_page:
rts
yes_touching_blue_book:
; if have a blue page, take it and increment count
lda HOLDING_PAGE
and #$c0
cmp #HOLDING_BLUE_PAGE
bne not_blue_page
lda #0 ; put down page
sta HOLDING_PAGE
inc BLUE_PAGE_COUNT ; increment page count
; in actual game plays sound effect here
rts
not_blue_page:
lda #OCTAGON_BLUE_BOOK_CLOSED
sta LOCATION
jsr change_location
rts
open_blue_book:
; DEBUG
;inc BLUE_PAGE_COUNT
lda BLUE_PAGE_COUNT
cmp #6
beq blue_ending
lda #OCTAGON_BLUE_BOOK_OPEN
sta LOCATION
lda #DIRECTION_E|DIRECTION_SPLIT
jmp open_book
blue_ending:
lda #0
sta RED_PAGE_COUNT
lda #OCTAGON_BLUE_END
sta LOCATION
lda #DIRECTION_E|DIRECTION_SPLIT
jmp open_book
;===========================
; Red book animation
;===========================
red_book_animation:
; draw the text
lda RED_PAGE_COUNT
asl
tay
lda sirrus_dialog,Y
sta OUTL
lda sirrus_dialog+1,Y
sta OUTH
repeat_sirrus_string:
jsr move_and_print
ldy #0
lda (OUTL),Y
bpl repeat_sirrus_string
; pick which animation to use
lda ANIMATE_FRAME
asl
tay
lda RED_PAGE_COUNT
cmp ANIMATE_FRAME
bcs red_show_face
red_only_static:
lda red_book_sprite_sequence,Y
sta INL
lda red_book_sprite_sequence+1,Y
jmp common_book_proper
red_show_face:
lda #<red_book_face_sprite
sta INL
lda #>red_book_face_sprite
common_book_proper:
sta INH
lda #23
sta XPOS
lda #14
sta YPOS
jsr put_sprite_crop
lda FRAMEL
and #$f
bne done_animate_red_book
inc ANIMATE_FRAME
lda ANIMATE_FRAME
cmp #7
bne done_animate_red_book
lda #1
sta ANIMATE_FRAME
done_animate_red_book:
; Play the "bring red pages" audio
; lda #<audio_red_page
; sta BTC_L
; lda #>audio_red_page
; sta BTC_H
; ldx #21 ; 21 pages long???
; jsr play_audio
red_book_done:
rts
;===========================
; Blue book animation
;===========================
blue_book_animation:
; draw the text
lda BLUE_PAGE_COUNT
asl
tay
lda achenar_dialog,Y
sta OUTL
lda achenar_dialog+1,Y
sta OUTH
repeat_achenar_string:
jsr move_and_print
ldy #0
lda (OUTL),Y
bpl repeat_achenar_string
; pick which animation to use
lda ANIMATE_FRAME
asl
tay
lda BLUE_PAGE_COUNT
cmp ANIMATE_FRAME
bcs blue_show_face
blue_only_static:
lda blue_book_sprite_sequence,Y
sta INL
lda blue_book_sprite_sequence+1,Y
jmp common_book_proper
blue_show_face:
lda #<blue_book_face_sprite
sta INL
lda #>blue_book_face_sprite
jmp common_book_proper
;===========================
; end static animation
;===========================
end_static_animation:
; pick which animation to use
lda ANIMATE_FRAME
asl
tay
lda RED_PAGE_COUNT
cmp ANIMATE_FRAME
bcc end_show_face
end_only_static:
lda LOCATION
cmp #OCTAGON_BLUE_END
beq end_blue_static
end_red_static:
lda red_book_sprite_sequence,Y
sta INL
lda red_book_sprite_sequence+1,Y
jmp end_end_static
end_blue_static:
lda blue_book_sprite_sequence,Y
sta INL
lda blue_book_sprite_sequence+1,Y
end_end_static:
sta INH
lda #15
sta XPOS
lda #14
sta YPOS
jsr put_sprite_crop
end_show_face:
lda FRAMEL
and #$1f
bne done_animate_end
inc ANIMATE_FRAME
lda ANIMATE_FRAME
cmp #7
bne done_animate_end
lda #1
sta ANIMATE_FRAME
lda RED_PAGE_COUNT
cmp #50
bcs done_animate_end
inc RED_PAGE_COUNT
done_animate_end:
rts
;==========================
; books sprites
;==========================
red_book_sprite_sequence:
.word red_book_static1_sprite ; skipped
.word red_book_static2_sprite ; 1
.word red_book_static1_sprite ; 2
.word red_book_static2_sprite ; 3
.word red_book_static1_sprite ; 4
.word red_book_static2_sprite ; 5
.word red_book_static1_sprite ; 6
; 0 pages, all static
; 1 pages, replace 1 with face
; 2 pages, replace 2 with face
; 3 pages, replace 3 with face
; 4 pages, replace 4 with face
; 5 pages, replace 5 with face
red_book_face_sprite:
.byte 9,7
.byte $31,$88,$bb,$bb,$bb,$bb,$bb,$88,$13
.byte $31,$bb,$bb,$b0,$bb,$b0,$bb,$11,$13
.byte $31,$bb,$bb,$bb,$33,$bb,$bb,$11,$13
.byte $31,$11,$bb,$8b,$b8,$8b,$bb,$11,$13
.byte $31,$11,$bb,$bb,$b3,$bb,$bb,$11,$13
.byte $11,$01,$01,$8b,$88,$8b,$01,$01,$13
.byte $A0,$A0,$A0,$Af,$Af,$Af,$A0,$A0,$A0
red_book_static1_sprite:
.byte 9,7
.byte $11,$1b,$11,$1f,$1b,$11,$11,$13,$11
.byte $b1,$13,$11,$1b,$11,$13,$11,$1b,$f1
.byte $31,$11,$b1,$13,$11,$1f,$13,$b1,$31
.byte $11,$1f,$11,$11,$13,$11,$1b,$f1,$11
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00
.byte $31,$1b,$f1,$11,$f3,$11,$31,$1b,$11
.byte $A1,$A1,$A3,$A1,$A1,$Ab,$A1,$A1,$A3
red_book_static2_sprite:
.byte 9,7
.byte $01,$01,$01,$0b,$01,$01,$01,$0f,$01
.byte $10,$b0,$10,$10,$30,$10,$10,$b0,$10
.byte $13,$11,$3f,$11,$1f,$b1,$13,$11,$31
.byte $1f,$11,$11,$11,$13,$11,$1b,$11,$f1
.byte $11,$1b,$f1,$1f,$1b,$31,$f1,$1b,$11
.byte $13,$11,$1b,$11,$11,$11,$b1,$13,$b1
.byte $A1,$Af,$A1,$A3,$A1,$A1,$A1,$A1,$A1
blue_book_sprite_sequence:
.word blue_book_static1_sprite
.word blue_book_static2_sprite
.word blue_book_static1_sprite
.word blue_book_static2_sprite
.word blue_book_static1_sprite
.word blue_book_static2_sprite
.word blue_book_static1_sprite
blue_book_face_sprite:
.byte 9,7
.byte $88,$b8,$8b,$bb,$8b,$b8,$88,$88,$26
.byte $88,$bb,$0b,$bb,$0b,$bb,$88,$88,$26
.byte $62,$bb,$bb,$33,$3b,$bb,$88,$88,$26
.byte $62,$8b,$b8,$b8,$b8,$8b,$88,$62,$26
.byte $62,$88,$bb,$b0,$b0,$83,$58,$52,$26
.byte $dd,$d8,$88,$88,$88,$d8,$dd,$55,$dd
.byte $Ad,$Ad,$A8,$A8,$A8,$Ad,$Ad,$A5,$Ad
blue_book_static1_sprite:
.byte 9,7
.byte $22,$27,$22,$2f,$27,$22,$22,$26,$22
.byte $72,$26,$22,$27,$22,$26,$22,$27,$f2
.byte $62,$22,$72,$26,$22,$2f,$26,$72,$62
.byte $22,$2f,$22,$22,$26,$22,$27,$f2,$22
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00
.byte $62,$27,$f2,$22,$f6,$22,$62,$27,$22
.byte $A2,$A2,$A6,$A2,$A2,$A7,$A2,$A2,$A6
blue_book_static2_sprite:
.byte 9,7
.byte $02,$02,$02,$07,$02,$02,$02,$0f,$02
.byte $20,$70,$20,$20,$60,$20,$20,$70,$20
.byte $26,$22,$6f,$22,$2f,$72,$26,$22,$62
.byte $2f,$22,$22,$22,$26,$22,$27,$22,$f2
.byte $22,$27,$f2,$2f,$27,$62,$f2,$27,$22
.byte $26,$22,$27,$22,$22,$22,$72,$26,$72
.byte $A2,$Af,$A2,$A6,$A2,$A2,$A2,$A2,$A2
;==========================
; books dialog
;==========================
;==========================
; red/sirrus
sirrus_dialog:
.word red_dialog0,red_dialog1,red_dialog2,red_dialog3
.word red_dialog4,red_dialog5
; red 0
; only static
red_dialog0:
.byte 15,22
.byte "**STATIC**",0
.byte $80
; red 1
; who are you, bring me a red page, I can't see you
; I am Sirrus
; 0123456789012345678901234567890123456789
red_dialog1:
.byte 6,21
.byte "WHO ARE YOU? I CAN'T SEE YOU",0
.byte 4,22
.byte "BRING ME A RED PAGE. I AM SIRRUS.",0
.byte $80
; red 2
; You've returned. Thank you for the red page.
; I beg you to find the remaining red pages.
; Don't waste time on my brother, he is guilty.
; 0123456789012345678901234567890123456789
red_dialog2:
.byte 0,21
.byte "YOU'VE RETURNED. THANK YOU FOR THE PAGE",0
.byte 1,22
.byte "I BEG YOU TO FIND REMAINING RED PAGES",0
.byte 1,23
.byte "DON'T WASTE TIME ON MY GUILTY BROTHER",0
.byte $80
; red 3
; Free me from my prison. I am called Sirrus.
; I need two more pages. Don't touch the blue
; Don not help my wicked brother Achenar.
; 0123456789012345678901234567890123456789
red_dialog3:
.byte 2,21
.byte "FREE ME FROM MY PRISON. I AM SIRRUS.",0
.byte 0,22
.byte "I NEED MORE PAGES, DON'T TOUCH BLUE ONES",0
.byte 1,23
.byte "DO NOT HELP MY WICKED BROTHER ACHENAR",0
.byte $80
; red 4
; With each page I can see you more clearly.
; Achenar is guilty of conquest. He took
; advantage of father. Free me and I will reward you
; 0123456789012345678901234567890123456789
red_dialog4:
.byte 2,21
.byte "WITH EACH PAGE I CAN SEE MORE CLEARLY",0
.byte 6,22
.byte "ACHENAR IS GUILTY OF CONQUEST",0
.byte 6,23
.byte "FREE ME AND I WILL REWARD YOU",0
.byte $80
; red 5
; You've finally returned. You must think Achenar is guilty.
; Find page 158 in the pattern book and retrieve the last page.
; Do not touch the green book you find there.
;
; Achenar became disturbed, conquest.
; Father must be lost
; 0123456789012345678901234567890123456789
red_dialog5:
.byte 10,20
.byte "YOU FINALLY RETURNED.",0
.byte 4,21
.byte "YOU MUST THINK ACHENAR IS GUILTY",0
.byte 4,22
.byte "USE PAGE 158 IN THE PATTERN BOOK",0
.byte 6,24
.byte "DO NOT TOUCH THE GREEN BOOK",0
.byte $80
; ending
; I am free! Thank you! You've done the right thing.
; Stupid fool. Let me rip some pages out.
; I hope you're into books. Goodbye!
; 0123456789012345678901234567890123456789
;red_dialog6:
; .byte 0,21
; .byte "I AM FREE! THANK YOU, YOU STUPID FOOL!",0
; .byte 0,22
; .byte "LET ME RIP SOME PAGES OUT!",0
; .byte 0,23
; .byte "I HOPE YOU'RE INTO BOOKS! GOODBYE!",0
; .byte $80
;==========================
; blue/Achenar
achenar_dialog:
.word red_dialog0,blue_dialog1,blue_dialog2,blue_dialog3
.word blue_dialog4,blue_dialog5
; blue 0
; only static
; blue 1
; sirrus is that you? who are you? help me. bring blue pages
; I must have the blue page
; 0123456789012345678901234567890123456789
blue_dialog1:
.byte 4,21
.byte "SIRRUS IS THAT YOU? WHO ARE YOU?",0
.byte 1,22
.byte "BRING BLUE PAGES. MUST HAVE BLUE PAGES",0
.byte $80
; blue 2
; you've returned, I'm Achenar. don't listen to my brother.
; egotistical fool and liar, bring the blue pages, not the red ones
; I've been wrongly imprisoned. I will have my retribution.
; 0123456789012345678901234567890123456789
blue_dialog2:
.byte 5,20
.byte "YOU'VE RETURNED. I'M ACHENAR.",0
.byte 4,21
.byte "DON'T LISTEN TO MY LIAR BROTHER",0
.byte 7,22
.byte "BRING BLUE PAGES, NOT RED",0
.byte 7,23
.byte "I WILL HAVE MY RETRIBUTION",0
.byte $80
; blue 3
; you've returned, good. bring blue pages.
; sirrus trapped me here. He is greedy.
; don't touch the red pages.
; 0123456789012345678901234567890123456789
blue_dialog3:
.byte 9,21
.byte "YOU'VE RETURNED, GOOD.",0
.byte 6,22
.byte "GREEDY SIRRUS TRAPPED ME HERE",0
.byte 1,23
.byte "BRING BLUE PAGES, DON'T TOUCH THE RED",0
.byte $80
; blue 4
; my friend, I see you think Sirrus is guilty.
; Have you observed his lust for riches.
; Please bring more blue pages.
; 0123456789012345678901234567890123456789
blue_dialog4:
.byte 0,21
.byte "FRIEND, I SEE YOU THINK SIRRUS IS WRONG",0
.byte 1,22
.byte "HAVE YOU OBSERVED HIS LUST FOR RICHES?",0
.byte 6,23
.byte "PLEASE BRING MORE BLUE PAGES",0
.byte $80
; blue 5
; Sirrus is guilty, lied to father and killed him
; Find pattern 158 and use it in the fireplace.
; Don't touch the green book!
; 0123456789012345678901234567890123456789
blue_dialog5:
.byte 3,21
.byte "SIRRUS IS GUILTY, HE LIED TO FATHER",0
.byte 1,22
.byte "FIND PATTERN 158 AND USE THE FIREPLACE",0
.byte 7,23
.byte "DON'T TOUCH THE GREEN BOOK!",0
.byte $80
; after
; Haha I am free! I feel so alive!
; These pages you worked so hard to find
; what happens if I pull them out?
; Maybe someone will rescue you.
; 0123456789012345678901234567890123456789
;blue_dialog6:
; .byte 0,21
; .byte "HAHA I AM FREE! I FEEL SO ALIVE!",0
; .byte 0,22
; .byte "WHAT HAPPENS IF I RIP THESE PAGES OUT?",0
; .byte 0,23
; .byte "MAYBE SOMEONE WILL RESCUE YOU",0
; .byte $80