anchor.diff:    TTaskAttackHouse = class(TUnitTask)
     private
       fHouse: TKMHouse;
  -    fDestroyingHouse: Boolean; //House destruction in progress
     public
       constructor Create(aWarrior: TKMUnitWarrior; aHouse: TKMHouse);
       constructor Load(LoadStream: TKMemoryStream); override;
       procedure SyncLoad; override;
       destructor Destroy; override;
  -    property DestroyingHouse: Boolean read fDestroyingHouse;
       function WalkShouldAbandon: Boolean; override;
       function Execute: TTaskResult; override;
       procedure Save(SaveStream: TKMemoryStream); override;
  
positive.code:   inherited Create(aWarrior);
    fTaskName := utn_AttackHouse;
    fHouse := aHouse.GetHousePointer;
    fDestroyingHouse := False;
  end;
  
  
  
negative.code: begin
    inherited;
    LoadStream.Read(fHouse, 4);
  end;
  
  
  