Colors, and AutoPlay mode

This commit is contained in:
Pecusx
2024-11-27 09:34:25 +01:00
parent 94412126ea
commit 61e8de3cbe
3 changed files with 25 additions and 9 deletions
+4
View File
@@ -0,0 +1,4 @@
*.bak
*.lab
*.lst
+21 -9
View File
@@ -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
BIN
View File
Binary file not shown.