_vehicles = [Ajoneuvo_15, Ajoneuvo_14, Ajoneuvo_13, Ajoneuvo_12, Ajoneuvo_11, Ajoneuvo_10, Ajoneuvo_9, Ajoneuvo_8, Ajoneuvo_7, Ajoneuvo_6, Ajoneuvo_5, Ajoneuvo_4, Ajoneuvo_3, Ajoneuvo_2, Ajoneuvo_1];
_soldiers = allUnits;
_random_s = []; _rr = [];

for [{_i = 0}, {_i < ((count _soldiers))}, {_i = _i + 1}] do {
	_rk = "RK" in str((_soldiers select _i));
	if(_rk) then {
		_rr = _rr + [_soldiers select _i];
	};
};

_random_s = [_rr, {floor (random (count _rr))} ] call fn_vbs_sortArray;


for [{_i = 0}, {_i < ((count _random_s))}, {_i = _i + 1}] do {
	_rk = "RK" in str((_random_s select _i));
	if(_rk) then {
		if(isPlayer (_random_s select _i) || !isMultiplayer) then {
			if(_i < 15) then {
				(_random_s select _i) moveInDriver (_vehicles select _i);
			} else {
				(_random_s select _i) moveInCargo (_vehicles select _i-15);
			};
		};
	};
};

while {true} do {
	for [{_i = 0}, {_i < ((count _vehicles) - 1)}, {_i = _i + 1}] do {
		if ((alive (_vehicles select _i)) && (alive (_vehicles select (_i + 1)))) then {
			if ((speed (_vehicles select _i) > 5) &&
				(speed (_vehicles select (_i + 1)) > 5) &&
				(([getPos (_vehicles select _i), getPos (_vehicles select (_i + 1))] call fn_vbs_distance2Dsqr) < 625)) then {
					(_vehicles select _i) setDamage 1;
			};
		};
	};
	for [{_i = 0}, {_i < ((count _vehicles))}, {_i = _i + 1}] do {
		if ((alive (_vehicles select _i))) then {
			if ((!(isOnRoad getPos (_vehicles select _i)))) then {
					(_vehicles select _i) setDamage 1;
			};
		};
	};
	sleep 1;
};