mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
43 lines
1.6 KiB
Plaintext
43 lines
1.6 KiB
Plaintext
/*
|
|
* Author: Glowbal, esteldunedain
|
|
* Medication effect loop for an injection.
|
|
*
|
|
* Arguments:
|
|
* 0: Unit <OBJECT>
|
|
* 1: Name of the Variable that is affected <STRING>
|
|
* 2: Proportion of the effect applied <NUMBER>
|
|
* 3: Rate at which the effect is applied <NUMBER>
|
|
* 4: Viscosity adjustment rate <NUMBER>
|
|
* 5: Pain reduction rate <NUMBER>
|
|
*
|
|
* ReturnValue:
|
|
* None
|
|
*
|
|
* Public: No
|
|
*/
|
|
|
|
#include "script_component.hpp"
|
|
|
|
params ["_unit", "_variableName", "_amountDecreased","_decreaseRate", "_viscosityAdjustmentRate", "_painReduceRate"];
|
|
|
|
// If the unit died the loop is finished
|
|
if (!alive _unit) exitWith {};
|
|
|
|
// If locality changed finish the local loop
|
|
if (!local _unit) exitWith {};
|
|
|
|
// Apply medicinal effect
|
|
private _usedMeds = (_unit getVariable [_variableName, 0]) - _decreaseRate;
|
|
_unit setVariable [_variableName, _usedMeds];
|
|
|
|
// Restore the viscosity while the medication is leaving the system
|
|
_unit setVariable [QEGVAR(medical,peripheralResistance), ((_unit getVariable [QEGVAR(medical,peripheralResistance), 100]) - _viscosityAdjustmentRate) max 0];
|
|
_unit setVariable [QEGVAR(medical,painSuppress), ((_unit getVariable [QEGVAR(medical,painSuppress), 0]) - _painReduceRate) max 0];
|
|
|
|
// Exit if the medication has finished it's effect
|
|
_amountDecreased = _amountDecreased + _decreaseRate;
|
|
if (_amountDecreased >= 1 || (_usedMeds <= 0) || !alive _unit) exitWith {};
|
|
|
|
// Schedule the loop to be executed again 1 sec later
|
|
[DFUNC(medicationEffectLoop), [_unit, _variableName, _amountDecreased, _decreaseRate, _viscosityAdjustmentRate, _painReduceRate], 1] call CBA_fnc_waitAndExecute;
|