//::////////////////////////////////////////////////////////////////////////////
/*//

    Level 1: The Lair of the Dung Beast
        onHeartbeat script
            ra_lvl01_onhb.nss

    Wandering Monsters: Check once per 30 minutes on 1d20.

    Detections: Faint evil from the whole place; slightly more to the south east.

    Continuous Effects: The stench of this level requires all characters to make
    a Fortitude save (DC 10) upon entering the level and every 30 minutes
    thereafter or all rolls are at –2 morale penalty due to the distraction
    caused by the overpowering smell.

*///
//::////////////////////////////////////////////////////////////////////////////


//:: Function to process the stench penalty
void ApplyStench(object oPC)
{
    int RA_DEBUG = 0;
	
	//:: Check for exising variable on player
    int oldTime = GetLocalInt(oPC, "StenchFortSaveTime");

    // Get the current system time in seconds
    int newTime = (GetTimeHour()*60*60)+(GetTimeMinute()*60)+GetTimeSecond();
	
    // Calculate the time difference in seconds
    int timeDifference = newTime - oldTime;
            
	if (RA_DEBUG)
	{	
		SendMessageToPC(oPC, "oldTime = " + IntToString(oldTime));
		SendMessageToPC(oPC, "newTime = " + IntToString(newTime));
		SendMessageToPC(oPC, "timeDifference = " + IntToString(timeDifference));
	}

    //:: Check if the character hasn't made a Fortitude save in the last 3 minutes
    if (oldTime == 0 || timeDifference >= 180) // 180 seconds = 3 real-time minutes
    {
        //:: Check if the character failed the save
        if (!FortitudeSave(oPC, 10))
        {
            //:: Apply a -2 morale penalty to all rolls
            effect eMoralePenalty   = EffectAttackDecrease(2);
            effect eVFX             = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
            effect eLink            = EffectLinkEffects(eMoralePenalty, eVFX);

            eLink                   = SupernaturalEffect(eLink);
            eLink                   = TagEffect(eLink, "LvlOneStench");

            ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, 180.0f); // 180 seconds = 3 real-time minutes & .5 hours in-game.

            //:: Store the current time on player
            SetLocalInt(oPC, "StenchFortSaveTime", newTime);

            if (RA_DEBUG)
			{
				SendMessageToPC(oPC, "Failed StenchFortSave");
				SendMessageToPC(oPC, "Setting StenchFortSaveTime as " + IntToString(newTime));
			}
			
            // Send a message to the player
            SendMessageToPC(oPC, "The overpowering stench is distracting you.");
        }

	//:: Store the current time on player
		SetLocalInt(oPC, "StenchFortSaveTime", newTime);
		
		if (RA_DEBUG)
		{
			SendMessageToPC(oPC, "Passed StenchFortSave");
			SendMessageToPC(oPC, "Setting StenchFortSaveTime as " + IntToString(newTime));
		}
    }
}

void main()
{
    int RA_DEBUG = 0;

    //:: Declare major variables
    object oArea = OBJECT_SELF;
    object oPC = GetFirstObjectInArea(oArea, OBJECT_TYPE_CREATURE);

    while (GetIsObjectValid(oPC))
    {
        if (GetIsPC(oPC) || (GetMaster(oPC) != OBJECT_INVALID && GetIsPC(GetMaster(oPC))))
        {
            if (RA_DEBUG)
            {
                SendMessageToPC(oPC, "Running Level 1 Area HB");
            }

            //:: Apply the stench
            ApplyStench(oPC);
        }

        // Get the next object in the area
        oPC = GetNextObjectInArea(oArea);
    }
}