#include "script_component.hpp"
/*
 * Author: Dani (TCVM)
 * Decreases burning intensity on successful medical action.
 *
 * Arguments:
 * 0: Medic <OBJECT>
 * 1: Patient <OBJECT>
 *
 * Return Value:
 * None
 *
 * Example:
 * [player, cursorObject] call ace_fire_fnc_medical_success
 *
 * Public: No
 */

params ["_medic", "_patient", "_bodyPart", "_classname"];

private _intensity = _patient getVariable [QGVAR(intensity), 0];
_intensity = _intensity * INTENSITY_DECREASE_MULT_PAT_DOWN;
_patient setVariable [QGVAR(intensity), _intensity, true];

if (_intensity > BURN_MIN_INTENSITY) then {
    TRACE_1("patient still burning, looping",_this);

    if (EGVAR(medical_gui,pendingReopen)) then {
        LOG("temporarily blocking medical menu reopen");

        EGVAR(medical_gui,pendingReopen) = false;
        [{EGVAR(medical_gui,pendingReopen) = true}] call CBA_fnc_execNextFrame;
    };

    [_medic, _patient, _bodyPart, _classname] call EFUNC(medical_treatment,treatment);
};