Pharma - Improve - Medication - Pharmacokinetics and Delivery

.hemtt/launch.toml

@@ -3,4 +3,5 @@ workshop = [
     "450814997", # CBA_A3's Workshop ID
     "463939057", # ACE3's Workshop ID
     "2369477168", # Advanced Developer Tools's Workshop ID
+    "1779063631", # ZEN
 ]

addons/chemical/functions/fnc_treatmentAdvanced_AtropineLocal.sqf

@@ -15,7 +15,8 @@
  * Public: No
  */
 
-params ["_patient"];
+params ["_patient", "_classname"];
+if (_classname isEqualTo "syringe_kat_atropine_5ml_1") exitWith {};
 
 _patient setVariable [QGVAR(airPoisoning), false, true];
 _patient setVariable [QGVAR(isTreated), true, true];

addons/circulation/functions/fnc_cprLocal.sqf

@@ -73,7 +73,7 @@ private _fnc_advRhythm = {
     {
         case "Epinephrine":
         {
-            _epiBoost = 1.5;
+            _epiBoost = 1.2;
         };
         case "EpinephrineIV":
         {
@@ -87,6 +87,26 @@ private _fnc_advRhythm = {
         {
             _lidoBoost = _lidoBoost + 8;
         };
+        case "syringe_kat_epinephrineIV_5ml_1":
+        {
+            _epiBoost = 1.3;
+        };
+        case "syringe_kat_epinephrineIV_5ml_3":
+        {
+            _epiBoost = 1.5;
+        };
+        case "syringe_kat_lidocaine_5ml_3":
+        {
+            _lidoBoost = _lidoBoost + 8;
+        };
+        case "syringe_kat_amiodarone_5ml_1":
+        {
+            _amiBoost = _amiBoost + (random [6,10,16]);
+        };
+        case "syringe_kat_amiodarone_5ml_3":
+        {
+            _amiBoost = _amiBoost + (random [8,14,20]);
+        };
     };
 } forEach (_patient getVariable [QACEGVAR(medical,medications), []]);
 

addons/gui/XEH_PREP.hpp

@@ -8,4 +8,9 @@ PREP(updateCategories);
 PREP(updateInjuryList);
 PREP(updateBodyImage);
 PREP(updateIVStatus);
-PREP(updateABGStatus);
+PREP(updateABGStatus);
+PREP(updateSyringes);
+PREP(updateMedications);
+PREP(prepSyringe);
+PREP(openSyringeMenu);
+PREP(closeSyringeMenu);

addons/gui/functions/fnc_closeSyringeMenu.sqf

@@ -0,0 +1,21 @@
+#include "..\script_component.hpp"
+/*
+ * Author: Cplhardcore
+ * closes the syringe menu
+ *
+ * Arguments:
+ * none
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [] call kat_medical_gui_fnc_closeSyringeMenu;
+ *
+ * Public: No
+ */
+[{player setVariable ["SyringeMenu", false];
+ctrlShow [71300, false];
+ctrlShow [71301, false];
+ctrlShow [71311, false];
+ctrlShow [71310, true];}, []] call CBA_fnc_execNextFrame;

addons/gui/functions/fnc_onMenuOpen.sqf

@@ -103,3 +103,11 @@ if (ACEGVAR(medical_gui,target) == ACE_player) then {
     _ctrl ctrlSetText QACEPATHTOF(medical_gui,data\categories\toggle_to_self.paa);
     _ctrl ctrlSetTooltip ACELLSTRING(medical_gui,ToggleToSelf);
 };
+[] call FUNC(updateMedications);
+[] call FUNC(updateSyringes);
+private _syringeMenuStatus = player getVariable ["SyringeMenu", false];
+if (_syringeMenuStatus == true) then {
+    [] call FUNC(openSyringeMenu);
+} else {
+    [] call FUNC(closeSyringeMenu);
+};

addons/gui/functions/fnc_openSyringeMenu.sqf

@@ -0,0 +1,21 @@
+#include "..\script_component.hpp"
+/*
+ * Author: Cplhardcore
+ * opens the syringe menu
+ *
+ * Arguments:
+ * none
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [] call kat_medical_gui_fnc_openSyringeMenu;
+ *
+ * Public: No
+ */
+[{player setVariable ["SyringeMenu", true];
+ctrlShow [71300, true];
+ctrlShow [71301, true];
+ctrlShow [71311, true];
+ctrlShow [71310, false];}, []] call CBA_fnc_execNextFrame;

addons/gui/functions/fnc_prepSyringe.sqf

@@ -0,0 +1,36 @@
+#include "..\script_component.hpp"
+/*
+ * Author: Cplhardcore
+ * Checks the medications in the players inventory and then populates the listbox with the medications,
+ *
+ * Arguments:
+ * none
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [] call kat_medical_gui_fnc_prepSyringe;
+ *
+ * Public: No
+ */
+if !(EGVAR(pharma,AMS_Enabled)) exitWith {};
+private _playerMedicalLevel = [_player] call ace_medical_fnc_getMedicLevel;
+private _requiredMedicalLevel = GVAR(medLvl_PrepSyringe);
+if (_playerMedicalLevel < _requiredMedicalLevel) exitWith {};
+
+[EGVAR(pharma,prepTime_PrepSyringe), [], {
+private _syringeBox = findDisplay 38580 displayCtrl 71303;
+private _medicationBox = findDisplay 38580 displayCtrl 71305;
+private _doseCombo = findDisplay 38580 displayCtrl 71307;
+
+private _syringeSelected = lbCurSel _syringeBox;
+private _medicationSelected = lbCurSel _medicationBox;
+private _doseSelected = lbCurSel _doseCombo;
+
+private _syringeType = _syringeBox lbData _syringeSelected;
+private _medicationType = _medicationBox lbData _medicationSelected;
+private _doseType = _doseCombo lbValue _doseSelected;
+
+
+[player, _medicationType, _syringeType, _doseType] call kat_pharma_fnc_prepareSyringe;}, {}, "Preparing Syringe..."] call ace_common_fnc_progressBar;

addons/gui/functions/fnc_updateMedications.sqf

@@ -0,0 +1,90 @@
+#include "..\script_component.hpp"
+/*
+ * Author: Cplhardcore
+ * Checks the medications in the players inventory and then populates the listbox with the medications,
+ *
+ * Arguments:
+ * none
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [] call kat_medical_gui_fnc_updateMedication;
+ *
+ * Public: No
+ */
+
+if !(EGVAR(pharma,AMS_Enabled)) exitWith {};
+disableSerialization;
+
+[{private _medications = [
+    "kat_amiodarone",
+    "kat_atropine",
+    "kat_EACA",
+    "kat_epinephrineIV",
+    "kat_etomidate",
+    "kat_fentanyl",
+    "kat_flumazenil",
+    "kat_ketamine",
+    "kat_lidocaine",
+    "kat_lorazepam",
+    "kat_nalbuphine",
+    "kat_nitroglycerin",
+    "kat_norepinephrine",
+    "kat_phenylephrine",
+    "kat_TXA",
+    "kat_morphineIV",
+    "kat_adenosineIV",
+    "kat_atropineIV"
+];
+
+private _medicationsFound = {
+    params ["_medications"];
+
+    private _inventory = (items player) + (magazines player);
+    private _found = [];
+
+    {
+        private _item = _x;
+        if (_item in _medications) then {
+            private _existingIndex = -1;
+            {
+                if ((_x select 0) == _item) exitWith {_existingIndex = _forEachIndex};
+            } forEach _found;
+
+            if (_existingIndex == -1) then {
+                _found pushBack [_item, 1];
+            } else {
+                _found set [_existingIndex, [_item, (_found select _existingIndex select 1) + 1]];
+            };
+        };
+    } forEach _inventory;
+
+    _found
+};
+
+private _listBox = findDisplay 38580 displayCtrl 71305;
+private _foundMedications = [_medications] call _medicationsFound;
+
+private _populateListBox = {
+    params ["_foundMedications", "_listBox"];
+
+    lbClear _listBox;
+    {
+        private _medItem = _x select 0;
+        private _medCount = _x select 1; 
+        if (_medItem != "") then {
+            private _config = configFile >> "CfgWeapons" >> _medItem;
+            private _displayName = getText (_config >> "displayName");
+            private _picture = getText (_config >> "picture");
+            private _data = toLower ((_medItem splitString "_") select 1);
+            private _entryText = format ["%1 (x%2)", _displayName, _medCount];
+            private _index = _listBox lbAdd _entryText;
+            _listBox lbSetPicture [_index, _picture];
+            _listBox lbSetData [_index, _data];
+        };
+    } forEach _foundMedications; 
+};
+
+[_foundMedications, _listBox] call _populateListBox; }, [], 0.01] call CBA_fnc_waitAndExecute;

addons/gui/functions/fnc_updateSyringes.sqf

@@ -0,0 +1,73 @@
+#include "..\script_component.hpp"
+/*
+ * Author: Cplhardcore
+ * Checks the syringes in the players inventory and then populates the listbox with the syringes,
+ *
+ * Arguments:
+ * none
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [] call kat_medical_gui_fnc_updateSyringes;
+ *
+ * Public: No
+ */
+if !(EGVAR(pharma,AMS_Enabled)) exitWith {};
+disableSerialization;
+
+[{private _syringes = [
+    "kat_10ml_syringe", 
+    "kat_5ml_syringe"
+];
+
+private _syringesFound = {
+    params ["_syringes"];
+
+    private _inventory = (items player) + (magazines player);
+    private _found = [];
+
+    {
+        private _item = _x;
+        if (_item in _syringes) then {
+            private _existingIndex = -1;
+            {
+                if ((_x select 0) == _item) exitWith {_existingIndex = _forEachIndex};
+            } forEach _found;
+
+            if (_existingIndex == -1) then {
+                _found pushBack [_item, 1];
+            } else {
+                _found set [_existingIndex, [_item, (_found select _existingIndex select 1) + 1]];
+            };
+        };
+    } forEach _inventory;
+
+    _found
+};
+
+private _listBox = findDisplay 38580 displayCtrl 71303;
+private _foundSyringes = [_syringes] call _syringesFound;
+
+private _populateListBox = {
+    params ["_foundSyringes", "_listBox"];
+
+    lbClear _listBox;
+    {
+        private _syringeItem = _x select 0;
+        private _syringeCount = _x select 1; 
+        if (_syringeItem != "") then {
+            private _config = configFile >> "CfgWeapons" >> _syringeItem;
+            private _displayName = getText (_config >> "displayName");
+            private _picture = getText (_config >> "picture");
+            private _data = toLower ((_syringeItem splitString "_") select 1);
+            private _entryText = format ["%1 (x%2)", _displayName, _syringeCount];
+            private _index = _listBox lbAdd _entryText;
+            _listBox lbSetPicture [_index, _picture];
+            _listBox lbSetData [_index, _data];
+        };
+    } forEach _foundSyringes; 
+};
+
+[_foundSyringes, _listBox] call _populateListBox; }, [], 0.01] call CBA_fnc_waitAndExecute;