mirror of
https://github.com/digarok/festro.git
synced 2024-06-17 03:29:55 +00:00
some tweaks, should match youtube version
This commit is contained in:
parent
5ae0450865
commit
f42d57054b
51
festro.s
51
festro.s
|
@ -176,7 +176,7 @@ HandleGreetScroll
|
||||||
ldy #23
|
ldy #23
|
||||||
jsr DrawStringXY : write line
|
jsr DrawStringXY : write line
|
||||||
|
|
||||||
:noStrings2 lda #25
|
:noStrings2 lda #20
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
lda _creditScrollCounter
|
lda _creditScrollCounter
|
||||||
cmp #40
|
cmp #40
|
||||||
|
@ -257,6 +257,7 @@ HandleMapScroll
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
_starSpeed db #$10
|
||||||
HandleStarScroll
|
HandleStarScroll
|
||||||
_defaultStarSpeed equ #$10
|
_defaultStarSpeed equ #$10
|
||||||
lda #$1e
|
lda #$1e
|
||||||
|
@ -380,7 +381,21 @@ StarScrollAuto
|
||||||
jsr GenStarRight
|
jsr GenStarRight
|
||||||
ldy _starScrollSound
|
ldy _starScrollSound
|
||||||
beq :noSong
|
beq :noSong
|
||||||
ldx #$10
|
|
||||||
|
lda KEY ; dynamically set wait speed for debugging best values
|
||||||
|
cmp #$80
|
||||||
|
bge :key
|
||||||
|
jmp :noKey
|
||||||
|
:key sta STROBE
|
||||||
|
cmp #"."
|
||||||
|
bne :notDot
|
||||||
|
inc _starSpeed
|
||||||
|
bra :noKey
|
||||||
|
:notDot cmp #","
|
||||||
|
bne :noKey
|
||||||
|
dec _starSpeed
|
||||||
|
:noKey
|
||||||
|
ldx _starSpeed
|
||||||
jsr PlaySong01Note
|
jsr PlaySong01Note
|
||||||
bra :skipWait
|
bra :skipWait
|
||||||
:noSong
|
:noSong
|
||||||
|
@ -872,7 +887,7 @@ HandleScan01
|
||||||
lda #$30
|
lda #$30
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
|
|
||||||
lda #$05
|
lda #$03
|
||||||
:flashenLoop pha
|
:flashenLoop pha
|
||||||
lda #_scanStr08 ;Scanning
|
lda #_scanStr08 ;Scanning
|
||||||
sta srcPtr
|
sta srcPtr
|
||||||
|
@ -1016,7 +1031,7 @@ HandleScan03
|
||||||
sta srcPtr+1
|
sta srcPtr+1
|
||||||
ldx #_boxX+2
|
ldx #_boxX+2
|
||||||
ldy #_boxY+6
|
ldy #_boxY+6
|
||||||
lda #$10
|
lda #$08
|
||||||
jsr DrawStringXYWait
|
jsr DrawStringXYWait
|
||||||
lda #$20
|
lda #$20
|
||||||
jsr SimplerWait
|
jsr SimplerWait
|
||||||
|
@ -1120,7 +1135,7 @@ HandleProdrop
|
||||||
|
|
||||||
:scanLineLoop
|
:scanLineLoop
|
||||||
lda _prodropScanLine
|
lda _prodropScanLine
|
||||||
rol ; (line * 2) for table index
|
asl ; (line * 2) for table index
|
||||||
tax
|
tax
|
||||||
lda LoLineTable,x
|
lda LoLineTable,x
|
||||||
sta srcPtr
|
sta srcPtr
|
||||||
|
@ -1187,13 +1202,15 @@ HandleProdrop
|
||||||
|
|
||||||
:prodropUpdateLoop
|
:prodropUpdateLoop
|
||||||
lda _prodropSound
|
lda _prodropSound
|
||||||
bne :noSound
|
beq :noSound
|
||||||
lda #3 ; repeat interval... /
|
|
||||||
|
|
||||||
|
lda #2 ; repeat interval... /
|
||||||
jsr soundDown
|
jsr soundDown
|
||||||
stz _prodropSound
|
stz _prodropSound
|
||||||
bra :skipDelay
|
bra :skipDelay
|
||||||
:noSound stz _prodropSound ; if this flag gets set we call our sound routine
|
:noSound stz _prodropSound ; if this flag gets set we call our sound routine
|
||||||
lda #16
|
lda #6
|
||||||
tax
|
tax
|
||||||
tay
|
tay
|
||||||
jsr SimpleWait
|
jsr SimpleWait
|
||||||
|
@ -1223,16 +1240,16 @@ HandleProdrop
|
||||||
ldy #2
|
ldy #2
|
||||||
lda (srcPtr),y ; now it's in our y value
|
lda (srcPtr),y ; now it's in our y value
|
||||||
cmp #$80 ; check for high bit
|
cmp #$80 ; check for high bit
|
||||||
blt ]dropIt ; not set? then we're animating it
|
blt :dropIt ; not set? then we're animating it
|
||||||
ldy #3 ; check random wait state
|
iny ; check random wait state (y=3)
|
||||||
lda (srcPtr),y
|
lda (srcPtr),y
|
||||||
beq ]setCharAnim ; is 0 so set it to animate on next pass
|
beq ]setCharAnim ; is 0 so set it to animate on next pass
|
||||||
dec ; otherwise decrement wait state
|
dec ; otherwise decrement wait state
|
||||||
sta (srcPtr),y
|
sta (srcPtr),y
|
||||||
bra ]nextAnimChar
|
bra ]nextAnimChar
|
||||||
]dropIt
|
:dropIt
|
||||||
ldy #2
|
; ldy #2
|
||||||
lda (srcPtr),y ; get Y value
|
; lda (srcPtr),y ; get Y value
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
lda LoLineTable,x ; convert to ZP pointer
|
lda LoLineTable,x ; convert to ZP pointer
|
||||||
|
@ -1291,7 +1308,7 @@ HandleProdrop
|
||||||
|
|
||||||
]prodropAnimDone
|
]prodropAnimDone
|
||||||
jmp DemoNext
|
jmp DemoNext
|
||||||
|
_tmpVar dw 0
|
||||||
* done = true
|
* done = true
|
||||||
* foreach DSEG0-blahblah
|
* foreach DSEG0-blahblah
|
||||||
* if 00
|
* if 00
|
||||||
|
@ -1317,7 +1334,7 @@ _prodropScanLine db 0 ; starts scanning at line 0
|
||||||
_prodropState db 0 ; starts with 0, which is scan mode
|
_prodropState db 0 ; starts with 0, which is scan mode
|
||||||
_prodropSound db 0 ; determine if we should call sound engine
|
_prodropSound db 0 ; determine if we should call sound engine
|
||||||
|
|
||||||
_soundDownTopFreq db 2
|
_soundDownTopFreq db 20
|
||||||
soundDownReset lda #_soundDownTopFreq
|
soundDownReset lda #_soundDownTopFreq
|
||||||
sta _sndFreq
|
sta _sndFreq
|
||||||
rts
|
rts
|
||||||
|
@ -1325,7 +1342,7 @@ soundDownReset lda #_soundDownTopFreq
|
||||||
_sndFreq db #_soundDownTopFreq
|
_sndFreq db #_soundDownTopFreq
|
||||||
_sndInt db 0
|
_sndInt db 0
|
||||||
soundDown pha ;interval
|
soundDown pha ;interval
|
||||||
ldx #10
|
ldx #25
|
||||||
lda _sndFreq
|
lda _sndFreq
|
||||||
jsr SEToneAX
|
jsr SEToneAX
|
||||||
pla
|
pla
|
||||||
|
@ -2326,7 +2343,7 @@ GenStarRight
|
||||||
lda #"."
|
lda #"."
|
||||||
jsr PlotXY
|
jsr PlotXY
|
||||||
rts
|
rts
|
||||||
:gotMinSize rol ; *2 for table lookup
|
:gotMinSize asl ; *2 for table lookup
|
||||||
tax
|
tax
|
||||||
lda LoLineTable,x
|
lda LoLineTable,x
|
||||||
sta dstPtr
|
sta dstPtr
|
||||||
|
|
|
@ -106,6 +106,7 @@ SEplayNote
|
||||||
jmp :loop
|
jmp :loop
|
||||||
:doneThat rts
|
:doneThat rts
|
||||||
|
|
||||||
|
|
||||||
_SECURRNOTE db 0,0 ; current note being played (frequency/duration)
|
_SECURRNOTE db 0,0 ; current note being played (frequency/duration)
|
||||||
|
|
||||||
SEToneAX
|
SEToneAX
|
||||||
|
@ -115,6 +116,10 @@ SEToneAX
|
||||||
:waitLoop dec
|
:waitLoop dec
|
||||||
bne :waitLoop
|
bne :waitLoop
|
||||||
pla
|
pla
|
||||||
|
inc ; slide?
|
||||||
|
inc
|
||||||
|
inc
|
||||||
|
inc
|
||||||
dex
|
dex
|
||||||
bne :clickLoop
|
bne :clickLoop
|
||||||
rts
|
rts
|
||||||
|
|
Loading…
Reference in New Issue
Block a user