#include "nw_i0_plot"


void main()
{
    // Give the speaker the items
    CreateItemOnObject("it_zechariahkey", GetPCSpeaker(), 1);


    // Remove items from the player's inventory
    object oItemToTake;
    oItemToTake = GetItemPossessedBy(GetPCSpeaker(), "LettertoPope");
    if(GetIsObjectValid(oItemToTake) != 0)
        DestroyObject(oItemToTake);
    // Set the variables
    SetPLocalInt(GetPCSpeaker(), "ArchbishopQuest", 2);

}