void main()
{

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


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