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