2015-04-12 02:21:33 +00:00
|
|
|
/*
|
|
|
|
|
* Author: PabstMirror
|
|
|
|
|
* Interface to allow external modules to safely adjust pain levels.
|
|
|
|
|
*
|
|
|
|
|
* Arguments:
|
|
|
|
|
* 0: The patient <OBJECT>
|
|
|
|
|
* 1: Added ammount of pain (can be negative) <NUMBER>
|
|
|
|
|
*
|
|
|
|
|
* Return Value:
|
|
|
|
|
* The new pain level <NUMBER>
|
|
|
|
|
*
|
|
|
|
|
* Example:
|
|
|
|
|
* [guy, 0.5] call ace_medical_fnc_adjustPainLevel
|
|
|
|
|
*
|
|
|
|
|
* Public: Yes
|
|
|
|
|
*/
|
|
|
|
|
#include "script_component.hpp"
|
|
|
|
|
|
|
|
|
|
private ["_pain"];
|
|
|
|
|
|
2015-08-22 14:25:10 +00:00
|
|
|
params ["_unit", "_addedPain"];
|
2015-04-12 02:21:33 +00:00
|
|
|
//Only run on local units:
|
|
|
|
|
if (!local _unit) exitWith {ERROR("unit is not local");};
|
2015-09-05 22:31:14 +00:00
|
|
|
TRACE_3("ACE_DEBUG: adjustPainLevel Called",_unit, _pain, _addedPain);
|
2015-04-12 02:21:33 +00:00
|
|
|
|
|
|
|
|
//Ignore if medical system disabled:
|
|
|
|
|
if (GVAR(level) == 0) exitWith {};
|
|
|
|
|
|
|
|
|
|
_pain = _unit getVariable [QGVAR(pain), 0];
|
|
|
|
|
|
|
|
|
|
_pain = _pain + _addedPain;
|
|
|
|
|
if (GVAR(level) == 1) then {_pain = _pain min 1;}; //for basic, cap at 1
|
|
|
|
|
_pain = _pain max 0;
|
|
|
|
|
|
|
|
|
|
_unit setVariable [QGVAR(pain), _pain];
|
|
|
|
|
|
|
|
|
|
//Start up the vital watching (if not already running)
|
|
|
|
|
[_unit] call FUNC(addToInjuredCollection);
|
|
|
|
|
|
|
|
|
|
_pain
|
