DayZ-Epoch/SQF/dayz_code/compile/player_upgradeVehicle.sqf

/*
	DayZ Epoch Vehicle Upgrades
	Made for DayZ Unleashed by [VB]AWOL please ask permission to use/edit/distrubute email vbawol@veteranbastards.com.
*/
private ["_proceed","_itemIn","_countIn","_missing","_missingQty","_qty","_removed","_tobe_removed_total","_textMissing","_num_removed","_removed_total","_objectID","_objectUID","_location","_dir","_objectCharacterID","_classname","_newclassname","_upgrade","_vehicle","_findNearestVehicles","_findNearestVehicle","_IsNearVehicle","_finished","_temp_removed_array_mag","_temp_removed_array_wep"];

if (dayz_actionInProgress) exitWith {localize "STR_EPOCH_PLAYER_52" call dayz_rollingMessages;};
dayz_actionInProgress = true;

// This is used to find correct upgrade based what upgrades was called allows multiple upgrades per vehicle.
_upgrade = _this;

if (vehicle player != player) exitWith {dayz_actionInProgress = false; localize "STR_EPOCH_ACTIONS_18" call dayz_rollingMessages;};

// look for nearest empty vehicle
_findNearestVehicles = player nearEntities [["LandVehicle"],10];
_findNearestVehicle = [];
{
	if (alive _x && (count (crew _x)) == 0) exitWith {
		_findNearestVehicle set [(count _findNearestVehicle),_x];
	};
} count _findNearestVehicles;

_IsNearVehicle = count (_findNearestVehicle);
if (_IsNearVehicle >= 1) then {

	_vehicle = _findNearestVehicle select 0;

	_notNearestPlayer = _vehicle call dze_isnearest_player;

	if (!isNull _vehicle && local _vehicle && !_notNearestPlayer) then {

		_classname = typeOf _vehicle;

		// lookup vehicle and find if any upgrades are available
		_upgrade = getArray (configFile >> "CfgVehicles" >> _classname >> "Upgrades" >> _upgrade);

		if (!isNil "_upgrade" && (count _upgrade) > 0) then {

			_newclassname = _upgrade select 0;
			_requirementsWeapon = _upgrade select 1;
			_requirementsMagazine = _upgrade select 2;

			_missingQty = 0;
			_missing = "";

			_proceed = true;
			{
				_itemIn = _x select 0;
				_countIn = _x select 1;
				_qty = { (_x == _itemIn) || (configName(inheritsFrom(configFile >> "cfgMagazines" >> _x)) == _itemIn) } count magazines player;
				if(_qty < _countIn) exitWith { _missing = _itemIn; _missingQty = (_countIn - _qty); _proceed = false; };
			} forEach _requirementsMagazine;
			{
				_itemIn = _x select 0;
				_countIn = _x select 1;
				_qty = { (_x == _itemIn) || (configName(inheritsFrom(configFile >> "cfgWeapons" >> _x)) == _itemIn) } count weapons player;
				if(_qty < _countIn) exitWith { _missing = _itemIn; _missingQty = (_countIn - _qty); _proceed = false; };
			} forEach _requirementsWeapon;

			if (_proceed) then {
				[player,20,true,(getPosATL player)] spawn player_alertZombies;
				_finished = ["Medic",1] call fn_loopAction;
				if (!_finished) exitWith {};

				_temp_removed_array_mag = [];
				_temp_removed_array_wep = [];
				_removed_total = 0;
				_tobe_removed_total = 0;

				{
					_removed = 0;
					_itemIn = _x select 0;
					_countIn = _x select 1;
					//diag_log format["Recipe Finish: %1 %2", _itemIn,_countIn];
					_tobe_removed_total = _tobe_removed_total + _countIn;

					{
						if( (_removed < _countIn) && ((_x == _itemIn) || configName(inheritsFrom(configFile >> "cfgMagazines" >> _x)) == _itemIn)) then {
							_num_removed = ([player,_x] call BIS_fnc_invRemove);
							_removed = _removed + _num_removed;
							_removed_total = _removed_total + _num_removed;
							if(_num_removed >= 1) then {
								_temp_removed_array_mag set [count _temp_removed_array_mag,_x];
							};
						};
					} forEach magazines player;
				} forEach _requirementsMagazine;

				{
					_removed = 0;
					_itemIn = _x select 0;
					_countIn = _x select 1;
					//diag_log format["Recipe Finish: %1 %2", _itemIn,_countIn];
					_tobe_removed_total = _tobe_removed_total + _countIn;

					{
						if( (_removed < _countIn) && ((_x == _itemIn) || configName(inheritsFrom(configFile >> "cfgWeapons" >> _x)) == _itemIn)) then {
							_num_removed = ([player,_x] call BIS_fnc_invRemove);
							_removed = _removed + _num_removed;
							_removed_total = _removed_total + _num_removed;
							if(_num_removed >= 1) then {
								_temp_removed_array_wep set [count _temp_removed_array_wep,_x];
							};
						};
					} forEach weapons player;
				} forEach _requirementsWeapon;

				// all parts removed proceed
				if (_tobe_removed_total == _removed_total) then {

					_objectID 	= _vehicle getVariable ["ObjectID","0"];
					_objectUID	= _vehicle getVariable ["ObjectUID","0"];

					if(_objectID == "0" && _objectUID == "0") then {
						localize "str_epoch_player_50" call dayz_rollingMessages;
					}
					else {
						// Get position
						_location	= getposATL _vehicle;

						// Get direction
						_dir = getDir _vehicle;

						// Current charID
						_objectCharacterID 	= _vehicle getVariable ["CharacterID","0"];

						[_newclassname,objNull] call fn_waitForObject;
						dze_waiting = nil;
						PVDZE_veh_Upgrade = [_vehicle,[_dir,_location],_newclassname,true,_objectCharacterID,player,dayz_authKey];
						publicVariableServer "PVDZE_veh_Upgrade";

						//Wait for hive to finish spawning vehicle. Prevents dupe via player queuing multiple upgrades.
						waitUntil {!isNil "dze_waiting"};

						if (dze_waiting == "fail") then {
						    {player addMagazine _x;} count _temp_removed_array_mag;
    						{player addWeapon _x;} count _temp_removed_array_wep;
    						format[localize "str_crafting_failed",_newclassname] call dayz_rollingMessages;
						} else {
    						localize "STR_EPOCH_VEHUP_SUCCESS" call dayz_rollingMessages;
						};
					};
				}
				else {
					{player addMagazine _x;} count _temp_removed_array_mag;
					{player addWeapon _x;} count _temp_removed_array_wep;
					format[localize "str_epoch_player_145",_removed_total,_tobe_removed_total] call dayz_rollingMessages;
				};
			}
			else {
				_textMissing = getText(configFile >> "CfgMagazines" >> _missing >> "displayName");
				format[localize "STR_EPOCH_ACTIONS_6",_missingQty, _textMissing] call dayz_rollingMessages;
			};
		}
		else {
			localize "str_epoch_player_82" call dayz_rollingMessages;
		};
	}
	else {
		localize "str_epoch_player_245" call dayz_rollingMessages;
	};
}
else {
	localize "STR_EPOCH_PLAYER_27" call dayz_rollingMessages;
};

dayz_actionInProgress = false;