#include "nw_i0_tool"
#include "x0_i0_partywide"

void main()

{

object oTarget;
location lTarget;

object oPC = GetPCSpeaker();

// Give 5 experience (to party) to the PC.
GiveXPToAll(oPC, 10);

AddJournalQuestEntry("Red God's Curse", 6, oPC, TRUE, FALSE);

oTarget = GetWaypointByTag("WP_RGDTMple");

lTarget = GetLocation(oTarget);

if (GetAreaFromLocation(lTarget)==OBJECT_INVALID) return;

oTarget=GetFirstFactionMember(oPC, FALSE);

while (GetIsObjectValid(oTarget))
   {
   AssignCommand(oTarget, ClearAllActions());

   AssignCommand(oTarget, ActionJumpToLocation(lTarget));
   oTarget=GetNextFactionMember(oPC, FALSE);
   }

oTarget = GetObjectByTag("temptored");
AssignCommand(oTarget, ActionCloseDoor(oTarget));
SetLocked(oTarget, TRUE);

}