// Flugente: if a militia group has reached its final destination, add them to the current sector
    if ( pGroup && pGroup->usGroupTeam == MILITIA_TEAM )
    {
        // if they arrive in the sector we have currently loaded, let them join from the edge
        // this will always remove them from the group - if you want them to continue moving, issue a new order
        if ( pGroup->ubSectorX == gWorldSectorX && pGroup->ubSectorY == gWorldSectorY && pGroup->ubSectorZ == gbWorldSectorZ )
        {
            MilitiaGroupEntersCurrentSector( pGroup->ubGroupID, pGroup->ubSectorX, pGroup->ubSectorY );

            if ( !fBattlePending && GroupAtFinalDestination( pGroup ) )
            {
                // once militia have arrived, move them from the group to the sector
                DissolveMilitiaGroup( pGroup->ubGroupID );
            }
        }

  // Flugente: if a militia group has reached its final destination, add them to the current sector
    if ( pGroup && pGroup->usGroupTeam == MILITIA_TEAM )
    {
        // if they arrive in the sector we have currently loaded, let them join from the edge
        // this will always remove them from the group - if you want them to continue moving, issue a new order
        // RunAwayScientist fix on 4/10/2018: The below condition needs to have the other functions applied (MoveMilitiaEquipment, MoveMilitiaProfiles, reset)
        // because the other if-else sections do NOT trigger if milita move into currently loaded sector.
        // This should be done before dissolving the group.
        // Currently only MoveMilitiaProfiles is needed, equipment is moved without being called from another func.
        if ( pGroup->ubSectorX == gWorldSectorX && pGroup->ubSectorY == gWorldSectorY && pGroup->ubSectorZ == gbWorldSectorZ )
        {
            ScreenMsg( FONT_MCOLOR_LTYELLOW, MSG_INTERFACE, L"CONDITION CHECKING LOADED SECTOR ACTIVATED" );
            MilitiaGroupEntersCurrentSector( pGroup->ubGroupID, pGroup->ubSectorX, pGroup->ubSectorY );

            // Flugente: move along individual militia data
            MoveIndividualMilitiaProfiles( SECTOR( pGroup->ubPrevX, pGroup->ubPrevY ), SECTOR( pGroup->ubSectorX, pGroup->ubSectorY ), pGroup->pEnemyGroup->ubNumAdmins, pGroup->pEnemyGroup->ubNumTroops, pGroup->pEnemyGroup->ubNumElites );

            if ( !fBattlePending && GroupAtFinalDestination( pGroup ) )
            {
                // once militia have arrived, move them from the group to the sector
                DissolveMilitiaGroup( pGroup->ubGroupID );
                // for safety, reset if necessary
                ResetMilitia( );
            }
        }

// search for a individual militia that is alive and not currently in use in this sector, and return its id
// if none is found, create new and return that one
UINT32 GetIdOfUnusedIndividualMilitia( UINT8 aSoldierClass, UINT8 aSector )
{
    if ( !gGameExternalOptions.fIndividualMilitia )
        return 0;

    UINT8 militialevel = SoldierClassToMilitiaRank( aSoldierClass );

    std::vector<MILITIA>::iterator itend = gIndividualMilitiaVector.end();
    for ( std::vector<MILITIA>::iterator it = gIndividualMilitiaVector.begin( ); it != itend; ++it )
    {
        if ( !((*it).flagmask & (MILITIAFLAG_DEAD | MILITIAFLAG_FIRED | MILITIAFLAG_DESERTION )) && (*it).sector == aSector && (*it).militiarank == militialevel )
        {
            // fitting data found - now we have to make sure this one isn't already in use
            BOOLEAN found = FALSE;

            SOLDIERTYPE* pSoldier;

            INT32 cnt = gTacticalStatus.Team[MILITIA_TEAM].bFirstID;
            INT32 lastid = gTacticalStatus.Team[MILITIA_TEAM].bLastID;
            for (pSoldier = MercPtrs[cnt]; cnt < lastid; ++cnt, ++pSoldier)
            {
                if (pSoldier && pSoldier->bActive && (*it).id == pSoldier->usIndividualMilitiaID && IsLegalMilitiaId(pSoldier->usIndividualMilitiaID) )
                {
                    found = TRUE;
                    break;
                }
            }

            if ( !found && IndividualMilitiaInUse_AutoResolve((*it).id))
            {
                found = TRUE;
            }

            if (!found)
            {
                return (*it).id;
            }
        }
    }

    // if this feature is on and we get to this point, then there aren't enough individual militia. This is odd, the player should be informed
    // if ( gGameExternalOptions.fIndividualMilitia )
        ScreenMsg( FONT_MCOLOR_RED, MSG_INTERFACE, L"Possible error: Not enough individual militia found in GetIdOfUnusedindividualMilitia" );

    // nobody found. That shouldn't really happen, as we are supposed to create data whenever new militia is created. Create new data and use that
    return CreateNewIndividualMilitia( militialevel, MO_ARULCO, aSector );
}


--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^


void MoveIndividualMilitiaProfiles( UINT8 aSourceSector, UINT8 aTargetSector, UINT8 usGreens, UINT8 usRegulars, UINT8 usElites )
{
    std::vector<MILITIA>::iterator itend = gIndividualMilitiaVector.end( );
    for ( std::vector<MILITIA>::iterator it = gIndividualMilitiaVector.begin( ); it != itend; ++it )
    {
        if ( !usGreens && !usRegulars && !usElites )
            return;

        if ( !((*it).flagmask & (MILITIAFLAG_DEAD | MILITIAFLAG_FIRED | MILITIAFLAG_DESERTION )) && (*it).sector == aSourceSector )
        {
            if ( usGreens && ( *it ).militiarank == GREEN_MILITIA)
            {
                (*it).sector = aTargetSector;
                --usGreens;
            }
            else if ( usRegulars && (*it).militiarank == REGULAR_MILITIA)
            {
                (*it).sector = aTargetSector;
                --usRegulars;
            }
            else if ( usElites && (*it).militiarank == ELITE_MILITIA)
            {
                (*it).sector = aTargetSector;
                --usElites;
            }
        }
    }

    // if this feature is on and we get to this point, then there aren't enough individual militia. This is odd, the player should be informed
    if ( (usGreens + usRegulars + usElites) && gGameExternalOptions.fIndividualMilitia )
        ScreenMsg( FONT_MCOLOR_RED, MSG_INTERFACE, L"Possible error: Not enough individual militia found in MoveIndividualMilitiaProfiles" );
}
}

// search for a individual militia that is alive and not currently in use in this sector, and return its id
// if none is found, create new and return that one
UINT32 GetIdOfUnusedIndividualMilitia( UINT8 aSoldierClass, UINT8 aSector )
{
    if ( !gGameExternalOptions.fIndividualMilitia )
        return 0;

    UINT8 militialevel = SoldierClassToMilitiaRank( aSoldierClass );

    std::vector<MILITIA>::iterator itend = gIndividualMilitiaVector.end();
    for ( std::vector<MILITIA>::iterator it = gIndividualMilitiaVector.begin( ); it != itend; ++it )
    {
        if ( !((*it).flagmask & (MILITIAFLAG_DEAD | MILITIAFLAG_FIRED | MILITIAFLAG_DESERTION )) && (*it).sector == aSector && (*it).militiarank == militialevel )
        {
            // fitting data found - now we have to make sure this one isn't already in use
            BOOLEAN found = FALSE;

            SOLDIERTYPE* pSoldier;

            INT32 cnt = gTacticalStatus.Team[MILITIA_TEAM].bFirstID;
            INT32 lastid = gTacticalStatus.Team[MILITIA_TEAM].bLastID;
            for (pSoldier = MercPtrs[cnt]; cnt < lastid; ++cnt, ++pSoldier)
            {
                if (pSoldier && pSoldier->bActive && (*it).id == pSoldier->usIndividualMilitiaID && IsLegalMilitiaId(pSoldier->usIndividualMilitiaID) )
                {
                    found = TRUE;
                    break;
                }
            }

            if ( !found && IndividualMilitiaInUse_AutoResolve((*it).id))
            {
                found = TRUE;
            }

            if (!found)
            {
                return (*it).id;
            }
        }
    }

    // if this feature is on and we get to this point, then there aren't enough individual militia. This is odd, the player should be informed
    // if ( gGameExternalOptions.fIndividualMilitia )
      ScreenMsg( FONT_MCOLOR_RED, MSG_INTERFACE, L"Possible error: Not enough individual militia found in GetIdOfUnusedindividualMilitia" );

// RunAwayScientist fix on 4/11/2018 - Creating new profiles when there's a bug duplicates orphaned militia that cannot be disbanded. We either need a clean-up method or the player can just move his militia back to the sector where they were orphaned to fix.
    // nobody found. That shouldn't really happen, as we are supposed to create data whenever new militia is created. Create new data and use that
//  return CreateNewIndividualMilitia( militialevel, MO_ARULCO, aSector );
}


--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^--^



void MoveIndividualMilitiaProfiles( UINT8 aSourceSector, UINT8 aTargetSector, UINT8 usGreens, UINT8 usRegulars, UINT8 usElites )
{
    std::vector<MILITIA>::iterator itend = gIndividualMilitiaVector.end( );
    for ( std::vector<MILITIA>::iterator it = gIndividualMilitiaVector.begin( ); it != itend; ++it )
    {

// RunAwayScientist on 4/11/2018 - Redundant, the FOR loop should already catch end of vector. This may also cause a premature termination of the loop if 0's are fed to this function.
//      if ( !usGreens && !usRegulars && !usElites )
//          return;

        if ( !((*it).flagmask & (MILITIAFLAG_DEAD | MILITIAFLAG_FIRED | MILITIAFLAG_DESERTION )) && (*it).sector == aSourceSector )
        {
            if ( usGreens && ( *it ).militiarank == GREEN_MILITIA)
            {
                (*it).sector = aTargetSector;
                --usGreens;
            }
            else if ( usRegulars && (*it).militiarank == REGULAR_MILITIA)
            {
                (*it).sector = aTargetSector;
                --usRegulars;
            }
            else if ( usElites && (*it).militiarank == ELITE_MILITIA)
            {
                (*it).sector = aTargetSector;
                --usElites;
            }
        }
    }

    // if this feature is on and we get to this point, then there aren't enough individual militia. This is odd, the player should be informed
  if ( (usGreens + usRegulars + usElites) && gGameExternalOptions.fIndividualMilitia )
      ScreenMsg( FONT_MCOLOR_RED, MSG_INTERFACE, L"Possible error: Not enough individual militia found in MoveIndividualMilitiaProfiles" );
}

          ScreenMsg( FONT_MCOLOR_LTYELLOW, MSG_INTERFACE, L"Militia found no gun to equip, uses harsh langugage instead!" );
            }
        }
        // we didn't find any gun at all. Now what?
        else
        {
            si[SI_GUN].done = TRUE;
          ScreenMsg( FONT_MCOLOR_LTYELLOW, MSG_INTERFACE, L"Militia found no gun to equip, uses harsh langugage instead!" );
        }

  // RunAwayScientist on 4/11/2018 - Disabled no gun messages.
