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

}