Medical Treatment - Add Grave Digging for Corpse Disposal

addons/medical_treatment/ACE_Medical_Treatment_Actions.hpp

@@ -253,6 +253,16 @@ class GVAR(actions) {
         consumeItem = 1;
         litter[] = {};
     };
+    class Grave: BodyBag {
+        displayName = CSTRING(DigGrave);
+        displayNameProgress = CSTRING(DiggingGrave);
+        icon = QPATHTOEF(medical_gui,ui\cross_grave.paa);
+        treatmentTime = QGVAR(treatmentTimeGrave);
+        condition = QFUNC(fnc_canDigGrave);
+        callbackSuccess = QFUNC(placeInGrave);
+        items[] = {"ACE_EntrenchingTool"};
+        consumeItem = 0;
+    };
     class CPR: BasicBandage {
         displayName = CSTRING(Actions_CPR);
         displayNameProgress = CSTRING(Actions_PerformingCPR);

addons/medical_treatment/functions/fnc_canDigGrave.sqf

@@ -0,0 +1,21 @@
+#include "script_component.hpp"
+/*
+ * Author: Ruthberg, commy2, esteldunedain, drofseh
+ * Checks if a unit can dig a grave at the position of the patient.
+ *
+ * Arguments:
+ * 0: Medic (not used) <OBJECT>
+ * 1: Patient <OBJECT>
+ *
+ * Return Value:
+ * Can dig <BOOL>
+ *
+ * Example:
+ * [ACE_player] call ace_trenches_fnc_canDigGrave
+ *
+ * Public: No
+ */
+
+params ["", "_patient"];
+
+GVAR(allowGraveDigging) && {_patient call EFUNC(common,canDig)}

addons/medical_treatment/functions/fnc_placeInBodyBag.sqf

@@ -1,6 +1,6 @@
 #include "script_component.hpp"
 /*
- * Author: Glowbal
+ * Author: Glowbal, drofseh
  * Places a dead body inside a body bag.
  *
  * Arguments:
@@ -16,38 +16,11 @@
  * Public: No
  */
 
-params ["_medic", "_patient"];
-TRACE_1("placeInBodyBag",_patient);
+private _alive = alive _patient;
 
-if ((alive _patient) && {!GVAR(allowBodyBagUnconscious)}) exitWith {
+if (_alive && {!GVAR(allowBodyBagUnconscious)}) exitWith {
     [_medic, "ACE_bodyBag"] call EFUNC(common,addToInventory); // re-add slighly used bodybag?
     [LSTRING(bodybagWhileStillAlive)] call EFUNC(common,displayTextStructured);
 };
 
-if (!local _patient) exitWith {
-    TRACE_1("Calling where local",local _patient);
-    [QGVAR(placeInBodyBag), [nil, _patient], _patient] call CBA_fnc_targetEvent;
-};
-
-if (alive _patient) then {
-    TRACE_1("Manually killing with setDead",_patient);
-    [_patient, "buried_alive", _medic] call EFUNC(medical_status,setDead);
-};
-
-private _position = (getPosASL _patient) vectorAdd [0, 0, 0.2];
-
-private _headPos = _patient modelToWorldVisual (_patient selectionPosition "head");
-private _spinePos = _patient modelToWorldVisual (_patient selectionPosition "Spine3");
-private _direction = (_headPos vectorFromTo _spinePos) call CBA_fnc_vectDir;
-
-// Move the body away so it won't collide with the body bag object
-// This setPosASL seems to need to be called where the unit is local
-_patient setPosASL [-5000, -5000, 0];
-
-// Create the body bag object, set its position to prevent it from flipping
-private _bodyBag = createVehicle ["ACE_bodyBagObject", [0, 0, 0], [], 0, "NONE"];
-_bodyBag setPosASL _position;
-_bodyBag setDir _direction;
-
-// Server will handle hiding and deleting the body
-["ace_placedInBodyBag", [_patient, _bodyBag]] call CBA_fnc_globalEvent;
+[_this,"ACE_bodyBagObject"] call ace_medical_treatment_fnc_placeInBodyBagOrGrave;

addons/medical_treatment/functions/fnc_placeInBodyBagOrGrave.sqf

@@ -0,0 +1,58 @@
+#include "script_component.hpp"
+/*
+ * Author: Glowbal, drofseh
+ * Places a dead body inside a body bag.
+ *
+ * Arguments:
+ * 0: Arguments <ARRAY>
+ *   0: Medic <OBJECT>
+ *   1: Patient <OBJECT>
+ * 1: Resting Place Object <OBJECT>
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [player, cursorObject, "ACE_bodyBagObject"] call ace_medical_treatment_fnc_placeInBodyBagOrGrave
+ *
+ * Public: No
+ */
+
+params ["_args", "_restingPlaceObject"];
+_args params ["_medic", "_patient"];
+TRACE_1("placeInBodyBagOrGrave",_patient);
+
+if (!local _patient) exitWith {
+    TRACE_1("Calling where local",local _patient);
+    [QGVAR(placeInGrave), [nil, _patient], _patient] call CBA_fnc_targetEvent;
+};
+
+if (alive _patient) then {
+    TRACE_1("Manually killing with setDead",_patient);
+    [_patient, "buried_alive", _medic] call EFUNC(medical_status,setDead);
+};
+
+private _headPos = _patient modelToWorldVisual (_patient selectionPosition "head");
+private _spinePos = _patient modelToWorldVisual (_patient selectionPosition "Spine3");
+private _direction = (_headPos vectorFromTo _spinePos) call CBA_fnc_vectDir;
+private _position = getPosASL _patient;
+if (_restingPlaceObject == "Land_Grave_dirt_F") then {
+    //Grave object needs to be rotated 90 degrees to line up with the body
+    _direction = _direction + 90;
+} else {
+    //Body bag needs to be a little higher to prevent it from flipping
+    _position = _position vectorAdd [0, 0, 0.2];
+};
+
+// Move the body away so it won't collide with the body bag object
+// This setPosASL seems to need to be called where the unit is local
+_patient setPosASL [-5000, -5000, 0];
+
+// Create the body bag object, set its position to prevent it from flipping
+private _restingPlace = createVehicle [_restingPlaceObject, [0, 0, 0], [], 0, "NONE"];
+_restingPlace setPosASL _position;
+_restingPlace setDir _direction;
+
+// Server will handle hiding and deleting the body
+// Keep event name as body bag only to avoid breaking things for others
+["ace_placedInBodyBag", [_patient, _restingPlace]] call CBA_fnc_globalEvent;

addons/medical_treatment/functions/fnc_placeInGrave.sqf

@@ -0,0 +1,25 @@
+#include "script_component.hpp"
+/*
+ * Author: Glowbal, drofseh
+ * Places a dead body inside a body bag.
+ *
+ * Arguments:
+ * 0: Medic <OBJECT>
+ * 1: Patient <OBJECT>
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [player, cursorObject] call ace_medical_treatment_fnc_placeInGrave
+ *
+ * Public: No
+ */
+
+private _alive = alive _patient;
+
+if (_alive && {!GVAR(allowGraveUnconscious)}) exitWith {
+    [LSTRING(bodybagWhileStillAlive)] call EFUNC(common,displayTextStructured);
+};
+
+[_this,"Land_Grave_dirt_F"] call ace_medical_treatment_fnc_placeInBodyBagOrGrave;

addons/medical_treatment/initSettings.sqf

@@ -107,6 +107,15 @@
     true
 ] call CBA_fnc_addSetting;
 
+[
+    QGVAR(treatmentTimeGrave),
+    "SLIDER",
+    [LSTRING(TreatmentTimeGrave_DisplayName), LSTRING(TreatmentTimeGrave_Description)],
+    [ELSTRING(medical,Category), LSTRING(SubCategory_Treatment)],
+    [0.1, 120, 30, 1],
+    true
+] call CBA_fnc_addSetting;
+
 [
     QGVAR(medicEpinephrine),
     "LIST",
@@ -287,6 +296,24 @@
     true
 ] call CBA_fnc_addSetting;
 
+[
+    QGVAR(allowGraveDigging),
+    "CHECKBOX",
+    [LSTRING(AllowGaveDigging_DisplayName), LSTRING(AllowGaveDigging_Description)],
+    [ELSTRING(medical,Category), LSTRING(SubCategory_Treatment)],
+    true,
+    true
+] call CBA_fnc_addSetting;
+
+[
+    QGVAR(allowGraveUnconscious),
+    "CHECKBOX",
+    [LSTRING(AllowGraveUnconscious_DisplayName), LSTRING(AllowGraveUnconscious_Description)],
+    [ELSTRING(medical,Category), LSTRING(SubCategory_Treatment)],
+    false,
+    true
+] call CBA_fnc_addSetting;
+
 [
     QGVAR(holsterRequired),
     "LIST",

addons/medical_treatment/stringtable.xml

@@ -412,6 +412,12 @@
             <Chinesesimp>装入裹尸袋时间</Chinesesimp>
             <Korean>초 단위로 시체 운반용 부대를 사용하는데 걸리는 시간을 정합니다.</Korean>
         </Key>
+        <Key ID="STR_ACE_Medical_Treatment_TreatmentTimeGrave_DisplayName">
+            <English>Grave Digging Time</English>
+        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_TreatmentTimeGrave_Description">
+            <English>Time, in seconds, required to dig a grave for a patient.</English>
+        </Key>
         <Key ID="STR_ACE_Medical_Treatment_MedicEpinephrine_DisplayName">
             <English>Allow Epinephrine</English>
             <German>Erlaube Epiniphrin</German>
@@ -824,6 +830,18 @@
             <Chinesesimp>能够将昏迷的伤员装入尸袋中。</Chinesesimp>
             <Korean>기절상태의 인원을 시체운반용부대에 옮겨 담을 수 있는지를 정합니다.</Korean>
         </Key>
+        <Key ID="STR_ACE_Medical_Treatment_AllowGaveDigging_DisplayName">
+            <English>Allow Grave Digging</English>
+        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_AllowGaveDigging_Description">
+            <English>Enables digging graves to dispose of corpes.</English>
+        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_AllowGraveUnconscious_DisplayName">
+            <English>Allow Unconscious Grave</English>
+        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_AllowGraveUnconscious_Description">
+            <English>Enables placing an unconscious patient in a grave.</English>
+        </Key>
         <Key ID="STR_ACE_Medical_Treatment_MedicIV_DisplayName">
             <English>Allow IV Transfusion</English>
             <German>Erlaube Bluttransfusionen</German>
@@ -4441,6 +4459,12 @@
             <Chinese>將屍體放入屍袋中...</Chinese>
             <Turkish>Vücut, ceset torbasına yerleştiriliyor...</Turkish>
         </Key>
+        <Key ID="STR_ACE_Medical_Treatment_DigGrave">
+            <English>Dig grave for body</English>
+        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_DiggingGrave">
+            <English>Digging grave for body...</English>
+        </Key>
         <Key ID="STR_ACE_Medical_Treatment_Activity_bandagedPatient">
             <English>%1 has bandaged patient</English>
             <Spanish>%1 has vendado al paciente</Spanish>