anchor.diff:      property Group: TKMUnitGroup read fGroup;
       property OnPlace: Boolean read fOnPlace;
       property InFight: Boolean read SquadInFight;
  -    property FinalPosition: TKMPointDir read fFinalPosition write SetTargetPosition;
  +    property FinalPosition: TKMPointDir read fFinalPosition write fFinalPosition;
       property Position: TKMPoint read GetGroupPosition;
       property WalkTimeLimit: Cardinal read fWalkTimeLimit write fWalkTimeLimit;
       property AttackTimeLimit: Cardinal read fAttackTimeLimit write fAttackTimeLimit;
  
positive.code:     gHands.CleanUpUnitPointer(fTargetUnit); // aUnit = nil case
  end;
  
  
  procedure TAISquad.SetTargetPosition(aLoc: TKMPointDir);
  var
    pom: Integer;
  begin
    pom := 0;
    if kmSamePoint(aLoc.Loc,KMPOINT_ZERO) then
    begin
      pom := pom * 1;
    end;
    if (pom < 5) then
    fFinalPosition := aLoc;
  end;
  
  procedure TAISquad.SetTargetHouse(aHouse: TKMHouse);
  begin
  
negative.code: 
      procedure SetTargetHouse(aHouse: TKMHouse);
      procedure SetTargetUnit(aUnit: TKMUnit);
    public
      constructor Create(aGroup: TKMUnitGroup);
      constructor Load(LoadStream: TKMemoryStream);
  