Teams colors added

Atari/textproc.asm

@@ -361,6 +361,10 @@ GoToActivation
 
     ldx tankNr
     lda TankStatusColoursTable,x
+    bit TeamGame
+    bvc NoTeamColors
+    lda TankStatusColoursTableT,x
+NoTeamColors
     sta COLOR2
 
     ; there is a tank (player) number in tanknr
@@ -1103,6 +1107,10 @@ loop  sta (temp2),y
     sta COLBAKS    ; set color of background
 @   tax
     lda TankStatusColoursTable,x
+    bit TeamGame
+    bvc NoTeamColors
+    lda TankStatusColoursTableT,x
+NoTeamColors
     sta COLOR2  ; set color of player name line
     jsr EnterPlayerName
     bit escFlag

constants.asm

@@ -74,8 +74,10 @@ Team_Header
     dta d"A-Team" ; :)
 
 TankColoursTable        .BYTE $58,$2a,$96,$ca,$7a,$ed
+TankColoursTableT       .BYTE $2a,$2a,$7a,$7a,$2a,$7a  ; Teams colors
 ;TankStatusColoursTable  .BYTE $54,$24,$92,$c4,$74,$e4  ; standard order
 TankStatusColoursTable  .BYTE $74,$c4,$24,$e4,$54,$94   ; Adam's order
+TankStatusColoursTableT .BYTE $24,$74,$24,$74,$24,$74   ; Teams colors
 ;-----------
 GradientAddrL
     .by <dliColorsFore, <dliColorsFore, <dliColorsFore2

game.asm

@@ -363,6 +363,10 @@ CheckNextTankAD
 
     ldx tankNr
     lda TankStatusColoursTable,x
+    bit TeamGame
+    bvc NoTeamColors
+    lda TankStatusColoursTableT,x
+NoTeamColors    
     sta COLOR2  ; set color of status line
     jsr RandomizeForce.LimitForce
     jsr PutTankNameOnScreen

grafproc.asm

@@ -2008,6 +2008,10 @@ ybarrel
 @     lda #$00
       sta sizep0,y ; P0-P3 widths
       lda TankColoursTable,y ; colours of sprites under tanks
+      bit TeamGame
+      bvc no_team
+      lda TankColoursTableT,y ; colours of sprites under tanks for Teams
+no_team
       sta PCOLR0,y    
       dey
     bpl @-