And Final result display for Teams

This commit is contained in:
Pecusx
2025-12-22 11:04:19 +01:00
parent 12eba970d9
commit 48ba864b70
2 changed files with 9 additions and 1 deletions
+9 -1
View File
@@ -1638,6 +1638,10 @@ displayloop1
SetDLI DLIinterruptGameOver ; jsr SetDLI for Game Over screen SetDLI DLIinterruptGameOver ; jsr SetDLI for Game Over screen
; make text and color lines for each tank ; make text and color lines for each tank
ldx NumberOfPlayers ;we start from the highest (best) tank ldx NumberOfPlayers ;we start from the highest (best) tank
bit TeamGame
bvc NoTeamsResults
ldx #MaxPlayers+2 ; set pointer to teams results
NoTeamsResults
dex ;and it is the last one dex ;and it is the last one
stx ResultOfTankNr ;in TankSequence table stx ResultOfTankNr ;in TankSequence table
ldy #0 ;witch line we are coloring ldy #0 ;witch line we are coloring
@@ -1726,7 +1730,11 @@ NotAItank
ply ply
iny iny
dec ResultOfTankNr dec ResultOfTankNr
jpl FinalResultOfTheNextPlayer lda ResultOfTankNr
bmi MakeBlackLines
cmp #MaxPlayers-1 ; check for last team
beq MakeBlackLines
jmp FinalResultOfTheNextPlayer
MakeBlackLines MakeBlackLines
cpy #$06 cpy #$06
beq AllLinesReady beq AllLinesReady
BIN
View File
Binary file not shown.