Heli loot 1.7.7

private ["_guaranteedLoot", "_randomizedLoot", "_spawnOnStart", "_frequency", "_variance", "_spawnChance", "_spawnMarker", "_spawnRadius", "_spawnFire", "_fadeFire", "_timeAdjust", "_timeToSpawn", "_crashModel", "_lootTable", "_crashName", "_position", "_crash", "_clutter", "_config", "_newHeight", "_itemTypes", "_index", "_weights", "_cntWeights", "_itemType", "_nearby", "_nearBy"];

_guaranteedLoot = _this select 0;
_randomizedLoot = _this select 1;
_spawnOnStart =  _this select 2;
_frequency	= _this select 3;
_variance	= _this select 4;
_spawnChance	= _this select 5;
_spawnMarker	= _this select 6;
_spawnRadius	= _this select 7;
_spawnFire	= _this select 8;
_fadeFire	= _this select 9;


diag_log("CRASHSPAWNER: Starting spawn logic for Crash Spawner");

while {true} do {
	// Allows the variance to act as +/- from the spawn frequency timer
	_timeAdjust = round(random(_variance * 2) - _variance);
	_timeToSpawn = time + _frequency + _timeAdjust;

	//Selecting random crash type
	_crashModel = ["UH60Wreck_DZ","UH1Wreck_DZ","Mi8Wreck_DZ"] call BIS_fnc_selectRandom;

	//selecting loottable
	//Random lootables?
	//if (_crashModel == "Mi8Wreck_DZ") then {_lootTable = ["MilitaryEAST","HeliCrashEAST"] call BIS_fnc_selectRandom;}
	//else	{_lootTable = ["MilitaryWEST","HeliCrashWEST"] call BIS_fnc_selectRandom;};

	//or just helicrash loottable
	if (_crashModel == "Mi8Wreck_DZ") then {_lootTable = "HeliCrashEAST";}
	else	{_lootTable = "HeliCrashWEST";};

	_crashName	= getText (configFile >> "CfgVehicles" >> _crashModel >> "displayName");

	diag_log(format["CRASHSPAWNER: %1%2 chance to spawn '%3' with loot table '%4' at %5", round(_spawnChance * 100), '%', _crashName, _lootTable, _timeToSpawn]);

	// Apprehensive about using one giant long sleep here given server time variances over the life of the server daemon
	while {(_spawnOnStart <= 0) AND {(time < _timeToSpawn)}} do {
		sleep (_frequency / 4);
	};

	// Percentage roll
	if (random 1 <= _spawnChance) then {
		_position = [getMarkerPos _spawnMarker,0,_spawnRadius,10,0,2000,0] call BIS_fnc_findSafePos;
		diag_log(format["CRASHSPAWNER: Spawning '%1' with loot table '%2' NOW! (%3) at: %4 - (%5)", _crashName, _lootTable, time, str(_position),mapGridPosition _position]);

		_crash = createVehicle [_crashModel,_position, [], 0, "CAN_COLLIDE"];

		// Randomize the direction the wreck is facing
		_crash setDir round(random 360);

		// Using "custom" wrecks (using the destruction model of a vehicle vs. a prepared wreck model) will result
		// in the model spawning halfway in the ground.  To combat this, an OPTIONAL configuration can be tied to
		// the CfgVehicles class you've created for the custom wreck to define how high above the ground it should
		// spawn.  This is optional.
		_config = configFile >> "CfgVehicles" >> _crashModel >> "heightAdjustment";
		_newHeight = 0;
		if ( isNumber(_config)) then {
			_newHeight = getNumber(_config);
		};

		// Must setPos after a setDir otherwise the wreck won't level itself with the terrain
		_crash setPos  [(_position select 0), (_position select 1), _newHeight];

		// I don't think this is needed (you can't get "in" a crash), but it was in the original DayZ Crash logic
		dayz_serverObjectMonitor set [count dayz_serverObjectMonitor,_crash];
		_crash setVariable ["ObjectID",1,true];

		if (_spawnFire) then {
			//["PVDZ_obj_Fire",[_crash,2,time,false,_fadeFire]] call broadcastRpcCallAll;
			PVDZ_obj_Fire = [_crash,2,time,false,_fadeFire];
			publicVariable "PVDZ_obj_Fire";
			_crash setvariable ["fadeFire",_fadeFire,true];
		};
		//Custom loot table
//Mark out new and replace with old if not functioning
        _config = configfile >> "CfgBuildingLoot" >> _lootTable;
        _itemTypes = [["", "food"], ["", "MilitaryEAST"], ["MedBox0", "object"], ["AmmoBoxSmall_556", "object"], ["AmmoBoxSmall_762", "object"], ["Skin_Camo1_DZ", "magazine"], ["Skin_Soldier1_DZ", "magazine"], ["Skin_Sniper1_DZ", "magazine"], ["FN_FAL","weapon"], ["FN_FAL_ANPVS4","weapon"], ["M14_EP1","weapon"], ["Mk_48_DZ","weapon"], ["M249_DZ","weapon"], ["M240_DZ","weapon"], ["DMR","weapon"], ["G36C","weapon"], ["G36K","weapon"], ["G36a","weapon"], ["G36C_camo","weapon"], ["G36A_camo","weapon"], ["G36K_camo","weapon"], ["G36_c_SD_eotech","weapon"], ["SVD_CAMO","weapon"], ["M24","weapon"], ["M4A1_AIM_SD_camo","weapon"], ["Sa58V_CCO_EP1","weapon"], ["m107_DZ","weapon"], ["BAF_AS50_scoped","weapon"], ["MP5SD","weapon"], ["M40A3","weapon"], ["MP5A5","weapon"], ["M4A3_CCO_EP1","weapon"], ["M4A1_HWS_GL","weapon"], ["M4A1_Aim","weapon"], ["m16a4_acg","weapon"], ["M16A2GL","weapon"], ["BAF_L85A2_RIS_Holo","weapon"], ["MG36_camo","weapon"]];
        _itemChance = [0.09, 0.02, 0.02, 0.4, 0.1, 0.02, 0.02, 0.01, 0.08, 0.02, 0.04, 0.01, 0.08, 0.01, 0.06, 0.08, 0.03, 0.04, 0.04, 0.04, 0.01, 0.01, 0.04, 0.04, 0.01, 0.08, 0.01, 0.01, 0.04, 0.01, 0.04, 0.03, 0.06, 0.04, 0.04, 0.05, 0.03, 0.01];
        _weights = [];
        _weights = [_itemType,_itemChance] call fnc_buildWeightedArray;
        _cntWeights = count _weights;
        _index = dayz_CBLBase  find _lootTable;

		//_itemTypes =	[] + getArray (configFile >> "CfgBuildingLoot" >> _lootTable >> "lootType");
		//_index = dayz_CBLBase  find _lootTable;
		//_weights =		dayz_CBLChances select _index;
		//_cntWeights = count _weights;

		for "_x" from 1 to (round(random 4) + 4) do {
			//create loot
			_index = floor(random _cntWeights);
			_index = _weights select _index;
			_itemType = _itemTypes select _index;

			_position = [_position,(sizeOf _crashModel)/2,(sizeOf _crashModel),0,0,0,0] call BIS_fnc_findSafePos;
			_position = [_position select 0,_position select 1,0];

			[_itemType select 0, _itemType select 1, _position, (sizeOf _crashModel)] call spawn_loot;

			 //Grass clear system uncomment for clear areas around choppers loot. Remove the // from the next two lines to enable

			_clutter = createVehicle ["ClutterCutter_small_2_EP1", _position, [], 0, "CAN_COLLIDE"];
			_clutter setPos _position;

			diag_log(format["CRASHSPAWNER: Loot spawn at '%1 - %3' with loot table '%2'", _crashName, str(_itemType),_position]);

			// ReammoBox is preferred parent class here, as WeaponHolder wouldn't match MedBox0 and other such items.
			_nearby = _position nearObjects ["ReammoBox", sizeOf(_crashModel)];
			{
				_x setVariable ["permaLoot",true];
			} forEach _nearBy;
		};
		_spawnOnStart = _spawnOnStart -1;
	} else {
		diag_log(format["CRASHSPAWNER: %1%2 chance to spawn '%3' with loot table '%4' at %5 FAILED (chance)", round(_spawnChance * 100), '%', _crashName, _lootTable, _timeToSpawn]);
	};
};