anchor.diff:  
       procedure Activate(aWasBuilt: Boolean); virtual;
       procedure CloseHouse(IsEditor: Boolean = False); virtual;
  -    procedure SetWareDelivery(aVal: Boolean);
       procedure EnableRepair;
       procedure DisableRepair;
   
  
positive.code:     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;
      property SelectedHouse: TKMHouse read fSelectedHouse write fSelectedHouse;
      procedure Save(SaveStream: TKMemoryStream);
      procedure Load(LoadStream: TKMemoryStream);
  
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;
  