anchor.diff:  end;
   
   
  -function TKMNetPlayerInfo.GetInstantPing:word;
  +function TKMNetPlayerInfo.GetInstantPing: Word;
   begin
     Result := fPings[fPingPos];
   end;
   
   
  -function TKMNetPlayerInfo.GetMaxPing:word;
  -var i: integer;
  +function TKMNetPlayerInfo.GetMaxPing: Word;
  +var I: Integer;
   begin
     Result := 0;
  -  for i:=0 to PING_COUNT-1 do
  -    Result := Math.max(Result, fPings[i]);
  -end;
  -
  -
  -function TKMNetPlayerInfo.IsHuman:boolean;
  +  for I := 0 to PING_COUNT - 1 do
  +    Result := Math.max(Result, fPings[I]);
  +end;
  +
  +
  +function TKMNetPlayerInfo.IsHuman: Boolean;
   begin
     Result := PlayerNetType = nptHuman;
   end;
   
   
  -function TKMNetPlayerInfo.IsComputer:boolean;
  +function TKMNetPlayerInfo.IsComputer: Boolean;
   begin
     Result := PlayerNetType = nptComputer;
   end;
   
   
  -function TKMNetPlayerInfo.IsClosed:boolean;
  +function TKMNetPlayerInfo.IsClosed: Boolean;
   begin
     Result := PlayerNetType = nptClosed;
   end;
   
   
  -function TKMNetPlayerInfo.GetPlayerType:TPlayerType;
  -const PlayerTypes:array[TNetPlayerType] of TPlayerType = (pt_Human, pt_Computer, pt_Computer);
  +function TKMNetPlayerInfo.GetPlayerType: TPlayerType;
  +const
  +  PlayerTypes: array[TNetPlayerType] of TPlayerType = (pt_Human, pt_Computer, pt_Computer);
   begin
     Result := PlayerTypes[PlayerNetType];
   end;
   
   
  -function TKMNetPlayerInfo.GetNickname:string;
  -begin
  -  if IsComputer then Result := fTextLibrary[TX_LOBBY_SLOT_AI_PLAYER]
  -  else if IsClosed then Result := fTextLibrary[TX_LOBBY_SLOT_CLOSED]
  -  else Result := Nikname;
  +function TKMNetPlayerInfo.GetNickname: string;
  +begin
  +  case PlayerNetType of
  +    nptHuman:     Result := Nikname;
  +    nptComputer:  Result := fTextLibrary[TX_LOBBY_SLOT_AI_PLAYER];
  +    nptClosed:    Result := fTextLibrary[TX_LOBBY_SLOT_CLOSED];
  +    else          Result := '<<<LEER>>>';
  +  end;
   end;
   
   
  
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;
  
  