ACE3/addons/gui/functions/fnc_effectBleeding.sqf
2015-01-17 12:05:07 +01:00

37 lines
910 B
Plaintext

/**
* fn_effectBleeding.sqf
* @Descr: Displays the ACE Bleeding effect
* @Author: Glowbal
*
* @Arguments: [bloodLoss NUMBER]
* @Return: void
* @PublicAPI: true
*/
#include "script_component.hpp"
if (isnil QGVAR(DisplayingBleedingEffect)) then {
GVAR(DisplayingBleedingEffect) = false;
};
if (GVAR(DisplayingBleedingEffect)) exitwith {};
private ["_bloodLoss","_time"];
_bloodLoss = _this select 0;
if (!(_bloodLoss > 0)) exitwith{};
_time = 10 - _bloodLoss;
if (_time < 1.5) then {
_time = 1.5;
};
GVAR(DisplayingBleedingEffect) = true;
47 cutRsc [QGVAR(ScreenEffectsBleeding),"PLAIN"];
[{
if !(isnil QGVAR(DisplayingBleedingEffect_ran)) then {
GVAR(DisplayingBleedingEffect_ran) = nil;
GVAR(DisplayingBleedingEffect) = false;
[(_this select 1)] call cba_fnc_removePerFrameHandler;
} else {
GVAR(DisplayingBleedingEffect_ran) = true;
};
}, _time, [] ] call CBA_fnc_addPerFrameHandler;