mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-10 08:23:49 +00:00
megademo: fly off into blue
This commit is contained in:
parent
ef253c7749
commit
c5cd59d1cd
@ -1,6 +1,4 @@
|
|||||||
TODO TODO:
|
TODO TODO:
|
||||||
+ Add in fly off scene
|
|
||||||
+ Moving heart
|
|
||||||
+ Get timing right
|
+ Get timing right
|
||||||
+ Fix qkumbas seek code
|
+ Fix qkumbas seek code
|
||||||
+ Fix one-line glitch
|
+ Fix one-line glitch
|
||||||
@ -31,7 +29,8 @@ Music:
|
|||||||
DONE???
|
DONE???
|
||||||
|
|
||||||
1: falling_apple:
|
1: falling_apple:
|
||||||
TODO: roll in the change from all page1 to page1/page2
|
DONE?
|
||||||
|
REACH: roll in the change from all page1 to page1/page2
|
||||||
REACH: make it fall?
|
REACH: make it fall?
|
||||||
REACH: some sort of wipe?
|
REACH: some sort of wipe?
|
||||||
|
|
||||||
@ -71,13 +70,11 @@ Music:
|
|||||||
REACH: change ground to night-time darkness. grey water
|
REACH: change ground to night-time darkness. grey water
|
||||||
|
|
||||||
9: spacebars:
|
9: spacebars:
|
||||||
auto movement
|
DONE?
|
||||||
REACH: when done, ship move up (shrink) and disappear w blue horiz line?
|
|
||||||
|
|
||||||
10: arrive at frogysue:
|
10: arrive at frogysue:
|
||||||
DONE?
|
DONE?
|
||||||
add text?
|
add text?
|
||||||
REACH: have heart zigzag up?
|
|
||||||
|
|
||||||
11: fireworks:
|
11: fireworks:
|
||||||
DONE?
|
DONE?
|
||||||
|
@ -46,6 +46,8 @@ apple_iie:
|
|||||||
|
|
||||||
; jsr space_bars
|
; jsr space_bars
|
||||||
|
|
||||||
|
; jsr arriving_there
|
||||||
|
|
||||||
; C64 Opening Sequence
|
; C64 Opening Sequence
|
||||||
|
|
||||||
jsr c64_opener
|
jsr c64_opener
|
||||||
|
@ -381,12 +381,12 @@ sb_check_right:
|
|||||||
|
|
||||||
jmp sb_display_loop ; 3
|
jmp sb_display_loop ; 3
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
sb_exit:
|
sb_exit:
|
||||||
bit KEYRESET
|
|
||||||
cli ; re-enable interrupt music
|
cli ; re-enable interrupt music
|
||||||
|
jmp blue_line
|
||||||
|
|
||||||
|
sb_real_exit:
|
||||||
|
bit KEYRESET
|
||||||
rts ; 6
|
rts ; 6
|
||||||
|
|
||||||
|
|
||||||
@ -566,3 +566,142 @@ setup_fb_loop:
|
|||||||
; -1
|
; -1
|
||||||
rts ; 6
|
rts ; 6
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
blue_line:
|
||||||
|
bit PAGE0 ; set page 0
|
||||||
|
bit LORES ; Lo-res graphics
|
||||||
|
bit FULLGR
|
||||||
|
bit SET_GR ; set graphics
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta DRAW_PAGE
|
||||||
|
jsr clear_all
|
||||||
|
; jsr clear_screens_notext ; clear top/bottom of page 0/1
|
||||||
|
|
||||||
|
blueline_loop:
|
||||||
|
|
||||||
|
;================
|
||||||
|
; draw the ship
|
||||||
|
;================
|
||||||
|
draw_ship_big:
|
||||||
|
jsr clear_all
|
||||||
|
|
||||||
|
lda #>ship_forward
|
||||||
|
sta INH
|
||||||
|
lda #<ship_forward
|
||||||
|
sta INL
|
||||||
|
|
||||||
|
lda #15
|
||||||
|
sta XPOS
|
||||||
|
lda #34
|
||||||
|
sta YPOS
|
||||||
|
jsr put_sprite
|
||||||
|
|
||||||
|
draw_ship_small:
|
||||||
|
jsr delay_1s
|
||||||
|
jsr clear_all
|
||||||
|
|
||||||
|
lda #>ship_small
|
||||||
|
sta INH
|
||||||
|
lda #<ship_small
|
||||||
|
sta INL
|
||||||
|
|
||||||
|
lda #17
|
||||||
|
sta XPOS
|
||||||
|
lda #30
|
||||||
|
sta YPOS
|
||||||
|
jsr put_sprite
|
||||||
|
|
||||||
|
draw_ship_tiny:
|
||||||
|
jsr delay_1s
|
||||||
|
jsr clear_all
|
||||||
|
|
||||||
|
lda #>ship_tiny
|
||||||
|
sta INH
|
||||||
|
lda #<ship_tiny
|
||||||
|
sta INL
|
||||||
|
|
||||||
|
lda #18
|
||||||
|
sta XPOS
|
||||||
|
lda #28
|
||||||
|
sta YPOS
|
||||||
|
jsr put_sprite
|
||||||
|
|
||||||
|
lda #18
|
||||||
|
sta SPEED
|
||||||
|
|
||||||
|
jsr delay_1s
|
||||||
|
|
||||||
|
draw_ship_line:
|
||||||
|
lda #2
|
||||||
|
jsr delay_custom
|
||||||
|
jsr clear_all
|
||||||
|
|
||||||
|
lda #COLOR_LIGHTBLUE
|
||||||
|
sta COLOR
|
||||||
|
|
||||||
|
clc
|
||||||
|
lda #20
|
||||||
|
adc SPEED
|
||||||
|
sta V2
|
||||||
|
|
||||||
|
sec
|
||||||
|
lda #20
|
||||||
|
sbc SPEED
|
||||||
|
tay
|
||||||
|
|
||||||
|
; 20 - 0 to 0 - 20, 20 - 40
|
||||||
|
|
||||||
|
lda #26
|
||||||
|
jsr hlin_double
|
||||||
|
|
||||||
|
dec SPEED
|
||||||
|
bne draw_ship_line
|
||||||
|
|
||||||
|
draw_ship_done:
|
||||||
|
lda #$77
|
||||||
|
sta clear_all_color+1
|
||||||
|
jsr clear_all
|
||||||
|
|
||||||
|
lda #2
|
||||||
|
jsr delay_custom
|
||||||
|
|
||||||
|
lda #$0
|
||||||
|
sta clear_all_color+1
|
||||||
|
jsr clear_all
|
||||||
|
|
||||||
|
jsr delay_1s
|
||||||
|
|
||||||
|
lda #40
|
||||||
|
jsr delay_custom
|
||||||
|
|
||||||
|
jmp sb_real_exit
|
||||||
|
|
||||||
|
;1s = 17030*60 = 1021800
|
||||||
|
|
||||||
|
|
||||||
|
delay_1s:
|
||||||
|
lda #20
|
||||||
|
delay_custom:
|
||||||
|
sta STATE
|
||||||
|
delay_1s_loop:
|
||||||
|
|
||||||
|
; 17030 - 1038 = 15992
|
||||||
|
|
||||||
|
; jsr play_music ; 6+1032
|
||||||
|
|
||||||
|
; Try X=113 Y=28 cycles=15989 R3
|
||||||
|
|
||||||
|
ldy #28 ; 2
|
||||||
|
sbloopU:ldx #113 ; 2
|
||||||
|
sbloopV:dex ; 2
|
||||||
|
bne sbloopV ; 2nt/3
|
||||||
|
dey ; 2
|
||||||
|
bne sbloopU ; 2nt/3
|
||||||
|
|
||||||
|
dec STATE
|
||||||
|
bne delay_1s_loop
|
||||||
|
|
||||||
|
rts
|
||||||
|
Loading…
Reference in New Issue
Block a user