mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-28 02:55:03 +00:00
botdemo: more work on credits
This commit is contained in:
parent
ec5fcbb176
commit
374600e9eb
@ -36,7 +36,7 @@ botdemo.o: botdemo.s \
|
|||||||
zp.inc hardware.inc nozp.inc timeline.inc \
|
zp.inc hardware.inc nozp.inc timeline.inc \
|
||||||
commands.s bg.inc \
|
commands.s bg.inc \
|
||||||
interrupt_handler.s \
|
interrupt_handler.s \
|
||||||
wipe.s mock_anim.s
|
wipe.s mock_anim.s credits.s
|
||||||
ca65 -o botdemo.o botdemo.s -l botdemo.lst
|
ca65 -o botdemo.o botdemo.s -l botdemo.lst
|
||||||
|
|
||||||
|
|
||||||
|
@ -153,6 +153,7 @@ original_stack: .byte $00
|
|||||||
|
|
||||||
.include "wipe.s"
|
.include "wipe.s"
|
||||||
.include "mock_anim.s"
|
.include "mock_anim.s"
|
||||||
|
.include "credits.s"
|
||||||
|
|
||||||
.include "nozp.inc"
|
.include "nozp.inc"
|
||||||
|
|
||||||
@ -161,4 +162,4 @@ original_stack: .byte $00
|
|||||||
PT3_LOC = song
|
PT3_LOC = song
|
||||||
.align $100
|
.align $100
|
||||||
song:
|
song:
|
||||||
.incbin "../pt3_player/music/DF.PT3"
|
.incbin "music/Second_Best_2_Nothing.pt3"
|
||||||
|
113
bot_demo/credits.s
Normal file
113
bot_demo/credits.s
Normal file
@ -0,0 +1,113 @@
|
|||||||
|
display_credits:
|
||||||
|
; display music bars
|
||||||
|
|
||||||
|
lda A_VOLUME
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
sta draw_a_bar_loop+1
|
||||||
|
|
||||||
|
ldx #4
|
||||||
|
lda #' '
|
||||||
|
draw_a_bar_loop:
|
||||||
|
cpx #$4
|
||||||
|
beq skip_a_bar
|
||||||
|
eor #$80
|
||||||
|
sta $A50,X
|
||||||
|
skip_a_bar:
|
||||||
|
dex
|
||||||
|
bpl draw_a_bar_loop
|
||||||
|
|
||||||
|
lda B_VOLUME
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
draw_b_bar_loop:
|
||||||
|
lda #' '
|
||||||
|
sta $Ad0,X
|
||||||
|
dex
|
||||||
|
bpl draw_b_bar_loop
|
||||||
|
|
||||||
|
lda C_VOLUME
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
draw_c_bar_loop:
|
||||||
|
lda #' '
|
||||||
|
sta $B50,X
|
||||||
|
dex
|
||||||
|
bpl draw_c_bar_loop
|
||||||
|
|
||||||
|
; write credits
|
||||||
|
|
||||||
|
lda ticks
|
||||||
|
cmp #25
|
||||||
|
bne done_credits
|
||||||
|
|
||||||
|
lda seconds
|
||||||
|
|
||||||
|
cmp #0
|
||||||
|
beq next_credit
|
||||||
|
cmp #4
|
||||||
|
beq next_credit
|
||||||
|
cmp #8
|
||||||
|
beq next_credit
|
||||||
|
cmp #12
|
||||||
|
beq next_credit
|
||||||
|
cmp #16
|
||||||
|
beq next_credit
|
||||||
|
bne done_credits
|
||||||
|
|
||||||
|
next_credit:
|
||||||
|
write_credits:
|
||||||
|
lda which_credit
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
|
||||||
|
write_credit_1_loop:
|
||||||
|
lda $dede,Y
|
||||||
|
beq done_credit1_loop
|
||||||
|
sta $Ad0+20,Y
|
||||||
|
iny
|
||||||
|
jmp write_credit_1_loop
|
||||||
|
|
||||||
|
done_credit1_loop:
|
||||||
|
|
||||||
|
inc which_credit
|
||||||
|
done_credits:
|
||||||
|
rts
|
||||||
|
|
||||||
|
credits_table:
|
||||||
|
.word credits1
|
||||||
|
.word credits2
|
||||||
|
.word credits3
|
||||||
|
.word credits4
|
||||||
|
.word credits5
|
||||||
|
|
||||||
|
|
||||||
|
credits1:
|
||||||
|
.byte "Code:",0
|
||||||
|
.byte " ",0
|
||||||
|
.byte "Deater",0
|
||||||
|
|
||||||
|
credits2:
|
||||||
|
.byte "Music:",0
|
||||||
|
.byte " ",0
|
||||||
|
.byte "mAZE",0
|
||||||
|
|
||||||
|
credits3:
|
||||||
|
.byte "Algorithms:",0
|
||||||
|
.byte " ",0
|
||||||
|
.byte "Hellmood",0
|
||||||
|
|
||||||
|
credits4:
|
||||||
|
.byte "Apple II bot",0
|
||||||
|
.byte " ",0
|
||||||
|
.byte "Kay Savetz",0
|
||||||
|
|
||||||
|
credits5:
|
||||||
|
.byte " _ ",0
|
||||||
|
.byte " _|(_ _",0
|
||||||
|
.byte "(_| _) | ",0
|
||||||
|
|
||||||
|
which_credit:
|
||||||
|
.byte $0
|
@ -75,7 +75,7 @@ no_tick_oflo:
|
|||||||
lda todo_list,x
|
lda todo_list,x
|
||||||
sta command
|
sta command
|
||||||
cmp #DONE
|
cmp #DONE
|
||||||
beq done_match
|
beq handle_credits
|
||||||
|
|
||||||
lda todo_list+1,x
|
lda todo_list+1,x
|
||||||
sta timeout
|
sta timeout
|
||||||
@ -102,6 +102,9 @@ no_tick_oflo:
|
|||||||
|
|
||||||
rti
|
rti
|
||||||
|
|
||||||
|
handle_credits:
|
||||||
|
bit TEXTGR
|
||||||
|
jsr display_credits
|
||||||
|
|
||||||
done_match:
|
done_match:
|
||||||
pla
|
pla
|
||||||
|
Loading…
Reference in New Issue
Block a user