//          ScreenMsg( FONT_MCOLOR_LTYELLOW, MSG_INTERFACE, L"Militia found no gun to equip, uses harsh langugage instead!" );
            }
        }
        // we didn't find any gun at all. Now what?
        else
        {
            si[SI_GUN].done = TRUE;
//          ScreenMsg( FONT_MCOLOR_LTYELLOW, MSG_INTERFACE, L"Militia found no gun to equip, uses harsh langugage instead!" );
        }

  <ORIGINDATA>
    <!-- Arulcan locals: militia trained from the civilian population -->
.
.
.
.
    <chance_bodytype_REGMALE>20</chance_bodytype_REGMALE>
    <chance_bodytype_BIGMALE>5</chance_bodytype_BIGMALE>
    <chance_bodytype_STOCKYMALE>5</chance_bodytype_STOCKYMALE>
    <chance_bodytype_REGFEMALE>70</chance_bodytype_REGFEMALE>   
    <chance_skin_PINKSKIN>0</chance_skin_PINKSKIN>
    <chance_skin_TANSKIN>15</chance_skin_TANSKIN>
    <chance_skin_DARKSKIN>60</chance_skin_DARKSKIN>
    <chance_skin_BLACKSKIN>25</chance_skin_BLACKSKIN>   
    <dailycost_green>20</dailycost_green>
    <dailycost_regular>35</dailycost_regular>
    <dailycost_elite>140</dailycost_elite>
  </ORIGINDATA>


  <ORIGINDATA>
    <!-- PMC mercenaries. These guys could come from anywhere, for now, we use russian names -->
