anchor.diff:      procedure HitPointsChangeFromScript(aAmount: Integer);
       procedure HitPointsDecrease(aAmount: Byte; aAttacker: TKMUnit);
       property  HitPointsMax: Byte read GetHitPointsMax;
  -    procedure CancelUnitTask(aFreeTaskObject: Boolean = True);
  +    procedure CancelUnitTask;
       property  Visible: Boolean read fVisible write fVisible;
       property  InHouse: TKMHouse read fInHouse write SetInHouse;
       property  IsDead: Boolean read fIsDead;
  
positive.code:     procedure Deliver(aFrom: TKMHouse; toHouse: TKMHouse; Res: TKMWareType; aID: integer); overload;
      procedure Deliver(aFrom: TKMHouse; toUnit: TKMUnit; Res: TKMWareType; aID: integer); overload;
      function TryDeliverFrom(aFrom: TKMHouse): Boolean;
      procedure DelegateDelivery(aToSerf: TKMUnitSerf);
  
      property Carry: TKMWareType read fCarry;
      procedure CarryGive(Res: TKMWareType);
  
negative.code: uses
    Classes, Math, SysUtils, KromUtils, Types,
    KM_CommonClasses, KM_Defaults, KM_Points, KM_CommonUtils,
    KM_Terrain, KM_ResHouses, KM_ResWares, KM_Houses, KM_HouseSchool, KM_HouseBarracks;
  
  //Memo on directives:
  //Dynamic - declared and used (overriden) occasionally
  