if (b_rand1 == 0 || b_rand1 == 1 || b_rand1 == 2 || b_rand1 == 3) then{
			switch (true) do {
						case (b_rand1 == 0): {haltedgroups = [r_halt5,r_halt6,r_halt7,r_halt8]};
						case (b_rand1 == 1): {haltedgroups = [r_halt5,r_halt6,r_halt7,r_halt8]};
						case (b_rand1 == 2): {haltedgroups = [r_halt9,r_halt10,r_halt11,r_halt12]};
						case (b_rand1 == 3): {haltedgroups = [r_halt13,r_halt14,r_halt15,r_halt16]};
							};

		{{_x setVehicleInit "_x action ["sitdown", _x];"; processInitCommands;} foreach units (group _x);} foreach haltedgroups;
		};

		while {!b_reinforceRED && !b_contactRED} do
		{
			_units = [];
			{
				if (([getPos _x, "aom"] call CBA_fnc_inArea) && (side _x == WEST) && (EAST knowsAbout _x > 0)) then
				{
					_units = _units + [_x];
				};
			} forEach allUnits;

			if (count _units > 2) then
			{
				b_contactRED = true;

				if (b_rand1 == 0 || b_rand1 == 1 || b_rand1 == 2 || b_rand1 == 3) then
				{
					{{_x setVehicleInit "_x doFollow (leader (group _x));"; processInitCommands;"} foreach units (group _x);} foreach haltedgroups;
				};
			};