//::///////////////////////////////////////////////
//:: FileName jw_ogre_2000
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
//:: Created By: Script Wizard
//:: Created On: 21/08/2002 23:14:46
//:://////////////////////////////////////////////
#include "nw_i0_tool"


void main()
{

object oPC=GetPCSpeaker();

    object oPartyMember = GetFirstFactionMember(oPC, TRUE);
        while (GetIsObjectValid(oPartyMember) == TRUE)
        {
                   if (GetArea(oPartyMember)==GetArea(OBJECT_SELF))
                  {
            CreateItemOnObject("jw_ogre_amulet", oPartyMember, 1);
                   }
            oPartyMember = GetNextFactionMember(oPC, TRUE);

        }


    // Remove some gold from the player
    TakeGoldFromCreature(2000, GetPCSpeaker(), TRUE);
}