mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-19 14:29:25 +00:00
650 lines
12 KiB
ArmAsm
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 2,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
|