anchor.diff:  
       function GetFightMinRange: Single;
       function GetFightMaxRange(aTileBased: Boolean = False): Single;
  -    function WithinFightRange(const Value: TKMPoint): Boolean;
  +    function WithinFightRange(const aValue: TKMPoint): Boolean;
       function OrderDone: Boolean;
       property RequestedFood: Boolean read fRequestedFood write fRequestedFood; //Cleared by Serf delivering food
       property LastShootTime: Cardinal read fLastShootTime;
  
positive.code:   ClearOrderTarget;
  
    fNextOrder := woNone;
    inherited;
  end;
  
  
negative.code: 
  function TKMUnitWarrior.ObjToString(const aSeparator: String = '|'): String;
  var
    unitStr, houseStr, groupStr: String;
  begin
    groupStr := 'nil';
    unitStr := 'nil';
    houseStr := 'nil';
  
    if fGroup <> nil then
      groupStr := TKMUnitGroup(fGroup).ObjToString(aSeparator);
  
    if fOrderTargetUnit <> nil then
      unitStr := fOrderTargetUnit.ObjToStringShort('; ');
  
    if fOrderTargetHouse <> nil then
      houseStr := fOrderTargetHouse.ObjToStringShort('; ');
  
    Result := inherited ObjToString(aSeparator) +
              Format('%sWarriorOrder = %s%sNextOrder = %s%sNextOrderForced = %s%sOrderLoc = %s%sOrderTargetUnit = [%s]%sOrderTargetHouse = [%s]%sGroup = %s%s',
  