anchor.diff:            end;
          end;
   
  -      SetLength(Groups, GCnt-1);
  +      SetLength(Groups, GCnt);
         fattack.CreateCompany(aTargetPoint, Groups);
       end;
     end;
  
positive.code:   if (aTick mod MAX_HANDS = fOwner) then
    begin
      CheckThreats();
      if (aTick mod PERF_TIME_LIMIT = fOwner) then
        CheckAttack();
      RecruitSoldiers();
      CheckGroupsState();
      fAttack.UpdateState(aTick);
  
negative.code:     for I := 0 to Length(aAvaiableGroups) - 1 do
        Inc(  GTArr[ aAvaiableGroups[I].GroupType ]  );
  
      CompaniesCnt := Max(1, Ceil(Length(aAvaiableGroups) / MAX_GROUPS_IN_COMPANY));
      HighAG := Length(aAvaiableGroups) - 1;
      for I := 0 to CompaniesCnt - 1 do
      begin
  