anchor.diff:  end;
   
   
  +procedure TTaskBuildHouse.Abandon();
  +begin
  +  fPlayers.Player[byte(fUnit.fOwner)].BuildList.CloseHouse(TaskID);
  +  Inherited;
  +end;
  +
   {Build the house}
   procedure TTaskBuildHouse.Execute(out TaskDone:boolean);
   begin
  
positive.code: 
  if fHouse.IsDestroyed then
  begin
    TaskDone:=true;
    exit;
  end;
  
negative.code:       fSchool:TKMHouseSchool;
      public
        constructor Create(aUnit:TKMUnit; aSchool:TKMHouseSchool);
        procedure Abandon();
        procedure Execute(out TaskDone:boolean); override;
      end;
  
  