anchor.diff:        fSchool:TKMHouseSchool;
       public
         constructor Create(aUnit:TKMUnit; aSchool:TKMHouseSchool);
  +      procedure Abandon();
         procedure Execute(out TaskDone:boolean); override;
       end;
   
  
positive.code: 
  procedure TTaskDeliver.Abandon();
  begin
    Inherited;
    fPlayers.Player[byte(fUnit.fOwner)].DeliverList.AbandonDelivery(fDeliverID);
  end;
  
  
  
negative.code: 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
  