mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
82 lines
2.9 KiB
Plaintext
82 lines
2.9 KiB
Plaintext
/*
|
|
* Author: Glowbal
|
|
* Get the change in the heart rate. Used for the vitals calculations. Calculated in one seconds.
|
|
*
|
|
* Arguments:
|
|
* 0: The Unit <OBJECT>
|
|
*
|
|
* ReturnValue:
|
|
* Change in heart Rate <NUMBER>
|
|
*
|
|
* Public: No
|
|
*/
|
|
|
|
#include "script_component.hpp"
|
|
|
|
params ["_unit"];
|
|
|
|
private _hrIncrease = 0;
|
|
|
|
if (!(_unit getVariable [QGVAR(inCardiacArrest),false])) then {
|
|
private _adjustment = _unit getVariable [QGVAR(heartRateAdjustments), []];
|
|
{
|
|
_x params ["_values", "_time", "_callBack"];
|
|
if (abs _values > 0) then {
|
|
if (_time <= 0) then {
|
|
_time = 1;
|
|
};
|
|
private _change = (_values / _time);
|
|
_hrIncrease = _hrIncrease + _change;
|
|
|
|
if ( (_time - 1) <= 0) then {
|
|
_time = 0;
|
|
_adjustment set [_forEachIndex, ObjNull];
|
|
[_unit] call _callBack;
|
|
} else {
|
|
_time = _time - 1;
|
|
_adjustment set [_forEachIndex, [_values - _change, _time]];
|
|
};
|
|
} else {
|
|
_adjustment set [_forEachIndex, ObjNull];
|
|
[_unit] call _callBack;
|
|
};
|
|
} forEach _adjustment;
|
|
|
|
_adjustment = _adjustment - [ObjNull];
|
|
_unit setVariable [QGVAR(heartRateAdjustments), _adjustment];
|
|
|
|
if (!(_unit getVariable [QGVAR(inCardiacArrest), false])) then {
|
|
private _heartRate = (_unit getVariable [QGVAR(heartRate), 80]);
|
|
private _bloodVolume = _unit getVariable [QGVAR(bloodVolume), DEFAULT_BLOOD_VOLUME];
|
|
if (_bloodVolume > BLOOD_VOLUME_CLASS_4_HEMORRHAGE) then {
|
|
private _hrChange = 0;
|
|
([_unit] call FUNC(getBloodPressure)) params ["_bloodPressureL", "_bloodPressureH"];
|
|
private _meanBP = (2/3) * _bloodPressureH + (1/3) * _bloodPressureL;
|
|
private _pain = _unit getVariable [QGVAR(pain), 0];
|
|
private _hasPain = _unit getVariable [QGVAR(hasPain), false];
|
|
private _targetBP = 107;
|
|
private _targetHR = 80;
|
|
if (_bloodVolume < BLOOD_VOLUME_CLASS_3_HEMORRHAGE) then {
|
|
_targetBP = _targetBP * (_bloodVolume / DEFAULT_BLOOD_VOLUME);
|
|
};
|
|
if (_hasPain && {_pain > 0.2}) then {
|
|
_targetHR = 130;
|
|
};
|
|
if (_heartRate < _targetHR) then {
|
|
_hrChange = round(_targetHR - _heartRate) / 2;
|
|
};
|
|
if ((_meanBP > _targetBP && {_heartRate > _targetHR}) || {_bloodVolume < BLOOD_VOLUME_CLASS_2_HEMORRHAGE && {_heartRate < 200}}) then {
|
|
_hrChange = 2 * round(_targetBP - _meanBP);
|
|
if (_hrChange < 0) then {
|
|
_hrChange = _hrChange / 20;
|
|
};
|
|
};
|
|
_hrIncrease = _hrIncrease + _hrChange;
|
|
} else {
|
|
_hrIncrease = _hrIncrease - (random 5) * round(_heartRate / 10);
|
|
};
|
|
};
|
|
};
|
|
|
|
_hrIncrease
|