anchor.diff:      function GetHouseByID(aID: Integer): TKMHouse;
       function FindEmptyHouse(aUnitType:TUnitType; Loc:TKMPoint): TKMHouse;
       function FindHouse(aType:THouseType; X,Y:word; const aIndex:byte=1; aOnlyCompleted:boolean=true): TKMHouse;
  -    function GetTotalPointers: integer;
  +    function GetTotalPointers: Cardinal;
       property SelectedHouse: TKMHouse read fSelectedHouse write fSelectedHouse;
       procedure Save(SaveStream: TKMemoryStream);
       procedure Load(LoadStream: TKMemoryStream);
  
positive.code: end;
  
  
  procedure TKMHouse.SetWareDelivery(aVal:boolean);
  begin
    fWareDelivery := aVal;
  end;
  
  
  {TKMHouseSwineStable}
  constructor TKMHouseSwineStable.Load(LoadStream:TKMemoryStream);
  begin
  
negative.code:     function HitTest(X, Y: Integer): Boolean;
      property HouseType: THouseType read fHouseType;
      property BuildingRepair:boolean read fBuildingRepair write fBuildingRepair;
      property WareDelivery:boolean read fWareDelivery write fWareDelivery;
      property GetHasOwner:boolean read fHasOwner write fHasOwner;
      property Owner:TPlayerIndex read fOwner;
      function GetHealth:word;
  