vehicle upgrade system v1

SQF/dayz_code/compile/player_upgradeVehicle.sqf

@@ -0,0 +1,167 @@
+/*
+	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","_temp_removed_array","_countr","_objectID","_objectUID","_location","_dir","_objectCharacterID","_weapons","_magazines","_backpacks","_classname","_object","_holder","_objWpnTypes","_objWpnQty","_newclassname","_requirements","_upgrade","_vehicle","_findNearestVehicles","_findNearestVehicle","_IsNearVehicle"];
+
+if(TradeInprogress) exitWith { cutText [(localize "STR_EPOCH_PLAYER_52") , "PLAIN DOWN"]; };
+TradeInprogress = true;
+
+// look for nearest vehicle
+_findNearestVehicles = nearestObjects [player, ["LandVehicle"], 10];
+_findNearestVehicle = [];
+{
+	if (alive _x) exitWith {
+		_findNearestVehicle set [(count _findNearestVehicle),_x];
+	};
+} foreach _findNearestVehicles;
+
+_IsNearVehicle = count (_findNearestVehicle);
+if (_IsNearVehicle >= 1) then {
+
+	_vehicle = _findNearestVehicle select 0;
+		
+	if (!isNull _vehicle and local _vehicle) then {
+
+		_classname = typeOf _vehicle;
+
+		// lookup vehicle and find if any upgrades are available
+		_upgrade = getArray (configFile >> "CfgVehicles" >> _classname >> "upgradeVehicle");
+
+		if ((count _upgrade) > 0) then {
+
+			_newclassname = _upgrade select 0;
+			_requirements = _upgrade select 1;
+	
+			_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 _requirements;
+	
+			if (_proceed) then {
+
+				player playActionNow "Medic";
+				[player,20,true,(getPosATL player)] spawn player_alertZombies;
+	
+				_temp_removed_array = [];
+				_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 set [count _temp_removed_array,_x];
+							};
+						};
+		
+					} forEach magazines player;
+
+				} forEach _requirements;
+
+				// all parts removed proceed
+				if (_tobe_removed_total == _removed_total) then {
+			
+					_objectID 	= _vehicle getVariable ["ObjectID","0"];
+					_objectUID	= _vehicle getVariable ["ObjectUID","0"];
+
+					PVDZE_obj_Delete = [_objectID,_objectUID,player];
+					publicVariableServer "PVDZE_obj_Delete";
+
+					// Get position
+					_location	= getposATL _vehicle;
+
+					// Get direction
+					_dir = getDir _vehicle;
+
+					// Current charID
+					_objectCharacterID 	= _vehicle getVariable ["CharacterID","0"];
+
+					_weapons = 		getWeaponCargo _vehicle;
+					_magazines = 	getMagazineCargo _vehicle;
+					_backpacks = 	getBackpackCargo _vehicle;
+
+					// remove old vehicle
+					deleteVehicle _vehicle; 						
+						
+					_classname = _newclassname;
+			
+					// Create new object 
+					_object = createVehicle [_classname, [0,0,0], [], 0, "CAN_COLLIDE"];
+
+					// Set direction
+					_object setDir _dir;
+
+					// Set location
+					_object setPosATL _location;
+
+					PVDZE_veh_Publish2 = [_object,[_dir,_location],_classname,true,_objectCharacterID,player];
+					publicVariableServer  "PVDZE_veh_Publish2";
+
+					_holder = _object;
+						
+					//Add weapons
+					_objWpnTypes = 	_weapons select 0;
+					_objWpnQty = 	_weapons select 1;
+					_countr = 0;
+					{
+						_holder addweaponcargoGlobal [_x,(_objWpnQty select _countr)];
+						_countr = _countr + 1;
+					} forEach _objWpnTypes;
+	
+					//Add Magazines
+					_objWpnTypes = _magazines select 0;
+					_objWpnQty = _magazines select 1;
+					_countr = 0;
+					{
+						_holder addmagazinecargoGlobal [_x,(_objWpnQty select _countr)];
+						_countr = _countr + 1;
+					} forEach _objWpnTypes;
+
+					//Add Backpacks
+					_objWpnTypes = _backpacks select 0;
+					_objWpnQty = _backpacks select 1;
+					_countr = 0;
+					{
+						_holder addbackpackcargoGlobal [_x,(_objWpnQty select _countr)];
+						_countr = _countr + 1;
+					} forEach _objWpnTypes;
+
+					player reveal _object;
+						
+				} else {
+		
+					{player addMagazine _x;} forEach _temp_removed_array;
+					cutText [format[(localize "str_epoch_player_145"),_removed_total,_tobe_removed_total], "PLAIN DOWN"];
+		
+				};
+			} else {
+				_textMissing = getText(configFile >> "CfgMagazines" >> _missing >> "displayName");
+				cutText [format[(localize "str_epoch_player_146"),_missingQty, _textMissing], "PLAIN DOWN"];
+			};
+
+		} else {
+			cutText [(localize "str_epoch_player_82"), "PLAIN DOWN"];
+		};
+
+	} else {
+		cutText [(localize "str_epoch_player_245"), "PLAIN DOWN"];
+	};
+};
+
+TradeInprogress = false;