Added medication overdose and wearoff.

addons/medical/XEH_preInit.sqf

@@ -41,6 +41,7 @@ PREP(addToLog);
 PREP(addToTriageCard);
 PREP(actionPlaceInBodyBag);
 PREP(onTreatmentCompleted);
+PREP(onMedicationUsed);
 PREP(reactionToDamage);
 PREP(useItem);
 PREP(hasItem);

addons/medical/functions/fnc_onMedicationUsage.sqf

@@ -0,0 +1,85 @@
+/*
+ * Author: Glowbal
+ * Handles the medication given to a patient.
+ *
+ * Arguments:
+ * 0: The patient <OBJECT>
+ * 1: Medication Treatment classname <STRING>
+ * 2: The medication treatment variablename <STRING>
+ * 3: Max dosage <NUMBER>
+ * 4: The time in the system <NUMBER>
+ * 5: Incompatable medication <ARRAY<STRING>>
+ *
+ * Return Value:
+ * NONE
+ *
+ * Public: No
+ */
+
+private ["_target", "_className", "_variable", "_maxDosage", "_timeInSystem", "_incompatabileMeds", "_foundEntry", "_allUsedMedication","_allMedsFromClassname", "_usedMeds", "_hasOverDosed", "_med", "_limit", "_classNamesUsed", "_decreaseAmount"];
+_target = _this select 0;
+_className = _this select 1;
+_variable = _this select 2;
+_maxDosage = _this select 3;
+_timeInSystem = _this select 4;
+_incompatabileMeds = _this select 5;
+
+_foundEntry = false;
+_allUsedMedication = _target getvariable [QGVAR(allUsedMedication), []];
+{
+    if (_x select 0 == _variable) exitwith {
+        _allMedsFromClassname = _x select 1;
+        if !(_className in _allMedsFromClassname) then {
+            _allMedsFromClassname pushback _className;
+            _x set [1, _allMedsFromClassname];
+            _allUsedMedication set[_foreachIndex, _x];
+            _target setvariable [QGVAR(allUsedMedication), _allUsedMedication];
+        };
+        _foundEntry = true;
+    };
+}foreach _allUsedMedication;
+
+if (!_foundEntry) then {
+    _allUsedMedication pushback [_variable, [_className]];
+    _target setvariable [QGVAR(allUsedMedication), _allUsedMedication];
+};
+
+
+_usedMeds = _target getvariable [_variable, 0];
+if (_usedMeds >= floor(_maxDosage + round(random(2)))) then {
+    [_target] call FUNC(setDead);
+};
+
+_hasOverDosed = 0;
+{
+    _med = _x select 0;
+    _limit = _x select 1;
+    {
+        _classNamesUsed = _x select 1;
+        if ({_x == _med}count _classNamesUsed > _limit) then {
+            _hasOverDosed = _hasOverDosed + 1;
+        };
+    }foreach _allUsedMedication;
+}foreach _incompatabileMeds;
+
+_decreaseAmount = 1 / _timeInSystem;
+[{
+    private ["_args", "_target", "_timeInSystem", "_variable", "_amountDecreased","_decreaseAmount", "_usedMeds"];
+    _args = _this select 0;
+    _target = _args select 0;
+    _timeInSystem = _args select 1;
+    _variable = _args select 2;
+    _amountDecreased = _args select 3;
+    _decreaseAmount = _args select 4;
+
+    _usedMeds = _target getvariable [_variable, 0];
+    _usedMeds = _usedMeds - _decreaseAmount;
+    _target setvariable [_variable, _usedMeds];
+
+    _amountDecreased = _amountDecreased + _decreaseAmount;
+
+    if (_amountDecreased >= 1 || (_usedMeds <= 0)) then {
+        [(_this select 1)] call cba_fnc_removePerFrameHandler;
+    };
+    _args set [3, _amountDecreased];
+}, 1, [_target, _timeInSystem, _variable, 0, _decreaseAmount] ] call CBA_fnc_addPerFrameHandler;

addons/medical/functions/fnc_treatmentAdvanced_medicationLocal.sqf

@@ -70,6 +70,6 @@ if (_pain <= 0) then {
 _target setvariable [QGVAR(pain), _pain];
 
 // Call back to ensure that the medication is decreased over time
-[_target, _varName, _maxDose, _timeInSystem, _inCompatableMedication] call FUNC(onMedicationUsage);
+[_target, _classname, _varName, _maxDose, _timeInSystem, _inCompatableMedication] call FUNC(onMedicationUsage);
 
 true