mirror of
https://github.com/pkali/Avery_Breakout.git
synced 2026-05-20 22:33:55 +02:00
Colors, and AutoPlay mode
This commit is contained in:
@@ -0,0 +1,4 @@
|
|||||||
|
|
||||||
|
*.bak
|
||||||
|
*.lab
|
||||||
|
*.lst
|
||||||
+21
-9
@@ -34,12 +34,13 @@ maxBrickLines = 14 ; maximum number of lines of bricks to be eradicated
|
|||||||
.zpvar temp .word
|
.zpvar temp .word
|
||||||
.zpvar clearCount clearBallNr .byte
|
.zpvar clearCount clearBallNr .byte
|
||||||
.zpvar DLI_A DLI_X dliCount .byte
|
.zpvar DLI_A DLI_X dliCount .byte
|
||||||
|
.zpvar AutoPlay .byte ; Auto Play flag ($80 - auto)
|
||||||
org $2000
|
org $2000
|
||||||
;---------------------------------------------------
|
;---------------------------------------------------
|
||||||
dl
|
dl
|
||||||
.by $80+$20
|
.by $20
|
||||||
dta $42,a(statusBuffer)
|
dta $42,a(statusBuffer)
|
||||||
.by $80
|
.by $80+$50
|
||||||
dta $4f+$20,a(display) ;VSCROLL
|
dta $4f+$20,a(display) ;VSCROLL
|
||||||
:((maxlines-1)/2) dta a($2f8f)
|
:((maxlines-1)/2) dta a($2f8f)
|
||||||
|
|
||||||
@@ -157,6 +158,8 @@ JNotFire
|
|||||||
DLI
|
DLI
|
||||||
sta DLI_A
|
sta DLI_A
|
||||||
stx DLI_X
|
stx DLI_X
|
||||||
|
mva #$80 PRIOR
|
||||||
|
|
||||||
ldx dliCount
|
ldx dliCount
|
||||||
sta WSYNC
|
sta WSYNC
|
||||||
|
|
||||||
@@ -180,7 +183,7 @@ DLI
|
|||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
main
|
main
|
||||||
jsr initialize
|
jsr initialize
|
||||||
|
mva #$80 AutoPlay
|
||||||
loop
|
loop
|
||||||
|
|
||||||
mva #maxBalls-1 currBall
|
mva #maxBalls-1 currBall
|
||||||
@@ -289,10 +292,13 @@ noTop
|
|||||||
bcc noBottom
|
bcc noBottom
|
||||||
|
|
||||||
; check if the ball hits the racquette
|
; check if the ball hits the racquette
|
||||||
|
bit AutoPlay
|
||||||
|
bmi GoAuto
|
||||||
lda CONSOL
|
lda CONSOL
|
||||||
and #%00000100 ; OPTION
|
and #%00000100 ; OPTION
|
||||||
bne bounceNormally
|
bne bounceNormally
|
||||||
jmp bottomBounce ; turns off the ball kill
|
GoAuto
|
||||||
|
jmp bottomBounce ; turns off the ball kill
|
||||||
bounceNormally
|
bounceNormally
|
||||||
|
|
||||||
lda ypos+1
|
lda ypos+1
|
||||||
@@ -611,14 +617,19 @@ endOfBallzLoop
|
|||||||
jpl flight
|
jpl flight
|
||||||
|
|
||||||
|
|
||||||
; pause 0;all balls
|
pause 1 ;all balls
|
||||||
|
bit AutoPlay
|
||||||
|
bpl NoAuto
|
||||||
|
pause 2 ;additional pause if auto play mode
|
||||||
|
|
||||||
|
NoAuto
|
||||||
lda eXistenZstackPtr
|
lda eXistenZstackPtr
|
||||||
cmp #maxBalls
|
cmp #maxBalls
|
||||||
jne loop
|
jne loop
|
||||||
|
|
||||||
;game over
|
;game over
|
||||||
gameOver
|
gameOver
|
||||||
|
jsr HiScoreCheckWrite
|
||||||
lda RANDOM
|
lda RANDOM
|
||||||
and #$07
|
and #$07
|
||||||
sta COLPM0
|
sta COLPM0
|
||||||
@@ -769,7 +780,7 @@ ScoreReady
|
|||||||
rts
|
rts
|
||||||
.endp
|
.endp
|
||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
.proc HiScoreR
|
.proc HiScoreCheckWrite
|
||||||
; It checks if the score is greater than hiscore.
|
; It checks if the score is greater than hiscore.
|
||||||
; If yes - rewrites the score to hiscore.
|
; If yes - rewrites the score to hiscore.
|
||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
@@ -1006,9 +1017,10 @@ eXistenZstackFill
|
|||||||
;VBI
|
;VBI
|
||||||
mva #screenWidth/2 racquetPos
|
mva #screenWidth/2 racquetPos
|
||||||
vmain vint,7
|
vmain vint,7
|
||||||
lda #$80 ;+GTIACTLBITS
|
lda #$0 ;+GTIACTLBITS
|
||||||
sta GRACTL
|
; sta PRIOR
|
||||||
sta GPRIOR
|
sta GPRIOR
|
||||||
|
sta COLBAKS
|
||||||
|
|
||||||
mva #1 colour
|
mva #1 colour
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
Reference in New Issue
Block a user