54    begin

    54    begin

    55    SplitBySpace(s, ts);

    55    SplitBySpace(s, ts);

    56    val(s, Color);

    56    val(s, Color);

    57    TryDo(Color <> 0, 'Error: black team color', true);

    57    TryDo(Color <> 0, 'Error: black team color', true);

    58 

    58 

    59    AddTeam(Color);

    61    AddTeam(Color);

    60    CurrentTeam^.TeamName:= ts;

    62    CurrentTeam^.TeamName:= ts;

    61    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true

    63    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true

    62    end

    64    end

    63 end;

    65 end;

    77 CurrentTeam^.GraveName:= s

    79 CurrentTeam^.GraveName:= s

    78 end;

    80 end;

    79 

    81 

    80 procedure chFort(var s: shortstring);

    82 procedure chFort(var s: shortstring);

    81 begin

    83 begin

    83 if s[1]='"' then Delete(s, 1, 1);

    85 if s[1]='"' then Delete(s, 1, 1);

    84 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

    86 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

    85 CurrentTeam^.FortName:= s

    87 CurrentTeam^.FortName:= s

    86 end;

    88 end;

    87 

    89