diff --git a/Atari/textproc.asm b/Atari/textproc.asm index d9f4e30..c7b86fb 100644 --- a/Atari/textproc.asm +++ b/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 diff --git a/constants.asm b/constants.asm index 7ddffd4..a808919 100644 --- a/constants.asm +++ b/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