[] spawn
	{
		private ["_units"];

		sleep 20; //wait for start
		if (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 <= 3) then
				{
					{{_x setVehicleInit "_x doFollow (leader (group _x));"; processInitCommands;"} foreach units (group _x);} foreach haltedgroups;
				};
			};

			if (count _units > 8) then
			{
				sleep (300 + (random (300) + random (300)));
				b_reinforceRED = true;
			};
			sleep 10;
		};
	};