// File: fn_slingParachute.sqf
// Author: Gen. Henry Arnold
// Description: Create safety parachute for slingloaded objects

// Parameters
if !(params ["_vehicle", "_rope", "_cargo"]) exitWith {};

// Error checks
// if !((22 in life_talents) || ((side player) in [west,independent])) exitWith {};
if ((isNull _cargo) || (isNull _vehicle) || (!alive _cargo) || (!alive _vehicle || !(_vehicle isKindOf "AIR")) exitWith {};
if (((getPosATL _cargo) select 2) <= 50) exitWith {};

// Wait
uiSleep 1;

// Check if cargo already has a parachute
if (({(typeOf _x) isEqualTo "B_Parachute_02_F"} count (attachedObjects _cargo)) isEqualTo 0) then {
    private _parachute = "B_Parachute_02_F" createVehicle (position _cargo);
    _cargo attachTo [_parachute, [0,0,1]];
};