anchor.diff:    Result := (CurrentGroup = nil) or
               (aGroup.Count = 1);
     //@Lewin: Plz check me here, KaM did not linked big groups to filled Positions?
  -  //(CurrentGroup.Count + aGroup.Count <= TroopFormations[fGroupType].NumUnits);
  +  //@Krom: That's correct. To be deleted
  +
  +  Result := Result and ((CurrentGroup = nil) or (CurrentGroup.Count < aMaxUnits));
   end;
   
   
  
positive.code:     property Radius: Integer read fRadius write fRadius; //If fighting (or houses being attacked) occurs within this radius from this defence position, this group will get involved
  
      property CurrentGroup: TKMUnitGroup read fCurrentGroup write SetCurrentGroup;
      function CanAccept(aGroup: TKMUnitGroup): Boolean;
      procedure Save(SaveStream: TKMemoryStream);
      procedure SyncLoad;
      procedure UpdateState;
  
negative.code: end;
  
  
  function TAIDefencePosition.CanAccept(aGroup: TKMUnitGroup; aMaxUnits: Integer): Boolean;
  begin
    Result := (fGroupType = UnitGroups[aGroup.UnitType]);
  
  