diff -r 9332f744bbdf -r 0c3d5549912e hedgewars/CCHandlers.inc --- a/hedgewars/CCHandlers.inc Sun Nov 15 19:43:58 2009 +0000 +++ b/hedgewars/CCHandlers.inc Sun Nov 15 22:26:42 2009 +0000 @@ -74,6 +74,10 @@ procedure chAddTeam(var s: shortstring); var Color: Longword; ts: shortstring; +{$IFNDEF ENDIAN_LITTLE} + tmpA, tmpR, tmpG, tmpB: byte; + tmpColor: LongWord = 0; +{$ENDIF} begin if isDeveloperMode then begin @@ -81,8 +85,9 @@ val(s, Color); TryDo(Color <> 0, 'Error: black team color', true); - Color:= Color or AMask; - + // color is always in ARGB so the mask must be constant + Color:= Color or $FF000000; + AddTeam(Color); CurrentTeam^.TeamName:= ts; if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;