hedgewars/CCHandlers.inc
changeset 2592 d86618629e20
parent 2579 e5e4ebf528b5
child 2608 cebfea02f8b5
equal deleted inserted replaced
2591:c6597b65caea 2592:d86618629e20
    79    begin
    79    begin
    80    SplitBySpace(s, ts);
    80    SplitBySpace(s, ts);
    81    val(s, Color);
    81    val(s, Color);
    82    TryDo(Color <> 0, 'Error: black team color', true);
    82    TryDo(Color <> 0, 'Error: black team color', true);
    83 
    83 
    84    Color:= Color or $FF000000;
    84    Color:= Color or AMask;
    85 
    85 
    86    AddTeam(Color);
    86    AddTeam(Color);
    87    CurrentTeam^.TeamName:= ts;
    87    CurrentTeam^.TeamName:= ts;
    88    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;
    88    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;
    89 
    89