//::///////////////////////////////////////////////
//:: Coffin Heartbeat Script
//:: pl_coffin_hb
//:: Copyright (c) 2003 Joseph L. Berkley, Jr.
//:://////////////////////////////////////////////
/*

*/
//:://////////////////////////////////////////////
//:: Created By: Joseph L. Berkley, Jr.
//:: Created On: 6 March 2003
//:://////////////////////////////////////////////
void main()
{
    if( GetLocalInt( OBJECT_SELF, "VAMPIRE_INSIDE" ) )
    {
        if( GetIsNight() )
        {
            int nTimer = GetLocalInt( OBJECT_SELF, "VAMPIRE_TIMER" );
            if( nTimer )
            {
                SetLocalInt( OBJECT_SELF, "VAMPIRE_TIMER", --nTimer );
            } // if timer
            else
            {
                object oVampire = CreateObject( OBJECT_TYPE_CREATURE,
                    GetLocalString( OBJECT_SELF, "OCCUPANT_REF" ),
                    GetLocation( OBJECT_SELF ), TRUE );
                SetLocalInt( OBJECT_SELF, "VAMPIRE_INSIDE", FALSE );
            } // spawn vampire
        } // if night
    } // if occupied
}