//::///////////////////////////////////////////////
//:: FileName end_samoflange
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
//:: Created By: Script Wizard
//:: Created On: 8/22/2002 7:03:19 PM
//:://////////////////////////////////////////////
void main()
{
    // Give the speaker some gold
    GiveGoldToCreature(GetPCSpeaker(), 500);

    // Give the speaker some XP
    GiveXPToCreature(GetPCSpeaker(), 500);


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