anchor.diff:      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
  
positive.code: 
      procedure SetTargetHouse(aHouse: TKMHouse);
      procedure SetTargetUnit(aUnit: TKMUnit);
      procedure SetTargetPosition(aLoc: TKMPointDir);
    public
      constructor Create(aGroup: TKMUnitGroup);
      constructor Load(LoadStream: TKMemoryStream);
  
negative.code:     property Group: TKMUnitGroup read fGroup;
      property OnPlace: Boolean read fOnPlace;
      property InFight: Boolean read SquadInFight;
      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;
  