/*
 * Author: ACE2 Team
 *
 * Updates GVAR(currentHumidity) based on
 *
 * Argument:
 * Nothing
 *
 * Return value:
 * Nothing
 */
#include "script_component.hpp"

private ["_month", "_avgTemperature", "_pS1", "_pS2"];
_month = date select 1;

GVAR(currentHumidity) = (GVAR(Humidity) select _month) / 100;

if (rain > 0 && overcast > 0.7) then {
    GVAR(currentHumidity) = 1;
} else {
    _avgTemperature = ((GVAR(TempDay) select (_month - 1)) + (GVAR(TempNight) select (_month - 1))) / 2;
    _pS1 = 6.112 * exp((17.62 * _avgTemperature) / (243.12 + _avgTemperature));
    _PS2 = 6.112 * exp((17.62 * GVAR(currentTemperature)) / (243.12 + GVAR(currentTemperature)));
    GVAR(currentHumidity) = GVAR(currentHumidity) * _PS1 / _PS2;
};

GVAR(currentHumidity) = 0 max GVAR(currentHumidity) min 1;