void main()
{
    object oPC = GetPCSpeaker();
    object oPCDesc = GetItemPossessedBy(oPC, "IM_PCDESC");

    /// If PC already has a PC description scroll, remove it.
    if (GetItemPossessedBy(oPC, "IM_PCDESC") != OBJECT_INVALID) DestroyObject(oPCDesc);

    /// Create the scroll and transfer the description
    oPCDesc = CreateItemOnObject("im_pcdesc", oPC, 1);
    SetName(oPCDesc, GetName(oPC) + "'s Description");
    SetDescription(oPCDesc, GetDescription(oPC));
}