From 254a25b13994911210fcbc6b363bb33852750928 Mon Sep 17 00:00:00 2001
From: PabstMirror <elephantisaterriblemascot@gmail.com>
Date: Fri, 3 Apr 2015 13:16:48 -0500
Subject: [PATCH] Medical - isBeingDragged func

---
 addons/medical/XEH_preInit.sqf                |  1 +
 .../medical/functions/fnc_isBeingDragged.sqf  | 26 +++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 addons/medical/functions/fnc_isBeingDragged.sqf

diff --git a/addons/medical/XEH_preInit.sqf b/addons/medical/XEH_preInit.sqf
index 04fb2364a8..1d773b51ac 100644
--- a/addons/medical/XEH_preInit.sqf
+++ b/addons/medical/XEH_preInit.sqf
@@ -49,6 +49,7 @@ PREP(hasItems);
 PREP(hasMedicalEnabled);
 PREP(hasTourniquetAppliedTo);
 PREP(init);
+PREP(isBeingDragged);
 PREP(isInMedicalFacility);
 PREP(isMedic);
 PREP(isMedicalVehicle);
diff --git a/addons/medical/functions/fnc_isBeingDragged.sqf b/addons/medical/functions/fnc_isBeingDragged.sqf
new file mode 100644
index 0000000000..4dbb44f4f2
--- /dev/null
+++ b/addons/medical/functions/fnc_isBeingDragged.sqf
@@ -0,0 +1,26 @@
+/*
+ * Author: PabstMirror
+ * Returns if a target is being dragged.
+ *
+ * Arguments:
+ * 0: Target Unit <OBJECT>
+ *
+ * Return Value:
+ * Is being dragged <BOOL>
+ *
+ * Example:
+ * [bob] call ace_medical_fnc_isBeingDragged
+ *
+ * Public: No
+ */
+#include "script_component.hpp"
+
+PARAMS_1(_target);
+
+private "_owner";
+
+_owner = _target getVariable [QEGVAR(common,owner), objNull];
+
+if (isNull _owner) exitWith {false};
+
+(_owner getVariable [QEGVAR(dragging,draggedObject), objNull]) == _target