void main()
{
  int nBookRoll = d100(1);
  if(nBookRoll <= 40)
{   CreateObject(OBJECT_TYPE_CREATURE, "possessedtome", GetLocation(OBJECT_SELF), TRUE);}

ExecuteScript("uberloot", OBJECT_SELF);
ExecuteScript("prc_npc_death", OBJECT_SELF);
ExecuteScript("prc_pwondeath", OBJECT_SELF);
}