Medical - Rework CPR and Bleeding in cardiac arrest (#7060)

* Medical - Rework CPR and Bleeding in cardiac arrest * remove cprCreatesPulse, add cprSuccessChance * hide cpr for basic diagnose * Update addons/medical_statemachine/functions/fnc_enteredStateCardiacArrest.sqf Co-Authored-By: SilentSpike <silentspike100+Github@gmail.com>
2024-08-30 18:23:18 +00:00 · 2019-06-27 19:01:20 -05:00 · 2019-06-27 19:01:20 -05:00 · de13ab0f47
commit de13ab0f47
parent 56cb638aff
25 changed files with 116 additions and 106 deletions
--- a/addons/medical/dev/watchVariable.sqf
+++ b/addons/medical/dev/watchVariable.sqf
@ -19,12 +19,16 @@
    _return pushBack "";

    // State:
-    private _hasStableVitals = [_unit] call EFUNC(medical_status,hasStableVitals);
    private _targetState = [_unit, EGVAR(medical,STATE_MACHINE)] call CBA_statemachine_fnc_getCurrentState;
    if (!local _unit) then {_targetState = "NotLocal";};
    private _color = switch (_targetState) do {case "Default": {"33FF33"}; case "Injured": {"FF3333"}; case "Unconscious": {"FF8833"}; case "CardiacArrest": {"FF33AA"}; default {"555555"}};
-    private _unconcFlag = if IS_UNCONSCIOUS(_unit) then {"[<t color='#FFFFFF'>U</t>]"} else {""};
-    _return pushBack format ["<t color='#%1'>State: %2</t> [StableVitals: %3] %4", _color, _targetState, _hasStableVitals, _unconcFlag];
+    _return pushBack format ["<t color='#%1'>State: %2</t>", _color, _targetState];
+    private _hasStableVitals = ["N", "Y"] select ([_unit] call EFUNC(medical_status,hasStableVitals));
+    private _hasStableCondition = ["N", "Y"] select ([_unit] call EFUNC(medical_status,isInStableCondition));
+    private _unconcFlag = if IS_UNCONSCIOUS(_unit) then {"[<t color='#BBFFBB'>U</t>]"} else {""};
+    private _timeLeft = _unit getVariable [QEGVAR(medical_statemachine,cardiacArrestTimeLeft), -1];
+    private _cardiactArrestFlag = if IN_CRDC_ARRST(_unit) then {format ["[<t color='#BBBBFF'>CA</t> %1]", _timeLeft toFixed 1]} else {""};
+    _return pushBack format ["[StableVitals: %1] [StableCon: %2] %3 %4", _hasStableVitals, _hasStableCondition, _unconcFlag, _cardiactArrestFlag];

    // Blood:
    private _bloodVolume = GET_BLOOD_VOLUME(_unit);
--- a/addons/medical_gui/functions/fnc_onMenuClose.sqf
+++ b/addons/medical_gui/functions/fnc_onMenuClose.sqf
@ -18,5 +18,6 @@
 if (EGVAR(interact_menu,menuBackground) == 1) then {[QGVAR(id), false] call EFUNC(common,blurScreen)};
 if (EGVAR(interact_menu,menuBackground) == 2) then {(uiNamespace getVariable [QEGVAR(interact_menu,menuBackground), displayNull]) closeDisplay 0};

+GVAR(pendingReopen) = false;
 GVAR(menuPFH) call CBA_fnc_removePerFrameHandler;
 GVAR(menuPFH) = -1;
--- a/addons/medical_statemachine/Statemachine.hpp
+++ b/addons/medical_statemachine/Statemachine.hpp
@ -86,6 +86,7 @@ class ACE_Medical_StateMachine {
        };
    };
    class CardiacArrest {
+        onState = QFUNC(handleStateCardiacArrest);
        onStateEntered = QFUNC(enteredStateCardiacArrest);
        onStateLeaving = QFUNC(leftStateCardiacArrest);
        class DeathAI {
--- a/addons/medical_statemachine/XEH_PREP.hpp
+++ b/addons/medical_statemachine/XEH_PREP.hpp
@ -3,6 +3,7 @@ PREP(conditionExecutionDeath);
 PREP(enteredStateCardiacArrest);
 PREP(enteredStateDeath);
 PREP(enteredStateFatalInjury);
+PREP(handleStateCardiacArrest);
 PREP(handleStateDefault);
 PREP(handleStateInjured);
 PREP(handleStateUnconscious);
--- a/addons/medical_statemachine/functions/fnc_conditionCardiacArrestTimer.sqf
+++ b/addons/medical_statemachine/functions/fnc_conditionCardiacArrestTimer.sqf
@ -17,7 +17,4 @@

 params ["_unit"];

-private _startTime = _unit getVariable [QGVAR(cardiacArrestStart), CBA_missionTime];
-private _lifeTime = _unit getVariable [QGVAR(cardiacArrestTime), GVAR(cardiacArrestTime)];
-
-(CBA_missionTime - _startTime) > _lifeTime
+(_unit getVariable [QGVAR(cardiacArrestTimeLeft), -1]) <= 0
--- a/addons/medical_statemachine/functions/fnc_enteredStateCardiacArrest.sqf
+++ b/addons/medical_statemachine/functions/fnc_enteredStateCardiacArrest.sqf
@ -20,10 +20,12 @@ params ["_unit"];

 // 10% possible variance in cardiac arrest time
 private _time = GVAR(cardiacArrestTime);
-_time = _time + random [_time*-0.1, 0, _time*0.1];
+_time = _time + _time * random [-0.1, 0, 0.1];

-_unit setVariable [QGVAR(cardiacArrestTime), _time];
-_unit setVariable [QGVAR(cardiacArrestStart), CBA_missionTime];
+_unit setVariable [QGVAR(cardiacArrestTimeLeft), _time];
+_unit setVariable [QGVAR(cardiacArrestTimeLastUpdate), CBA_missionTime];
+
+TRACE_3("enteredStateCardiacArrest",_unit,_time,CBA_missionTime);

 // Update the unit status to reflect cardiac arrest
 [_unit, true] call EFUNC(medical_status,setCardiacArrest);
--- a/addons/medical_statemachine/functions/fnc_handleStateCardiacArrest.sqf
+++ b/addons/medical_statemachine/functions/fnc_handleStateCardiacArrest.sqf
@ -0,0 +1,37 @@
+#include "script_component.hpp"
+/*
+ * Author: BaerMitUmlaut
+ * Handles the unconscious state
+ *
+ * Arguments:
+ * 0: The Unit <OBJECT>
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [player] call ace_medical_statemachine_fnc_handleStateCardiacArrest
+ *
+ * Public: No
+ */
+
+params ["_unit"];
+
+// If the unit died the loop is finished
+if (!alive _unit) exitWith {};
+if (!local _unit) exitWith {};
+
+[_unit] call EFUNC(medical_vitals,handleUnitVitals);
+
+private _timeDiff = CBA_missionTime - (_unit getVariable [QGVAR(cardiacArrestTimeLastUpdate), 0]);
+if (_timeDiff >= 1) then {
+    _timeDiff = _timeDiff min 10;
+    _unit setVariable [QGVAR(cardiacArrestTimeLastUpdate), CBA_missionTime];
+    private _recieveingCPR = alive (_unit getVariable [QEGVAR(medical,CPR_provider), objNull]);
+    private _timeLeft = _unit getVariable [QGVAR(cardiacArrestTimeLeft), -1];
+    TRACE_3("cardiac arrest life tick",_unit,_recieveingCPR,_timeDiff);
+    if (_recieveingCPR) then { _timeDiff = _timeDiff * 0.5; }; // if being cpr'ed, then time decrease is reduced
+    _timeLeft = _timeLeft - _timeDiff; // negative values are fine
+    _unit setVariable [QGVAR(cardiacArrestTimeLeft), _timeLeft];
+};
+
--- a/addons/medical_statemachine/functions/fnc_leftStateCardiacArrest.sqf
+++ b/addons/medical_statemachine/functions/fnc_leftStateCardiacArrest.sqf
@ -17,11 +17,9 @@
 */

 params ["_unit"];
+TRACE_1("leftStateCardiacArrest",_unit);

-_unit setVariable [QGVAR(cardiacArrestTime), nil];
-_unit setVariable [QEGVAR(medical,cardiacArrestStart), nil];
-
-// Temporary fix for vitals loop on cardiac arrest exit
-_unit setVariable [QGVAR(lastTimeUpdated), CBA_missionTime];
+_unit setVariable [QGVAR(cardiacArrestTimeLeft), nil];
+_unit setVariable [QGVAR(cardiacArrestTimeLastUpdate), nil];

 [_unit, false] call EFUNC(medical_status,setCardiacArrest);
--- a/addons/medical_status/functions/fnc_getBloodLoss.sqf
+++ b/addons/medical_status/functions/fnc_getBloodLoss.sqf
@ -22,4 +22,5 @@ if (_woundBleeding == 0) exitWith {0};

 private _cardiacOutput = [_unit] call FUNC(getCardiacOutput);

-(_woundBleeding * _cardiacOutput * EGVAR(medical,bleedingCoefficient))
+// even if heart stops blood will still flow slowly (gravity)
+(_woundBleeding * (_cardiacOutput max 0.05) * EGVAR(medical,bleedingCoefficient))
--- a/addons/medical_status/functions/fnc_getCardiacOutput.sqf
+++ b/addons/medical_status/functions/fnc_getCardiacOutput.sqf
@ -7,7 +7,7 @@
 * 0: The Unit <OBJECT>
 *
 * Return Value:
- * Current cardiac output (litre per second) <NUMBER>
+ * Current cardiac output (liter per second) <NUMBER>
 *
 * Example:
 * [player] call ace_medical_status_fnc_getCardiacOutput
@ -16,7 +16,7 @@
 */

 /*
-    Cardiac output (Q or or CO ) is the volume of blood being pumped by the heart, in particular by a left or right ventricle in the CBA_missionTime interval of one second. CO may be measured in many ways, for example dm3/min (1 dm3 equals 1 litre).
+    Cardiac output (Q or or CO ) is the volume of blood being pumped by the heart, in particular by a left or right ventricle in the CBA_missionTime interval of one second. CO may be measured in many ways, for example dm3/min (1 dm3 equals 1 liter).
    Source: http://en.wikipedia.org/wiki/Cardiac_output
 */

--- a/addons/medical_status/functions/fnc_setCardiacArrest.sqf
+++ b/addons/medical_status/functions/fnc_setCardiacArrest.sqf
@ -14,6 +14,7 @@
 */

 params ["_unit", "_active"];
+TRACE_2("setCardiacArrest",_unit,_active);

 // No change to make
 if (_active isEqualTo IN_CRDC_ARRST(_unit)) exitWith {};
--- a/addons/medical_treatment/ACE_Medical_Treatment_Actions.hpp
+++ b/addons/medical_treatment/ACE_Medical_Treatment_Actions.hpp
@ -269,7 +269,7 @@ class GVAR(actions) {
        treatmentTime = 15;
        items[] = {};
        condition = QFUNC(canCPR);
-        callbackSuccess = QFUNC(cpr);
+        callbackSuccess = QFUNC(cprSuccess);
        callbackFailure = QFUNC(cprFailure);
        callbackProgress = QFUNC(cprProgress);
        callbackStart = QFUNC(cprStart);
--- a/addons/medical_treatment/ACE_Settings.hpp
+++ b/addons/medical_treatment/ACE_Settings.hpp
@ -2,9 +2,6 @@ class ACE_Settings {
    class EGVAR(medical,allowLitterCreation) {
        movedToSqf = 1;
    };
-    class EGVAR(medical,CPRcreatesPulse) {
-        movedToSqf = 1;
-    };
    class EGVAR(medical,litterCleanUpDelay) {
        movedToSqf = 1;
    };
--- a/addons/medical_treatment/XEH_PREP.hpp
+++ b/addons/medical_treatment/XEH_PREP.hpp
@ -4,7 +4,6 @@ PREP(addToTriageCard);
 PREP(bandage);
 PREP(bandageLocal);
 PREP(bodyCleanupLoop);
-PREP(calculateBlood);
 PREP(canBandage);
 PREP(canCPR);
 PREP(canSplint);
@ -17,7 +16,7 @@ PREP(checkItems);
 PREP(checkPulse);
 PREP(checkPulseLocal);
 PREP(checkResponse);
-PREP(cpr);
+PREP(cprSuccess);
 PREP(cprFailure);
 PREP(cprLocal);
 PREP(cprProgress);
--- a/addons/medical_treatment/functions/fnc_calculateBlood.sqf
+++ b/addons/medical_treatment/functions/fnc_calculateBlood.sqf
@ -1,29 +0,0 @@
-#include "script_component.hpp"
-/*
- * Author: Zakant
- * Calculate the blood lost and blood volume for a unit. Used from CPR to simulate a heart rate while in cardiac arrest.
- *
- * Arguments:
- * 0: Unit <OBJECT>
- *
- * Return Value:
- * None
- *
- * Public: No
- */
-
-params["_unit"];
-
-// We will just simulate blood flow for now!
-private _lastTimeUpdated = _unit getVariable [QEGVAR(medical,lastTimeUpdated), CBA_missionTime];
-private _deltaT = CBA_missionTime - _lastTimeUpdated;
-
-private _lastTimeValuesSynced = _unit getVariable [QEGVAR(medical,lastMomentValuesSynced), 0];
-private _syncValues = (CBA_missionTime - _lastTimeValuesSynced) >= (10 + floor(random(10)));
-
-_unit setVariable [QEGVAR(medical,lastTimeUpdated), CBA_missionTime];
-if (_deltaT != 0) then {
-    private _change = ([_unit, _deltaT, _syncValues] call EFUNC(medical_status,getBloodVolumeChange));
-    private _bloodVolume = 0 max (GET_BLOOD_VOLUME(_unit) + _change) min DEFAULT_BLOOD_VOLUME;
-    _unit setVariable [VAR_BLOOD_VOL, _bloodVolume, _syncValues];
-};
--- a/addons/medical_treatment/functions/fnc_canCPR.sqf
+++ b/addons/medical_treatment/functions/fnc_canCPR.sqf
@ -18,4 +18,6 @@

 params ["", "_patient"];

-!(_patient call EFUNC(common,isAwake)) && {!(_patient getVariable [QGVAR(isReceivingCPR), false])}
+!(_patient call EFUNC(common,isAwake))
+&& {(GVAR(advancedDiagnose)) || {IN_CRDC_ARRST(_patient)}} // if basic diagnose, then only show action if appropriate (they can't tell difference between uncon/ca)
+&& {isNull (_patient getVariable [QEGVAR(medical,CPR_provider), objNull])}
--- a/addons/medical_treatment/functions/fnc_cprFailure.sqf
+++ b/addons/medical_treatment/functions/fnc_cprFailure.sqf
@ -16,13 +16,7 @@
 * Public: No
 */

-params ["", "_patient"];
+params ["_medic", "_patient"];
+TRACE_2("cprFailure",_medic,_patient);

-if (!(_patient call EFUNC(common,isAwake)) || {IN_CRDC_ARRST(_patient)}) then {
-    _patient setVariable [VAR_HEART_RATE, 0, true];
-};
-
-// Patient is no longer receiving CPR
-_patient setVariable [QGVAR(isReceivingCPR), false, true];
-
-_patient call FUNC(calculateBlood);
+_patient setVariable [QEGVAR(medical,CPR_provider), objNull, true];
--- a/addons/medical_treatment/functions/fnc_cprLocal.sqf
+++ b/addons/medical_treatment/functions/fnc_cprLocal.sqf
@ -17,9 +17,14 @@
 */

 params ["_medic", "_patient"];
+TRACE_2("cprLocal",_medic,_patient);

 [_patient, "activity", LSTRING(Activity_CPR), [[_medic, false, true] call EFUNC(common,getName)]] call FUNC(addToLog);

-if (random 1 >= 0.6) then {
+if ((random 1) < GVAR(cprSuccessChance)) then {
+    TRACE_1("CPR random success",GVAR(cprSuccessChance));
    [QEGVAR(medical,CPRSucceeded), _patient] call CBA_fnc_localEvent;
+} else {
+    TRACE_1("CPR random fail",GVAR(cprSuccessChance));
 };
+
--- a/addons/medical_treatment/functions/fnc_cprProgress.sqf
+++ b/addons/medical_treatment/functions/fnc_cprProgress.sqf
@ -5,7 +5,7 @@
 *
 * Arguments:
 * 0: Arguments <ARRAY>
- *   0: Medic (not used) <OBJECT>
+ *   0: Medic <OBJECT>
 *   1: Patient <OBJECT>
 *
 * Return Value:
@ -18,12 +18,10 @@
 */

 params ["_args"];
-_args params ["", "_patient"];
+_args params ["_medic", "_patient"];

-// Cancel CPR is patient wakes up
-if (_patient getVariable EFUNC(common,isAwake) || {!IN_CRDC_ARRST(_patient)}) exitWith {false};
+// Cancel CPR if patient wakes up

-// Calculate blood volume, if there is no pulse nothing happens
-_patient call FUNC(calculateBlood);
-
-true
+!(_patient call EFUNC(common,isAwake))
+&& {(GVAR(advancedDiagnose)) || {IN_CRDC_ARRST(_patient)}} // if basic diagnose, then only show action if appropriate (they can't tell difference between uncon/ca)
+&& {_medic == (_patient getVariable [QEGVAR(medical,CPR_provider), objNull])}
--- a/addons/medical_treatment/functions/fnc_cprStart.sqf
+++ b/addons/medical_treatment/functions/fnc_cprStart.sqf
@ -4,7 +4,7 @@
 * Handles starting the CPR treatment.
 *
 * Arguments:
- * 0: Medic (not used) <OBJECT>
+ * 0: Medic <OBJECT>
 * 1: Patient <OBJECT>
 *
 * Return Value:
@ -16,14 +16,7 @@
 * Public: No
 */

-params ["", "_patient"];
+params ["_medic", "_patient"];
+TRACE_2("cprStart",_medic,_patient);

-// Prevent others from performing CPR
-_patient setVariable [QGVAR(isReceivingCPR), true, true];
-
-// Create a random pulse based on setting
-if (GVAR(cprCreatesPulse) && {GET_HEART_RATE(_patient) == 0}) then {
-    _patient setVariable [VAR_HEART_RATE, round random [25, 30, 35], true];
-};
-
-_patient setVariable [QEGVAR(medical,lastTimeUpdated), CBA_missionTime, true];
+_patient setVariable [QEGVAR(medical,CPR_provider), _medic, true];
--- a/addons/medical_treatment/functions/fnc_cprSuccess.sqf
+++ b/addons/medical_treatment/functions/fnc_cprSuccess.sqf
@ -11,17 +11,19 @@
 * None
 *
 * Example:
- * [player, cursorObject] call ace_medical_treatment_fnc_cpr
+ * [player, cursorObject] call ace_medical_treatment_fnc_cprSuccess
 *
 * Public: No
 */

 params ["_medic", "_patient"];
+TRACE_2("cprSuccess",_medic,_patient);

-_patient setVariable [QGVAR(isReceivingCPR), false, true];
-_patient setVariable [VAR_HEART_RATE, 0, true];
-_patient call FUNC(calculateBlood);
+_patient setVariable [QEGVAR(medical,CPR_provider), objNull, true];

 if (alive _patient && {IN_CRDC_ARRST(_patient)}) then {
+    TRACE_1("sending cprLocal event",_patient);
    [QGVAR(cprLocal), [_medic, _patient], _patient] call CBA_fnc_targetEvent;
+} else {
+    TRACE_1("not alive or in cardiac arrest",_patient);
 };
--- a/addons/medical_treatment/initSettings.sqf
+++ b/addons/medical_treatment/initSettings.sqf
@ -38,15 +38,6 @@
    true
 ] call CBA_settings_fnc_init;

-[
-    QGVAR(cprCreatesPulse),
-    "CHECKBOX",
-    [LSTRING(CPRCreatesPulse_DisplayName), LSTRING(CPRCreatesPulse_Description)],
-    [ELSTRING(medical,Category), LSTRING(SubCategory_Treatment)],
-    true,
-    true
-] call CBA_settings_fnc_init;
-
 // todo: should this setting differentiate between medical vehicles and facilities?
 [
    QGVAR(locationsBoostTraining),
@ -165,6 +156,15 @@
    true
 ] call CBA_settings_fnc_init;

+[
+    QGVAR(cprSuccessChance),
+    "SLIDER",
+    [LSTRING(cprSuccessChance_DisplayName), LSTRING(cprSuccessChance_Description)],
+    [ELSTRING(medical,Category), LSTRING(SubCategory_Treatment)],
+    [0, 1, 0.4, 2],
+    true
+] call CBA_settings_fnc_init;
+
 [
    QGVAR(allowLitterCreation),
    "CHECKBOX",
--- a/addons/medical_treatment/stringtable.xml
+++ b/addons/medical_treatment/stringtable.xml
@ -44,15 +44,6 @@
            <English>Enables extended, more in-depth medication handling. Also, enables the use of Adenosine and Atropine.</English>
            <Russian>Устанавливает расширенное использование лекарств</Russian>
        </Key>
-        <Key ID="STR_ACE_Medical_Treatment_CPRCreatesPulse_DisplayName">
-            <English>CPR Creates Pulse</English>
-            <German>HLW erzeugt einen Puls</German>
-            <Japanese>心肺蘇生による脈</Japanese>
-            <Russian>СЛР создаст пульс</Russian>
-        </Key>
-        <Key ID="STR_ACE_Medical_Treatment_CPRCreatesPulse_Description">
-            <English>Controls whether performing CPR creates a pulse for the patient.</English>
-        </Key>
        <Key ID="STR_ACE_Medical_Treatment_LocationsBoostTraining_DisplayName">
            <English>Locations Boost Training</English>
            <Czech>Místa pro vylepšení zkušeností</Czech>
@ -1939,6 +1930,12 @@
            <Chinesesimp>进行心肺复苏术中...</Chinesesimp>
            <Chinese>進行心肺復甦術中...</Chinese>
        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_cprSuccessChance_DisplayName">
+            <English>CPR Success Chance</English>
+        </Key>
+        <Key ID="STR_ACE_Medical_Treatment_cprSuccessChance_Description">
+            <English>Probability that cpr will be successful in restoring heart rhythm.</English>
+        </Key>
        <Key ID="STR_ACE_Medical_Treatment_Actions_Blood4_1000">
            <English>Give Blood IV (1000ml)</English>
            <German>Bluttransfusion IV (1000ml)</German>
--- a/addons/medical_vitals/functions/fnc_handleUnitVitals.sqf
+++ b/addons/medical_vitals/functions/fnc_handleUnitVitals.sqf
@ -113,6 +113,7 @@ switch (true) do {
        TRACE_3("BloodVolume Fatal",_unit,BLOOD_VOLUME_FATAL,_bloodVolume);
        [QEGVAR(medical,Bleedout), _unit] call CBA_fnc_localEvent;
    };
+    case (IN_CRDC_ARRST(_unit)): {}; // if in cardiac arrest just break now to avoid throwing unneeded events
    case (_hemorrhage == 4): {
        TRACE_3("Class IV Hemorrhage",_unit,_hemorrhage,_bloodVolume);
        [QEGVAR(medical,FatalVitals), _unit] call CBA_fnc_localEvent;
--- a/addons/medical_vitals/functions/fnc_updateHeartRate.sqf
+++ b/addons/medical_vitals/functions/fnc_updateHeartRate.sqf
@ -22,7 +22,15 @@ params ["_unit", "_hrTargetAdjustment", "_deltaT", "_syncValue"];

 private _heartRate = GET_HEART_RATE(_unit);

-if !IN_CRDC_ARRST(_unit) then {
+if IN_CRDC_ARRST(_unit) then {
+    if (alive (_unit getVariable [QEGVAR(medical,CPR_provider), objNull])) then {
+        if (_heartRate == 0) then { _syncValue = true }; // always sync on large change
+        _heartRate = random [25, 30, 35];
+    } else {
+        if (_heartRate != 0) then { _syncValue = true }; // always sync on large change
+        _heartRate = 0
+    };
+} else {
    private _hrChange = 0;
    private _targetHR = 0;
    private _bloodVolume = GET_BLOOD_VOLUME(_unit);