mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
50 lines
1.8 KiB
Plaintext
50 lines
1.8 KiB
Plaintext
/*
|
|
* Author: Glowbal
|
|
* Calculate the total blood loss of a unit.
|
|
*
|
|
* Arguments:
|
|
* 0: The Unit <OBJECT>
|
|
*
|
|
* ReturnValue:
|
|
* Total blood loss of unit <NUMBER>
|
|
*
|
|
* Public: No
|
|
*/
|
|
|
|
#include "script_component.hpp"
|
|
|
|
#define BLOODLOSSRATE_BASIC 0.2
|
|
|
|
private ["_totalBloodLoss","_tourniquets","_openWounds", "_cardiacOutput", "_internalWounds"];
|
|
// TODO Only use this calculation if medium or higher, otherwise use vanilla calculations (for basic medical).
|
|
params ["_unit"];
|
|
_totalBloodLoss = 0;
|
|
|
|
// Advanced medical bloodloss handling
|
|
if (GVAR(level) >= 2) then {
|
|
_tourniquets = _unit getVariable [QGVAR(tourniquets), [0,0,0,0,0,0]];
|
|
_openWounds = _unit getVariable [QGVAR(openWounds), []];
|
|
//_cardiacOutput = [_unit] call FUNC(getCardiacOutput);
|
|
|
|
{
|
|
if ((_tourniquets select (_x select 2)) == 0) then {
|
|
// total bleeding ratio * percentage of injury left
|
|
_totalBloodLoss = _totalBloodLoss + ((_x select 4) * (_x select 3));
|
|
|
|
// (((BLOODLOSS_SMALL_WOUNDS * (_x select 0))) + ((BLOODLOSS_MEDIUM_WOUNDS * (_x select 1))) + ((BLOODLOSS_LARGE_WOUNDS * (_x select 2))) * (_cardiacOutput / DEFAULT_CARDIAC_OUTPUT));
|
|
};
|
|
} forEach _openWounds;
|
|
|
|
_internalWounds = _unit getVariable [QGVAR(internalWounds), []];
|
|
{
|
|
_totalBloodLoss = _totalBloodLoss + ((_x select 4) * (_x select 3));
|
|
} forEach _internalWounds;
|
|
|
|
// cap the blood loss to be no greater as the current cardiac output
|
|
//(_totalBloodLoss min _cardiacOutput);
|
|
} else {
|
|
{ _totalBloodLoss = _totalBloodLoss + _x } forEach (_unit getVariable [QGVAR(bodyPartStatus), []]);
|
|
_totalBloodLoss = (_totalBloodLoss / 6) * BLOODLOSSRATE_BASIC;
|
|
};
|
|
_totalBloodLoss * ((_unit getVariable [QGVAR(bleedingCoefficient), GVAR(bleedingCoefficient)]) max 0);
|