void main()
{
  location lLocation = GetLocation(OBJECT_SELF);
  ExecuteScript("uberloot", OBJECT_SELF);
  CreateItemOnObject("towerkey2", OBJECT_SELF);
  CreateItemOnObject("towerkey1", OBJECT_SELF);


  int nDiceRoll = d100(1);
  if(nDiceRoll <= 30)
    {
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    }
   else if(nDiceRoll <= 60)
    {
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    }
   else
    {
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    CreateObject(OBJECT_TYPE_CREATURE, "possessedspellbo", lLocation, FALSE);
    CreateObject(OBJECT_TYPE_CREATURE, "dv_at_book_1", lLocation, FALSE);
    }
}