// burry self
#include "vampire_header"
void main()
{
  object oPC=GetPCSpeaker();
  if (!GetIsObjectValid(oPC)) oPC=OBJECT_SELF;
  if ((GetIsDay()==TRUE||GetIsDawn()==TRUE)&&GetNearestObjectByTag("RTS_SURFACE",oPC,1)!=OBJECT_INVALID)
  {
  object oPlace=CreateObject(OBJECT_TYPE_PLACEABLE,"vampbury",GetLocation(oPC));
  SetLocalObject(oPlace,"oVampire",oPC);
  fnGiveVampXP(oPC,1000);
  }
  else { SendMessageToPC(oPC,"You can only bury yourself at dawn or during the day and in a surface area."); }
}