diff --git a/addons/vehicle_damage/XEH_PREP.hpp b/addons/vehicle_damage/XEH_PREP.hpp
index 524fe6ea9d..a7eb519881 100644
--- a/addons/vehicle_damage/XEH_PREP.hpp
+++ b/addons/vehicle_damage/XEH_PREP.hpp
@@ -11,3 +11,4 @@ PREP(knockOut);
 PREP(addDamage);
 PREP(handleDamageEjectIfDestroyed);
 PREP(blowOffTurret);
+PREP(medicalDamage);
diff --git a/addons/vehicle_damage/XEH_postInit.sqf b/addons/vehicle_damage/XEH_postInit.sqf
index ce563302e3..d14770dea0 100644
--- a/addons/vehicle_damage/XEH_postInit.sqf
+++ b/addons/vehicle_damage/XEH_postInit.sqf
@@ -3,6 +3,8 @@
 ["ace_settingsInitialized", {
     TRACE_1("settings init",GVAR(enabled));
     if (GVAR(enabled)) then {
+        [QGVAR(medicalDamage), LINKFUNC(medicalDamage)] call CBA_fnc_addEventHandler;
+
         [QGVAR(bailOut), {
             params ["_center", "_crewman", "_vehicle"];
             TRACE_3("bailOut",_center,_crewman,_vehicle);
diff --git a/addons/vehicle_damage/functions/fnc_detonate.sqf b/addons/vehicle_damage/functions/fnc_detonate.sqf
index 67d64da442..feca2dd792 100644
--- a/addons/vehicle_damage/functions/fnc_detonate.sqf
+++ b/addons/vehicle_damage/functions/fnc_detonate.sqf
@@ -27,9 +27,6 @@ if (_vehicleAmmo isEqualTo []) then {
 
 if ((_vehicleAmmo select 1) > 0) then {
     {
-        // random amount of injuries
-        for "_i" from 0 to random 5 do {
-            [_x, random 1 , selectRandom ["Head", "Body", "LeftArm", "RightArm", "LeftLeg", "RightLeg"], selectRandom ["bullet", "shell", "explosive"], _injurer] call EFUNC(medical,addDamageToUnit);
-        };
-    } forEach crew _vehicle;
+        [QGVAR(medicalDamage), [_x, _injurer, _injurer], _x] call CBA_fnc_targetEvent;
+    } forEach (crew _vehicle);
 };
diff --git a/addons/vehicle_damage/functions/fnc_medicalDamage.sqf b/addons/vehicle_damage/functions/fnc_medicalDamage.sqf
new file mode 100644
index 0000000000..2aa8969644
--- /dev/null
+++ b/addons/vehicle_damage/functions/fnc_medicalDamage.sqf
@@ -0,0 +1,39 @@
+#include "..\script_component.hpp"
+/*
+ * Author: johnb43
+ * Applies medical damage to a unit.
+ *
+ * Arguments:
+ * 0: Target <OBJECT>
+ * 1: Source <OBJECT>
+ * 2: Instigator <OBJECT>
+ * 3: Guarantee death? <BOOL> (default: false)
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [cursorObject, player, player] call ace_vehicle_damage_fnc_medicalDamage;
+ *
+ * Public: No
+ */
+
+params ["_unit", "_source", "_instigator", ["_guaranteeDeath", false]];
+
+// Check if unit is invulnerable
+if !(isDamageAllowed _unit && {_unit getVariable [QEGVAR(medical,allowDamage), true]}) exitWith {};
+
+if (["ace_medical"] call EFUNC(common,isModLoaded)) then {
+    for "_i" from 0 to floor (4 + random 3) do {
+        [_unit, random [0, 0.66, 1], selectRandom ["Head", "Body", "LeftArm", "RightArm", "LeftLeg", "RightLeg"], selectRandom ["bullet", "shell", "explosive"], _instigator] call EFUNC(medical,addDamageToUnit);
+    };
+} else {
+    {
+        _unit setHitPointDamage [_x, (_unit getHitPointDamage _x) + random [0, 0.66, 1], true, _source, _instigator];
+    } forEach ["HitFace", "HitNeck", "HitHead", "HitPelvis", "HitAbdomen", "HitDiaphragm", "HitChest", "HitBody", "HitArms", "HitHands", "HitLegs"];
+};
+
+// If guaranteed death is wished
+if (_guaranteeDeath && {alive _unit}) then {
+    [_unit, QGVAR(medicalDamage), _source, _instigator] call EFUNC(common,setDead);
+};
diff --git a/addons/vehicle_damage/functions/fnc_processHit.sqf b/addons/vehicle_damage/functions/fnc_processHit.sqf
index 73e70bbf57..1eb7328466 100644
--- a/addons/vehicle_damage/functions/fnc_processHit.sqf
+++ b/addons/vehicle_damage/functions/fnc_processHit.sqf
@@ -37,12 +37,10 @@ if (_newDamage >= 15) exitWith {
     TRACE_2("immediate destruction - high damage",_newDamage,_currentPartDamage);
     [_vehicle] call FUNC(knockOut);
     [_vehicle, 1] call FUNC(handleDetonation);
-    // kill everyone inside for very insane damage
+    // Kill everyone inside for very insane damage
     {
-        _x setDamage 1;
-        _x setVariable [QEGVAR(medical,lastDamageSource), _injurer];
-        _x setVariable [QEGVAR(medical,lastInstigator), _injurer];
-    } forEach crew _vehicle;
+        [QGVAR(medicalDamage), [_x, _injurer, _injurer, true], _x] call CBA_fnc_targetEvent;
+    } forEach (crew _vehicle);
     _vehicle setDamage 1;
     _return = false;
     _return