Colored lines on Game Over screen

textproc.asm

@@ -1839,29 +1839,33 @@ FinishResultDisplay
     mva #TextForegroundColor colpf2s
     VDLI DLIinterruptGameOver  ; jsr SetDLI for Game Over screen
 	; 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
-;    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
-;FinalResultOfTheNextPlayer
+FinalResultOfTheNextPlayer
-;    ldx ResultOfTankNr ;we are after a round, so we can use TankNr
+    ldx ResultOfTankNr ;we are after a round, so we can use TankNr
-;    lda TankSequence,x ;and we keep here real number if the tank
+    lda TankSequence,x ;and we keep here real number if the tank
-;	tax
+	tax
-;    stx TankNr   ;for which we are displaying results
+    stx TankNr   ;for which we are displaying results
-;	lda TankStatusColoursTable,x
+	lda TankStatusColoursTable,x
-;	sta GameOverColoursTable,y
+	sta GameOverColoursTable,y
-;	;
+	; Y - line number (from 0 to 5)
-;	iny
+	; X - TanNr
-;    dec ResultOfTankNr
+	; let's make texts
-;    beq FinalResultOfTheNextPlayer
+	
-;MakeBlackLines
+	;
-;	cpy #$06
+	iny
-;	beq AllLinesReady
+    dec ResultOfTankNr
-;	lda #0	; black line color for rest of tanks
+    bpl FinalResultOfTheNextPlayer
-;	sta GameOverColoursTable,y
+MakeBlackLines
-;	iny
+	cpy #$06
-;	bne MakeBlackLines
+	beq AllLinesReady
-;AllLinesReady
+	lda #0	; black line color for rest of tanks
+	sta GameOverColoursTable,y
+	iny
+	bne MakeBlackLines
+AllLinesReady
     ldx #(MaxPlayers-1)
 MakeAllTanksVisible
     lda #99