.
.
.
.
    <chance_bodytype_REGMALE>50</chance_bodytype_REGMALE>
    <chance_bodytype_BIGMALE>25</chance_bodytype_BIGMALE>
    <chance_bodytype_STOCKYMALE>20</chance_bodytype_STOCKYMALE>
    <chance_bodytype_REGFEMALE>5</chance_bodytype_REGFEMALE>   
    <chance_skin_PINKSKIN>80</chance_skin_PINKSKIN>
    <chance_skin_TANSKIN>10</chance_skin_TANSKIN>
    <chance_skin_DARKSKIN>5</chance_skin_DARKSKIN>
    <chance_skin_BLACKSKIN>5</chance_skin_BLACKSKIN>  
    <dailycost_green>150</dailycost_green>
    <dailycost_regular>250</dailycost_regular>
    <dailycost_elite>768</dailycost_elite>   
  </ORIGINDATA>



  <ORIGINDATA>
    <!-- Defectors: militia created by interrogating prisoners. We assume these are not of Arulcan origin for more flavour 
            For now, we have them be german -->
.
.
.
.
    <chance_bodytype_REGMALE>50</chance_bodytype_REGMALE>
    <chance_bodytype_BIGMALE>20</chance_bodytype_BIGMALE>
    <chance_bodytype_STOCKYMALE>20</chance_bodytype_STOCKYMALE>
    <chance_bodytype_REGFEMALE>10</chance_bodytype_REGFEMALE>   
    <chance_skin_PINKSKIN>25</chance_skin_PINKSKIN>
    <chance_skin_TANSKIN>25</chance_skin_TANSKIN>
    <chance_skin_DARKSKIN>40</chance_skin_DARKSKIN>
    <chance_skin_BLACKSKIN>10</chance_skin_BLACKSKIN>
    <dailycost_green>12</dailycost_green>
    <dailycost_regular>20</dailycost_regular>
    <dailycost_elite>205</dailycost_elite>
  </ORIGINDATA>
</MILITIAORIGINDATA>