/*
    DonkeyPunch Epoch Realism Script Alpha
    DP_Real_Health.sqf
    By =RAV=MusTanG
    For DonkeyPunch EpochMod Servers
*/
dpReal_Health = {
    _hunger = EPOCH_playerHunger;
    _thirst = EPOCH_playerThirst;
    _wet = EPOCH_playerWet;
    _soiled = EPOCH_playerSoiled;
    _immune = EPOCH_playerImmunity;
    _tox = EPOCH_playerToxicity;
    _bloodP = EPOCH_playerBloodP;
    _ptempH = EPOCH_playerTemp;
    _ptempL = EPOCH_playerTemp;
    _stamina = EPOCH_playerStamina;
    //_fatigue = EPOCH_playerFatigue; // this was a bad idea
    _pdamage = damage player;
    _rad = EPOCH_playerRadiation;

    if(_hunger < 450) then
    {
        _damage = _pdamage + DPRH_HungerDamage;
        [DPRH_HungerMsg] call dpReal_Messaging;
        player setDamage _damage;
        sleep 15;
        _ate = EPOCH_playerHunger;
        if(_ate < 450) then {call dpReal_Health;};
    };

    if(_thirst < 200) then
    {
        _damage = _pdamage + DPRH_ThirstDamage;
        [DPRH_ThirstMsg] call dpReal_Messaging;
        player setDamage _damage;
        sleep 15;
        _drank = EPOCH_playerThirst;
        if(_drank < 200) then {call dpReal_Health;};
    };

    if(_wet > 90) then
    {
        EPOCH_playerTemp = EPOCH_playerTemp + (DPRH_ChangeIfSoaked select 0);
        EPOCH_playerImmunity = EPOCH_playerImmunity - (DPRH_ChangeIfSoaked select 1);
        [DPRH_WetMsg] call dpReal_Messaging;
        sleep 15;
        if(_wet > 90) then {call dpReal_Health;};
    };

    if(_soiled > 25) then
    {
        EPOCH_playerToxicity = EPOCH_playerToxicity + DPRH_ToxicChangeIfSoiled;
        [DPRH_SoiledMsg] call dpReal_Messaging;
        sleep 15;
        if(_soiled > 25) then {call dpReal_Health;};
    };

    if(_tox > 49) then
    {
        EPOCH_playerImmunity = EPOCH_playerImmunity - DPRH_ImmunityChangeIfToxic;
        [DPRH_ToxicityMsg] call dpReal_Messaging;
        sleep 15;
        if(_tox > 49) then {call dpReal_Health;};
    };

    if(_immune < -20)then
    {
        _damage = _pdamage + DPRH_ImmunityDamage;
        EPOCH_playerTemp = EPOCH_playerTemp + (DPRH_ChangeIfLowImmunity select 0);
        Epoch_playerToxicity = Epoch_playerToxicity + (DPRH_ChangeIfLowImmunity select 1);
        EPOCH_playerStamina = EPOCH_playerStamina - (DPRH_ChangeIfLowImmunity select 2);
        [DPRH_ImmunityMsg] call dpReal_Messaging;
        player setDamage _damage;
        sleep 15;
        if(_immune < -20)then{call dpReal_Health;};
    };

    if(_bloodP > 140) then
    {
        [DPRH_BloodPressMsg] call dpReal_Messaging;
        EPOCH_playerStamina = EPOCH_playerStamina - (DPRH_ChangeIfHighBP select 0);
        EPOCH_playerTemp = EPOCH_playerTemp + (DPRH_ChangeIfHighBP select 1);
        _damage = _pdamage + (DPRH_ChangeIfHighBP select 2);
        player setDamage _damage;
        sleep 15;
        if(_bloodP > 140) then {call dpReal_Health;};
    };

    if(_ptempH > 99.5) then
    {
        [DPRH_TempHighMsg] call dpReal_Messaging;
        EPOCH_playerBloodP = EPOCH_playerBloodP + (DPRH_ChangeIfOverHeated select 0);
        _damage = _pdamage + (DPRH_ChangeIfOverHeated select 1);
        player setDamage _damage;
        sleep 15;
        if(_ptemp > 99.5) then {call dpReal_Health;};
    };

    if(_ptempL < 96.5) then
    {
        [DPRH_TempLowMsg] call dpReal_Messaging;
        EPOCH_playerFatigue = EPOCH_playerFatigue + (DPRH_ChangeIfFreezing select 0);
        _damage = _pdamage + (DPRH_ChangeIfFreezing select 1);
        player setDamage _damage;
        sleep 15;
        if(_ptemp < 95.5) then {call dpReal_Health;};
    };

    if(_rad > 10) then
    {
        _damage = _pdamage + DPRH_RadDamage;
        [DPRH_RadMsg] call dpReal_Messaging;
        EPOCH_playerToxicity = EPOCH_playerToxicity + (DPRH_ChangeIfRad select 0);
        EPOCH_playerImmunity = EPOCH_playerImmunity - (DPRH_ChangeIfRad select 1);
        _damage = _pdamage + (DPRH_RadDamage select 2);
        player setDamage _damage;
        sleep 15;
        if(_rad > 10) then {call dpReal_Health;};
    };
};