anchor.diff:  end;
   
   
  +function TKMUnit.GetInHouse: TKMHouse;
  +begin
  +  if Self = nil then Exit(nil);
  +  
  +  Result := fInHouse;
  +end;
  +
  +
   function TKMUnit.GetInstance: TKMUnit;
   begin
     Result := Self;
  
positive.code:     procedure UpdateLastTimeTrySetActionWalk;
    private
      function GetTask: TKMUnitTask;
    protected
      function GetInstance: TKMUnit; override;
      function GetPosition: TKMPoint; override;
  
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;
  