hedgewars/uTeams.pas
changeset 11178 7b2b181f84f8
parent 11046 47a8c19ecb60
child 11471 458d90012c22
equal deleted inserted replaced
11174:5cadfe82eaf6 11178:7b2b181f84f8
   602 if isDeveloperMode then
   602 if isDeveloperMode then
   603     begin
   603     begin
   604     SplitBySpace(s, cs);
   604     SplitBySpace(s, cs);
   605     SplitBySpace(cs, ts);
   605     SplitBySpace(cs, ts);
   606     Color:= StrToInt(cs);
   606     Color:= StrToInt(cs);
   607     TryDo(Color <> 0, 'Error: black team color', true);
       
   608 
   607 
   609     // color is always little endian so the mask must be constant also in big endian archs
   608     // color is always little endian so the mask must be constant also in big endian archs
   610     Color:= Color or $FF000000;
   609     Color:= Color or $FF000000;
   611     AddTeam(Color);
   610     AddTeam(Color);
   612     CurrentTeam^.TeamName:= ts;
   611     CurrentTeam^.TeamName:= ts;