equal
deleted
inserted
replaced
72 end; |
72 end; |
73 |
73 |
74 procedure chAddTeam(var s: shortstring); |
74 procedure chAddTeam(var s: shortstring); |
75 var Color: Longword; |
75 var Color: Longword; |
76 ts: shortstring; |
76 ts: shortstring; |
|
77 {$IFNDEF ENDIAN_LITTLE} |
|
78 tmpA, tmpR, tmpG, tmpB: byte; |
|
79 tmpColor: LongWord = 0; |
|
80 {$ENDIF} |
77 begin |
81 begin |
78 if isDeveloperMode then |
82 if isDeveloperMode then |
79 begin |
83 begin |
80 SplitBySpace(s, ts); |
84 SplitBySpace(s, ts); |
81 val(s, Color); |
85 val(s, Color); |
82 TryDo(Color <> 0, 'Error: black team color', true); |
86 TryDo(Color <> 0, 'Error: black team color', true); |
83 |
87 |
84 Color:= Color or AMask; |
88 // color is always in ARGB so the mask must be constant |
85 |
89 Color:= Color or $FF000000; |
|
90 |
86 AddTeam(Color); |
91 AddTeam(Color); |
87 CurrentTeam^.TeamName:= ts; |
92 CurrentTeam^.TeamName:= ts; |
88 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true; |
93 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true; |
89 |
94 |
90 CurrentTeam^.voicepack:= AskForVoicepack('Default') |
95 CurrentTeam^.voicepack:= AskForVoicepack('Default') |