void main()
{
object oArea=GetArea(OBJECT_SELF);
object oPC=GetPCSpeaker();
object oThing=GetFirstFactionMember(oPC);

// Remove items from the player's inventory
object oItemToTake;
oItemToTake = GetItemPossessedBy(GetPCSpeaker(), "fr_stone_head");
if(GetIsObjectValid(oItemToTake) != 0)
DestroyObject(oItemToTake);

while (GetIsObjectValid(oThing))
{
    if (GetArea(oThing)==oArea)
    {
    AssignCommand(oThing,JumpToObject(GetWaypointByTag("fr_book_enter02"),FALSE));
    }
oThing=GetNextFactionMember(oPC);
}
}