anchor.diff:  
   function TKMHousesCollection.FindHousesInRadius(aLoc: TKMPoint; aSqrRadius: Single; aTypes: THouseTypeSet; aOnlyCompleted: Boolean = True): TKMHouseArray;
   var
  -  I,Idx: Integer;
  +  I, Idx: Integer;
   begin
     SetLength(Result, 12);
     Idx := 0;
  
positive.code: 
  //Update resource requested counts for all houses
  procedure TKMHousesCollection.UpdateResRequest;
  var I: Integer;
  begin
    for I := 0 to Count - 1 do
    if Houses[I].IsComplete and not Houses[I].IsDestroyed then
  
negative.code: 
  
  procedure TKMHousesCollection.SyncLoad;
  var
    I: Integer;
  begin
    for I := 0 to Count - 1 do
      Houses[I].SyncLoad;
  