anchor.diff:  
   
   procedure TKMHousesCollection.SyncLoad;
  -var i:integer;
  -begin
  -  fSelectedHouse := fPlayers.GetHouseByID(cardinal(fSelectedHouse));
  -  for i := 0 to Count - 1 do
  -  begin
  -    Houses[i].SyncLoad;
  -    if Houses[i].fCurrentAction<>nil then
  -      Houses[i].fCurrentAction.fHouse := fPlayers.GetHouseByID(cardinal(Houses[i].fCurrentAction.fHouse));
  +var I:integer;
  +begin
  +  for I := 0 to Count - 1 do
  +  begin
  +    Houses[I].SyncLoad;
  +    if Houses[I].fCurrentAction<>nil then
  +      Houses[I].fCurrentAction.fHouse := fPlayers.GetHouseByID(cardinal(Houses[I].fCurrentAction.fHouse));
     end;
   end;
   
  
positive.code: var i,HouseCount: Integer; HouseType: THouseType;
  begin
    LoadStream.ReadAssert('Houses');
    LoadStream.Read(fSelectedHouse, 4);
    LoadStream.Read(HouseCount);
    for i := 0 to HouseCount - 1 do
    begin
  
negative.code: 
    TKMHousesCollection = class(TKMList)
    private
      function AddToCollection(aHouseType: THouseType; PosX,PosY:integer; aOwner: shortint; aHBS:THouseBuildState):TKMHouse;
      function GetHouse(Index: Integer): TKMHouse;
      procedure SetHouse(Index: Integer; Item: TKMHouse);
  