anchor.diff:      destructor Destroy; override;
       function GetHousePointer:TKMHouse; //Returns self and adds one to the pointer counter
       procedure ReleaseHousePointer; //Decreases the pointer counter
  -    property GetPointerCount:integer read fPointerCount;
  +    property PointerCount:integer read fPointerCount;
   
       procedure DemolishHouse(DoSilent:boolean; NoRubble:boolean=false);
       property ID:integer read fID;
  
positive.code: 
      property BuildingState: THouseBuildState read fBuildState write fBuildState;
      procedure IncBuildingProgress;
      function GetMaxHealth:word;
      function  AddDamage(aAmount:word; aIsEditor:boolean=false):boolean;
      procedure AddRepair(aAmount:word=5);
      procedure UpdateDamage;
  
negative.code: end;
  
  
  function TKMHouse.MaxHealth:word;
  begin
    Result := fResource.HouseDat[fHouseType].MaxHealth;
  end;
  
  
  