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
@@ -1101,16 +1105,20 @@ loop  sta (temp2),y
 
     mva #0 TankNr
     sta COLBAKS    ; set color of background
-@     tax
-      lda TankStatusColoursTable,x
-      sta COLOR2  ; set color of player name line
-      jsr EnterPlayerName
-      bit escFlag
-      spl:rts
-      jsr CheckTankCheat
-      inc TankNr
-      lda TankNr
-      cmp NumberOfPlayers
+@   tax
+    lda TankStatusColoursTable,x
+    bit TeamGame
+    bvc NoTeamColors
+    lda TankStatusColoursTableT,x
+NoTeamColors
+    sta COLOR2  ; set color of player name line
+    jsr EnterPlayerName
+    bit escFlag
+    spl:rts
+    jsr CheckTankCheat
+    inc TankNr
+    lda TankNr
+    cmp NumberOfPlayers
     bne @-
     rts
 .endp

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 @-