anchor.diff:      property  HitPointsMax: Byte read GetHitPointsMax;
       procedure CancelTask(aFreeTaskObject: Boolean = True);
       property  Visible: Boolean read fVisible write fVisible;
  -    property  InHouse: TKMHouse read fInHouse write SetInHouse;
  +    property  InHouse: TKMHouse read GetInHouse write SetInHouse;
       property  IsDead: Boolean read fIsDead;
       function  IsDeadOrDying: Boolean;
       function  IsDismissing: Boolean;
  
positive.code: end;
  
  
  function TKMUnit.GetInstance: TKMUnit;
  begin
    Result := Self;
  
negative.code:     procedure UpdateLastTimeTrySetActionWalk;
    private
      function GetTask: TKMUnitTask;
      function GetInHouse: TKMHouse;
    protected
      function GetInstance: TKMUnit; override;
      function GetPosition: TKMPoint; override;
  