Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-26 00:29:29 +00:00
Code Issues Projects Releases Wiki Activity

megademo: change path a pit for mode7 part

Browse Source
This commit is contained in:
Vince Weaver 2018-10-29 16:23:43 -04:00
parent 283f84451a
commit a317b392b1
3 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
megademo/TODO
View File

@ -55,14 +55,12 @@ Music:
REACH: waterfall sound effect?
7: arrival at ship
close door
flames going
tree goes from big to small, horizon drops?
auto timeout to next screen
DONE?
REACH: tree goes from big to small, horizon drops?
8: mode7:
change path
change ground to night-time darkness. grey water
DONE?
REACH: change ground to night-time darkness. grey water
9: spacebars:
auto movement

2
megademo/megademo.s
View File

@ -44,7 +44,7 @@ apple_iie:
;===================
jsr HOME
; jsr rocket_takeoff
; jsr mode7_flying
; C64 Opening Sequence

26
megademo/mode7.s
View File

@ -32,28 +32,28 @@ CONST_LOWRES_HALF_F = $00
island_flying_directions:
.byte $2,$00 ; 2 frames, do nothing
.byte $1,'Z' ; start moving forward
.byte $10,$00 ; 16 frames, do nothing
.byte $2,'Z' ; start moving forward
.byte $8,$00 ; 8 frames, do nothing
.byte $3,'D' ; 3 frames, turn right
.byte $1,'Z' ; move faster
.byte $8,$00 ; 8 frames, do nothing
.byte $6,$00 ; 6 frames, do nothing
.byte $2,'D' ; 2 frames, turn left
.byte $8,$00 ; 8 frames, do nothing
.byte $6,$00 ; 8 frames, do nothing
.byte $3,'A' ; 3 frames, turn left
.byte $1,'Z' ; speedup
.byte $8,$00 ; 8 frames, do nothing
.byte $6,$00 ; 6 frames, do nothing
.byte $6,'S' ; 6 frames down
.byte $6,$00 ; 6 frames do nothing
.byte $4,$00 ; 4 frames do nothing
.byte $3,'A' ; 3 frames left
.byte $3,'D' ; 3 frames right
.byte $2,$00 ; 2 frames nothing
.byte $1,'D' ; 1 frame right
.byte $2,$00 ; 2 frames nothing
.byte $8,'D' ; 8 frame right
.byte $1,'Z' ; 8 frames up
.byte $1,'Z' ; 1 frames up
.byte $6,'W' ; 2 speedup
.byte $a,$00 ; 10 nothing
.byte $3,'S' ; 3 down
.byte $8,$00 ; 8 nothing
.byte $2,'S' ; 2 down
.byte $1,'Q' ; quit
;=====================
@ -91,14 +91,16 @@ mode7_flying:
;===============
lda #20
sta SHIPY
lda #4
sta ANGLE
sta CY_I
lda #6
sta CX_I
lda #0
sta TURNING
sta ANGLE
sta SPACEX_I
sta SPACEY_I
sta CX_I
sta CX_F
sta CY_I
sta CY_F
sta DRAW_SPLASH
sta SPEED