anchor.diff:      procedure SetLangCode(const aCode: AnsiString);
     public
       PlayerNetType: TNetPlayerType; //Human, Computer, Closed
  -    StartLocation:integer;  //Start location, 0 means random
  -    Team:integer;
  -    PlayerIndex:TKMPlayer;
  -    ReadyToStart:boolean;
  -    ReadyToPlay:boolean;
  -    Connected:boolean;      //Player is still connected
  -    Dropped:boolean;        //Host elected to continue play without this player
  -    procedure AddPing(aPing:word);
  +    StartLocation: Integer;  //Start location, 0 means random
  +    Team: Integer;
  +    PlayerIndex: TKMPlayer;
  +    ReadyToStart: Boolean;
  +    ReadyToPlay: Boolean;
  +    Connected: Boolean;      //Player is still connected
  +    Dropped: Boolean;        //Host elected to continue play without this player
  +    procedure AddPing(aPing: Word);
       procedure ResetPingRecord;
  -    function GetInstantPing:word;
  -    function GetMaxPing:word;
  -    function IsHuman:boolean;
  -    function IsComputer:boolean;
  -    function IsClosed:boolean;
  -    function GetPlayerType:TPlayerType;
  -    function GetNickname:string;
  +    function GetInstantPing: Word;
  +    function GetMaxPing: Word;
  +    function IsHuman: Boolean;
  +    function IsComputer: Boolean;
  +    function IsClosed: Boolean;
  +    function GetPlayerType: TPlayerType;
  +    function GetNickname: string;
       property Nikname: AnsiString read fNikname;
       property LangCode: AnsiString read fLangCode write SetLangCode;
  -    property IndexOnServer:integer read fIndexOnServer;
  -    property SetIndexOnServer:integer write fIndexOnServer;
  -    property FlagColor:cardinal read GetFlagColor;
  -    property FlagColorID:integer read fFlagColorID write fFlagColorID;
  -
  -    procedure Save(SaveStream:TKMemoryStream);
  -    procedure Load(LoadStream:TKMemoryStream);
  +    property IndexOnServer: Integer read fIndexOnServer;
  +    property SetIndexOnServer: Integer write fIndexOnServer;
  +    property FlagColor: Cardinal read GetFlagColor;
  +    property FlagColorID: Integer read fFlagColorID write fFlagColorID;
  +
  +    procedure Save(SaveStream: TKMemoryStream);
  +    procedure Load(LoadStream: TKMemoryStream);
     end;
   
     //Handles everything related to players list,
  
positive.code: end;
  
  
  procedure TKMNetPlayersList.AddPlayer(aNik:string; aIndexOnServer:integer; const aLang:String='');
  begin
    Assert(fCount <= MAX_PLAYERS,'Can''t add player');
    inc(fCount);
    fPlayers[fCount].fNikname := aNik;
    fPlayers[fCount].fLangCode := aLang;
    fPlayers[fCount].fIndexOnServer := aIndexOnServer;
  
negative.code: 
  
  { TKMPlayerInfo }
  procedure TKMNetPlayerInfo.AddPing(aPing: Word);
  begin
    fPingPos := (fPingPos + 1) mod PING_COUNT;
    fPings[fPingPos] := aPing;
  end;
  
  