///////////////////////////////////////////////////////////////////////////////
// Real Time Strategy - NWN - Vamp Birth Placeable
//=============================================================================
// By Deva Bryson Winblood.  03/05/2003
////////////////////////////////////////////////////////////////////////////////

void fnCreateVamp()
{ // make a vampire
  location lLoc=GetLocation(OBJECT_SELF);
  effect eVFX=EffectVisualEffect(VFX_FNF_SUMMON_UNDEAD);
  ApplyEffectAtLocation(DURATION_TYPE_INSTANT,eVFX,lLoc,1.0);
  object oNew=CreateObject(OBJECT_TYPE_CREATURE,"und1",lLoc,TRUE);
  DelayCommand(3.0,SetLocalInt(oNew,"nMState",4)); // protect
  DelayCommand(3.0,SetLocalObject(oNew,"oDestWP",GetNearestObjectByTag("und25",oNew)));
} // fnCreateVamp()


void main()
{
   int nSet=GetLocalInt(OBJECT_SELF,"nSet");
   if (nSet!=TRUE)
   { // activate
     DelayCommand(10.0,fnCreateVamp());
     DelayCommand(30.0,DestroyObject(OBJECT_SELF));
     SetLocalInt(OBJECT_SELF,"nSet",TRUE);
   } // activate
}